VB语言解释Dima(1To20)AsIntegerPrivateSubCommand1Click()DimiAsIntegerDimpAsStringFori=1To20a(i)=InputBox("输入a("&Format(i,"#")&"):")`请详细解释下弹出窗口I值加粗部分，这里看不懂NextiFor

Question

VB语言解释Dim a(1 To 20) As Integer Private Sub Command1_Click() Dim i As Integer Dim p As String For i = 1 To 20 a(i) = InputBox("输入a (" & Format(i, "#") & ") :") `请详细解释下弹出窗口I值 加粗部分，这里看不懂 Next i For i = 1 To 20 p = p & a(i) Select Case i Case 10 p = p & "," & Chr(13) Case 20 Case Else p = p & "," End Select Next i Label1.Caption = p End Sub

Answer 1

其实就是将循环变量i进行格式输出，"#"是指可填充的意思，就是有数就填数，最终结果是将符号位去掉 & 是字符串联接运算 输入对话框里的提示部份显示为 输入a(1): 输入a(2): .... 输入a(20):