Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a(10) As Integer
For x = 0 To 9
a(x) = x + 1
TextBox1.Text = TextBox1.Text + Str(a(x)) + vbCrLf
Next
End Sub
非常简单的一个数组
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a(10) As Integer
For x = 0 To 9
a(x) = x + 1
TextBox1.Text = TextBox1.Text + Str(a(x)) + vbCrLf
Next
End Sub
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
扫一扫
