在窗体中添加两个文本框,其名称分别为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
第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)中显示的内容为【 】。
第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是控件变量
第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)中显示的内容为【 】。
第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
第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
第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
第10题:
在窗体上画两个名称分别为Label1和Label2的标签,再画一个名称为Command1的命令按钮,然后编写如下事件过程:
运行上面的程序,单击命令按钮.其输出结果是
A.8 9
B.8 18
C.64 9
D.64 18