VB中的for循环专题【VB学习笔记2020课堂版05】

Option Explicit

Private Sub Command1_Click()
If Text5.Text = "" Then
    Combo1.AddItem Text1.Text
Else
    Combo1.AddItem Text1.Text, Val(Text5.Text)
End If
End Sub

Private Sub Command2_Click()
Combo2.AddItem Text2.Text
End Sub

Private Sub Command3_Click()
If Text4.Text = "" Then
    List1.AddItem Text3.Text
Else
    List1.AddItem Text3.Text, Val(Text4.Text)
End If
End Sub

Private Sub Command5_Click()
MsgBox Val(" ")
End Sub

Private Sub Command6_Click()
Dim i%

For i = 0 To 2 Step 1

    If List1.List(i) <> "bbb" Then
        Picture1.Print List1.List(i)
    End If
Next i


End Sub

Private Sub Command7_Click()
Dim a#

MsgBox TypeName(a)
 
End Sub

Private Sub Command8_Click()
Dim i%, j%
For i = 0 To 3 Step 1

   For j = 0 To 2 Step 1
      Picture1.Print "a";
   Next j

Next i

End Sub