level 2
功夫麦头
楼主
Option Explicit
Public i%
Dim l As Variant
Private Sub Command2_Click()
ReDim a(10) As Long
Text1.Text = ""
If i < 13 Then
For i = 1 To 13
l = InputBox("请输入", "提示", "")
a(10) = l
Text1.Text = Text1.Text + "第" & CStr(i) & "个是：" & CStr(a(10)) + " "
Next i
End If
End Sub
这端程序是将Input输入的数放入数组中，然后在text中显示。我不懂得是怎么让text只显示两个
2016年05月09日 15点05分
1
Public i%
Dim l As Variant
Private Sub Command2_Click()
ReDim a(10) As Long
Text1.Text = ""
If i < 13 Then
For i = 1 To 13
l = InputBox("请输入", "提示", "")
a(10) = l
Text1.Text = Text1.Text + "第" & CStr(i) & "个是：" & CStr(a(10)) + " "
Next i
End If
End Sub
这端程序是将Input输入的数放入数组中，然后在text中显示。我不懂得是怎么让text只显示两个
