违法和不良信息举报 联系客服
免费注册 登录

在窗体上画一个组合框、一个命令按钮和一个文本框,其名称分别为Combol和Text1,然后编写如下事件过

题目

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

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略

第2题：

在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。

A10和0

B2和100

C3和50

D4和168


B
略

第3题：

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

第4题：

在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

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

A．2

B．3

C．4

D．5


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

第5题：

设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。

A. 30

B. 25

C. 20

D. 15


正确答案：A
A)    【解析】本题考查函数的参数。数组作为参数进行传递时，VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10，因此最后文本框中显示的内容为30。

第6题：

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

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


正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。

第7题：

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

第8题：

在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

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


正确答案：
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。

第9题：

在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.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"

相关内容