2009年4月-9月计算机考试二级VB真题及答案(8)

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.身份证号