编写VB程序

Private Sub Form_Click()
For i = 1 To 7 Step 2
Print Space((7 - i) / 2) & String(i, "*")
Next
For i = 5 To 1 Step -2
Print Space((7 - i) / 2) & String(i, "*")
Next
End Sub

Private Sub Form_click()
For i = 1 To 4
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
For i = 3 To 1 Step -1
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
End Sub

Private Sub Command1_Click()
Dim i As Long’为循环体定义一个变量
For i = 1 To 7'从一数到七（因为题目中最多有7个星星)
If (i Mod 2) <> 0 Then'MOD是取模方法即运算结果是余数，用于取得奇数（因为审题发现奇数时打印*),如果数到是奇数则打印（Print）“*“号
Print String(i, "*")'String一个复制字符函数:复制 i 个数量 * 号
End If
Next
For i = 1 To 5'跟上面相同求奇数
If (i Mod 2) <> 0 Then
Print String(6 - i, "*")'这一个*号减少的过程
End If
Next
End Sub