第八种循环

来源:互联网 发布:淘宝怎么设置优惠卷 编辑:程序博客网 时间:2024/05/19 12:18

Private Sub Command1_Click()
Font.Size = 70
Dim arr(5) As Integer
For i = 1 To 5
arr(i) = i
Next
For Each t In arr
Print t
Next
End Sub

Private Sub Text1_Change()

End Sub

0 0
原创粉丝点击