填空题

设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【13】 a
If arrItem Mod 7=0 Then Print arrItem：
If arrItem＞90 Then Exit For
Next
End Sub
请填空。

【参考答案】

In
<上一题 目录 下一题>
热门 试题

填空题
下面程序用来计算： Private Sub Command1_Click( ) A = Val(Text1. Text) B = Val (Text2. Text) Select Case A Case 【11】 N=A+B Case Is = 5 N = B A Case Is＜5 N=0 End Select Text3. Text = N End Sub
填空题
有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下： Private Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox ( 请输入数据 ) Call Subl (a,tot) Print tot End Sub 则输入数据5，运行结果为 【10】 。
相关试题