网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

( 32 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:

Private Sub Commandl_Click()

Dim y As Integer

y = 0

D o

y = InputBox (" y= ")

If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y ;

Loop Until y = 0

End Sub

打开窗体运行后,单击命令按钮,依次输入 10 、 37 、 50 、 55 、 64 、 20 、 28 、 19 、 -19 、 0 ,立即窗口上输出的结果是

A ) 37 55 64 28 19 19

B ) 10 50 20

C ) 10 50 20 0

D ) 37 55 64 28 19


参考答案

更多 “ ( 32 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Commandl_Click()Dim y As Integery = 0D oy = InputBox (" y= ")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y ;Loop Until y = 0End Sub打开窗体运行后,单击命令按钮,依次输入 10 、 37 、 50 、 55 、 64 、 20 、 28 、 19 、 -19 、 0 ,立即窗口上输出的结果是A ) 37 55 64 28 19 19B ) 10 50 20C ) 10 50 20 0D ) 37 55 64 28 19 ” 相关考题
考题 ( 33 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后,单击命令按钮,立即窗口上输出的结果是A ) 2 32B ) 12 3C ) 2 2D ) 12 32

考题 在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()Dim x As Integer,y As Integerx=12:y=32Call Proc(x,y)OeBug.Print x;yEnd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10End SuB打开窗体运行后,单击命令按钮,立即窗口上输出的结果是A.2 32B.12 3C.2 2D.12 32

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A. 1B. 2C. 3D. 4

考题 在窗体上有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl Click( ) Dim Y As Integer y=0 Do y=InputBox(”y=”) If(Y Mod l0)+Int(y/10)=10 Then Debug.Print Y; LoopUntil y=0 End Sub 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是( )。A.375564281919B.105020C.1050200D.3755642819

考题 在窗体上有一个命令按钮Commandl,编写事件代码如下:Private Sub Commandl Click( ) Dim X As Integer,Y As Integer x=12:y=32 Call Proc(x,Y) Debug.Print X;Y End Sub Public Sub proc(n As Integer,ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( )。A.232B.123C.22D.1232

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:窗体打开运行后,单击命令按钮,则消息框的输出结果是( )。A)1B)2C)3D)4

考题 |在窗体上有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl_Click( ) Dim X As Integer,Y As Integerx=12:y=32Call Proc(x,y)EndSubPublic Sub Proc{n As Integer,ByVM mAs mteger}n=nMod l0m=mModl0EndSub打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( )。l考点5过程调用与参数传递1A.2 32B.12 3C.2 2D.12 32

考题 在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

考题 在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:Private Sub Command1_Click()Dim x As Integer,y As Integerx=12:y=32Call p(x,y)MsgBox x*yEnd SubPublic Sub p(n As Integer,By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后,单击命令按钮,则消息框的输出结果为【 】。