东北大学15春学期《可视化程序设计Ⅰ》在线作业及满分答案

1、东北大学 15 春学期可视化程序设计在线作业及满分答案一、单选题（共20 道试题，共100 分。 ）1. 在窗体中添加一个通用对话框commondialog1和一个命令按钮command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（ ）a. private sub command1_click()commondialog1.showend sub b. private sub command1_click()open commondialog1.showcolorend sub c. private sub command1_click()commondialog1.showfont

2、end sub d. 正确答案： b 2. 在窗体上画一个名称为list1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为a. a) for i=0 to list1.listcount-1b. b) for i=0 to listcount-1 nextc. c) for i=1 to list1.listcount nextd. d) for i=1 to listcount next正确答案： a 3. 在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程：private sub command1_click()x = -5if sgn(x) then

3、 y = sgn(x 2)else y = sgn(x)end ifprint yend sub程序运行后，单击命令按钮，窗体上显示的是a. -5 b. 25 c. 1 d. -1 正确答案： c 4. 设有如下的类型声明type person name as string*8 major as string*20 end type当单击 “ 保存 ” 按钮时，将两个文本框中的内容写入一个随机文件test29 dat 中。设文本框中的数据已正确地赋值给person类型的变量 p。则能够正确地把数据写入文件的程序段是a. open”c：test29 dat for random as#1 put

4、 #1，1，p close #1 b. open c:test29.dat for random as #1get#1 ，1，pc10se #1 c. open ctest29 dat for random as #1 lenlen(p)put #1，1，p close #1 d. open c： test29 dat for random as #1=len(p)get #1 ，1，p close #1 正确答案： c 5. 在窗体上有一个文本框控件，名称为txttime ：一个计时器控件，名称为 timerl ，要求每一秒钟在文本框中显示一次当前的时间。程序为：private sub ti

5、mer1_ ()txttime.text=timeend sub在下划线上应填入的内容是a. enabled b. visible c. interval d. timer 正确答案： d 6. 假定窗体上有一个text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为a. text1.alignment=1: text1.borderstyle=0 b. text1.alignment=2: text1.borderstyle=1 c. text1.alignment=1 : text1.borderstyle=1 d. text1.alignment=2 : text1.b

6、orderstyle=0 正确答案： d 7. 在窗体上画一个命令按钮，名称为command1。然后编写如下程序：private sub command1_click() for i=1 to 4 for j=0 to 1 print chr$(65+i); next j print next i end sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是a. bb cc dd ee b. a bb ccc ddd c. b cc dd eee d. aa bbb cccc dddd 正确答案： a 8. 假定窗体上有一个标签，名为labell ，为了使该标签透明并且没有边框，则正确

7、的属性设置为a. label1. backstyle=0label1.borderstyle=0 b. label1.backstyle=1label1.borderstyle=1 c. label1.backstyle=truelabel1.borderstyle=true d. label1.backstyle=falselabel1.borderstyle=false 正确答案： a 9. 在窗体上画一个名称为command1的命令按钮和一个名称为text1的文本框，然后编写如下程序：private sub command1_click()dim x,y,z as integerx=5y

8、=7z=0text1.text=“” call p1(x,y,z)text1.text=str(x)end subsub p1(byval a as integer,byval b as integer,c as integer)c=a+bend sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是a. 0 b. 12 c. str(z) d. 没有显示正确答案： b 10. 在窗体上画一个名称为command1的命令按钮和三个名称分别为label1 、label2 、label3的标签，然后编写如下代码private x as integerprivate sub command1_

9、click()static y as integerdim z as integern=10z=n+zy=y+zx=x+zlabel1.caption=xlabel2.caption=ylabel3.caption=zend sub运行程序， 连续三次单击命令按钮后，则三个标签中显示的内容分别是a. 10 10 10 b. 30 30 30 c. 30 30 10 d. 10 30 30 正确答案： a 11. 要获得当前驱动器应使用驱动器列表框的哪个属性？（）a. path b. drive c. dir d. patten 正确答案： b 12. 下列关于过程叙述不正确的是（）a. 过程的

10、传值调用是将实参的具体值传值递给形参b. 过程的传址调用是将实参在内存的地址传递给形参c. 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的d. 无论过程传值调用还是过程传址调用，参数传递都是双向的正确答案： c 13. (1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是a. a) 工程资源管理器窗口b. c. b) 工具箱窗口 d. c) 代码窗口e. 正确答案： c 14. 关于 paintpicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是a. dx,dy为传送源左上角坐标 b. dx,dy为传送目标左上角坐标 c. sw

11、,sh为传送目标的大小 d. dw,dh为传送源的大小 正确答案： b 15. 以下叙述中错误的是a. 一个工程可以包括多种类型的文件b. visual basic应用程序既能以编译方式执行，也能以解释方式执行c. 程序运行后，在内存中只能驻留一个窗体d. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样正确答案： c 16. 设在菜单编辑器中定义了一个菜单项，名为menu1 。为了在运行时隐藏该菜单项，应使用的语句是a. menu1.enabled=true b. munu1.enabled=false c. menu1.visible=true d. menu1.visible=fa

12、lse 正确答案： d 17. 假定有如下的 sub 过程：sub s（x as single,y as single）t = xx =t/y y =t mod yend sub在窗体上画一个命令按钮， 然后编写如下事件过程： private sub commandl_click ( )dim a as singledim b as singlea =5b =4s a,b print a,bend sub程序运行后，单击命令按钮，输出结果为a. 5 4 b. 1 1 c. 1.25 4 d. 1.25 1 正确答案： d 18. 以下叙述中错误的是a. 如果过程被定义为static类型，则该过

13、程中的局部变量都是static类型b. sub 过程中不能嵌套定义sub 过程c. sub 过程中可以嵌套调用sub 过程d. 事件过程可以像通用过程一样由用户定义过程名正确答案： c 19. 在窗体上画一个名称为command1的命令按钮和一个名称为text1的文本框，然后编写如下事件过程：private sub command1_click() n = val(text1.text) for i = 2 to n for j = 2 to sqr(i) if i mod j = 0 then exit for next j if j sqr(i) then print i next iend sub该事件过程的功能是a. 输出 n 以内的奇数b. 输出 n 以内的偶数c. 输出 n 以内的素数d. 输出 n 以内能被 j 整除的数正确答案： c 20. 对窗体编写如下事件过程：private sub form _mousedown(button as integer, _ shift as integer, x as single