xlanke 幼苗
共回答了18个问题采纳率:83.3% 举报
完整的代码如下:你在窗体上添加一个命令按钮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
1年前 追问
1年前1个回答
1年前1个回答
你能帮帮他们吗