单项选择题

有如下函数过程：
Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer
DO While …y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
<上一题 目录 下一题>
热门 试题

单项选择题
有如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If (Button And 3) =3 Then Print OK End If End Sub 程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是 Ａ) 左键 Ｂ) 右键 Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是
Ａ) 左键 Ｂ) 右键
Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
单项选择题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 2 For J=1 To I Print String(I， Hello )； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 Ａ) H Ｂ) H Ｃ) HHHHH Ｄ) H HH HHHH HH HH HHHH
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 2
For J=1 To I
Print String(I，"Hello")；
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
Ａ) H Ｂ) H Ｃ) HHHHH Ｄ) H
HH HHHH HH
HH HHHH
相关试题