2009年9月计算机等考二级VB模拟题及解析(13)

　　(10) 下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。

　　Private Sub Form_Click()

　　Dim i As Integer

　　Open 【11】 As #1

　　For i=1 To 10

　　【12】

　　Next i

　　Close #1

　　End Sub

　　正确答案: 1.("Base.txt" For Output) 2.(Print #1, i)

　　(11) 下面的程序用于根据文本框Text中输入的内容进行以下处理：

　　若Text为1，则打印"您的成绩为优秀!";若Text为2，则打印"您的成绩为良好!"

　　若Text为3，则打印"您的成绩为一般";否则打印"您的成绩一般以下!"，请填空。

　　Private Sub Command1_Click()

　　Select Case Val(Text1.Text)

　　Case 【13】

　　Print "您的成绩为优秀!"

　　Case 【14】

　　Print "您的成绩为良好!"

　　Case 【15】

　　Print "您的成绩为一般"

　　Case Else

　　Print "您的成绩一般以下!"

　　End Select

　　End Sub

　　正确答案: 1.(1) 2.(2) 3.(3)