Question

编写visual basic 程序

编写visual basic 程序第一题

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

四个按钮控件
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 5
Print String(i, "*")
Next
End Sub
Private Sub Command2_Click()
Dim i As Long
For i = 1 To 5
Print Space(5 - i) & String(i, "*")
Next
End Sub
Private Sub Command3_Click()
Dim i As Long
For i = 5 To 1 Step -1
Print String(i, "*")
Next
End Sub
Private Sub Command4_Click()
Dim i As Long
For i = 5 To 1 Step -1
Print Space(5 - i) & String(i, "*")
Next
End Sub