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

Private Sub Command1_Click()

D．im i,j,x

F．or i = 1 To 20 step 2

x = 0

F．or j = To 20 step 3

x = x + 1

Next j

Next i

Textl.Value=Str(x)

E．nd Sub

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

A． ） 1

B． ） 7

C． ） 17

D． ） 400

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

[单选题]在窗体上面一个命令按钮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. 旅游景点：故宫

[单选题]在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()D．im i As Integer，n As IntegerF．or i=0 T0 50i=i+3n=n+1If i>10 Then Exit ForNextTextl．Text=Str(n)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是A．2B．3C．4D．5

[单选题]设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．S

[单选题]在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=TextText End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )A．Open "datl. dat", For lnput As#1 Write井1,SB．Open"datl. da

[单选题]在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10

[主观题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程：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，则弹出的提示内容是______。

[单选题]设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：Private Sub Commandl一Click()x!==Val(Textl．Text)Select Case xC．asc Is<-10，Is>=20Print“输入错误”C．ase Is<0Print 20 xC．ase ls<10Print 20C．ase Is=20Print x+10E．nd SelectE．nd Sub程序运行时，如果存文本框中输入一5，则单击命令按

[单选题]在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：D．im 88 As StringPrivate Sub Textl—KeyPress(KeyAscii As Integer)If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)E．nd SubPrivate Sub Commandl_Click()D．im m As String，i As IntegerF．or i=ten(ss)To 1 Step-