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

Private SuB cormmandl_Click()

D．im i,j,x

F．or i=i To 20 step 2

x=0

F．or j=1 To 20 step 2

x=x+1

Next j

Next i

Text1.Value=Str(x)

E．nd SuB

打开窗体运行后，单击命令按钮，文本框中显示的结果是

A．1

B．7

C．17

D．400

[单选题]在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：F．or i=1 T04X=3F．or j=1 T03F．or k=1 T02x=x+3Next kNext jNext iText1．Value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（ ）。A．6B．12C．18D．21

[单选题]（ 31 ）在窗体上有一个命令按钮 Commandl 和一个文本框 Textl ，编写事件代码如下：Private Sub Command1_Click()D．im i,j,xF．or i = 1 To 20 step 2x = 0F．or j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)E．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是A． ） 1B． ） 7C． ） 17D． ） 400

[单选题]在窗体上面一个命令按钮Commandl和一个文本框Textl,然后编写下列程序： Private Sub Commandl_ClickO A=InputBox("请输入日期（1～31）") T="旅游景点："_ ﹠IIf(A>0And A ﹠IIf(A>10And A ﹠IIf(A>20And A Text1.Text=t End Sub程序运作后，如果从键盘输入5，则在文本框中显示的内容。A．旅游景点：长城 B. 旅游景点：长城颐和园C. 旅游景点：颐和园 D. 旅游景点：故宫

[主观题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：Private Sub Command1_Click()a=InputBox("请输入一个整数")Text1．Text=aIf a ＞ 0 ThenIf a Mod 3 = 0 ThenMsgBox "True"E．lseMsgBox "error"E．nd IfE．nd IfE．nd Sub程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。

[单选题]在窗体中有一个文本框Textl，编写事件代码如下：Private Sub Form. Cl ick() ’X=val(Inputbox(“输入X的值”))Y=1If X<>0 Then Y：2Textl．Value=YE．nd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是A．1B．2C．3D．4

[单选题]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。A．1B．7C．17D．400

[单选题]（ 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 )