64775200.doc
??(33) 设在工程中有一个标准模块，其中定义了如下记录类型 ??Type Books ??Name As String *10 ??TelNum As String *20x ??End Type
??在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 ??A) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Output As #1 ??B.Name=InputBox(“输入姓名”) ??B.TelNum=InputBox(“输入电话号码”) ??Write #1,B.Name,B.TelNum ??Close #1 ??End Sub
??B) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Input As #1 ??B.Name=InputBox(“输入姓名”) ??B.TelNum=InputBox(“输入电话号码”) ??Print #1,B.Name,B.TelNum ??Close #1 ??End Sub
??C) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Output As #1 ??B.Name=InputBox(“输入姓名”) ??B.TelNum=InputBox(“输入电话号码”)
元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程 欢迎选购，luckliubin.taobao.com
64775200.doc
??Write #1,B ??Close #1 ??End Sub
??D) Private Sub Command1_Click() ??Open “c:\\Person.txt”For Input As #1 ??Name=InputBox(“输入姓名”) ??TelNum=InputBox(“输入电话号码”) ??Print #1,Name,TelNum ??Close #1 ??End Sub
??(34) 以下叙述中正确的是
??A) 一个记录中所包含的各个元素的数据类型必须相同 ??B) 随机文件中每个记录的长度是固定的 ??C) Open命令的作用是打开一个已经存在的文件 ??D) 使用Input #语句可以从随机文件中读取数据 ??(35) 目录列表框的Path属性的作用是 ??A) 显示当前驱动器或指定驱动器上的目录结构 ??B) 显示当前驱动器或指定驱动器上的某目录下的文件名 ??C) 显示根目录下的文件名 ??D) 显示该路径下的文件
??二、填空题( 每空2分，共40分）
?? 请将每空的正确答案写在答题卡( 1)至( 15) 的横线上，答在试卷上不得分。 ??(1) 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 [1] 和 [2] 处填入适当的内容，将程序补充完整。 ?? ??
元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程 欢迎选购，luckliubin.taobao.com
64775200.doc
?? ?? ?? ?? ??
??Private Sub HScroll1_ [1] () ??Labl2.Caption=HScroll1. [2] ??End Sub
??(2) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 [3] 、 [4] 和 [5] 处填入适当的内容，将程序补充完整。 ?? ??
??Private Sub Command1_Click() ??For i=0 To 3 ??If [3] =True then ??opt=Option1(i).Caption ??End If ??Next
??Select Case [4] ??Case”+”
??Result=Val(Text1.Text)+Val(Text2.Text) ??Case”-”
??Result=Val(Text1.Text)-Val(Text2.Text)
元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程 欢迎选购，luckliubin.taobao.com
64775200.doc
??Case”*”
??Result=Val(Text.Text)*Val(Text2.Text) ??Case”/”
??Result=Val(Text1.Text)/Val(Text2.Text) ??End Select ?? [5] =Result ??End Sub
??(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。 ??Private Sub Form_Load() ??Command1.Enabled=False ??End Sub
??Private Sub Text1_ [6] () ??Command1.Enabled=True ??End Sub
??(4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 ?? Form1. [7] Pmenu ??(5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。
??Private Sub Form_Click()
??Dim x As Single,amax As Single,amin As Single ??x=InputBox(“Enter a score”) ??amax=x ??amin=x ??Do While [8]
元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程 欢迎选购，luckliubin.taobao.com
64775200.doc
??If x>amax Then ??Amax=x ??End If ??If [9]Then ??Amin=x ??End If
??x=InputBox(“Enter a score”) ??Loop
??Print”Max=”;amax,”Min=”;amin ??End Sub
??(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： ??Private Sub Form_Load() ??Text1.Text=”计算机” ??End Sub
??Private Sub Text1_Change() ??Picture1.Print“等级考试” ??End Sub
?? 程序运行后，在文本框中显示的内容是 [10] ，而在图片框中显示的内容是 [11] 。 ??(7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： ??Function M(x As Integer,y As Integer)As Integer ??M=IIf(x>y,x,y) ??End Function
??Private Sub command1_Click() ??Dim a As Integer,b As Integer ??a=100 ??b=200 ??Print M(a,b) ??End Sub
元风小店——为您提供淘宝网上最好的教程。我们这里有英语四级，会计考试，计算机等级考试等各类教程 欢迎选购，luckliubin.taobao.com