Private SuB commandl_Click()
D.im x As Integer,y As Integer
x=12:y=32
C.all Proc(x,y)
OeBug.Print x;y
E.nd SuB
PuBlic SuB Proc(n As Integer,Byval m As Integer)
n=n Mod 10
m=m Mod 10
E.nd SuB
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A.2 32
B.12 3
C.2 2
D.12 32
[单选题]在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB cormmandl_Click()D.im y As Integery=0D.oy=Input Box(“y=”)IF(y Mod 10)+Int(y/10)=10 Then DeBug.print y;Loop Until y=0E.nd SuB打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是A.37 55 64 28 19 19B.10 5
[单选题]在窗体上有一个命令按钮Commandl,编写事件代码如下:Private SuB commandl_Click()D.im d1 As DateD.im d2 As Dated1=#12/25/2009#d2=#1/5/2010#MsgBox DateDiFF(“WW”,d1,d2)E.nd SuB打开窗体运行后,单击命令按钮,消息框中输出的结果是A.1B.2C.10D.11
[单选题]在窗体中有一个命令按钮Commandl,编写事件代码如下:Private Sub Command1_CliCk()D.im s As Integers=P(1)+P(2)+e(3)+P(4)debug.Print SE.nd SUbPublic Function P(N AS Integer)D.im Sum As IntegerSum=0F.or i=1 To NSum=Sum+iNext iP=SumE.nd Function打开窗体运行后,单击命令按钮,输出结果是A.15B.20C.25D
[单选题]在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim y As Integer y=0 Do 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 1
[单选题]在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command 1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proe(X,Y) Debug.Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( )。A
[单选题]( 33 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()D.im x As Integer, y As Integerx = 12: y = 32C.all Proc(x, y)D.ebug.Print x; yE.nd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10E.nd Sub打开窗体运行后,单击命令按钮,立即窗
[单选题]34 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Commandl_Click()D.im d1 As DateD.im d2 As Datedl = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff( ” ww ” , d1, d2)E.nd Sub打开窗体运行后,单击命令按钮,消息框中输出的结果是A. ) 1B. ) 2C. ) 10D. ) 11
[单选题]( 32 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Commandl_Click()D.im y As Integery = 0D. oy = InputBox (" y= ")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y ;Loop Until y = 0E.nd Sub打开窗体运行后,单击命令按钮,依次输入 10 、 37 、 50 、 55 、 64 、 20 、 28 、 19 、
[试题]( 10 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()D.im a(10), p(3) As Integerk = 5F.or i = 1 To 10a(i) = i * iNext iF.or i = 1 To 3p(i) = a(i * i)Next iF.or i = 1 To 3k = k + p(i) *2Next iMsgBox kE.nd Sub打开窗体运行后,单击命令按钮,消息框中输出的结果是 ( 10 )
[单选题]在窗体上有一个命令按钮,然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息