设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。A．BasicB．cisaBC．BASICD．CISAB

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub Command1 Click（ ） X!=Val(Text1．Text) Select Casc x Case Is<-10，Is>=20 Print"输入错误" Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Seleet End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。

A.5

B.20

C.25

D.输入错误

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（ ）。

A. 2

B. 3

C. 4

D. 5

（26）设窗体上有一个名为Text 1的文本框和一个名为Command 1的命令按钮，并有以下

事件过程：

Private Sub Commandl Click()

x！=Val(Text 1.Text)

Select Case x

Case Is＜-10，Is＞=20

Prini"输入错误"

Case Is＜0

Print 20-x

Case Is＜10

Print 20

Case Is＜＝20

Print x+10

End Select

Bud Sub

程序运行时，如果在文本框中输入一5}则单击命令按钮后的输出结果是

A）5

B）20

C）25

D）输入错误

在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：

打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For i=0 To 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Text1.Text=Str(n)

End Sub

单击命令按钮，程序运行后，在文本框中显示的值是( )。

A．2

B．3

C．4

D．5