浙江工业大学07-08VB期末A卷答案.docVIP

2007/08二学期程序设计基础VB答卷 请每位老师各自做一下，防止我做错，有错请及时告知，谢谢。 答案中红色的内容为评分时需要注意的内容，蓝色的是第二种可选答案 一、选择题（每小题1分，共8分） 1、 D 2、 A 3、 A 4、 A 5、 A 6、 C 7、 A 8、 D 二、填空题（每空格1分，共12 分） ⑴ 对象 ⑵ 事件 ⑶ if left(str(x),1)=right(str(x),1) （没有str算错） 或者 if x \100 = x mod 10 (4)redim a(n) as integer (5) public x as double (6) 按地址传递 或byref ⑺ TRUE ⑻ showfont ⑼ interval ⑽ fillcolor ⑾ 形状 ⑿ fillstyle 三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”） 1、（×） 2、（×） 3、（×） 4、（√） 5、（×） 6、（×） 7、（√） 8、（×） 9、（×） 10、（√） 四、程序阅读题（共24分） 程序1 25 程序2. 第1次追加表项 abc 所有表项依次为 ＋－×÷ 2 第2次追加表项 cd cd 1 第3次追加表项 ＋－×÷ abc 程序3. 语句 showfont前应该先设置flags属性 应修改为 commondialog1.flags=257 flags缺少s或者等于1都要扣1分 语句 Text1.FontUnderline = True 应修改为 Text1.FontUnderline = commondialog1.fontunderline 拼写错误如不太离谱的话一共扣1分，只要找到两个错误即可，不要求顺序 程序4. 语句 a(i) = InputBox(输入第 + n + 个数) 应修改为 a(i) = InputBox(输入第 + str(i) + 个数) 语句 For i = 1 To n 应修改为 For i = 1 To m 语句 Text1.Text = a(i) 应修改为 Text1.Text = Text1.Text＋ a(i) 语句 Private Function oushu(b As Integer, m As Integer) As Integer 应修改为 Private Function oushu(b（） As Integer, m As Integer) As Integer 此题有四处错误，当时只是想少找一点错误，就想留两句，忘了程序改回来了，所以此题只要找出两处就给分 五、程序填空题（每空格2分，共16分）（下面内容如与答案不符请老师认真思考学生答案可能正确） 程序1. ⑴ Public Function f(a() As Single, n As Integer, max As Single, min As Single) As Single ⑵ max = a(1): min = a(1) 此内容写一半给一半分 ⑶ f = f + a(i) 程序2. ⑷ until n=6 或者 while n6 ⑸ k as integer ⑹ k1 ⑺ k mod i=0 或者 (k\i)*i=k ⑻ i=i+1 六、程序设计题（每题10分，共30分）程序设计没有绝对，给分标准差不多就可以 1、编程，输入x后按下式计算并显示f(x)的值。要求将g(x)、h(x)分别写做两个函数过程。 G(x)=(exp(x)+exp(-x))/2 H(x)=sin(x*3.14/180)*cos (x*3.14/180) Private sub form1_click X=inputbox(x=) F=x^3+h(3x)/log Private Sub Form_click() Dim x As Single, f As Single 1分,定义为integer没有分 x = InputBox(请输入一个数) 1分 f = x ^ 3