请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是【 】。
答案
更多“在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) a=0”相关的问题
第2题
A.-5
B.25
C.-1
D.1
第3题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。
A．4
B．5
C．6
D．7
第4题
在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是()。
A、4321
B、12
C、34
D、1234
第5题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是【 】。
第6题
第7题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)， 然后编写如下事件过程： Private Sub Command1 Click() Text1．Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入123和abc，则两个文本框中显示的内容分别为【 】和【 】。
第8题
在窗体上画一个文本框和一个命令按钮，如下图所示。
.jpg)
编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1))； End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序，理解每个事件过程的操作，然后填空。 ①程序运行后，直接从键盘上输入abc，程序输出的结果是【 】。 ②程序运行后，单击一次“命令按钮1”，然后从键盘上输入abc，程序输出的结果是【 】。
第9题
第10题
在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen "d：\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.
A．13
B．14
C．15
D．16
