在窗体中绘制两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:Private Su
在窗体中绘制两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click()
Text1="VB programming"
Text2=Text1
Text1="ABCD"
End Sub
程序运行后,单击命令按钮,文本框Text2中显示的内容为【 】。
在窗体中绘制两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click()
Text1="VB programming"
Text2=Text1
Text1="ABCD"
End Sub
程序运行后,单击命令按钮,文本框Text2中显示的内容为【 】。
注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
(2)在名为Form1的窗体上绘制一个标签(名称为Label1,标题为“输入”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。
注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为Sj2.vbp,窗体文件名为sj2.frm。
在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2,标题分别为“身高”和“体重”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Cmd1,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个输入对话框,在两个输入对话框中分别输入身高和体重,并分别在两个文本框中显示出来,运行后的窗体如下图所示。
注意:
程序中不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为 execise21.vbp,窗体文件名为execise21.frm。
注意:
程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise56.vbp,窗体文件名为execise56.frm。
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
A.Private Sub Texl_Change() Commandl.Caption="计算机等级考试” End Sub
B.PrivateSubCommandl_Click() Caption="计算机等级考试"
C.Private Sub Commandl_Click() Text.Caption="计算机等级考试" End Sub
D.Private Sub Commandl_Click() Text1.Text="计算机等级考试" End Sub
要求:
(1)编写适当的事件过程,使得程序运行时,单击LeR按钮,则焦点位于Text1上。
(2)单击Right按钮,则焦点位于Text2上。
注意:
程序中不得使用变量,事件过程中只能写一条语句:文件必须存放在考生文件夹中,工程文件名为execise110.vbp,窗体文件名为execise110.frm。
在窗体下画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段:
Private Sub Command1_Click()
x=0
Do Until x>=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后,单击命令按钮,在两个文本框中显示的值分别为()。
A.1和0
B.2和240
C.3和50
D.4和168
注意:
文件必须存放在考生文件夹中,工程文件名为execise101.vbp,窗体文件名为 execiSe101.frm。
在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1,然后编写如下两个事件过程: Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1.Text=a End Sub Private Sub Textl_Change() Label1.Caption=UCase(Mid(Text1.Text,8)) End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“Visual Basic”,则在标签中显示的内容是
A.visual basic
B.VISUAL BASIC
C.basic
D.BASIC
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2),新建一个窗体Form2。然后编写如下程序: Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序,要实现单击Command1命令按钮后卸载当前窗体,再弹出名为Form. 2的窗体,则在两个文本框中应分别输入______。
A.a 1
B.a a
C.1 a
D.1 1
在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,依次增大),然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为 ______。
A.0 1 2 3
B.1 2 3 4
C.0 1 3 2
D.出错信息