单选题假定有如下的Sub过程： SubS (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim a As Single Dim b As Singlea = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果（）。A54B11C1.254D1.251
单选题
假定有如下的Sub过程： SubS (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim a As Single Dim b As Singlea = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果（）。
A
54
B
11
C
1.254
D
1.251
参考解析
解析：
暂无解析
相关考题：
在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将bananA、DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖曳到Picttne1中(见图2)。能实现此功能的事件过程是______。A．Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Single) bananA、Move Picture1.Left+X,Picture1.Top+Y End SubB．Private Sub banana_DragDrop(Source As Control,X As Single,Y As Single) SourcE．Move Picture1.Lefi+X,Picture1.Top+Y End SubC．Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS Single) SourcE．Move Picture1.Left+X,Picture1.Top+Y End SubD．Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single) bananA、Move bananA、Let+X,banan.Top+Y End Sub
对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为______ 。A．AAAAA BBBBBB．BBBBBC．AAAAAD．BBBBB AAAAA
假定有如下的Sub过程：Sub sfun（x As Single，y As Single）t=xx=t/yy=t Mod yEnd Sub在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim a as singleDim b as singlea=5b=4sfun a，bMsgBox a chr（10）+chr（13） bEnd Sub打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为A．1和1B．1.25和1C．1.25和4D．5和4
（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Print X,YEnd SubB ）Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Picture.Print X,YEnd SubC ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YE n d S u bD ）Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YEnd Sub
（12）有下列Sub过程: Sub Sub(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Commandl中，编写下列事件过程，执行该事件过程调用Sun过程，结果是（ ）。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a,b Print a；b End Sub A.1.25 1 B.5 4 C.4 5 D.1 1.25
有如下SUB过程:Sub s(x As Single,y As Single)t=xx=t / yy=t Mod yEnd Sub在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Form_Click()Dim a As SingleDim b As Singlea=5b=4s a,bPrint a,bEnd Sub则程序运行后,单击命令按钮,输出的结果为【 】 。
要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End SubB．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End SubC．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End SubD．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub
假定有如下的Sub过程： Sub sfun(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1 Click() Dim a as single Dim b as single a=5 b=4 sfun a,b MsgBox a chr(10)+chr(13)b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为( )。A．1n1B．1.25和1C．1.25和4D．5和4
下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)PaintStart=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)End SubPrivate Sub Form_DblClick()ClsEnd Sub
有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B． 1 1C．2 2D．1 2
编写如下通用过程： Sub Proc(x As Single,y As Single) t=x x＝t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a As Single Dim b As Single a＝5 b＝4 Proc a,b Print a,b End Sub 程序运行后，如果单击命令按钮，则输出结果为A．5 4B．1.25 1C．4 5D．1.25 5
有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为A．0 0B．1 1C．0 2D．1 2
假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。A．6 5B．1 1C．1.2 5D．1.2 1
假定有如下的Sub过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 S a,b print a,b End Sub 程序运行后，单击命令按钮，输出结果是( )。A．5 2B．1 1C．1.25 4D．2.5 1
假定有如下的Sub过程： Sub sfun(x As Single,y As SinglE)t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click( ) Dim a as single Dim b as single a=5 b=4 sfun a,b MsgBox a char(10A．1和1B． 1.25和1C． 1.25和4D． 5和4
在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End SubA．4 3B．1 1C．3 0D．2 6
假定有如下的Sub过程：Sub Sub1(x As Single，y As single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_click()Dim a As SingleDim b As Singlea=5b=4Sub1 a，bPrint a；bEnd Sub程序运行后，单击命令按钮，输出结果为A．B．C．D．
假定有如下的Sub过程:Sub Sub1(x As Single, y As single)t=xx=t / yy=t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=4Sub1 a,bPrint a;bEnd Sub程序运行后,单击命令按钮,输出结果为A．54B．] 1]]1C．] 1.2]]5.4D．] 1.25]]1
编写如下代码：Dim Flag As BooleanPrivate Sub Form. MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = TrueEnd SubPrivate Sub Form. MouseMove (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = FalseEnd SubPrivate Sub Form_ MouseUp (Button As Integer,Shift As Integer, X As Single, Y As Single)If Flag = False ThenPrint "DDDD"End IfEnd Sub程序运行后，如果想在窗体上输出DDDD，则应执行的操作为______。
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B．1 1C．2D．1 2
对窗体编写如下事件过程： Private Sub Form_ Mouse Down(Button As Integer，Shift As Integer，X AS Single，Y As Single) If Button=2 Then Print "AAAAA" End if End Sub Private Sub Form. _ MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。A．AAAAA BBBBBB．BBBBB AAAAAC．AAAAAD．BBBBB
假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后，单击命令按钮，输出结果为______。A．5 4B．1 1C．1.2 5.4D．1.25 1
假定在窗体中的通用声明段已经定义有如下的子过程： Subf(x As Single,y As Single) t＝x x＝y y＝x End Sub 在窗体上添加一个命令按钮(名为Commandl)，然后编写如下事件过程： Pfivme Sub Commandl_Click() a＝10 b＝20 f(a,B) MsgBox ab End Sub 打开窗体运行后，单击命令按钮，消息框输出的值分别为( )A．20和10B．10和20C．10和10D．20和20
现有如下Sub过程： Sub fun(x es single，y as single) t = x x = t/y y = t mod y End sub在窗体上添加命令按钮(cmD) ，编写如下事件过程： Private sub cmd_click( ) Dim a as single Dim b as single a = 5 b = 4 fun a, b Msgbox a chr(10) + chr(13) b End sub运行程序后，单击按钮，则在消息框中显示的内容为( )A．1和1B．1.25和1C．1.25和4D．5和4
若有如下Sub过程： Subsfun(X As Single，y As Single) t=X x=t/Y y=t ModY End Sub 在窗体中添加一个命令按钮Command33，对应的事件过程如下： PrivateSub Command33 Click（ ） Dim a AsSingle Dim b AsSingle a=5：b=4 sfun(ab) MsgBoxachr(10)+chr(13)b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为（ ）。A.1和1B.1．25和1C.1．25和4D.5和4
有如下Sub过程： Sub Sun(x As Single, y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上的命令按钮Command1中，编写如下事件过程，执行该事件过程调用Sun过程，结果为( )。 Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 Sun a, b Print a; b End SubA．1.25 1B．5 4C．4 5D．1 1.25
单选题对窗体编写如下事件过程： Private Sub Form_MouseDown（Button As Integer，Shift As Integer，X As Single Y As Single） If Button=2 ThenPrint"AAAAA"End IfEnd SubPrivate Sub Form_MouseUp（Button As Integer，Shift As Integer，X As Single，Y As Single） Print"BBBBB" End Sub程序运行后，如果单击鼠标右键，则输出结果为（）AAAAAABBBBBBCAAAAA CR BBBBB（其中CR表示回车和换行）DBBBBB CR AAAAA