作业帮 > 综合 > 作业

VB 输入一个奇数,输出用*表示的菱形,图形如下

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/03 19:21:29
VB 输入一个奇数,输出用*表示的菱形,图形如下
*
***
*****
***
*
VB 输入一个奇数,输出用*表示的菱形,图形如下
Private Sub Command1_Click()
n = Val(InputBox("输入一个奇数:"))
If n Mod 2 1 Then MsgBox n & "不是一个奇数!": Exit Sub
For i = 1 To n * 2 Step 2
Print Space(Abs(n - i) / 2); String(IIf(i > n, i - 2 * (i - n), i), "*")
Next
End Su