北科大VB考试内部资料及答案.docx
《北科大VB考试内部资料及答案.docx》由会员分享,可在线阅读,更多相关《北科大VB考试内部资料及答案.docx(31页珍藏版)》请在冰豆网上搜索。
![北科大VB考试内部资料及答案.docx](https://file1.bdocx.com/fileroot1/2023-1/3/a0f9a4d6-d879-4810-9fb8-76f9bc88c605/a0f9a4d6-d879-4810-9fb8-76f9bc88c6051.gif)
北科大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