填空题

设有命令按钮Command1的单击事件过程，代码如下，请填空。 Private Sub Command1_Click() Dim a(30) 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

【参考答案】

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

填空题
在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。Private Sub Command1_Click() Open C: test.dat For______As #1For i=1 to Len(Text1.text) print #1，mid(Text1.Text,i,1) NextClose #1End Sub
填空题
有以下程序：Private Sub Form_Activate() For j=1 to 3x=3For i=1 to 2x=x+6NextNextPrint xEnd Sub程序运行后，窗体上显示的结果为______。
相关试题