04 05第1学期vb考试题及标准答案

西北农林科技大学本科课程考试

参考答案与评分标准

考试课程：计算机应用基础 试卷类型：A卷

专业年级：2003级部分专业统考 学年学期：2004～2005学年第1学期 考试时间：2004年元月17日

一、填空题（每空1分，共10分）

1．2 2．9 3．1.234 4．LoadPicture (\5．“是”、“yes”、“第一个”均可 6．12 7．Index 8．字符串连接 9．顺序访问方式 10．Get

二、选择题（1-12题每小题1分，13-15题每题2分，共18分）

CACCD DCCCD BAACC

三、写出程序运行结果（每小题4分，共20分）

1．1e 2．20 3．“限制文本框中数据录入范围”。只要能答对意思即可 4．a=3 b=9 5．1 2 3 4 5 6 7 8 9 10 四、完善程序（每空2分，共20分）

1． x / i = x \\ i i = k + 1 32767 Exit For 2． x Mod 10 a(3) + a(1) = (a(2) + a(0)) * 10 n = n + 1 3． gys(a, gys(b, c)) 或 gys(gys(a,b), c) r = m Mod n gys = n 五、编程题（每题8分，共32分）

1.评分标准

(1)会定义函数，有完整的结构及功能6分 (2)正确调用2分

Function fact#(ByVal n%) Dim f#, i% f = 1

For i = 1 To n f = f * i Next i fact = f End Function

第 9 页 共 13 页

Private Sub Command1_Click() Print fact(4) + fact(8) + fact(10) End Sub

2．评分标准

（1）定义动态数组2分

（2）为数组赋值并输出2分

（3）计算四周元素之和4分，有重复计算酌情扣分。

Option Base 1

Private Sub Command1_Click() Dim m%, n%, i%, j%, s%

m = Val(InputBox(\请输入数组行数\ n = Val(InputBox(\请输入数组列数\ ReDim a%(m, n) For i = 1 To m For j = 1 To n

a(i, j) = Int(Rnd * 90) + 10 Print a(i, j); Next j Print Next i

For i = 1 To m

s = s + a(i, 1) + a(i, n) Next i

For i = 2 To n - 1

s = s + a(1, i) + a(m, i) Next i

Print \数组四周元素之和为：\End Sub

3．评分标准

（1）会定义数组1分

（2）为数组赋值并输出2分

（3）可以选用任何方式排序4分 （4）输出排序结果1分

Option Base 1

Private Sub Command1_Click() Dim i%, j%, a%(10), t% For i = 1 To 10

a(i) = Int(Rnd * 90) + 10 Print a(i);

第 10 页 共 13 页

Next i Print

For i = 1 To 9

For j = i + 1 To 10 If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t End If Next j Next i

For i = 1 To 10 Print a(i); Next i Print End Sub

4．评分标准

（1）正确打开文件2分 （2）正确读出数据2分 （3）正确分段统计2分 （4）循环正确1分 （5）正确输出1分

Option Base 1

Private Sub Command1_Click()

Dim xm$, cj%, n1%, n2%, n3%, n4%, n5% Open \ Do Until EOF(1) Input #1, xm, cj If cj < 60 Then n1 = n1 + 1 ElseIf cj < 70 Then n2 = n2 + 1 ElseIf cj < 80 Then n3 = n3 + 1 ElseIf cj < 90 Then n4 = n4 + 1 Else

n5 = n5 + 1 End If

Loop Close

Print \分以下的人数是：\

第 11 页 共 13 页

Print \～69分的人数是：\ Print \～79分的人数是：\ Print \～89分的人数是：\ Print \分以上的人数是：\End Sub

第 12 页 共 13 页