题目内容（请给出正确答案）

在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文

[主观题]

在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文

本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。

在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年

提问人：网友shiweimi 发布时间：2023-01-10

参考答案

【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text＆"，现年"＆
Text2．Text＆"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在名称为Form1的窗体上画两个标签（名称分别为Label1…”相关的问题

第1题

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。（1) 在名称为Form1的窗体上画一个名称为H1

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm

(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮,再画两个名称为Label1、Label2的标签,然后编写程序代码如下: Private a As Integer Private Sub Command1_Click（）

A.36 和8

B.36 和4

C.6和8

D.6 和4

点击查看答案

第3题

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型： PrivateTypeanimalAnimalNameA

假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：

Private Type animal

AnimalName As String*20

AColor As String*10

End Type

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_Click（）

Dim rec As animal

Open "c:\vbTest.dat" For Random As #1 Len = Len（rec）

 rec.animalName = "Cat"

 rec.aColor = "White"

 Put #1, , rec

Close #1

End Sub

则以下叙述中正确的是（）。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

点击查看答案

第4题

假定在窗体（名称为Form1)的代码窗口中定义如下记录类型：Private Type animal animalName As Str

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open"c:\vbTest.dat"For Random As #1 Len=Len(rec) rec.animalName="Cat" rec.aColor="White" Put #1,,rec Close #1 End Sub 则以下叙述中正确的是()。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义

B．如果文件c:\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句“Put#l,,rec”将animal类型的两个数据元素写到文件中

点击查看答案

第5题

在窗体（名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个

在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。

A．Prlvate Sub Text1_Change() Command1. Caption="计算机等级考试" End Sub

B．Private Sub Command1_Click() Caption="计算机等级考试" End Sub

C．Private Sub Form_Load() Text1. Caption="计算机等级考试" End Sub

D．Private SubCommand1_Click() Text1. Text="计算机等级考试" End Sub

点击查看答案

第6题

在窗体（名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个

在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是

A．Private Sub Text1_Change() Command1.Caption=“计算机等级考试” End Sub

B．Private Sub Command1_Cick() Caption=“计算机等级考试” End Sub

C．PrivateSubForm1_Click() Text1.Caption=“计算机等级考试” End Sub

D．PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub

点击查看答案

第7题

D）窗体（Form）可以作为过程的参数（25）在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分

D）窗体（Form）可以作为过程的参数

（25）在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后

编写如下程序代码：

Private X As Integer

Private Sub Command1_Click()

X=5: Y=3

Call proc(X, Y)

Label1.Caption=X

Label2.Caption=Y

End Sub

Private Sub proc(a As Integer, ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。

A）25 和 3

B）5 和 3

C）25 和 6

D）5 和 6

点击查看答案

第8题

假字在窗体（名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As Str

假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: Private Type animal Anima1Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open"c: \vbTest.dat"For Random As#1 Len = Len(reC)rec.animalName = "Cat" rec.aColor = "White" Pat#1 , rec Close#1 End Sub 则以下叙述中正确的是

A．记录类型animal不能在Form1中定义,必须在标准模块中定义

B．如果文件c：\vbTest.dat不存在，则Open命令执行失败

C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D．语句"Put#1，rec"将animal类型的两个数据元素写到文件中

点击查看答案

第9题

在名称为 Form1 的窗体上画一个名称为 C1 的命令按钮,标题为 " 打开文件 " ,再画一个名称为 CD1 的通用对话框。程序运行后,如果单击命令按钮,则弹出打开文件对话框。请按下列要求设置属性和编写代码:（）编写命令按钮的事件过程,使得单击按钮可以弹出打开文件对话框。要求:程序中不得使用变量,事件过程中只能写一条语句

点击查看答案

第10题

在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labe11、Labe12的标签，然后编写如下

程序代码： Private X As Integer Private Sub Commandl_Click() X=5:Y=3 Callproc(X,Y) Labe11.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVala As Integer,ByValb As In

A．5和3

B．25和3

C．25和6

D．5和6

点击查看答案

第11题

在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Lubd2的标签，然后编写如下程

序代码：

Private X As Integer

Private Sub Commandl_Click()

X=5：Y=3

Call proc(X，Y)

Labell．Caption=X

Label2．Caption=Y

End Sub

Private Sub proc(a As Integer，ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A．25和3

B．5和3

C．25和6

D．5和6

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信