题目内容
（请给出正确答案）
在窗体(名称为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
安装简答题APP，拍照搜题省时又省心！
更多“在窗体（名称为Form1)上画一个名称为Text1的文本框和…”相关的问题
在窗体(名称为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
注意：下面出现的“考生文件夹”均为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。
.jpg)
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
A、Private Sub Text1_Change()Command1.Caption=”计算机等级考试”End Sub
B、Private Sub Command1_Click()Caption=”计算机等级考试”End Sub
C、Private Sub Form1_Click()Text1.Caption=”计算机等级考试”End Sub
D、Private Sub Command1_Click()Text1.Text=”计算机等级考试”End Sub
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
假定在窗体（名称为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类型的两个数据元素写到文件中
假定在窗体(名称为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类型的两个数据元素写到文件中
Private Sub Form_Click（）
Open "d:\test\smtext1.txt" For Input As #1
Do While Not ______
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr$（13） + Chr$（10）
Loop
Text1.Text = whole$
Close #1
Open "d:\test\smtext2.txt" For Output As #1
Print #1, ______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
假字在窗体(名称为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类型的两个数据元素写到文件中
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
