往年试卷

试卷答案

VB课程 > 在线学习 > 试卷答案 > 试卷一

试卷答案

一、选择题(每题 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