计算机二级

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

题目

在窗体中添加了一个文本框和一个命令按钮（名称分别为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

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

第1题：

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


正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。

第2题：

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

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


正确答案：
15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。

第3题：

在名为”Forml”的窗体上添加三个文本框和一个命令按钮，其名称分别为”Textl”、”Text2”、”Text3”和”Commandl”，然后编写如下两个事件过程：


正确答案：
510【解析】本题考查“ ”运算符的使用。“ ”运算符可以用于计算两个数之和，也可以使用“ ”运算符连接两个字符串，“ ”，运算符两端的表达式的基本类型决定了“ ”运算符所做的操作，如果两个表达式都是数值或者一个表达式是数值，另一个表达式是字符串，则“ ”代表相加；如果两个表达式都是字符串则“ ”代表字符串的连接。本题中，由于文本框的Text属性值的类型是字符串，所以“ ”运算符连接的是字符串…5和字符串“10”，所以本题答案为510。

第4题：

在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：

程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。


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

第5题：

在窗体中添加了一个文本框和一个命令按钮(名称分别为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


正确答案：D

第6题：

设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．SetFocus Commandl．SetFocus End Sub End sub


正确答案：D

第7题：

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

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


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

第8题：

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

第9题：

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

Private Sub Commandl_Click()

Dim i As Integer，n As Integer

For i=0 T0 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Textl．Text=Str(n)

End Sub

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

A．2

B．3

C．4

D．5


正确答案：B
解析：本题考核点在于循环和判断语句，循环起始于i；O，当i>10时终止。i的取值依次为0，3，7，11，相应地，n的取值为0，1，2，3。在给出的程序中，第一次执行完“i=i+3”后i的值为3。然后让n自加1，再执行依次“next i”后，i的值为4，因此第二次执行完“i=i+3”后i的值为7；n再自加，值为2，此时，i的值并不大于lO，因此还要再执行“i=i+3”、“n=n+1”，此时i值为11。n值为3，停止循环判断。

相关内容