北科大VB考试内部资料及答案.docx
《北科大VB考试内部资料及答案.docx》由会员分享，可在线阅读，更多相关《北科大VB考试内部资料及答案.docx（31页珍藏版）》请在冰豆网上搜索。
北科大VB考试内部资料及答案
北科大VB考试内部资料及答案
一、填空题
（1）VB中有两种类型的字符串；分别是变长字符串和定长字符串。
（2）定义aa为一个10个字符的字符串，使用语句dimaaasstring*10（3）对象变量赋值，必须使用关键字set。
（4）要强制使用变量声明，使用语句optionexplicit。
（5）使用public语句声明公有的模块级变量。
（6）为了建立应用程序都有效的变量，应该在标准模块中进行变量声明。
（7）在VB中，对于没有声明的变量，其默认的数据类型是variant。
（8）如果今天是星期五，那么printweekday（now（））输出的结果是6。
（9）输入对话框inputbox的返回值的数据类型是：
字符串。
（10）msgbox函数提供了3个参数，它们是提示信息、按钮类型、标题。
（11）使用print方法可以将信息直接输出到窗体或者picturebox中。
（12）控制窗体或者标签的背景色和前景色，可能过forecolor属性和backcolor属性完成。
（13）程序中要将label1的标题改为“开始”，使用的语句是：
=”开始”。
（14）为了使标签能够自动调整以适应内容的多少，必须将标签的autosize属性设置为true？
（15）为了使caption属性有内容自动换行并垂直扩充，要将标签的wordwrap属性设置为true？
16）卸载窗体可以使用语句unloadme完成？
（17）文本框控件显示的文本通过text属性控制？
（18）要将文本框text1的内容设置为只读，可使用语句：
=true完成。
（19）在设计程序时改变文本框的multiline属性和scrollbars属性，可使文本框显示多行并且出现滚动条？
（20）当文本框的内容发生改变时，会触发change事件？
（21）当控件得到焦点时触发gotfocus事件，失去焦点时触发lostfocus事件？
（22）程序执行时，将焦点停在text1上，可在窗体的activate事件中写入代码：
（23）设置控件的tabindex属性，改变控件接收焦点的顺序。
（24）文本框的selstart属性，设置所选择文本框的起始点，sellength属性设置或者返回所选择的字符数？
这二个属性只能程序代码完成。
（25）使用inputbox函数显示一个接受用户输入的对话框。
（26）设置窗体frm1成为有模式对话框，使用的语句是：
1（27）命令按钮要使用picture属性生效，还应设置其style属性为1:
graphic。
（28）设置时钟控件的interval属性，指定了两个timer事件之间的毫秒数。
（29）关闭计时器timer1，使用的语句是=false。
（30）要将选项按钮设计成图形按钮的形式，要将该选项按钮的style属性设置为1-graphical？
（31）复选框的状态由其value属性决定？
（32）通过程序代码要将命令按钮command1隐藏，使用的语句为：
=false
（33）编程求某班60个同学某门课程考试平均成绩及高于平均成绩的学生人数，数据的输入是通过inputbox来实现的，程序为：
constnum=60
dima（num）asinteger,averassingle,nasinteger
sum=0
forI=1tonum
a（i）=val（inputbox（“输入第（”&I&”）个学生的成绩”））
sum=sum+a（i）
nextI
aver=sum/num
n=0
forI=1tonum
ifa（i）>averthenn=n+1
next
print“全班平均成绩：
”&aver&”共有”&n&”个同学的成绩高于平均成绩”
（34）VB中的过程包括有事件过程和通用过程。
（35）在定义通用过程时，缺省状态下所有模块中的子过程为public，如果选用private，则只有该过程所在的模块中的程序才能调用该过程。
（36）使用listcount返回列表框中项目的数量（37）调用通用过程add（5,6）时，使用的语句是calladd（5,6）或者add5,6。
（38）一个控件的事件过程将控件的实际名、下画线和事件名组合起来。
（39）下边是计算任意整数n的阶乘的function过程fact
functionfact（xasinteger）aslong
dimpaslong,Iaslong
p=1
forI=1tox
p=p*I
nextI
fact=p
endfunction
（40）VB中代码存储在3种不同的模块中：
窗体模块、标准模块和类模块。
（41）窗体保存在扩展名为.frm的文件中。
（42）根据变量声明的位置，就是分两类：
过程级变量和模块级变量。
（43）声明x为私有的模块级变量，其数据类型为整型，使用的语句为：
privatexasinteger或者dimxasinteger
（44）窗体上增加公用对话框cmdlg1，要显示“打开”对话框，使用的语句是：
（45）使用公用对话框的filter属性，设置显示文件的类型。
（50）菜单编辑器中，同层次的name设置为相同，才可以设置索引值。
（51）菜单项可以响应的事件过程为click。
（52）用户可以通过设置菜单项的visible属性值为false来使该菜单项不可见。
（53）用户可以设置菜单项的enabled属性为false使该菜单项失效。
（54）数据表是由多列多行构成的集合、每列称为一个字段，每行称为一条记录。
（55）VB中可以使用的数据访问接口有3种，分别是ADO、RDO和DAO。
（56）Access数据库的扩展名是mdb
（57）从b1中查询“基本工资”大于2600元的语句是：
select*fromb1where基本工资>2600。
（58）为b1中插入编号为“150”，姓名为“赵六”，性别为“女”，基本工资为2000元的记录，相应的SQL语句为：
insertintob1（编号，姓名，性别，基本工资）values（“150”,”赵六”,”女”,2000）或者：
insertintob1values（“150”,”赵六”,”女”,2000）。
（59）通过连接对象的execute方法，可对连接执行各种操作。
（60）指示当前记录指针位置是否位于首记录前，使用记录集的BOF属性；指示是否位于末记录尾，使用记录集的EOF属性。
（61）通过记录集的addnew方法，可以为可更新的记录集对象创建一条新的空记录。
（62）保存对当前记录的修改，可以通过记录集的update方法完成。
（63）建立连接对象cnn，要通过命令打开到数据源的连接，连接到当前工程目前下的，语句为：
“provider=&&”\”或者是：
“dbq=”&&”\;driver={microsoftaccessdriver（*.mdb）}”
如果使用的是SQLserver数据库，如何写？
“provider=服务器名;uid=用户名;pwd=密码”
二选择题
1“x是小于100的非负数”，用VB表达式表示正确的是（）
0≤xandx<100
2要将复选框做成图形（即按钮）方式，需要改变复选框的（）属性
（A）downpicture（B）picture（C）style（D）tooltiptext
3下边控件中哪个控件是不可见控件（）？
（A）选项按钮（B）文本框（C）框架（D）时钟
4时钟控件仅有一个事件，其事件名为（）？
（A）initialize（B）unload（C）timer（D）click
5执行printIIF（len（“abdddc”）>4,”A”,”B”）输出的结果是（）（A）语句错误，不能输出（B）B（C）A（D）3
6函数Int（Rnd（）*10）是在哪个范围内的整数？
（1）（0，1）
（2）（1，10）（3）[0，10]（4）[0，9]
7下面哪组语句可以将变量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=A
8执行inputbox后显示效果如下图所示，将输入结果保存在变量x中，inputbox正确的写法为：
图2-3
（1）x=InputBox（"您年龄几何？
","调查",30）
（2）x=InputBox（"调查","您年龄几何？
",30）
（3）x=InputBox"调查","您年龄几何？
",30
（4）x=InputBox"您年龄几何？
","调查",30
9执行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（4）Lostfocus
11下边（）属性表示文本框中被选择内容的字符长度？
（1）Selstart
（2）sellength（3）Seltext（4）maxlength
12复选框的（）属性有三种状态，0：
表示未选中；1表示选中，2表示禁用？
（1）Style
（2）TooltipText（3）value（4）enabled
13在设置命令按钮的Caption时，使用（）可以指定快捷键？
（1）\<
（2）<（3）\&（4）&
14要将列表框list1的第3项内容显示在文本框text1中，可使用的语句是（）：
（1）=
（2）=（3）
（3）=（4）=
（2）
15在使某个对象能够拖动，应该将该对象的（）属性设置为1？
（1）dragmode
（2）icon（3）dragicon（4）mousepointer
16要对文本框text1中输入的数据完成数据验证，实现当输入的数据不合要求时，焦点离不开该文本框，应该在该文本框的（）事件中编写程序代码？
（1）lostfocus
（2）gotfocus（3）click（4）validate
17哪个程序段不能分别正确显示1!
、2！
、3！
、4！
的值（）？
（1）forI=1to4
（2）forI=1to4
n=1forj=1toi
forj=1toIn=1
n=n*jn=n*j
nextjnextj
printnprintn
nextInextI
（3）n=1（4）n=1:
j=1
forj=1to4dowhilej<=4
n=n*jn=n*j:
printn
printnj=j+1
nextjloop
18函数Mid（"山羊上山山碰山羊脚",3,2）的结果是（）
（1）山羊
（2）上山（3）羊上（4）山山
19、窗体运行后，要使窗体自动显示在屏幕的中央位置，应设置窗体的（）属性？
（1）Windowstate
（2）mousePointer（3）Icon（4）Startupposition
20要使print方法在form_load事件中起作用，要对窗体的（）属性进行设置？
（1）backcolor
（2）autoredraw（3）forecolor（4）caption
21下列程序运行后,显示的结果是（）？
（1）3614
（2）1463（3）1436（4）1643
s=0:
t=0:
u=0
forI=1to3
forj=1toI
fork=jto3
s=s+1
nextk
t=t+1
nextj
u=u+1
nextI
prints;t;u
22下面（）是算术运算符？
（1）imp
（2）mod（3）not（4）like
23下面程序段中求两数中的大数，（）不正确
（1）max=iif（x>y,x,y）
（2）ifx>ythenmax=xelsemax=y
（3）max=x（4）ify>=xthenmax=y
ify>xthenmax=ymax=x
三程序段
1填写程序代码
（1）分别在下边事件过程中写出程序代码，实现功能如下：
运行后在文本框text1中显示“北京科技大学”；实现当鼠标移动到文本框时，自动选中文本框中的全部内容，程序运行后，单击命令按钮“欢迎”，显示图1-1右边所示的对话框（显示的学校名是text1中输入的内容）图1-1
（2）编写程序，在文本框text1中输入一个整数并按回车键后，判断输入的整数是奇数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。
（3）编写一个程序，要求用单击命令按钮要显示或隐藏文本框text1。
运行后结果如图1-2所示。
图1-2
（4）窗体上有文本框控件数据text1（0）,text1
（1）,…,text1（20），如果要设置其字号为3号，程序语句为：
（5）单击窗体，在窗体的中央，画一半径为20的圆。
PrivateSubForm_Click（）
=100
=100
Circle（50,50）,20
EndSub
通过此示例掌握scalewidth,scaleheight和画圆的方法
四编程题
（1）时钟控件
制作一移动的电子告示版，使其从左向右移动
（2）窗体上放一个命令按钮command1，单击该按钮，在C：
\下边建立文件，并将字符串“北京科技大学”写入到该文件中。
PrivateSubCommand1_Click（）
Open"c:
\"ForOutputAs#1
Write#1,"北京科技大学"
Close#1
EndSub
另外，需要掌握如何读取数据？
看下例：
将文本文件d:
\中的全部内容读出来，并输出在窗体上的文本框text1中。
Open“d:
\”forinputas#1
A=””
Dowhileeof
（1）
Lineinput#1,b
A=a&b&chr（13）&chr（10）
Loop
Close#1
=a
（3）组合框和列表框
利用循环结构和列表框控件，设计图1-4所示的窗体。
要求程序运行后：
1）自动在列表框中加入图中所示的项目
2）通过命令按钮数组，可在两个列表框间移动项目。
单击命令按钮组中的“>”按钮，将list1选中的项目移动到list2，原list1中的项目删除。
单击命令按钮组中的“>>”按钮，将list1全部项目移动到list2，原list1中的项目全部删除。
单击命令按钮组中的“<”按钮，将list2选中的项目移动到list2，原list2中的项目删除。
单击命令按钮组中的“<<”按钮，将list2全部项目移动到list1，原list2中的项目全部删除。
图1-4
PrivateSubForm_Load（）
"冰箱"
"洗衣机"
"微波炉"
"洗碗机"
"DVD"
EndSub
PrivateSubCommand1_Click（IndexAsInteger）
SelectCaseIndex
Case0
i=0
DoWhilei<
If（i）=TrueThen
（i）
（i）
EndIf
i=i+1
Loop
Case1
Fori=0To-1
（i））
Next
Case2
i=0
DoWhilei<
If（i）=TrueThen
（i）
（i）
EndIf
i=i+1
Loop
Case3
Fori=0To-1
（i））
Next
EndSelect
EndSub
（4）如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名及程序代码。
必须将程序放在queryunload事件中。
PrivateSubForm_QueryUnload（CancelAsInteger,UnloadModeAsInteger）
IfMsgBox（"真的要关闭窗体",vbYesNo+vbQuestion）=vbYesThen
Cancel=0
Else
Cancel=1
EndIf
EndSub
（5）（6）数据库中有一个“职工工资”表，表中字段为：
编号，部门，姓名，基本工资、岗位津贴，职务津贴，奖金，房租，其中编号，部门和姓名的字段类型为字符型，其余的是数值型。
在窗体上增加一个“MicrosoftdatagridControl”控件datagrid1和组合框combo1，程序运行后，将职工工资表中职工的姓名加入到组合框中，如图1-7所示，单击“查询”命令按钮，在datagrid1中显示出该员工的工资情况，如图1-8所示。
（假设已经引用了microsoftActiveXDataobject）。
窗体通用过程中的代码：
PrivateSubForm_load（）
Endsub
PrivateSubcommand1_click（）
Endsub
图1-7
图1-8
《面向对象程序设计一VB》练习题
一、填空题
（1）VB中有两种类型的字符串；分别是（）和定长字符串。
（2）对象变量赋值，必须使用关键字（）。
（3）要强制使用变量声明，使用语句（）。
（4）在VB中，对于没有声明的变量，其默认的数据类型是
（5）如果今天是星期三，那么printweekday（now（））输出的结果是（）。
（6）输入对话框inputbox的返回值的数据类型是：
（）。
（7）msgbox函数提供了3个参数，它们是提示信息、（）、标题。
（8）程序中要将label1的标题改为“开始”，使用的语句是：
（）。
（9）卸载窗体可以使用语句（）完成？
（10）结束应用程序，通过（）命令完成？
（11）文本框控件显示的文本通过（）属性控制？
（12）当文本框的内容发生改变时，会触发（）事件？
（13）程序执行时，将焦点停在text1上，可在窗体的activate事件中写入代码：
（）。
（14）设置控件的（）属性，改变控件接收焦点的顺序。
（15）设置窗体frm1成为有模式对话框，使用的语句是：
（）
（16）下边是计算任意整数n的阶乘的function过程fact
functionfact（xasinteger）aslong
dimpaslong,Iaslong
p=1
forI=1tox
p=p*I
nextI
（）
endfunction
（17）设置时钟控件的（）属性，指定了两个timer事件之间的毫秒数。
（18）调用通用过程add（5,6）时，使用的语句是（）。
（19）窗体上增加公用对话框cmdlg1，要显示“打开”对话框，使用的语句是：
（）
（20）VB中可以使用的数据访问接口有3种，分别是（）、RDO和DAO。
（21）Trim函数的作用是（）
（22）数学式sin25°写成VisualBasic表达式是（）
（23）已知A=“86”，则表达式val（left（a，3）+Mid（a，4，2））的值是（）
（24）PrintFormat（“HELLO”,“<”）输入（）
（25）DimA（-3to5）Aslong定义的数组元素个数是（）
（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（D）tooltiptext
3下边控件中哪个控件是不可见控件（）？
（A）选项按钮（B）文本框（C）框架（D）时钟
4时钟控件仅有一个事件，其事件名为（）？
（A）initialize（B）unload（C）timer（D）click
5执行printIIF（len（“abc”）<4,”A”,”B”）输出的结果是（）
（A）语句错误，不能输出（B）B（C）A（D）3
6函数Int（Rnd（）*10）是在哪个范围内的整数？
（A）（0，1）（B）（1，10）（C）[0，10）（D）[0，9]
7下面哪组语句可以将变量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=A
10下边（）属性表示文本框中被选择内容？
（A）Selstart（B）sellength（C）Seltext（D）maxlength
11.如果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中。
四、
五SQL语句
Update、select、delete、insert
六、
七、单击窗体，在窗体的中央，画一半径为20的圆
八、下边是计算任意整数n的阶乘的function过程fact，请写完该函数
九、如果要实现在关闭窗体前询问是否关闭，选择“是”，关闭窗体，选择“否”，不关闭窗体，请写出事件名（）及程序代码。
十、编写程序，在文本框text1中输入一个整数并按回车键后，判断输入的整数是奇数和偶数，在标签label1中显示“奇数”或者“偶数”，是奇数以红字显示，偶数时以蓝字显示。
练习题答案
一
（1）变长字符串
（2）set（3）optionexplicit（4）variant（5）4（6）字符串（7）按钮类型（8）=”开始”（9）unloadme（10）end（11）text（12）change（13）（14）tabindex（15）1（16）fact=p（17）interval（18）calladd（5,6）或者add
升级会员 