用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 08:58:30
![用VB编一个用字母组成的菱形,求代码,其相邻的上下两行由它前面一个字母组成要求效果是abbbcccccdddddddeeeeefffg](/uploads/image/z/3150341-53-1.jpg?t=%E7%94%A8VB%E7%BC%96%E4%B8%80%E4%B8%AA%E7%94%A8%E5%AD%97%E6%AF%8D%E7%BB%84%E6%88%90%E7%9A%84%E8%8F%B1%E5%BD%A2%2C%E6%B1%82%E4%BB%A3%E7%A0%81%2C%E5%85%B6%E7%9B%B8%E9%82%BB%E7%9A%84%E4%B8%8A%E4%B8%8B%E4%B8%A4%E8%A1%8C%E7%94%B1%E5%AE%83%E5%89%8D%E9%9D%A2%E4%B8%80%E4%B8%AA%E5%AD%97%E6%AF%8D%E7%BB%84%E6%88%90%E8%A6%81%E6%B1%82%E6%95%88%E6%9E%9C%E6%98%AFabbbcccccdddddddeeeeefffg)
用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