单选题在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为（　　）。A Text1.Text=Combo1.List(2)B Text1.Text=Combo1.TextC Text1.Text=Combo1.List(3)D Text1.Text=Combo1.ListIndex

题目

单选题

在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为（　　）。

Text1.Text=Combo1.List(2)

Text1.Text=Combo1.Text

Text1.Text=Combo1.List(3)

Text1.Text=Combo1.ListIndex

相似考题

1.（ 9 ）在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1 ，然后编写下列事件过程：Dim SaveAll As StringPrivate Sub Command1_Click( )Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，在文本框中输入 abcdefg ，单击命令按钮，则文本框中显示的内容是【 11 】。

2.（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click( )S$=InputBox("请输入一个字符串")Text1.Text=S$End SubPrivate Sub Text1_Change( )Label1.Caption=UCase(Mid(Text1.Text, 7))End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【6】。

3.在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click（）a = InputBox（"Enter an integer"）b = InputBox（"Enter an integer"）Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。A．108B．18C．810D．出错

4.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

更多“单选题在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combo1，Command1和Text1，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为（　　）。A Text1.Text=Combo1.List(2)B Text1.Text=Combo1.TextC Text1.Text=Combo1.List(3)D Text1.Text=Combo1.ListIndex”相关问题

第1题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：Private sub Command1_Click() Text1.text="AB"End SubPrivate Sub Command2_Click() Text1.Text="CD"End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示。A．AB B．CD C．ABCD D．CDAB

正确答案：B
【解析】本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。
第2题：

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abc
D．def

正确答案：D
解析：本题考查字符串函数。Trim表示去掉字符串两边的空白字符。Right函数返回字符串最后面的n个字符。本题首先通过InputBox函数输入一个字符串并赋给strText，然后把strText赋给Textl.Text。再经过Trim函数和Right函数的计算，得出的结果应该是abcdef的最后三个字符def，故正确答案为D。
第3题：

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。
A．27
B．28
C．29
D．30

正确答案：C
解析：程序中各部分值的运算过程为：
Text1.Text="28.653"
Val(Text1.Text)=28.653
Val(Text1.Text)+0.5=29.153
Int(Val(Text1.Text)+0.5)=29
x=29
str(x)="29"
第4题：

在窗体上画一个组合框、一个命令按钮和一个文本框，其名称分别为Combol和Text1，然后编写如下事件过程： Private Sub Form_Load() Combol.AddItem "AAAAA" Combol.AddItem "BBBBB" Combol.AddItem "CCCCC" Combol.AddItem "DDDDD" Combol.AddItem "EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目，"CCCCC"。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为______。
A．Text1．Text=Combol．List(2)
B．Text1．Text=Combol．Text
C．Text1．Text=Combol．List(3)
D．Text1．Text=Combol．ListIndex

正确答案：A
第5题：

在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" ME．Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。
A．Visual
B．Basic
C．Program
D．出错

正确答案：C
第6题：

在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。
A．Computer Rank Examination
B．computer rank examination
C．COMPUTER RANK EXAMINATION
D．空字符串

正确答案：C
第7题：

在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5

正确答案：B
题只能计算当i>1所循环的次数。注意i在循环体内被强行加3，到For循环时．还要再加步长1，这相当于因此，n=3。选择B。
第8题：

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1 Click() Dim x， y， z As Integer x = 5 y = 7 z = 0 Text1.Text = " " Call P1(x， y， z) Text1.Text=Str(z) End Sub Sub Pl(ByVal a As Integer， ByVal b As Integer， c As Integer) c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A．0
B．12
C．Str(z)
D．没有显示

正确答案：B
解析：本题主要考查传值与传地址的区别。在VisualBasic中，参数通过两种方式传送。传地址通过关键字ByRef实现，可以通过改变过程中相应的参数来改变变量的值；而在传值方式下，VisualBasic为形参分配内存空间，并将相应的实参拷贝给各形参。本题中形参c默认以传地址的方式传送参数。在事件过程中调用时，变量2经过运算后，不再保留原来的值，而变为12，故本题正确答案为B，而不是A。
第9题：

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox("请输入") Text1.Text = strTextEnd SubPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abc
D．def

正确答案：D
解析：函数Trim用于去掉字符串"abcdef"两边的空格，Right函数从字符串右边取出指定数量的字符。
第10题：

在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码：
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示( )
A、AB
B.CD
C.ABCD
D.CDAB

正确答案：A
第11题：

在窗体上画—个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private sub Command1_Click( ) strText=lnputBox(“请输入”) Text1.Text=strText EndSub Private Sub Text1_Change( ) Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A．空
B．abcdef
C．abe
D．def

正确答案：D
解析：Trim表示去掉字符串两边的空白字符。Risht函数返回字符串最后面的n个字符。本题首先通过lnputBox函数输入一个字符串并赋绐strText，然后把strText赋给，Text1.Text。再经过Trim函数和Right函数的计算，得出的结果应该是abcdef的最后三个字符def。
第12题：

在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后．如果单击命令按钮，则在文本框中显示的是
A．计算机
B．等级
C．考试
D．出错

正确答案：C
解析：为了方便使用，VisualBasic为每个控件规定了一个默认属性，在设置这样的属性时，不必给出属性名，通常将该属性称为控件的值。控件值是一个控件的最重要或最常用的属性。在该题中，文本框Text1的默认属性为Text，关键字Me代表的是程序代码所在的窗体。这样，语句“Text1.Text="计算机"”、“Me.Text1="等级"”和“Text1="考试"”是等价的。最终在文本框中显示的是“考试”。
第13题：

在窗体上有一个命令按钮和一个文本框，其名称分别为Command1和text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivatesubCommand1_click()A=inputbox(“Enteraninteger”)B=inputbox(“Enteraninteger”)Text1.text=b+aEndsub程序运行后，单击命令按钮，如果在输入对话框里输入8和10，则文本框中显示的内容是()。
A.108
B.18
C.810
D.出错

正确答案:A
第14题：

在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A．108
B．18
C．810
D．出错

正确答案：A
第15题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1 Click() Text1.Text="AB" End Sub Private Sub Command2 Click() Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A．AB
B．CD
C．ABCD
D．CDAB

正确答案：B
解析：本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。
第16题：

在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为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，然后单击命令按钮，则y的值变为______。

正确答案：9
9 解析：本题考查多分支语句Select Case的知识。 Select Case用于实现多分支结构，其使用格式为： Select Case 测试表达式＞
[Case表达式列表1＞]
[语句块1]
[Case 表达式列表2＞]
[语句块2]
[CaseElse]
[语句块n]
End Select
其功能是根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。如果测试表达式的值等于某一个表达式的值，则选择该语句块的语句执行，执行完毕后退出Case结构。本题中由于x的值为3，符合第一个Case语句的条件，所以执行严y＝x*x后退出Case结构，最后y的值为9。
第17题：

在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j\2) End Sub 程序运行后，单击命令按钮，在文本框中显示
A．25
B．18
C．36
D．35

正确答案：B
解析：本题主要考查数组的赋值以及考生对For循环结构的理解。本题，i值经过 4次赋值之后，最后一次。i值为5，此时For循环中止，故b(j\2)=b(2)。根据For循环对a(5)与b(5)的赋值，不难看出，b(2)的值为1，8，故本题选B。
第18题：

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入Visual，则在标签中显示的内容是
A．空
B．Visual
C．Vis
D．ual

正确答案：D
解析：当用户向文本框中输入新信息或当程序将Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件，即执行“Text1.Text=strText”语句时，就触发了Change事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后n个字符。字符串Visual最右边的3个字符为ual。
第19题：

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer x=5 y=7 z=0 Text1.Text=" " Call P1(x，y，z) Text1.Text=Str(2) End Sub SubP1(ByVal a As Integer，ByVal b As Integer，c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是 ______ 。
A．0
B．12
C．Str(z)
D．没有显示

正确答案：B
解析：过程P1的参数c是按地址传递的(ByRef,默认的传递方式)，而P1用语句Call P1(x，y，z)调用后，形参c的值为12，则实参z的值亦为12。
第20题：

在窗体上画一个名称为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是文本框的默认属性。
第21题：

在窗体上画一个命令按钮和一个文本框，其名称分别为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
第22题：

在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A．AB
B．CD
C．ABED
D．CDAB

正确答案：B
解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。
第23题：

在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是
A．Microsoft Visual Basic
B．microsoft visual basic
C．MICROSOFT VISUAL BASIC
D．空字符串

正确答案：C
解析：本题有两个事件过程，一个是命令按钮的Click事件过程，一个是文本框Text1的Change事件过程，当单击命令按钮时，执行前一个事件过程，而当在文本框Text1中输入信息时，将执行该文本框的Change事件过程。在命令按钮事件过程中，为文本框Text1的Text属性赋值，即在该文本框中显示字符串“MicrosoftVisualBasic”，在这种情况下，将触发Text1文本框的Change事件，将文本框Text1中的所有字母转换为大写字母，并在文本框Text2中显示出来。

题目

相似考题

相关内容