单项选择题

设窗体上有一个文本框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．Basic
B．cisaB
C．BASIC
D．CISAB
<上一题 目录 下一题>
热门 试题

单项选择题
假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(s) s1=LCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1=InputBox( 请输入一个字符串 ) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击“确定”按钮后在窗体上的输出结果为
A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba
单项选择题
在窗体上画一个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is＞=10, Is＜=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则下列叙述中正确的是
A．执行y=x*x
B．执行y=-x
C．先执行y=x*x，再执行y=-x
D．程序出错
相关试题