Visual Basic程序设计期末综合练习

1、1 visualvisual basicbasic 程序设计期末综合练习程序设计期末综合练习 一、单项选择题一、单项选择题 1visual basic 应用程序处于运行模式时，这时（） 。 a既不能设计界面，也不能编写代码b可以编辑代码，不能设计界面 c可以设计界面，不能编辑代码d既能设计界面，也能编写代码 2下列选项中，属于 visualbasic 程序设计方法的是（） 。 a面向对象、顺序驱动b面向对象、事件驱动 c面向过程、事件驱动d面向过程、顺序驱动 3在界面设计时，双击窗体中的对象后，visualbasic 将显示的窗口是（） 。 a立即窗口b属性窗口 c代码窗口d工程资源管理器窗口

2、 4后缀为.cls 的文件表示 vb 的（） a窗体文件b类模块文件 c工程文件d标准类模块文件 5要在窗体 form1 内显示“myfrm” ，使用的语句是（） aform.caption=myfrmbform1.caption=myfrm cform1.print myfrmdform. print myfrm 6将定时器的时间间隔设置为 1 秒，则定时器的 interval 属性值应设为（） a1b100 c1000d10 7用于把字符串型数据转换为数值型数据的函数是（） 。 avalbstrcascdchr 8表达式 8+13 mod 2*4+3（） 。 a8b16c10d12 9下列

3、图形中用 shape 控件不能绘制的有（） a矩形b三角形 c正方形d椭圆 10如果要改变窗体的标题，则需要设置的属性是（） a、captionb、namec、backcolord、borderstyle 11.下列赋值语句正确的是（） ab+c =ab a=b+c c-b=ad5=a+b 12设 a=”visual basic”，下面使 b=”basic”的语句是（） 。 ab=left(a,8,12)bb=mid(a,8,5) cb=right(a,5,5)db=left(a,8,5) 13键盘事件的执行顺序是（） akeypress、keydown、keyup bkeydown、keyp

4、ress、keyup ckeyup、keydown、keypress 2 dkeyup、keypress、keydown 14如果准备向随机文件中写入数据，正确的语句是（） awrite # 1,recbprint # 1,rec cget # 1,recdput # 1,rec 15winsock 控件的 localip 属性的作用是（） a仅返回所用端口b返回本地计算机的名称 c返回或设置所用端口d返回本地计算机的 ip 地址 16.要以读方式打开 d 盘的一个顺序文件 test.doc，应使用的语句是（） aopen test.doc for outputas #1 bopen d: t

5、est.doc for inputas #1 copen d: test.doc for outputas #1 dopen test.doc for inputas #1 15winsock 控件的 localip 属性的作用是（） a仅返回所用端口b返回本地计算机的名称 c返回或设置所用端口d返回本地计算机的 ip 地址 18修改控件属性，一般可以使用属性窗口，也可以通过（）为属性赋值。 a、命令b、对象c、方法d、代码 19要在命令按纽上显示图形，应首先设置的属性是（） aenabledbstyle ccaptiondicon 20dim abc(5)所定义的数组元素个数是（） a、5b

6、、6c、4d、10 21在 vb 应用程序中，进行逐语句调试的按键是（） 。 af9 键bctrl+f9 键 cf8 键dctrl+f8 键 22在窗体上画三个单选按纽，组成 command1 的命令按纽，用于标识各个控件数组 元素的参数是（） atagbindexclistindexdname 23目录列表框的 path 属性的作用是（） a显示当前驱动器或指定驱动器上的路径 b显示当前驱动器或指定驱动器上的某目录下的文件名 c显示根目录下的文件名 d只显示当前路径下的文件 24当 winsock 控件处于关闭状态时，其 state 属性的值是（） a1b0 c2d3 25执行指令”line

7、(200,200)-step(500,500)”后，currentx=() a500b200 c300d700 26不属于 vb 数据库引擎的是（） 3 aodbcbbde cjet 引擎dole db 27数学关系 8x30 表示成正确的 vb 表达式为（） a、8=x30b、8=x and30 c、8=x and x30d、8a or cb and ca+b 的值是。 9日期表达式#2/24/02#-#2/12/02 的值为。 10为了在运行时把当前路径下的图形文件 picturefile.jpg 装入图片框 picture1，所 使用的语句为。 5 11 数 学 表 达 式 cox2x+

8、 22 2 1 yx 写 成 等 价 的 visual basic 表 达 式 为。 12设某个程序中要用到一个二维数组，要求数组名为 a，类型为字符串类型，第一维 下标从0到5， 第二维下标从-2到5， 则相应的数组声明语句为。 13visual basic 一般用 4 种类型的文件保存，分别是扩展名为的窗体文 件，扩展名为的标准模块文件，扩展名为的类模块文件和扩展名为 的工程文件。 14visual basic 程序开发有三种模式，即模式、模式和 模式。 15visual basic 中变量依据其作用域不同可以分为过程级变量（局部变量） 、窗体级 变量和全局变量 3 类。 过程级变量是指在

9、过程内部声明的变量， 其作用域是。 窗体级变量是指在窗体或模块的代码声明段用 dim 或 private 声明的变量，其作用域 是，全局变量在整个应用程序中有效，其作用域是。 16在 visual basic 的转换函数中将数值转换为字符串的函数是；将数字字 符 串 转 换 为 数 值 的 函 数 是； 将 字 符 转 换 为 相 应 的 ascii 码 的 函 数 是。 17 “公共对话框”控件提供了几种不同类型的对话框，可以通过属性或相 应的方法确定对话框的类型。 “公共对话框”name 属性的默认名称。 18将图片框 picturebox 的 autosize 属性设置成时，图片框能自动

10、调整大 小，以适应其中的图片。 19若已建立了 form1 和 form2 两个窗体，默认启动窗体为 form1。通过 菜单菜单项，可将启动窗体设置为 form2。在程序中若要显示 form1 窗体，则 执行语句。 20若窗体 form1 左上角坐标为（0，600） ，右下角的坐标为（800，-200） 。则 x 轴的 正向向，y 轴的正向向。 21 left(“abcd”,2)函数的返回值是; right(“abcd”,2)函数的返回值是。 22vb 应用程序与数据库进行通信的主要机制称为。 23winsock 控件主要用来编制或协议的通话程序。 24假设 adocn 为一个 connect

11、ion 对象，那么在 vb 程序中声明 adocn 的语句是 。 25在 vb 中，将 foxpro 称为，access 称为，sql server 称 为。 26 常用的 vb 网络编程控件主要有、三 种。 27以(500,500)为圆心，以 300 为半径，用 forecolor 颜色绘制一个圆形，其实现的代码 是。 28按文件的存取方式，可将文件分为顺序文件、和。 29有变量定义语句“dim str1,str2 as string *10” ，其中 str1 变量的类型应 为，其中 str2 变量的类型应为。 30visual basic 提供的常见鼠标事件中，鼠标按下所引发的事件为；

12、鼠标按下后松开时引发的事件为；移动鼠标光标所引发的事件 为。 6 三、阅读程序题三、阅读程序题 阅读下列程序并写出程序运行结果阅读下列程序并写出程序运行结果 1 private sub form_click() dim s as long, f as long, n as integer, i as integer n = 3 for i = 1 to n f = f + i s = s + f next print s=; s end sub 写出程序运行时单击窗体后，窗体 form1 上的输出结果。 2 private sub command1_click() x = 0 do while

13、 x 100 x = (x + 2) * (x + 4) n = n + 1 loop text1.text = str(n) text2.text = str(x) text3.text = val(text1.text) + val(text2.text) end sub 文件框 text3 的结果是： 3. private sub command1_click() dim sum1 as integer, sum2 as integer sum1 = 0: sum2 = 1 for i = 1 to 4 for j = 1 to i sum2 = sum2 * j next j sum1

14、 = sum1 + sum2 next i print sum1 end sub 写出程序运行时单击命令按纽后，窗体上的输出结果。 4. private sub command1_click() 7 dim x as integer static s as integer x = val(inputbox(请输入一个正整数=) if x 3 then a = a + 4 else a = a + 1 end if next i print i, a end sub 写出程序运行时单击窗体后，form1 上的输出结果。 10. sub change(byval x as integer, byv

15、al y as integer) dim t as integer t=x x=y y=t print x,y end sub 9 private sub form_click() dim a as integer, b as integer a = 3: b = 4 change a, b printa,b end sub 写出程序运行时单击窗体后，form1 上的输出结果 11. private sub form_click( ) static sumas integer i=1 while i form1.scaleheight then 4 else r = form1.scalewi

16、dth 5 fillstyle =6 fillcolor = rgb(0, 0,255) 7 end sub 五、编写程序题五、编写程序题 1请根据下列描述编写购物优惠程序。 某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在 100 元以上者，按九五折优惠； （2）在 200 元以上者，按九折优惠； 在窗体上添加两个文本框和一个命令按钮， 要求在 text1 中输入购物商品总金额， 单击 命令按钮，在 text2 中输出优惠价。程序运行结果如图 1 所示。程序运行界面如图 6 所示。 15 图 6 2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本

17、框。要求 程序运行后，驱动器列表框 drive1 的默认驱动器设置为 d 盘，选择 file1 中所列的图片文件 （*.bmp,*.gif 和*.jpg）,则相应的图片显示在图片框 picture1 中，文件的路径显示在文本框中。 程序运行结果如图 7 所示。 图 7 3使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图 8 所示。基 本逻辑是：假设在以 d 盘的根目录下有一个名为 exam.txt 的文本文件。当点击“打开”按钮 (command1)时，程序将 exam.txt 文件中的内容显示在文本框(text1)中，当点击“新建”按钮 (command2)时，清空 text

18、1 中的内容；用户可以在 text1 中进行编辑操作，当点击“保存” 按钮(command3)时， 将text1中的内容保存在exam.txt文件中。 当点击 “退出” 按钮(command4) 时关闭本窗体。 16 图 8 答答 案案 一、单项选择题一、单项选择题 1.a2.b3.c4.b5.c6.c7.a8.b9.b10.a11.b 12b13b14.d15.d16.b17.b18.d19.b20.b21.c 22.b23.a24b25.d26.b27.c28.a29. a30. a31.b 32.d33.d34.d35.b36.b37.b38.c39.c40.b41.b 42.a43.c

19、44.c45.b 二、填空题（每空二、填空题（每空 1 1 分，共分，共 1515 分）分） 1labeltextbox 210(1/2)*cos(50*3.14/180)， 或者sqr(10)*cos(50*3.14/180) 38 4. kill c:temp*.tmp 5. 逻辑错误 6. 400520 7execute 8true 912 10picture1. picture = loadprcture(picturefile.jpg) 11sin(x)2+sqr(x2-y2)/2 12dima(0to5,-2to5)as string 13.frm.bas.cls.vbp 14设计

20、运行中断 15所在的过程整个模块或窗体整个工程中所有的模块和所有的过程 16str(x)val(x)asc(x) 17actioncommondialogx 18ture 17 19. 工程工程属性form1.show 20右上 21abcd 22. 数据引擎 23tcp/ipudp 24dimadocn as connection 25外部数据库本地数据库远程数据库 26winsockinternet transferwebbrowser 27circle(500,500),300 28随机文件二进制文件 29变体型字符串型 30mousedown 事件mouseup 事件mousemove

21、 事件 三、阅读程序题三、阅读程序题（每小题（每小题 5 5 分，共分，共 2020 分）分） 1. s=10 2. 122 3 303 4 s= 6 s= 30 s= 120 5 12 6 6 7. x= 4 x= 5 8. a= 1,b=1 a= 2,b=1 9. 715 10. 43 34 11. 18 6 12 四、完善程序题（每题四、完善程序题（每题 1010 分，共分，共 2020 分）分） 1. 1list1.additem text1.text 2else 3list1.removeitem list1.listindex 4 修改 5 list1.text 6 false 7

22、 2. 1new recordset； 2select * from students order by 学号； 3adors.movenext； 4new connection； 5strdb 3 1 picture1.scale (-4, 2)-(4, -2) 2picture1.line (0, 2)-(0, -2) 3 - 4 -3.141 to 3.141 step 0.001 5 picture1.pset (i, cos(i) 4 17 2 line (0, form1.scaleheight / 2)-(0, -form1.scaleheight / 2) 3currentx = 0: currenty = 0 4r = form1.scaleheight 5end if 60 7circle (0, 0), r / 3 五、五、编写程序题（共编写程序题（共 1515 分）分） 参考答案： 1 private sub command1_click() dim x as single, y as single x = val(text1.text) if x 100 then 19 y = x else if x 200 then y = 0.95 * x else y = 0.9 * x end if text2.text = y