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

在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1),并编写了相应的事件过程。

题目

在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。

A．Private Sub Command1_Click() Caption="Access模拟" End Sub

B．Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub

C．Private Sub Command1_Change() Caption="Access模拟" End Sub

D．Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub

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

第1题：

在窗体中添加了一个文本框和一个命令按钮（名称分别为Textl和Commandl），并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为"Access模拟”。以下能实现上述操作的事件过程是（ ）。

A.Private Sub Commandl．Click（ ） Caption=”Access模拟”Commandl．

B.Private Sub Textl click（ ） Caption=”Access模拟”EndSubEndSub

C.Private SUb Commandl Change（ ） Caption=”Access模拟”Commandl．

D.Private Sub Textl_Change（ ） Caption=”Access模拟”End SubEnd Sub


正确答案：D
暂无解析，请参考用户分享笔记

第2题：

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

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

A．2

B．3

C．4

D．5


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

第3题：

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

A. 2

B. 3

C. 4

D. 5


正确答案：B
B)    【解析】本题考查循环程序的分析。题中循环变量为i，步长为1，循环体中i每次变化都增加3，因此执行一次循环后，i的值增加4，当i大于10时退出循环，所以每次循环后i的值为：3，7，11。当i为11时退出循环，所以循环共执行了3次。

第4题：

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

A. 30

B. 25

C. 20

D. 15


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

第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题：

在窗体中添加一个命令按钮(名为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题：

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

Private Sub Command1_Click()

Dim i As Integer, n As Integer

n=0

For i=0 To 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next i

Text1.Text=Str(n)

End Sub

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


正确答案：3
3 解析：本题考查循环的知识。Exit语句用于中途退出循环，所以带有Exit语句的循环结束后，一定要判断清楚到底是因为不满足循环条件而退出循环的，还是由于执行到了Exit语句而退出循环的。本题中不等i循环到50就会因为满足If语句的条件从而执行到Exit For语句退出循环，注意到每次循环时除了要执行i=i+3以外，在本次循环结束后还要加上步长1，经过计算在第3次循环的时候由于i的值为11而满足了If语句的条件，执行Exit For后退出循环，此时的n值为3。

第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"

相关内容