Question

将 * *** ***** ******* 用VB编程编出来。附上解释。。

我们学编程，还没学好，，所以，请大家帮忙给编出来，顺便给解释一下为什么这样编。谢谢！！！
图形为
*
***
*****
*******

Answer 1

Private Sub Command1_Click()
For I = 1 To 7 Step 2 '重1到7设置步长为2
Me.Print string(I,"*")
Next I
End Sub

这样更简单一些

Answer 2

偶是菜鸟不会复杂的
这个有你要的效果
Private Sub Command1_Click()
For I = 1 To 7 Step 2 '重1到7设置步长为2
For c = 1 To I '输出几个*号
Me.Print "*"; ' ;号表示不换行 输出
Next c
Me.Print '换行
Next I
End Sub

Answer 3

Private Sub Form_Load()
Dim i As Integer '定义一个变量，用来计算*的个数
For i = 1 To 7 Step 2 '开始循环，从1到7，step2意思是每执行完一次，i+2
Select Case i '对i进行判断
Case 1 '如果i=1，则输出一个*，下面以此类推
Print "*"
Case 3
Print "***"
Case 5
Print "*****"
Case 7
Print "*******"
End Select '结束select
Next ' 表示for循环中 进行下一步循环
End Sub

在这些程序之前 要确认窗口属性的autoredraw属性为TRUE
求最佳