填空题

有如下Sub过程：
Sub s(x As Single,y As Single)
t=X
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
call s(a,B)
Print a,b
End Sub
则程序运行后，单击命令按钮，输出的结果为 (7) 。

【参考答案】

BE,A
<上一题 目录 下一题>
热门 试题

填空题
下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub FormPLoad() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single,Y As Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer,_ X As Single,Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub FormMouseUp(Button As Integer, Shift As Integer,_ X As Single,Y As Single) (9) End Sub Private Sub Form_DblClick() Cls End Sub
填空题
执行下列程序，输入数字3，则输出结果为 (8) 。 Private Sub Command1_Click() a=InputBox( Input a Number ) If a＞5 Then GoTo L5 Else If a＞2 Then GoTo L2 Else GoTo L3 End If Exit Sub L5: Print a Mod5 Exit Sub L3: Print a Mod 3 Exit Sub L2: Print a Mod 2 End Sub
相关试题