假定有如下的Sub过程:
Subfun(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
EndSub
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
a=6
b=4
funa,b
Printa,b
EndSub
程序运行后,单击命令按钮,输出结果为()。
Subfun(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
EndSub
在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
a=6
b=4
funa,b
Printa,b
EndSub
程序运行后,单击命令按钮,输出结果为()。
举一反三
- 假定有如下的Sub过程:Subfun(xAsSingle,yAsSingle)t...序运行后,单击命令按钮,输出结果为()。
- 在窗体中添加一个命令按钮Command1,并编写如下程序: PrivateSubCommand1_Click() x=InputBox(x) Ifx^2=9Theny=x Ifx^2<9Theny=1/x Ifx^2>9Theny=x^2+1 Printy EndSub 程序运行时,单击命令按钮,在InputBox中输入3,然后单击“确定”按钮,程序的运行结果为()。
- 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() A="12" B="34" C="56" Print A+B+C End Sub 程序运行后,单击命令按钮,输出结果是
- 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: PrivateSubCommand1_Click() ForI=1To4 ForJ=0To1 PrintChr$(65+I); NextJ Print NextI EndSub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是。
- 设有如下通用过程,在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程: private sub command1_click() dim x as integer x=10 y=5 y=f(x) print x;y end sub public function f (x as integer) dim y as integer x=20 y=2 f=x*y end function 程序运行后,如果单击命令按钮,则在窗体上显示的内容是()