题目内容
（请给出正确答案）
在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程：
记录类型定义如下：
下列叙述中正确的是（）。
A. 记录类型animal不能在Form1中定义，必须在标准模块中定义
B. 如果文件c：\vbTest．dat不存在，则Open命令执行失败
C. 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D. 语句“Put#1,,rec”将animal类型的两个数据元素写到文件中
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上有一个名称为Command1的命令按钮，并编写有如下…”相关的问题
Private Sub Form_Load（）
Command1 Enabled=False
End Sub
Private Sub Text1_ ________ （）
Command1 Enabled=True
End Sub
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（）。
A.Private Sub Form1 Click（） End Sub···
B.Private Sub Form. Cliok（） End Sub···
C.Private Sub Command1 click（） End Sub···
D.Private Sub Command Click（） End Sub···
窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a\2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是()。
A．x是用户定义的类型
B．InputBox函数弹出的对话框中没有提示信息
C．若输入的是偶数，y.b的值为该偶数的平方
D．Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1 Click（）
Static x As Variant
n=0
x=Array(1，2，3，4，5，6，7，8，9，10)
While n＜=4
x(n)=x(n+5)
Print x(n)：
n=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
Private Sub Command1_Click()
CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。
2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。
要求：编写程序，以实现试题要求的功能。
注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
.jpg)
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文 件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)
注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“？”的地方填入正确内容，然后删除“？”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。 在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“？”的地方填入正确内容，然后删除“？”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1，3，5，7，9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是
A．Fori=0 T0 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
B．Fori=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
C．Fori=0 T0 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
D．For i=l To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是______。
A．0
B．1
C．2
D．3
