未分类题

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
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
程序运行后，单击命令按钮，输出结果是（ ）。
A．0
B．2
C．3
D．4

A.0
B.2
C.3
D.4

【参考答案】

D

由if语句知：当......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

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

未分类题
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序： Private Sub Form_Load（） Text1.Text='' Text2.Text='' Text3.Text='' End Sub Private Sub Command1_Click（） x=Val（Text1.Text） y=Val（Text2.Text） Text3.Text=f（x，y） End Sub Function f（ByVal x As Integer,ByVal y As Integer） Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x End Function 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。A．4 B．6 C．8 D．12
未分类题
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序： Private Sub Form_Load（） Text1.Text='' Text2.Text='' Text3.Text='' End Sub Private Sub Command1_Click（） x=Val（Text1.Text） y=Val（Text2.Text） Text3.Text=f（x，y） End Sub Function f（ByVal x As Integer,ByVal y As Integer） Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x End Function 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。A．4 B．6 C．8 D．12
相关试题