VB程序设计试卷B及答案

1、系部_ 班级_ 姓名_ 学号_-密-封-线- vb程序设计试卷（b卷）（时间90分钟 满分100分） 题号一二三四五合计分数阅卷人一、选择题：（30分，每题2分）阅卷人得分1、下列事件中，（ ）事件系统不会自动触发？a、unload b、load c、initialize d、click 2、当鼠标指向窗体上某个控件如命令按钮时，显示提示信息，如图2所示，可通过设置该控件的（ ）属性完成？图2a、 default b、 mouseicon c、 tooltiptext d、 imemode3、函数int(rnd()*100)是在哪个范围内的整数？a、（1，100） b、（0，100） c、（0

2、，10） d、（1，10）4、下列控件中可自动设置滚动条是（ ）。a文本框 b框架 c复选框 d标签5、执行print iif（len(“abc”)4,”a”,”b”）输出的结果是（ ）a、语句错误，不能输出 b、3 c、a d、b6、执行msgbox后显示结果如图2-4所示，msgbox正确的写法是：（ ）图2-4a、 msgbox 北京科技大学远程教育欢迎您, vbquestion, 欢迎b、msgbox 北京科技大学远程教育欢迎您, vbexclamation, 欢迎c、 msgbox 北京科技大学远程教育 & chr(13) & 欢迎您, vbquestion, 欢迎d、 msgbox

3、 北京科技大学远程教育 & chr(13) & 欢迎您, vbexclamation, 欢迎7、要将列表框list1的第3项内容显示在文本框text1中，可使用的语句是：（ ）a、 text1.text=list1.listcount b、 text1.text=list1.list(3)c、 text1.text=list1.list(2) d、text1.text=list1.listindex8、窗体运行后，要使窗体自动显示在屏幕的中央位置，应设置窗体的（ ）属性？a.windowstate b. startupposition c.icon d. mousepointer9、下面（ ）

4、不是算术运算符？a、not b、 mod c、 + d、 /10、下面正确的赋值语句是（ ） a、y=x+30 b、y= *r*r c、x+y=30 d、3y=x11、对于窗体，下面（ ）属性在运行时其属性设置起作用？a、maxbutton b、left c、name d、borderstyle12、在代码窗口内将表单form1的“caption”属性设置为“时钟”,正确的书写形式是() a、 form1.caption“时钟” b、 form1.caption( “时钟”) c、 caption=“时钟” d、form1.caption=“时钟”13、在vb中，如要创建“年级”和“班级”两组

5、单选按钮，具体的做法是（ ）a、先创建“单选按钮”，然后用“框架”分别框住b、先创建“框架”，然后在“框架”中创建“单选按钮”c、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中d、以上方法均可14、任何控件都具有（ ）属性？a、text b、caption c、forecolor d、name15、要使命令按钮不可操作，要对（ ）属性设置？a、 visible b、caption c、backcolor d、enabled 二、填空题：（10分，每题2分）阅卷人得分16、传递参数时，默认的方式是 传递。17、可以使用 语句创建用户自定义的类型，该语句必须置于模块的声明部分

6、。18、随机文件的打开，其语句是： 。19、设置对象的 属性可以改变坐标系统的单位。20、通过记录集的 方法，可以为可更新的记录集对象创建一条新的空记录。三、判断题：（30分，每题1.5分，对打“”，错打“”）阅卷人得分21、要将选项按钮设计成图形按钮的形式，要将该选项按钮的style属性设置为0-graphical？（ ）22、vb中的控件有三种类型，分别是内部控件、activex控件和可插入对象。（ ）23、定义aa 为一个10个字符的字符串，使用语句dim aa as string*10。（ ）24、要强制使用变量声明，使用语句option explicit。（ ）25、输入对话框inp

7、utbox的返回值的数据类型是：字符串。（ ）26、为了使标签能够自动调整以适应内容的多少，必须将标签的autosize属性设置为true？（ ）27、msgbox 函数提供了3个参数，它们是提示信息、按钮类型、标题。（ ）28、设置控件的tabindex属性，改变控件接收焦点的顺序。（ ）29、使用inputbox函数显示一个接受用户输入的对话框。（ ）30、对于数组或者集合中的每一个元素重复循环体，而不知道集合中有多少个元素，适合使用for next循环。（ ）31、当改变数组大小而又想不打丢失数组中的数据，在使用dim 语句中要使用preserve。（ ）32、vb中的过程包括有事件过程

8、和通用过程。（ ）33、在定义通用过程时，缺省状态下所有模块中的子过程为public，如果选用private，则只有该过程所在的模块中的程序才能调用该过程。（ ）34、菜单一般分两种：下拉式菜单和弹出式菜单。（ ）35、目录列表框的path属性，用于返回或者设置当前的路径。（ ）36、已经定义了弹出式菜单mypop，要显示此菜单，需要使用的语句是：popupmenu mypop。（ ）37、用户可以设置菜单项的enabled属性为false使该菜单项失效。（ ）38、vb提供了两种绘图方式，一种是使用绘图控件，而另一种是使用绘图方法。（ ）39、vb中可以使用的数据访问接口有3种，分别是ado

9、、rdo和dao。（ ）40、access数据库的扩展名是dbf。（ ）四、程序阅读：（12分，每题6分）阅卷人得分41、写出下边程序运行后，连续单击4次窗体private sub form_click()static a as integerdim b as integerb=a+b+1a=a+bform1.print “a=”;a,”b=”;bend sub在form1上输出的结果是( )42、有数组a(i)(i=1,2,10 )，求a(i)中最大元素及其下标max=a(1)for i=2 to 10if a(i)max then end ifnextprint “数组中最大元素是” &m

10、ax &”其下标为” &p五、编写程序：（18分，每题9分）阅卷人得分43、设计一个计时器timer1，能够根据文本框text1中输入的分钟数，单击“开始”按钮，显示倒计时时间,程序运行后结果如图4所示。要写出设置的对象的属性和程序的事件过程。 图4设置的属性和值如下：对象属性属性值timer1timer1timer144、分别在下边事件过程中写出程序代码，实现功能如下：运行后在文本框text1中显示“北京科技大学”；实现当鼠标移动到文本框时，自动选中文本框中的全部内容，并且自动打开中文输入法；程序运行后，单击命令按钮欢迎，显示图1右边所示的对话框（显示的学校名是text1中输入的内容）图1

11、vb程序设计试卷（b卷）答题纸（时间90分钟 满分100分） 题号一二三四五合计分数阅卷人一、选择题：（30分，每题2分）阅卷人得分12345dcbad678910dcbaa1112131415bdbdd二、填空题：（10分，每题2分）阅卷人得分16、 按址 17、 type 18、open for random as 1# len=记录长度 19、 scalemode 20、 addnew 三、判断题（30分，每题1.5分）阅卷人得分2122232425262728293031323334353637383940四、程序阅读：（12分，每题6分）阅卷人得分41、a=1 b=1 a=3 b=2

12、 a=7 b=4 a=15 b=8 42、 max=a(i)p=i五、编写程序：（18分，每题9分） 阅卷人得分43、设计一个计时器timer1，能够根据文本框text1中输入的分钟数，单击“开始”按钮，显示倒计时时间,程序运行后结果如图4所示。要写出设置的对象的属性和程序的事件过程。 图4设置的属性和值如下：对象属性属性值timer1timer1timer1对象属性属性值timer1interval1000timer1enabled falsetimer1tag0private sub command1_click()timer1.enabled = truetimer1.tag = tex

13、t1.text * 60frame1.caption = 开始倒计时end subprivate sub timer1_timer()timer1.tag = timer1.tag - 1m = timer1.tagif m 0 then timer1.enabled = false msgbox 倒计时时间到 frame1.caption = 输入倒计时的分钟数 text1.text = 0 exit subend ifn1 = format(m mod 60, 00)n2 = format(m 60, 00:)n3 = format(m 3600, 00:)text1.text = n3 & n2 & n1end sub44、分别在下边事件过程中写出程序代码，实现功能如下：运行后在文本框text1中显示“北京科技大学”；实现当鼠标移动到文本框时，自动选中文本框中的全部内容，并且自动打开中文输入法；程序运行后，单击命令按钮欢迎，显示图1右边所示的对话框（显示的学校名是text1中输入的内容）private sub form_load()text1.text = 北京