填空题

设有命令按钮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 ACase 【11】 N=A+BCase Is = 5N = B ACase Is＜5N=0End SelectText3. Text = NEnd Sub

填空题

有一过程如下：Sub Subl (m As Integer,total As Long)Dim i AS Integertotal = 1For i = 1 To mtotal = total * iNextEnd Sub调用它的事件过程如下：Private Sub Commandl_Click( )Dim tot As Long, a As Integera = Val( InputBox ( 请输入数据 )Call Subl (a,tot)Print totEnd Sub则输入数据5，运行结果为【10】。

相关试题