VB程序设计期末模拟试卷

1、vb程序设计期末模拟试卷 一、单项选择 （b ）1被对象所识别的动作与对象可执行的动作分别称为对象的_。 a方法、事件 b事件、方法 c事件、属性 d过程、属性（ c）2下列_是single型变量。 atime% bname$ csheight! dcxyz&（a ）3以下四个vb的变量名中，合法的是_。 ax23 b$re c len d3xy（ d）4在程序中使用 dim str1,str2 as long 语句对变量str1、str2进行声明后，下面正确的说法是_。 a. str1是整型，str2是长整型 b. str1是长整型，str2变体型 c. str1、str2都是长整型 d.

2、str1是变体型，str2是长整型（b ）5表达式(&o3631) and (“a”b”) 的结果是 _。 atrue bfalse c”&o3631ab” d&o3631（c ）6表达式“100” + 100 和表达式“100” & 100的值分别是_。 a200、200 b“100100”、“100100” c200、“100100” d“100100”、200（b ）7以下语句执行时，从键盘上输入zhao，并按回车键。执行结果是_。 dim a as string a=inputbox(input, , name) print a ainput bzhao cname d空字符串（b）8

3、语句print 4 + 5 6 * 7 / 8 mod 9的运行结果是_。 a4 b5 c6 d7（ d）9在窗体的通用段声明变量时，不能使用_ 关键字。 adim bpublic cprivate dstatic（c ）10表达式abs(-9) + len(i am a student) 的值是_。 a9 i am a student b9 i am a student c23 d出错（a ）11设a为整型变量，不能正确表达数学关系10 a 15的vb表达式是_。 a10 a 10 and a 15 dnot ( a=15)（b ）12在窗体的“通用”部分用private定义的变量，其作用域

4、是_。 a局部变量 b窗体/模块级变量 c全局变量 d静态变量（ b）13假设 a = good morning.，b = afternoon,boys.，则下列_表达式的结果等于good boys.。 aleft(a, 10) + right( b, 6) bleft(a, 5) + right( b, 5) cmid( a ,1, 5) + mid(b, 1, 6) dmid( a +b ,1, 11)（a ）14执行下面的程序段后，x的值为_。 x=3 for i = 1 to 10 step 2 x = x +i 3 next i a3 b10 c-1 d4（ a）15在窗体上添加一个

5、名称为command1的命令按钮，然后编写如下程序： private sub command1_click() dim a as integer static b as integer cls b = 2 b = b + 3 a = 3 + a print a, b end sub程序运行时，三次单击命令按钮command1后，窗体上显示的结果为_。 a3 5 b6 6 c9 5 d3 3（d ）16下列_事件不属于文本框的事件。 achange bkeypress clostfocus ddropdown（b ）17在程序中可以通过复选框和单选按钮的_属性值来判断它们的当前状态。 acapt

6、ion bvalue cchecked dselected（c）18决定窗体标题条显示内容的属性是_。 atext bname ccaption dbackstyle（ c）19用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_。 alist blistindex ctext dlistcount（b ）20在窗体上有两个文本框控件，名称分别为text1和text2，以下程序实现的功能是希望在文本框text1中输入字符时，输入的字符也将出现在text2文本框中。下划线处应填_。 private sub text1_() text2.text = text1.text end su

7、b asetfocus bchange cgetfocus dclick（c ）21要把名称为list1的列表框中当前选中的一项删除，应执行_语句。 alist1.clear blist1.delete list1.listindex clist1.removeitem list1.listindex dlist1.clear list1.listindex（c ）22要使文本框能显示多行文字，则需设定它的_属性为true。 acaption bpasswordchar cmultiline dvalue（c ）23列表框的_属性代表着列表框中项目的总数目。 alist blistindex

8、clistcount dselected（d ）24用下面语句定义的数组元素个数是_。 dim arr1(-2 to 6) as integer a6 b7 c8 d9（d ）25当form1_click事件发生时，程序的输出结果是_。 private sub form_click() dim m as integer, k as integer, t as integer m = 6: k = 8 select case m case is 10 m = k mod 3 end select print m, k, t end sub a6 6 8 b6 8 6 c8 6 8 d8 6 6（

9、a ）26假定有以下程序段： for i = 1 to 3 for j = 5 to 1 step 1 print i * j next j,i则语句print i * j 的执行次数是_。 a15 b16 c17 d18（b ）27当拖动某对象a经过对象b时，将会发生对象b的_事件。 adragdrop bdragover cdragdown ddrag（a ）28参数传递有按值传递和按地址传递，_关键字表示按值传递。 abyval bbyref cvalue drefrence（ a）29当form_click事件发生时，写出在窗体上显示的第二行和第三行是_。 private a as i

10、nteger, c as integer private sub form_click() dim a as integer, b as integer a = 10: b = 10: c = 10 print a, b, c call test1(a, b) print a, b, c end sub private sub test1(m as integer, byval n as integer) dim c as integer m = 5: n = 5: c = 5 print m, n, c end sub a5 5 5 5 10 10 b5 5 5 5 5 10 c5 5 10

11、 5 10 10 d5 5 5 10 10 10（c ）30如果想要名为menuitem1的菜单项在运行时变灰显示，则应执行_语句。 amenuitem1.enabled = true bmenuitem1.checked = true cmenuitem1.enabled = false d menuitem1.visible = false二、填空题1设置对象属性的方法有两种，其一是在设计阶段，在_属性窗口_中直接修改相应属性的值；其二是在应用程序运行时，通过_赋值语句_来动态设置。2书写程序时，要在一行内写多个语句，语句间用_，_间隔；语句前有一个 (单引号)的语句是_注释_语句。3写出

12、数学式的vb表达式_。4当用户增加、删除或修改文本框（textbox）的内容时，都会触发文本框的_事件。5inputbox函数返回值的类型为_string_。6可使用列表框的_additem_方法向列表框中增加一个项目。7要使文本框text1中显示的字符为宋体，使用的语句是_fontname=宋体_。8组合框有三种不同的风格：下拉式组合框、_简单组合框_和下拉式列表框，可通过它的_style_属性进行设置。9计时器事件之间的时间间隔通过_interval_属性设置。10某菜单项显示出来的标题为“文件（f）”，那么在菜单编辑器中输入的标题应为_。11在vb中，有三种文件访问的类型：顺序访问、_随

13、机访问_和二进制访问。12当采用手工拖放模式时，需要使用_方法来实现控件的拖放操作。13在visual basic中，通用过程分为两类，function和_sub_。14visual basic的数组下标的下界默认为_0_，可通过_opertionbase1_语句使数组下标从1开始。15表达式abs(-32) + int(-23.02)的值为_8_。16下列程序执行时，从键盘上依次输入123和456，则程序的输出结果是123456 private sub form_click() a=inputbox(请输入第一个整数) b= inputbox(请输入第二个整数) print a + b en

14、d sub 三、按要求填空 1.下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空： const password=12345678 dim inpass as string inpass=_(请输入你的密码，输入密码) if inpass=password then exit sub else msgbox 对不起！你是非法用户。 unload me end if2.以下程序的输出结果是_13_。 x=12.7 x=int(x +0.5) print x3. 下面程序的功能是求100999之间的所有素数，所谓素数是指只能被1和它本身整除的数。 private s

15、ub form_click() dim i as integer dim k as integer for i = 100 to 999 for k = 2 to i - 1 if _i mod k = 0_ then _ exit for_ end if next k if _k = i_then print i end if next i end sub4.下列程序的功能是：单击窗体时将随机生成12个三位正整数，分别赋给3*4的数组，找出数组中最大元素，并指出该元素所在的行和列。请填空。 option base 1 private sub form_click() dim a(3, 4)

16、as integer, i as integer, j as integer dim max as integer, max_i as integer, max_j as integer randomize for i = 1 to 3 for j = 1 to 4 a(i, j) = int(999 - 100) * rnd) + 100 next j next i max = _ a(1, 1)_: max_i = 1: max_j = 1 for i = 1 to 3 for j = 1 to 4 if _ a(i, j) max_ then max = a(i, j) max_i =

17、i max_j = j end if next j next i print max, max_i, max_j end sub5. 编写一个对列表框进行项目添加、修改和删除操作的应用程序，如图1所示。列表框（名为lstbooks）中的选项在form_load事件中加载。“添加”按钮（cmdadd）的功能是将文本框（txtitem）中的内容添加到列表框中，“删除”按钮（cmddelete）的功能是删除列表框中选定的项目。如果要修改列表框中的选项，可先选定选项，然后单击“修改”(cmdmodify) 按钮，所选的项目显示在文本框（txtitem）中，当在文本框中修改完之后，单击“确定修改”按钮（

18、cmdmodifty_ok）将更新列表框。程序运行之初，“确定修改”按钮是处于无效状态（灰色）。程序代码如下，请填空。图1 private sub cmdadd_click() lstbooks._ txtitem txtitem.text = end sub private sub cmddelete_click() lstbooks.removeitem _ end sub private sub cmdmodify_click() txtitem.text = lstbooks.text txtitem.setfocus cmdadd.enabled = false cmddelete.

19、enabled = false cmdmodify.enabled = false cmdmodify_ok.enabled = _ end sub private sub cmdmodify_ok_click() lstbooks.list(_) = txtitem cmdmodify_ok.enabled = false cmdadd.enabled = true cmddelete.enabled = true cmdmodify.enabled = true txtitem.text = end sub private sub form_load() lstbooks.additem

20、计算机文化基础 lstbooks.additem vb6程序设计教程 lstbooks.additem 操作系统 end sub6.窗体中有命令按钮command1，当程序运行时，只要鼠标移到命令按钮上，该按钮就会随机移动到新位置，用户很难用鼠标单击到它。请补充完善以下程序： private sub command1_mousemove() x = abs(rnd(1) * form1.width - command1.width) y = abs(rnd(1) * form1.height - command1.height * 2)_ command1.move x, y_ end sub7.