2013.12同济夜大VB期末复习

1、选择题1.vb 工程文件的扩展名为。a. vbp b. frm c. bas d. frx 注：窗体文件扩展名frm ；工程文件扩展名vbp 2.vb 程序运行时，单击窗体可将窗体的前景色设为红色的代码段是。 （多选）a. private sub form_click() form1.backcolor = vbred end sub c. private sub form_click() backcolor = vbred end sub b. private sub form_click() form1.forecolor = vbred end sub d. private sub fo

2、rm_click() forecolor = vbred end sub 注：前景色：forecolor ；背景色： backcolor form1.forecolor = vbred中 form1.可省略3. 在窗体设计阶段，双击窗体form1 的空白处，可打开代码窗口，并显示事件的过程头和过程尾。a.form_click b. form1_click c. form_load d. form1_load 4. 事件过程是指时所执行的代码。a. 运行程序 b. 使用控件 c. 设置属性d. 响应事件5. 在代码窗口中输入某行代码并按回车键之后，如果代码变成红色颜色，说明该行代码有语法错误。6

3、. 以下不是 vb中合法的自定义标识符。a. a 1 b. sum c. long d. temp 注：系统用的标示符不能自定义，long 代表长整形7. 如果在一行中输入多条语句，各语句之间应使用分隔。a. , b. ; c. : d. 8. int(100*rnd+10)产生的随机整数的闭区间是。a. 1,100 b. 1,99 c. 10,100 d. 10,109 注： int(rnd()+a)+b a：上限 - 下限 +1 b ：下限9. 函数 len（hello!+space(2)+mid(“shanghai”,6)）的值是。a. 14 b. 11 c. 10 d. 9 注：函数

4、len 是求长度。 hello! 长度 6；space(2) 长度 2；mid(“shanghai”,6)长度 3（从第 6 个字符到最后的长度） 。6+2+3=11 10. 语句 dim a (-6 to 8) as integer定义了一个有个元素的整型数组。a. 6 b. 8 c. 14 d. 15 注： -6 到 8 一个 15 个数。11. 执行语句 dim data&(10,20)后，数组data 中最多可容纳个数据。a. 30 b. 32 c. 200 d. 231 注：二重数组下界默认为0，行有（ 010）共 11 个数；列有（020）共 21 个数共 11*21=23

5、1 个数据。12. 调用列表框控件的方法，可清除列表框中的所有列表项。a. cls b. removeitem c. clear d. remove 注： cls 清除窗体； clear清除列表框13. 在文本框的属性值设为true 的情况下，设置scrollbars属性可使文本框中出现滚动条。a. locked b. alignment c. multiline d. enabled 注： multiline设置多行文本scrollbars设置滚动条。locked 为控件是否可编辑，true 不可， flase 可14. 要使某个命令按钮不起作用，应将该按钮的enabled属性设置为flas

6、e 。注： visible为对象是否可见。true 可， flase 不可程序填空1. 产生一组随机数，找最大或最小值p72.9 private sub form_click() dim i as integer, x as integer dim min as integer randomize min = 100 for i = 1 to 10 x = int(rnd * 90) + 10 if x ave then print d(i) next i end sub 4. 生成并输出杨辉三角。p110实验 4 private sub form_click() dim d(8, 8) as

7、 integer for i = 1 to 8 d(i, 1) = 1 for j = 2 to i - 1 d(i, j) = d(i - 1, j) + d(i - 1, j - 1) next j d(i, i) = 1 next i for i = 1 to 8 for j = 1 to i print tab(5 * j); d(i, j); next j next i end sub 三、程序设计 1.编程计算分段函数的值。 p72 private sub command1_click() dim x as integer, y as integer x = inputbox(请输

8、入 x 的值 , 输入 ) if x 7 then y = x 2 + 1 elseif x = 12 then y = 10 else y = x 3 - 1 end if print y= & y end sub 2.do loop循环改写为for next循环p55 例 3.8求 1+3+5+7+ +99 private sub form_click() dim sum as integer, i as integer sum = 0 for i = 1 to 99 step 2 sum = sum + i next imsgbox 1+3+5+ +99= & sum,

9、, 求和 end sub private sub form_click() dim sum as integer, i as integer sum = 0 : i = 1 do while i = 99 sum = sum + i i = i + 2 loop msgbox 1+3+5+ +99= & sum, , 求和 end sub 3.定义一个整形数组，将100 个随机整数从下标1 开始放入该数组中，求出该数组中具有偶数值的偶数下标元素之和。p109 private sub command1_click() dim d(1 to 8) as integer randomize

10、for i = 1 to 8 d(i) = rnd * 100 print d(i) if i mod 2 = 0 and d(i) mod 2 = 0 then sum = sum + d(i) end if next i print print sum; sum end sub 4.函数部分实验3 private sub command1_click() dim r as single, s as single r = inputbox( 请输入半径： ) s = mj(r) print r, s end sub function mj(r as single) mj = 3.14 * r

11、 * r end function四、写出运行结果1. private sub command1_click() dim i as integer, t as integer i = 3: t = 1 do while i = 7 t = t * i i = i + 3 loop print t=; t end sub 答案： t=18 2. private sub command1_click() dim s as integer, i as integer s = 1 for i = 2 to 5 s = s + i next i print s=; s end sub 答案： s=15

12、3. private sub command1_click() dim d(5) as integer for i = 1 to 5 d(i) = i + 2 next i for j = 1 to 5 d(j - 1) = d(j - 1) + d(j) next j print d(0); d(4) end sub 答案： 3；13 4. private sub command1_click() dim a(6) as integer for i = 1 to 3 for j = 3 to 1 step -1 a(i + j) = i * j + a(i + j) next j next i print a(2); a(3); a(4); a(5); end sub 答案： 1；4；10；12 5. private sub command1_click() cls for i = 1 to 4 print tab(10); for j = 1 to i p