2002年秋计算机等级考试
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
(二级VB)
试
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
一:计算机基础题
• 单选题:
1
2
3
4
5
6
7
8
9
10
C
D
B
A
A
A
B
C
D
D
• 双选题:
11
12
13
14
15
AB
AD
AC
AD
BC
试题二:语言基础题
• 判断题:
16
17
18
19
20
21
22
23
24
25
×
√
×
√
√
√
×
×
×
√
• 单选题:
26
27
28
29
30
31
32
33
34
35
B
C
D
B
A
A
D
C
D
B
试题三:程序填空题
36
37
38
39
40
A
C
D
A
C
试题四:程序阅读题
1
2
3
4
78
5786
357864
13578642
2
3
4
5
32 64
16 64
8 64
4 64
6 15 28 45
试题五:程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
题
1 、 Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer, sum As Single
n = InputBox("input data n")
sum = 1
For i = 2 To n
sum = sum + i / ((i + 1) * (i + 2))
Next i
Text1.Text = Str(sum)
End Sub
2 、 Dim x1 As Integer, y1 As Integer
Private Sub Form_Load()
Pic1.FillStyle = 0
Pic1.FillColor = vbGreen
Pic1.ForeColor = vbRed
End Sub
Private Sub Pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Pic1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Pic1.Line (x1, y1)-(X, Y), , B
End Sub
3 、 Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim str1 As String, str2 As String
Dim Fname As String
Dim i As Integer
If Right(File1.Path, 1) = "\" Then
Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
End If
Open Fname For Input As #1
CommonDialog1.Action = 1
Open CommonDialog1.FileName For Output As #2
Do While Not EOF(1)
Line Input #1, str1
str2 = ""
For i = 1 To Len(str1)
If Mid(str1, i, 1) <> " " Then
str2 = str2 & Mid(str1, i, 1)
End If
Next i
Print #2, str2
Loop
Close
End Sub