试卷答案
一、选择题(每题 1 分,共 30 分)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
C C B B B A C C A A A D A B D C B C C C
21 22 23 24 25 26 27 28 29 30
A C B A A C D D A C
二、填空题(每空 1 分,共 10 分)
1.顺序文件、随机文件、二进制文件
2. KeyPreview
3. Alignment
4. 27
5. Text1.Locked=True
6. Shift
7. 文件 (&F)
8.过程级(局部也可)
三、写出程序运行结果(每小题 3 分,共 15 分)
1.7 2.0 3.17 4.2 5. 24 12 6 60
四、补充程序(每小题 4 分,每空 2 分,共 20 分)
1. If s>1000 Then Exit For Print s
2. y < z a = z: z = y: y = a
3. 2*i-1 Print "*";
4. Redim a(n) ( 或者 Redim a(n) as Long) a(i)=a(i-2)+a(i-1)
5. Form1.backcolor Form1.caption=" 青岛科技大学 "(或者 backcolor caption=" 青岛科技大学 " )
五、 编程题(第 1 题 7 分,第 2 题 8 分,第 3 题 10 ,共 25 分)
1 . Private Sub Command1_click() 1 分
Dim i As Integer 1 分
For i = 1 To 300 1 分
If (i mod 3=2) And ( i mod 5=3) Then 2 分
Print i 1 分
Next i 1 分
End Sub
2 .本小题用 ElseIf 、 Select 、嵌套 If 都可以。
Private Sub Form_Click()
Dim mark% 1 分
mark = InputBox("please input a mark") 1 分
If mark >= 80 Then 2 分
Print "A"
ElseIf mark >= 60 Then 2 分
Print "B"
Else 1 分
Print "C" End If 1 分
End Sub
3 .在属性窗口中修改的属性及属性值: 2 分
Form1: Caption “ 一个小程序 ”
Command1: Caption “ 显示 ”
Command2: Caption “ 隐藏 ”
Text1: Text “”
Private Sub Command1_Click() 3 分
Text1.Visible = False
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text1.Visible = True
Command2.Enabled = False 3 分
Command1.Enabled = True
End Sub
Private Sub Form_Load() 2 分
Show
Text1.Text = " 你好 "
End Sub