在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid
题目
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1 KeyPress(KeyAscii As Integer) If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Dim m As String，i As Integer For i=Len(ss)To 1 Step-1 m=m+Mid(SS，i，1) Next Text1．Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。
A.NUMtBER l00
B.REBMUN
C.REBM UN l00
D.001 REBMUN
相似考题
参考答案和解析
D。【解析】本题是从后往前依次取SS的字符加到m后，起到了逆序输出的结果。
更多“在窗体上画l个命令按钮和l个文本框,其名称为Command1和Text1,再编写如下程序: Dim ss As String ”相关问题
-
第1题：
（ 30 ）有如下通用过程：
Public Function Fun(xStr As String) As String
Dim tStr As String ,strL As Integer
tStr= ” ”
strL=Len(xStr)
i=strL/2
Do While i<=strL
tStr=tStr & Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim S1 As String
S1= ” ABCDEF ”
Text1.Text=Lcase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是
A ） ABCDEF
B ） abcdef
C ） defded
D ） defabc
正确答案：C
-
第2题：
设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=1 Do While i＜＝strL/2 tStr＝tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1) i＝i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。
A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
正确答案：C
解析：Mid(字符串，p，n)；从第p个字符开始，向后截取n个字符。p和n都是算术表达式。“&”：字符串连接运算符，将两个字符串按顺序连接起来。
UCase(字符串)：将字符串所有的字母都转换成大写字符。
Len(字符串)：返回字符串的长度。
分析程序：当Fun过程用语句Fun()调用后，S1的值“abcdef”被赋给xStr，执行第一次循环时Mid(xStr,i,1)相当于Mid(xStr,1，1)，Mid(xStr,strL-i+1，1)相当于Mid(xStr,6,1)，此时tStr=AF，由此判断选项C正确。 -
第3题：
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。
2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
-
第4题：
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。
A．27
B．28
C．29
D．30
正确答案：C
解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29" -
第5题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。 -
第6题：
设有如下通用过程：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A. 30
B. 25
C. 20
D. 15
正确答案：A
A) 【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。
-
第7题：
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。 -
第8题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是
A． Visual
B．Basic
C．Program
D．出错
正确答案：C
解析：Text是文本框的默认属性。 -
第9题：
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。
A．36
B．45
C．54
D．63
正确答案：B
-
第10题：
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（ ）处填入适当的内容，将程序补充完整。
正确答案：
True【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从而触发Change事件，事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。 -
第11题：
在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。A10和0
B2和100
C3和50
D4和168
B
略 -
第12题：
单选题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是（ ）。A579
B123
C456123
D456
正确答案： C解析：
默认情况下，InputBox的返回值是一个字符串，因此程序中a="123"，b="456"，b+a="456"+"123"="456123"。使用字符连接运算符“+”时，如果连接的是字符串和数值，可根据返回值类型判断，若返回值类型为字符串，则它将数值转换成字符串后与另一字符串连接成新字符串返回；若返回值类型为数值，则它要求字符串中只能包含数字，而不能有其他字符，否则报“类型不匹配”的错误。 -
第13题：
（ 32 ）在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1 ，再编写如下程序 ：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<> ”” Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后，在文本框中输入 “ Number100 ” ，并单击命令按钮，则文本框中显示的是
A ） NUMBER 100
B ） REBMUN
C ） REBMUN 100
D ） 001 REBMUN
正确答案：D
-
第14题：
在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：
Dim 88 As String
Private Sub Textl—KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Commandl_Click()
Dim m As String，i As Integer
For i=ten(ss)To 1 Step-1
Ill=m+Mid(88,，i，1)
Next
Textl．Text=UCase(n1)
End Sub
运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是
A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN
正确答案：D
解析：题目中程序是将ss字符串进行反向排列，并放到m中去。其中Number空格后的100被当成字符串来处理，最后结果是将“Number 100”反向排列，并通过UCase()函数将所有字母转换成大写，得到001 REBM[1N。 -
第15题：
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，
然后编写如下程序：
Function Fun(X As Integer,ByVal y As Integer)As Integer
x=x＋y
If X＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1 Click()
Dim a As Integer,b As Integer
a=-10:b=5
Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。
正确答案：-5 5
-5 , 5 解析：Fun函数的目的是修改参数x的值为x＋y，如果x0，则返回x，否则返回y。执行Command1_click时，初始a=-10,b=5，执行第一个Fun函数后，a的值为-5，小于0，故返回a的值-5。执行第二个Fun函数后，a的值为0，不小于0，故函数返回b的值5。所以本题两空分别为-5及5。 -
第16题：
设有如下通用过程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStrEnd Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click() Dim S1 String S1="ABCDEF" Text1.Text=LCase(Fun(S1))End Sub 程序运行后，单击命令按钮，文本框中显示的是 ______。
A．ABCDEF
B．abcdef
C．defdef
D．defabc
正确答案：C
解析：Mid(字符串，p，n)：从第p个字符开始，向后截取n个字符。p和n都是算术表达式。
“&”：字符串连接运算符，将两个字符串按顺序连接起来。
LCase(字符串)：将字符串所有的字母都转换成小写字符。
Len(字符串)：返回字符串的长度。
由LCase可知，最后结果为小写字符串，可排除选项A。当Fun过程用语句Fun(S1)调用后，S1的值“ABCDEF”被赋给xStr，执行第一次循环时Mid(xStr,i+1，1)相当 Mid(xStr,4，1)，此时tStr=D，执行第二次循环时Mid(xStr,i+1，1)相当于Mid(xStr,5，1)，此时tStr=DE，执行第三次循环时Mid(xStr,i+1，1)相当于Mid(xStr,6，1)，此时tStr=DEF，执行第四次循环时Mid(xStr,i+1，1)相当于Mid(xStr,7，1)，没有取到值，此时tStr=DEF，i的值为7，不满足循环条件，循环结束，Fun=tStr & tStr=DEFDEF，由此判断选项C正确。 -
第17题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click() Dim arrayl(10，10)As Integer Dim i， j As Integer For i=1 To 3 For j=2 To 4 arrayl(i，j)=i + j Next j Next i Text1.Text=arrayl(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
正确答案：A
解析：本题使用For循环语句对数组进行赋值，根据“Arrayl(i，j)=i+j”可得：
当i=1，j=2时，arrayl(1，2)=3；
当i=1，j=3时，arrayl(1，3)=4；
当i=1，j=4时，arrayl(1，4)=5；
当i=2，j=3时，arrayl(2，2)=4；
当i=2，j=3时，arrayl(2，3)=5；
当i=2，j=4时，array1(2，4)=6；
当i=3，j=1时，arrayl(3，1)=4；
当i=3，j=2时，arrayl(3，2)=5；
当i=3，j=3时，arrayl(3，3)=6；
当i=3，j=3时，arrayl(3，4)=7。
所以arrayl(2，3)+arrayl(3，4)=12。
故本题的正确答案为A。 -
第18题：
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim arrayl(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array l(i,j)=i+j Next j Next i Text1.Text=arrayl(2,3)+arrayl(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
A． 12
B．13
C．14
D．15
正确答案：A
解析：本题是通过一个For循环来给数组赋值。由array1(i,j)=i+j可知，arrayl(2,3)=2+3=5,arrayl(3,4)=3+4=7， arrayl(2,3)+arrayl(3,4)=5+7=12，即文本框中的值为12。 -
第19题：
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG
正确答案：A
解析：Ucase函数和Lcase函数对大小写字母进行转换。其中Ucase将“字符串”中的小写字母转换为大写字母，而Lcase函数将“字符串”中的大写字母转换为小写字母。 -
第20题：
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1 KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1 Click（ ）
Dim m As String，i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(SS，i，1)
Next
Text1．Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。
A.NUMtBER l00
B.REBMUN
C.REBM UN l00
D.001 REBMUN
正确答案：D
D。【解析】本题是从后往前依次取SS的字符加到m后，起到了逆序输出的结果。 -
第21题：
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。
A．abodefg
B．不显示任何信息
C．ABCDEFG
D．出错
正确答案：B
-
第22题：
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：
程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。
正确答案：
9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构，其使用格式为：
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行y=x*x后退出Case结构，最后Y的值为9。
-
第23题：
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？