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

《北科大VB考试内部资料及答案.doc》由会员分享，可在线阅读，更多相关《北科大VB考试内部资料及答案.doc（11页珍藏版）》请在三一办公上搜索。

1、北科大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）输入对话框inputbox的

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

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

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

5、形式，要将该选项按钮的style属性设置为1-graphical？（31）复选框的状态由其value属性决定？（32）通过程序代码要将命令按钮command1隐藏，使用的语句为：command1.visible=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(

6、i)next Iaver=sum/numn=0for I=1 to num if a(i)aver then n=n+1nextprint “全班平均成绩：” &aver &”共有” &n &”个同学的成绩高于平均成绩”（34）VB中的过程包括有事件过程和通用过程。（35）在定义通用过程时，缺省状态下所有模块中的子过程为public，如果选用private，则只有该过程所在的模块中的程序才能调用该过程。（36）使用listcount返回列表框中项目的数量（37）调用通用过程add(5,6)时，使用的语句是call add(5,6)或者 add 5,6。（38）一个控件的事件过程将控件的实际名、

7、下画线和事件名组合起来。（39）下边是计算任意整数n的阶乘的function过程factfunction fact(x as integer) 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

8、integer（44）窗体上增加公用对话框cmdlg1，要显示“打开”对话框，使用的语句是：cmdlg1.showopen（45）使用公用对话框的filter属性，设置显示文件的类型。（50）菜单编辑器中，同层次的name设置为相同，才可以设置索引值。（51）菜单项可以响应的事件过程为click。（52）用户可以通过设置菜单项的visible属性值为false来使该菜单项不可见。（53）用户可以设置菜单项的enabled属性为false使该菜单项失效。（54）数据表是由多列多行构成的集合、每列称为一个字段，每行称为一条记录。（55）VB中可以使用的数据访问接口有3种，分别是ADO、RDO和DA

9、O。（56）Access数据库的扩展名是mdb（57）从b1中查询“基本工资”大于2600元的语句是：select * from b1 where基本工资2600。（58）为b1中插入编号为“150”，姓名为“赵六”，性别为“女”，基本工资为2000元的记录，相应的SQL语句为：insert into b1(编号，姓名，性别，基本工资) values(“150”,” 赵六”,”女”,2000)或者：insert into b1 values(“150”,” 赵六”,”女”,2000)。（59）通过连接对象的execute方法，可对连接执行各种操作。（60）指示当前记录指针位置是否位于首记录前，

10、使用记录集的BOF属性；指示是否位于末记录尾，使用记录集的EOF属性。（61）通过记录集的addnew方法，可以为可更新的记录集对象创建一条新的空记录。（62）保存对当前记录的修改，可以通过记录集的update方法完成。（63）建立连接对象cnn，要通过命令打开到数据源的连接，连接到当前工程目前下的k1.mdb，语句为：cnn.open “provider=microsoft.jet.oledb.4.0;datasource=”&app.path&”k1.mdb”或者是：cnn.open “dbq=” &app.path &”k1.mdb;driver=microsoft access dri

11、ver (*.mdb)”如果使用的是SQLserver数据库，如何写？Cnn.open “provider=sqloledb.1.0;database=k1;server=服务器名;uid=用户名;pwd=密码”二 选择题1 “x是小于100的非负数”，用VB表达式表示正确的是（ ）0x and x4,”A”,”B”）输出的结果是（ ）（A）语句错误，不能输出 （B）B （C）A （D）36 函数Int(Rnd()*10)是在哪个范围内的整数？（1）（0，1） （2）（1，10） （3） 0，10 （4）0，97 下面哪组语句可以将变量A和B的值互换？（1） A=B: B=A （2） A=A+

12、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 = InputBox 您年龄几何？, 调查, 309 执行msgbox后显示结果如图所示，msgbox正确的写法是：（1）MsgBox 北京科技大学远程教育欢迎您, vbQuestion, 欢迎

13、（2）MsgBox 北京科技大学远程教育 & Chr(13) & 欢迎您, vbExclamation, 欢迎（3）MsgBox 北京科技大学远程教育 & Chr(13) & 欢迎您, vbquestion, 欢迎（4）MsgBox 北京科技大学远程教育欢迎您, vbExclamation, 欢迎10 当文本框中的内容发生改变时，会触发下边（ ）事件？（1）mousemove （2）Click（3）Change（4）Lostfocus11 下边（ ）属性表示文本框中被选择内容的字符长度？（1）Selstart（2）sellength（3）Seltext（4）maxlength12 复选框的（

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

15、的（ ）属性设置为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 jprin

16、t 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-1（

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

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

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

20、“”按钮，将list2选中的项目移动到list2，原list2中的项目删除。单击命令按钮组中的“”按钮，将list2全部项目移动到list1，原list2中的项目全部删除。图1-4Private Sub Form_Load()List1.AddItem 冰箱List1.AddItem 洗衣机List1.AddItem 微波炉List1.AddItem 洗碗机List1.AddItem DVDEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case Index Case 0 i = 0 Do While i List1.List

21、Count If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem (i) End If i = i + 1 Loop Case 1 For i = 0 To List1.ListCount - 1 List2.AddItem (List1.List(i) Next List1.Clear Case 2 i = 0 Do While i List2.ListCount If List2.Selected(i) = True Then List1.AddItem List2.List(i) Lis

22、t2.RemoveItem (i) End If i = i + 1 Loop Case 3 For i = 0 To List2.ListCount - 1 List1.AddItem (List2.List(i) Next List2.ClearEnd SelectEnd Sub（4）如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名及程序代码。必须将程序放在queryunload事件中。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(

23、真的要关闭窗体, vbYesNo + vbQuestion) = vbYes ThenCancel = 0ElseCancel = 1End IfEnd Sub（5）（6）数据库k1.mdb中有一个“职工工资”表，表中字段为：编号，部门，姓名，基本工资、岗位津贴，职务津贴，奖金，房租，其中编号，部门和姓名的字段类型为字符型，其余的是数值型。在窗体上增加一个“Microsoft datagrid Control” 控件datagrid1和组合框combo1，程序运行后，将职工工资表中职工的姓名加入到组合框中，如图1-7所示，单击“查询”命令按钮，在datagrid1中显示出该员工的工资情况，如图

24、1-8所示。（假设已经引用了microsoft ActiveX Data object）。窗体通用过程中的代码：Private Sub Form_load()End subPrivate Sub command1_click()End sub图1-7图1-8面向对象程序设计一VB 练习题一、填空题（1）VB中有两种类型的字符串；分别是（ ）和定长字符串。（2）对象变量赋值，必须使用关键字（ ）。（3）要强制使用变量声明，使用语句（ ）。（4）在VB中，对于没有声明的变量，其默认的数据类型是（5）如果今天是星期三，那么print weekday(now()输出的结果是（ ）。（6）输入对话框in

25、putbox的返回值的数据类型是：（ ）。（7）msgbox 函数提供了3个参数，它们是提示信息、（ ）、标题。（8）程序中要将label1的标题改为“开始”，使用的语句是：（ ）。（9）卸载窗体可以使用语句（ ）完成？（10）结束应用程序，通过（ ）命令完成？（11）文本框控件显示的文本通过（ ）属性控制？（12）当文本框的内容发生改变时，会触发（ ）事件？（13）程序执行时，将焦点停在text1上，可在窗体的activate事件中写入代码：（ ）。（14）设置控件的（ ）属性，改变控件接收焦点的顺序。（15）设置窗体frm1成为有模式对话框，使用的语句是：（ ）（16）下边是计算任意整数n

26、的阶乘的function过程factfunction fact(x as integer) as long dim p as long,I as longp=1for I=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

27、 Basic表达式是（ ）（23）已知A=“4563216786”，则表达式val(left(a，3)+Mid(a，4，2)的值是( )（24）Print Format(“HELLO”,“”)输入（ ）（25）Dim A(-3 to 5) As long定义的数组元素个数是（ ）（26）窗体属性：Startupposition、autoredraw、fontsize、borderstyle、icon、caption、方法：show、hide事件：load、queryunload、activate命令按钮：属性：caption（如何在标题文字的下画线？）、Value 、Cancel、 Defau

28、lt、 Enabled方法：setfocus二 选择题2要将复选框做成图形（即按钮）方式，需要改变复选框的（ ）属性（A）downpicture （B）style （C）picture（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)是在哪个

29、范围内的整数？（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=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 0.01*Int(x+0.005) B. 0.01*Int(100*(x+0.005) C. 0.01*int(100

30、*(x+0.05) D. 0.01*Int(x十0.05)12 下列4个字符中进行比较，最小的是（ ）。 A.“9977” B. “Bl23” C. “Basic” D. “DATA”三、将文本文件d:abc.txt中的全部内容读出来，并输出在窗体上的文本框text1中。四、五SQL语句Update、select、delete、insert六、 七、单击窗体，在窗体的中央，画一半径为20的圆八、下边是计算任意整数n的阶乘的function过程fact，请写完该函数九、如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名（ ）及程序代码。十、编写程序，在

31、文本框text1中输入一个整数并按回车键后，判断输入的整数是奇数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。练习题答案一（1）变长字符串（2）set（3）option explicit（4）variant（5）4（6）字符串（7）按钮类型（8）label1.caption=”开始”（9）unload me（10）end（11）text（12）change（13）text1.setfocus（14）tabindex（15）frm1.show 1（16）fact=p（17）interval（18）call add(5,6)或者 add 5,6（19）c

32、mdlg1.showopen（20）ADO二15 DBDCB610 CBBBC三Open “d:abc.txt” for input as #1A=”Do while eof(1)Line input #1,bA=a &b &chr(13) &chr(10)LoopClose #1Text1.text=a四、Private Sub Form_Load()List1.AddItem 冰箱List1.AddItem 洗衣机List1.AddItem 微波炉List1.AddItem 洗碗机List1.AddItem DVDEnd SubPrivate Sub Command1_Click(Inde

33、x As Integer)Select Case Index Case 0 i = 0 Do While i List1.ListCount If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem (i) End If i = i + 1 Loop Case 1 For i = 0 To List1.ListCount - 1 List2.AddItem (List1.List(i) Next List1.Clear Case 2 i = 0 Do While i List2.ListCount

34、 If List2.Selected(i) = True Then List1.AddItem List2.List(i) List2.RemoveItem (i) End If i = i + 1 Loop Case 3 For i = 0 To List2.ListCount - 1 List1.AddItem (List2.List(i) Next List2.ClearEnd SelectEnd Sub五 通用过程中的代码：打印坐标轴上短线Function printword(x, y, word As String)With Picture1.CurrentX = x.Current

35、Y = yEnd WithPicture1.Print wordEnd Function显示X、Y轴和刻度Public Sub xy()Picture1.DrawWidth = 1Picture1.DrawStyle = 0Picture1.ForeColor = vbBluePicture1.ClsPicture1.Scale (-10, 10)-(10, -10)画出X轴Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)划出X轴上箭头Picture1.Line (10, 0)-(9.5, 0.5)Picture1.Line (10, 0)-(9.5

36、, -0.5)Picture1.Print X画出Y轴Picture1.Line (0, 10)-(0, -10)划出y轴上箭头Picture1.Line (0, 10)-(0.5, 9.5)Picture1.Line (0, 10)-(-0.5, 9.5)Picture1.Print YFor lin = -9 To 9Picture1.Line (lin, 0)-(lin, 0.25) 打印X轴上短线wor = printword(lin - 0.5, -0.5, Str(lin)Picture1.Line (0, lin)-(-0.25, lin) 打印X轴上短线If lin 0 The

37、nwor = printword(-0.9, lin, Str(lin)End IfNextEnd Sub六dim cnn as new adodb.connectiondim rs as new adodb.recordsetPrivate Sub Form_load()Cnn.cursorlocation=aduseclientCnn.open “provider=Microsoft.jet.oledb.4.0;data source=” &app.path &”k1.mdb”Set rs=cnn.execute(“select * from 职工工资”)Do while not rs.e

38、ofCombo1.additem(rs(“姓名”)Rs.movenextloopEnd sub在命令按钮中的代码：Private Sub command1_click()If rs.stateadstateclosed then Rs.openEnd if Rs.open “select * from 职工工资 where 姓名=” &combo1.text &”,cnnSet rs.datasource=rsEnd sub七、Private Sub Form_Click()Me.ScaleWidth = 100me.ScaleHeight = 100Circle (50, 50), 20En

39、d Sub八、dim p as long,I as longp=1for I=1 to xp=p*Inext Ifact=p九、必须将程序放在queryunload事件中。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(真的要关闭窗体, vbYesNo + vbQuestion) = vbYes ThenCancel = 0ElseCancel = 1End IfEnd SubVB练习题三一 填写程序代码2. 编写程序，在文本框text1中输入一个整数并按回车键后，判断输入的整数是奇

40、数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。Private Sub Text1_KeyPress(KeyAscii As Integer)End Sub答案：If KeyAscii = 13 Then Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then Label1.Caption = 偶数 Label1.ForeColor = RGB(0, 0, 255) Else Label1.Caption = 奇数 Label1.ForeColor = RGB(255, 0, 0) End IfEnd If4.窗体上有文本框控件数据text1(0),text1(1),text1(20)，如果要设置其字体为隶书，程序语句为：Private Sub Form_Load()End Sub答案：For i = 0 To 2Text1(i).FontName = 隶书Text1(i).FontSize = 15Next5.在窗体上放一命令按钮command1，单击此按钮，在c:磁盘根目录上新