北科大VB考试内部资料及答案.docx

1、北科大VB考试内部资料及答案北科大VB考试内部资料及答案一、填空题（1）VB中有两种类型的字符串；分别是变长字符串和定长字符串 。（2）定义aa 为一个10个字符的字符串，使用语句dim aa as string*10（3）对象变量赋值，必须使用关键字set 。（4）要强制使用变量声明，使用语句option explicit。（5）使用public语句声明公有的模块级变量。（6）为了建立应用程序都有效的变量，应该在标准模块中进行变量声明。（7）在VB中，对于没有声明的变量，其默认的数据类型是variant。（8）如果今天是星期五，那么print weekday(now()输出的结果是6。（9）

2、输入对话框inputbox的返回值的数据类型是：字符串。（10）msgbox 函数提供了3个参数，它们是提示信息、按钮类型、标题。（11）使用print方法可以将信息直接输出到窗体或者picturebox中。（12）控制窗体或者标签的背景色和前景色，可能过forecolor属性和backcolor属性完成。（13）程序中要将label1的标题改为“开始”，使用的语句是：=”开始”。（14）为了使标签能够自动调整以适应内容的多少，必须将标签的autosize属性设置为true？（15）为了使caption属性有内容自动换行并垂直扩充，要将标签的wordwrap属性设置为true？16）卸载窗体可

3、以使用语句unload me完成？（17）文本框控件显示的文本通过text属性控制？（18）要将文本框text1的内容设置为只读，可使用语句：=true完成。（19）在设计程序时改变文本框的multiline属性和scrollbars属性，可使文本框显示多行并且出现滚动条？（20）当文本框的内容发生改变时，会触发change事件？（21）当控件得到焦点时触发gotfocus事件，失去焦点时触发lostfocus事件？（22）程序执行时，将焦点停在text1上，可在窗体的activate事件中写入代码：（23）设置控件的tabindex属性，改变控件接收焦点的顺序。（24）文本框的selstar

4、t属性，设置所选择文本框的起始点，sellength属性设置或者返回所选择的字符数？这二个属性只能程序代码完成。（25）使用inputbox函数显示一个接受用户输入的对话框。（26）设置窗体frm1成为有模式对话框，使用的语句是： 1（27）命令按钮要使用picture属性生效，还应设置其style属性为1:graphic。（28）设置时钟控件的interval属性，指定了两个timer事件之间的毫秒数。（29）关闭计时器timer1，使用的语句是=false。（30）要将选项按钮设计成图形按钮的形式，要将该选项按钮的style属性设置为1-graphical？（31）复选框的状态由其valu

5、e属性决定？（32）通过程序代码要将命令按钮command1隐藏，使用的语句为：=false（33）编程求某班60个同学某门课程考试平均成绩及高于平均成绩的学生人数，数据的输入是通过inputbox来实现的，程序为：const num=60dim a(num) as integer,aver as single,n as integersum=0for I=1 to numa(i)=val(inputbox(“输入第(”&I&”)个学生的成绩”)sum=sum+a(i)next Iaver=sum/numn=0for I=1 to num if a(i)aver then n=n+1nextp

6、rint “全班平均成绩：” &aver &”共有” &n &”个同学的成绩高于平均成绩”（34）VB中的过程包括有事件过程和通用过程。（35）在定义通用过程时，缺省状态下所有模块中的子过程为public，如果选用private，则只有该过程所在的模块中的程序才能调用该过程。（36）使用listcount返回列表框中项目的数量（37）调用通用过程add(5,6)时，使用的语句是call add(5,6)或者 add 5,6。（38）一个控件的事件过程将控件的实际名、下画线和事件名组合起来。（39）下边是计算任意整数n的阶乘的function过程factfunction fact(x as in

7、teger) as long dim p as long,I as longp=1for I=1 to xp=p*Inext Ifact=pend function（40）VB中代码存储在3种不同的模块中：窗体模块、标准模块和类模块。（41）窗体保存在扩展名为.frm的文件中。（42）根据变量声明的位置，就是分两类：过程级变量和模块级变量。（43）声明x为私有的模块级变量，其数据类型为整型，使用的语句为：private x as integer或者dim x as integer（44）窗体上增加公用对话框cmdlg1，要显示“打开”对话框，使用的语句是：（45）使用公用对话框的filter属

8、性，设置显示文件的类型。（50）菜单编辑器中，同层次的name设置为相同，才可以设置索引值。（51）菜单项可以响应的事件过程为click。（52）用户可以通过设置菜单项的visible属性值为false来使该菜单项不可见。（53）用户可以设置菜单项的enabled属性为false使该菜单项失效。（54）数据表是由多列多行构成的集合、每列称为一个字段，每行称为一条记录。（55）VB中可以使用的数据访问接口有3种，分别是ADO、RDO和DAO。（56）Access数据库的扩展名是mdb（57）从b1中查询“基本工资”大于2600元的语句是：select * from b1 where基本工资260

9、0。（58）为b1中插入编号为“150”，姓名为“赵六”，性别为“女”，基本工资为2000元的记录，相应的SQL语句为：insert into b1(编号，姓名，性别，基本工资) values(“150”,” 赵六”,”女”,2000)或者：insert into b1 values(“150”,” 赵六”,”女”,2000)。（59）通过连接对象的execute方法，可对连接执行各种操作。（60）指示当前记录指针位置是否位于首记录前，使用记录集的BOF属性；指示是否位于末记录尾，使用记录集的EOF属性。（61）通过记录集的addnew方法，可以为可更新的记录集对象创建一条新的空记录。（62）

10、保存对当前记录的修改，可以通过记录集的update方法完成。（63）建立连接对象cnn，要通过命令打开到数据源的连接，连接到当前工程目前下的，语句为： “provider=&”或者是： “dbq=” & &”;driver=microsoft access driver (*.mdb)”如果使用的是SQLserver数据库，如何写？ “provider=服务器名;uid=用户名;pwd=密码”二 选择题1 “x是小于100的非负数”，用VB表达式表示正确的是（ ）0x and x4,”A”,”B”）输出的结果是（ ）（A）语句错误，不能输出 （B）B （C）A （D）36 函数Int(Rnd(

11、)*10)是在哪个范围内的整数？（1）（0，1） （2）（1，10） （3） 0，10 （4）0，97 下面哪组语句可以将变量A和B的值互换？（1） A=B: B=A （2） A=A+B:B=A-B:A=A-B（3）A=(A+B)/2: B=(A-B)/2 （4）A=C:C =B:B=A8 执行inputbox后显示效果如下图所示，将输入结果保存在变量x中，inputbox正确的写法为：图2-3（1）x = InputBox(您年龄几何？, 调查, 30)（2）x = InputBox(调查, 您年龄几何？, 30)（3）x = InputBox 调查,您年龄几何？, 30（4）x = Inp

12、utBox 您年龄几何？, 调查, 309 执行msgbox后显示结果如图所示，msgbox正确的写法是：（1）MsgBox 北京科技大学远程教育欢迎您, vbQuestion, 欢迎（2）MsgBox 北京科技大学远程教育 & Chr(13) & 欢迎您, vbExclamation, 欢迎（3）MsgBox 北京科技大学远程教育 & Chr(13) & 欢迎您, vbquestion, 欢迎（4）MsgBox 北京科技大学远程教育欢迎您, vbExclamation, 欢迎10 当文本框中的内容发生改变时，会触发下边（ ）事件？（1）mousemove （2）Click（3）Change（

13、4）Lostfocus11 下边（ ）属性表示文本框中被选择内容的字符长度？（1）Selstart（2）sellength（3）Seltext（4）maxlength12 复选框的（ ）属性有三种状态，0：表示未选中；1表示选中，2表示禁用？（1）Style （2）TooltipText （3） value （4）enabled13 在设置命令按钮的Caption时，使用（ ）可以指定快捷键？（1） （2） （3）& （4）&14 要将列表框list1的第3项内容显示在文本框text1中，可使用的语句是（ ）：（1）= （2）=(3)（3）= （4）=(2)15 在使某个对象能够拖动，应该将该

14、对象的（ ）属性设置为1？（1）dragmode （2）icon （3）dragicon （4）mousepointer16要对文本框text1中输入的数据完成数据验证，实现当输入的数据不合要求时，焦点离不开该文本框，应该在该文本框的（ ）事件中编写程序代码？（1）lostfocus (2)gotfocus (3)click (4)validate17 哪个程序段不能分别正确显示1!、2！、3！、4！的值（ ）？（1）for I=1 to 4 （2）for I=1 to 4 n=1 for j=1 to ifor j=1 to I n=1 n=n*j n=n*j next j next jpr

15、int n print nnext I next I （3）n=1 （4）n=1:j=1for j=1 to 4 do while jy,x,y) （2）if xy then max=x else max=y（3）max=x （4）if y=x then max=yif yx then max=y max=x三 程序段1 填写程序代码（1）分别在下边事件过程中写出程序代码，实现功能如下：运行后在文本框text1中显示“北京科技大学”；实现当鼠标移动到文本框时，自动选中文本框中的全部内容，程序运行后，单击命令按钮“欢迎”，显示图1-1右边所示的对话框（显示的学校名是text1中输入的内容）图1-

16、1（2） 编写程序，在文本框text1中输入一个整数并按回车键后，判断输入的整数是奇数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。（3）编写一个程序，要求用单击命令按钮要显示或隐藏文本框text1。运行后结果如图1-2所示。图1-2（4）窗体上有文本框控件数据text1(0),text1(1),text1(20)，如果要设置其字号为3号，程序语句为：（5）单击窗体，在窗体的中央，画一半径为20的圆。Private Sub Form_Click() = 100 = 100Circle (50, 50), 20End Sub通过此示例掌握scalewi

17、dth,scaleheight和画圆的方法四编程题（1） 时钟控件制作一移动的电子告示版，使其从左向右移动（2）窗体上放一个命令按钮command1，单击该按钮，在C：下边建立文件，并将字符串“北京科技大学”写入到该文件中。Private Sub Command1_Click()Open c: For Output As #1Write #1, 北京科技大学Close #1End Sub另外，需要掌握如何读取数据？看下例：将文本文件d:中的全部内容读出来，并输出在窗体上的文本框text1中。Open “d:” for input as #1A=”Do while eof(1)Line inpu

18、t #1,bA=a &b &chr(13) &chr(10)LoopClose #1=a（3）组合框和列表框利用循环结构和列表框控件，设计图1-4所示的窗体。要求程序运行后：1）自动在列表框中加入图中所示的项目2）通过命令按钮数组，可在两个列表框间移动项目。单击命令按钮组中的“”按钮，将list1选中的项目移动到list2，原list1中的项目删除。单击命令按钮组中的“”按钮，将list1全部项目移动到list2，原list1中的项目全部删除。单击命令按钮组中的“”按钮，将list2选中的项目移动到list2，原list2中的项目删除。单击命令按钮组中的“”按钮，将list2全部项目移动到li

19、st1，原list2中的项目全部删除。图1-4Private Sub Form_Load() 冰箱 洗衣机 微波炉 洗碗机 DVDEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case Index Case 0 i = 0 Do While i If (i) = True Then (i) (i) End If i = i + 1 Loop Case 1 For i = 0 To - 1 (i) Next Case 2 i = 0 Do While i If (i) = True Then (i) (i) End If i

20、= i + 1 Loop Case 3 For i = 0 To - 1 (i) Next End SelectEnd Sub（4）如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名及程序代码。必须将程序放在queryunload事件中。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(真的要关闭窗体, vbYesNo + vbQuestion) = vbYes ThenCancel = 0ElseCancel = 1End IfEnd Su

21、b（5）（6）数据库中有一个“职工工资”表，表中字段为：编号，部门，姓名，基本工资、岗位津贴，职务津贴，奖金，房租，其中编号，部门和姓名的字段类型为字符型，其余的是数值型。在窗体上增加一个“Microsoft datagrid Control” 控件datagrid1和组合框combo1，程序运行后，将职工工资表中职工的姓名加入到组合框中，如图1-7所示，单击“查询”命令按钮，在datagrid1中显示出该员工的工资情况，如图1-8所示。（假设已经引用了microsoft ActiveX Data object）。窗体通用过程中的代码：Private Sub Form_load()End su

22、bPrivate Sub command1_click()End sub图1-7图1-8面向对象程序设计一VB 练习题一、填空题（1）VB中有两种类型的字符串；分别是（ ）和定长字符串。（2）对象变量赋值，必须使用关键字（ ）。（3）要强制使用变量声明，使用语句（ ）。（4）在VB中，对于没有声明的变量，其默认的数据类型是（5）如果今天是星期三，那么print weekday(now()输出的结果是（ ）。（6）输入对话框inputbox的返回值的数据类型是：（ ）。（7）msgbox 函数提供了3个参数，它们是提示信息、（ ）、标题。（8）程序中要将label1的标题改为“开始”，使用的语句

23、是：（ ）。（9）卸载窗体可以使用语句（ ）完成？（10）结束应用程序，通过（ ）命令完成？（11）文本框控件显示的文本通过（ ）属性控制？（12）当文本框的内容发生改变时，会触发（ ）事件？（13）程序执行时，将焦点停在text1上，可在窗体的activate事件中写入代码：（ ）。（14）设置控件的（ ）属性，改变控件接收焦点的顺序。（15）设置窗体frm1成为有模式对话框，使用的语句是：（ ）（16）下边是计算任意整数n的阶乘的function过程factfunction fact(x as integer) as long dim p as long,I as longp=1for I

24、=1 to xp=p*Inext I（ ）end function（17）设置时钟控件的（ ）属性，指定了两个timer事件之间的毫秒数。（18）调用通用过程add(5,6)时，使用的语句是（ ）。（19）窗体上增加公用对话框cmdlg1，要显示“打开”对话框，使用的语句是：（ ）（20）VB中可以使用的数据访问接口有3种，分别是（ ）、RDO和DAO。（21）Trim函数的作用是（ ）（22）数学式sin25写成Visual Basic表达式是（ ）（23）已知A=“86”，则表达式val(left(a，3)+Mid(a，4，2)的值是( )（24）Print Format(“HELLO”,

25、“”)输入（ ）（25）Dim A(-3 to 5) As long定义的数组元素个数是（ ）（26）窗体属性：Startupposition、autoredraw、fontsize、borderstyle、icon、caption、方法：show、hide事件：load、queryunload、activate命令按钮：属性：caption（如何在标题文字的下画线？）、Value 、Cancel、 Default、 Enabled方法：setfocus二 选择题2要将复选框做成图形（即按钮）方式，需要改变复选框的（ ）属性（A）downpicture （B）style （C）picture（

26、D）tooltiptext3下边控件中哪个控件是不可见控件（ ）？（A）选项按钮（B）文本框（C）框架（D）时钟4时钟控件仅有一个事件，其事件名为（ ）？（A）initialize（B）unload （C）timer （D）click5执行print IIF（len(“abc”)4,”A”,”B”）输出的结果是（ ）（A）语句错误，不能输出 （B）B （C）A （D）36 函数Int(Rnd()*10)是在哪个范围内的整数？（A）（0，1） （B）（1，10） （C） 0，10） （D）0，97 下面哪组语句可以将变量A和B的值互换？（A） A=B: B=A （B） A=A+B:B=A-B:A

27、=A-B（C）A=(A+B)/2: B=(A-B)/2 （D）A=C:C =B:B=A10 下边（ ）属性表示文本框中被选择内容？（A）Selstart（B）sellength（C）Seltext（D）maxlength11 .如果x是一个正实数，对x的第2位小数四舍五入的表达式是（ ）。 A *Int(x+ B. *Int(100*(x+) C. *int(100*(x+) D. *Int(x十12 下列4个字符中进行比较，最小的是（ ）。 A.“9977” B. “Bl23” C. “Basic” D. “DATA”三、将文本文件d:中的全部内容读出来，并输出在窗体上的文本框text1中。

28、四、五SQL语句Update、select、delete、insert六、 七、单击窗体，在窗体的中央，画一半径为20的圆八、下边是计算任意整数n的阶乘的function过程fact，请写完该函数九、如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名（ ）及程序代码。十、编写程序，在文本框text1中输入一个整数并按回车键后，判断输入的整数是奇数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。练习题答案一（1）变长字符串（2）set（3）option explicit（4）variant（5）4（6）字符串（7）按钮类型（8）=”开始”（9）unload me（10）end（11）text（12）change（13）（14）tabindex（15） 1（16）fact=p（17）interval（18）call add(5,6)或者 add