更多"假字在窗体(名称为Forml)的代码窗口中定义如下记录类型: "的相关试题:
[单项选择]假字在窗体(名称为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：/vbTesdat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句"Put#1，rec"将animal类型的两个数据元素写到文件中
[填空题]在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果的原因是这些属性______。
[填空题]在代码窗口对窗体的BorderStyle、MaxBuaon属性进行了设置，但运行后没有效果的原因是这些属性______。
[单项选择]假定在窗体（名称为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
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
End Sub
则以下叙述中正确的是______。
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件"c:/vbTest. dat"不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5s，窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行．计时器即变为可用，且每隔0.5s形状控件向下移动100。
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Command1的命令按钮，标题为“打开文件”，再画一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码：
①设置适当的属性，使用话框的标题为“打开文件”。
②设置适当的属性，使对话框的“文件类型”下拉列表框中有2个选项：“文本文件”、“所有文件”(如图1所示)，默认的类型是“所有文件”。
[*]
③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个命令按钮，名称为Command1，其标题为“移动本按钮”，如图2所示。
[*]
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[简答题]
在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”；添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使的在输入密码时，文本框中显示为“*”字符。此外，再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
[简答题]在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图11-14所示(程序中不能使用任何变量)。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Label1、标题为“添加项目：”的标签；画一个名称为Text1的文本框，其中没有初始内容；画一个名称为Combo1的下拉列表框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“添加”、“统计”。运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图3所示。请编写两个命令按钮的Click事件过程。
[*]
注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签，一个名称为Hscroll1的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1，最大值为100，滚动条的宽度为3000、高度为300，滚动块的初始位置为20。程序运行后的窗体如图1所示。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.1frm。
[填空题]在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
Open "d：/test/smtext1.txt" For Input As #1
Do While Not
Line Input #1，aspects
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。请填空。
