在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private SuB cormmandl_Click()

D．im y As Integer

y=0

D．o

y=Input Box(“y=”)

IF(y Mod 10)+Int(y/10)=10 Then DeBug.print y;

Loop Until y=0

E．nd 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

[单选题]在窗体上有一个命令按钮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 commandl_Click()D．im x As Integer,y As Integerx=12:y=32C．all Proc(x,y)OeBug.Print x;yE．nd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10E．nd SuB打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A．2 32B．12 3C．

[单选题]在窗体中有一个命令按钮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．出错信息