在窗体中添加两个文本框,其名称分别为Text1和Text2;两个标签,其名称分别为Label1和Label2。编写程

题目

在窗体中添加两个文本框,其名称分别为Text1和Text2;两个标签,其名称分别为Label1和Label2。编写程序,使得程序运行后,在文本框Text2中输入小写字母,能转换为比此字母的ASCII码小4的大写字母,结果显示在文本框Text1中。如输入“efg”,则输出的结果为“ABC”,能够实现上述功能的程序是

A.Private Sub Form. Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub

B.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub

C.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub

D.Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Integer) Text1.Text=Chr(KeyCode-4) End Sub

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

第1题:

( 19 )在窗体上画两个文本框(名称分别为 text1 和 text2 )和一个命令按钮(名称为 command1 ) , 然后

编写如下事件过程:

Private Sub Command1_Click()

x = 0

Do While x < 50

x = (x + 2) * (x + 3)

n = n + 1

Loop

text1.Text = Str(n)

text2.Text = Str(x)

End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为

A ) 1 和 0

B ) 2 和 72

C) 3 和 50

D ) 4 和 168


正确答案:B

第2题:

在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Text1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

Private Sub Commandl Click()

Text3=Text1+Text2

End Sub

Private Sub Form1 Load()

Text1=" "

Text2=" "

Text3=" "

End Sub

打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


正确答案:57
57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Commandl的Click事件是:Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

第3题:

( 10 ) 在窗体上画一个名称为 Combo1 的组合框 , 然后画两个名称分别为 Label1 、 Label2 , 标题分别为 “ 城市名称 ” 和空白的标签 。 程序运行后 , 在组合框中输入一个新项目并按回车键 , 如果输入的项目在组合框的列表中不存在 , 则自动将其添加到组合框的列表中 , 并在 Label2 中给出提示 “ 已成功添加新输入项,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 “ 输入项已在组合中。请填空。


正确答案:

第4题:

在窗体上画两个名称分别为Text1、Text2的文本框,一个名称为Label1标签,窗体外观如图a所示,要求当改变任一个文本框的内容,就会将该文本框的内容显示在标签中,如图b所示。实现上述功能的程序如下:

Private Sub Text1_Change( )

Call ShowText(Text1)

End Sub

Private Sub Text2_Change( )

Call ShowText(Text2)

End Sub

Private Sub ShowText(T As TextBox)

Labell.Caption="文本框中的内容是:"&T.Text

End Sub

关于上述程序,以下叙述中错误的是( )。

A.ShowText过程的参数类型可以是Control

B.ShowText过程的参数类型可以是Variant

C.两个过程调用语句有错,应分别改为Call ShowText(Text1,Text)、Call Show Text (Text2,Text)

D.ShowText过程中的T是控件变量


正确答案:C
C。【解析】两个过程中不能改为CallShowText(Textl.Text)和CallShowText(Text2.Text)因为此时会产生形参和实参不匹配。

第5题:

在名为“Form1”的窗体上添加3个文本框和一个命令按钮,其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”,然后编写如下两个事件过程:

Private Sub Command1 Click()

Text3=Text1+Text2

End Sub

Private Sub Forml Load()

Text1=""

Text2=""

Text3=""

End Sub

打开窗体Form1后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7,然后单击命令按钮Command1,则文本框(Text3)中显示的内容为【 】。


正确答案:57
57 解析:本题考查对“+”的理解。在VBA中,“+”既可以用作数学运算符,也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接,然后在第3个文本框中显示,所以应该是57,在连接字符串方面,“+”和“&”是相同的功能,但“&”只能用来连接字符串,而不能进行数学运算。命令按钮 Command1的Click事件是:Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中,窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后,单击命令按钮来触发其Click事件,完成两个字符串的连接。

第6题:

在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:

Private Sub Form_Load()

Show

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change()

Text2.Text = Mid(Text1.Text, 8)

End Sub

程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是( )。

A.BeijingChina

B.China

C.Beijing

D.BeijingC


正确答案:B

第7题:

在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2,标题分别为“身高”和“体重”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Cmd1,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个输入对话框,在两个输入对话框中分别输入身高和体重,并分别在两个文本框中显示出来,运行后的窗体如下图所示。

注意:

程序中不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为 execise21.vbp,窗体文件名为execise21.frm。


正确答案:

第8题:

在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c;d End Sub程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是______ 。

A.abcEFG

B.abcefg

C.ABCefg

D.ABCEFG


正确答案:A

第9题:

在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序: Private Sub Form. Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2显示的内容是______。

A. BeijingChina

B.China

C.Beijing

D.BeijingC


正确答案:B
解析:本题考的是Mid函数,Mid函数是用宋返回指定数量的字符串。其中第2个参数是指定返回字符串的起始位置,第3个参数是要返回的字符数,这个参数是可选的,如果省略,就返回从起始位置到字符串最后的所有字符。本题中第3个参数省略了,而起始位置是8,该位置的字符是C,所以最后返回的就是China。

第10题:

在窗体上画两个名称分别为Label1和Label2的标签,再画一个名称为Command1的命令按钮,然后编写如下事件过程:

运行上面的程序,单击命令按钮.其输出结果是

A.8 9

B.8 18

C.64 9

D.64 18


正确答案:C
解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程,所以虽然是传值,但在过程Subl中可见,因此在该过程中使用了窗体变量X,这个“x=a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量,与过程Sunl中的变量y没有关系,标签Label2显示的是本过程的Y值,即9。正确答案为c。

更多相关问题