有如下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 s a，b Print a，b End Sub则程序运行后，单击命令按纽，输

有如下事件过程：　　Sub ABD(x％，y％，z％) 　　　　z％=X％ +y％　　End Sub　　Private Sub Command1 _ Click( )　　　　a％=30：b％=40　　　　Call ABD(a％，b％，c％)　　　　Print c％　　End Sub　　运行上面的程序，单击命令按钮，输出结果为()。 （ 30 ）有如下通用过程： （ 22 ）有如下过程代码： 设有如下通用过程： 有如下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 s a，b Print a，b End Sub则程序运行后，单击命令按纽，输 有如下程序： Private Sub Commandl_Click（) Dim a As Integer a=2 For i=1 To 3 Print Gad （ 设有如下Command1的单击事件过程及fun过程： Private Sub Command1_Click（) Dim x As Integer x = Val（InputBox（"请输入一个整数" ) ) fun（x) End Sub Private Sub fun（x As Integer) If x Nod 2 =0 Then fun（x / 2) Print x ; End Sub 假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 　If Button=2 Then 　　PopupMenu popForm 　End If End Sub 则以下描述中错误的是( )。 有如下事件过程： Prirate Sub Form_Click()A$="123": B$="456"x=Val(A$)+Val(B$)Print x100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。 （ 27 ）设有如下通用过程： 假定有如下事件过程： 气焊的冶金过程有如下特点（） 焊的冶金过程有如下特点（） 气焊的冶金过程有如下特点（） 有如下一个Sub过程： Sub mlt(ParamArray numbers()) 　　n=1 　　For Each x In numbers 　　　n=n*x 　　Next x 　　Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。 （ 32 ）设有如下窗体单击事件过程： 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。 教学过程应该具有如下功能：探索知识、（）、培养智能和（）。教学过程有如下的特点（）、认知性和实践性 若有如下Sub过程：在窗体中添加一个命令按钮Command33，对应的事件过程如下：打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（） 假定有如下的窗体事件过程：