2008-09第二学期程序设计基础VB答卷.docVIP

2008/09第二学期程序设计基础VB答卷 一、选择题（每小题1分，共10分） 1. D 2. A 3. C 4. A 5. D 6. C 7. A 8. C 9. B 10. D 二、填空题（每空格1分，共10 分） ⑴ Form1.Picture = LoadPicture() ⑵ (INPUT, ERROR) ⑶ value ⑷ 大写字母 ⑸ 变体变量 ⑹ 定长字串 ⑺ 74.56 ⑻ 30000 ⑼ 33 ⑽ flags 三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”） 1、（√） 2、（√） 3、（×） 4、（√） 5、（√） 6、（×） 7、（√） 8、（×） 9、（×） 10、（×） 四、程序阅读题（每题6分，共24分） 程序1. (我的公式编辑器有问题，分母都是分子的阶乘) 程序2. 1 2 程序3. y=8 7 5 y=20 4 8 程序4. (1)应修改为 For i = 9 To 1 step -1 (2)应修改为 For j = 1 To 2 * (9 - i) + 1 (3)应修改为 Print Trim(Str(i)); （这里str可以没有，但是分号必须有） 五、程序填空题（每空格2分，共16分） 1. B 2. D 3. D 4. D 5. A 6. B 7. C 8. B 六、程序设计题（每题10分，共30分）（编程题可能答案会有不同，大家可以酌情判分） 1、编写一个程序，输入两个正整数m、n，调用子过程求两个正整数m、n的最大公约数。在主程序窗体中输出m、n及最大公约数。（注意这里要求调用sub子过程，不是function函数过程） Private Sub Form_click() Dim m As Integer, n As Integer Dim x As Integer Do 1分 m = val(InputBox(请输入第一个正整数)) 1分 n =val(InputBox(请输入第二个正整数)) loop until m0 and n 0 Call gys(m, n, x) 2分 Print m 与 n 的最大公约数是 x 1分 （如果这里写法跟我的一致，要注意参数传递方式有没有用byval，否则m、n会出错，要扣分） End Sub Private Sub gys(byval a As Integer, byval b As Integer, r As Integer) 1分 r = a Mod b 算法3分 Do While r 0 a = b: b = r: r = a Mod b Loop r = b 1分 End Sub 2、设计一个窗体，上面有一个图片框，一个文本框、一个命令按钮，要求初始化命令按钮不能响应，文本框输入一个不小于10且不大于100的整数n，按下回车键后命令按钮激活，按下命令按钮后调用函数过程，