Question

新建一个窗体，程序运行时，当勇鼠标单击窗体任一个地方，程序弹出Inputbox()函数输入框。

当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数，编写其程序。求大神帮忙，谢谢。

Answer 1

Private Sub Form_Click()
Dim i%, a%(15)
For i = 1 To 15
a(i) = Val(InputBox("Input No." & i))
Next

For i = 1 To 15
Print a(i);
If i Mod 5 = 0 Then Print
Next

End Sub