作业帮用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 07:35:36
用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg
用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成
要求效果是
a
bbb
ccccc
ddddddd
eeeee
fff
g
用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg
完整的代码如下：你在窗体上添加一个命令按钮command1即可,复制代码运行（效果如图）
Private Sub Command1_Click()
Dim Num As Integer, m As Integer, n As Integer
'以下是你这个菱形的总行数加1(偶数),你只要修改这行即可(有26个字母)
Num = InputBox("请输入这个图形的总行数加1（小于等于26的偶数）", "图形行数", 26)
For i = 1 To Num / 2
m = 96 + i
n = m
For j = i To Num / 2 - 1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print Chr(m);
Next j
Print
Next i
For i = 1 To Num / 2
n = n + 1
For j = 1 To i
Print " ";
Next j
For j = 1 To 2 * (Num / 2 - i) - 1
Print Chr(n);
Next j
Print
Next i
End Sub