VB程序设计题，在线等待。求拯救！！！！！！！！！

Question

1．在Form_Click()事件中编程。从键盘上输入10个整数，将其中被3整除的数输出到窗体上。

Answer 1

Private Sub Form_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数：")
Next i
For i = 1 To 10
If a(i) Mod 3 = 0 Then Print a(i)
Next i
End Sub

追问

它程序开头是 DIM n as Integer，I as Integer
还一样的吗？

追答

这样的话就改为：
Private Sub Form_Click()
Dim n As Integer, i As Integer
For i = 1 To 10
n = InputBox("请输入第" & i & "个数：")
If n Mod 3 = 0 Then Print n
Next i
End Sub
这样就行了。

Answer 2

可以写十次循环，用inputbox获取输入，然后求模，能整除的打印。

追问

求答案啊！怎么写那个程序设计 什么DIM PRIVATE 什么的。。。SUB
那个怎么写呢 求帮忙

追答

不写sub，直接在click里面写也可以啊。我这里没装VB

追问

我的意思 就是那个代码怎么写？这是写试卷上的
就是答案 怎么写呢，不是电脑上VB。

追答

Private Sub Command1_Click()
Dim a As String
Dim num As Integer

For i = 1 To 10
a = InputBox("input")
num = CInt(a)
If num Mod 3 = 0 Then Print num
Next i

End Sub

Answer 3

如下