设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a As Integer
For i=1 To 30
a(i)=i
Next
For Each arrItem 【 】a
If arrItem Mod 7=0 Then Print arrItem;
If arritem>90 Then Exit For
Next
End Sub
请填空。
下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容,将程序补充完整。
Option Base 1
Private SubForm_Cfick()
Dim X
x=Array(23,-5,17,38,-31,46,11,8,5,-4)
Max=1
k=1
10 k=k+1
ifx(k)>x(max)then