【8】Form2.Print \圆的面积是\ End If End Sub
（7）设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s >= 90 Then Level = \ ElseIf s >= 75 Then Level = \ ElseIf s >= 60 Then Level = \ Else Level = \ End If
下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case【9】 Is >= 95 Level = \ Case 75 To 90 Level = \ Case 60 To 74 Level = \
Case 【10】Else 或 Is<60 Level = \ 【11】End Select
（8）窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：
Private Sub Command1_Click() Dim x As Integer, y As Integer, z x = 3 y = 5 z = fy(y) Print fx(fx(x)), y End Sub
Function fx(ByVal a As Integer) a = a + a fx = a End Function
Function fy(ByRef a As Integer) a = a + a fy = a End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是【12】12和【13】10。
（9）窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此能的程序，请填空。
Private Sub Command1_Click() Text1 = \ Number = FreeFile
Open \ Do While Not EOF(【14】Number) Line Input #Number, s
Text1.Text = Text1.Text +【15】 s + Chr(13) + Chr(10)
Loop
Close #Number End Sub 参考答案 一．选择题
11.C 12.D 13.A 14.C 15.D 16.D 17.A 18.C 19.B 20.C 21.A 22.C 23.A 24.B 25.D 26.C 27.D 28.B 29.D 30.A 31.B 32.D 33.B 34.C 35.A 二．填空题 6.text1.text text1.text Form2 7.IS ELSE END SELECT 8.12 10 9.NUMBER S
公共基础试题答案 选择题
1.C 2.B 3.D 4.A 5.B 6.A 7.C 8.B 9.C 10.D
填空题 1.14 2.逻辑判断 3.需求分析 4.多对多 5.身份证号