vb考试题库Word文档格式.docx
《vb考试题库Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb考试题库Word文档格式.docx(61页珍藏版)》请在冰豆网上搜索。
Nextj:
NextI则语句PrintI*j的执行次数是(d)(1分)
A、15B、18C、10D、0
14、如果要清除在窗体中打印输出的文字,可以利用(c)语)A、InputB、LoadC、ClsD、Paint
15、case<
表达式表列>
其中的表达式表列不正确的为(d)(1分)A、Case100*aB、Case1000To2000
C、CaseIs<
3000D、Case2000<
Is<
3000
16、下列说法错误的是()(1分)
A、VB声明数组时既可指定上界也可指定下界B、数组元素类型可以是任意的VB数据类型C、数组元素的下标可以是数值,也可以是结果在上下界之间的数值表达式D、VB声明数组时必须指定下界
17、下面的四个数组说明语句语法正确的是(c)A、DIMX[10]B、DIMENfn(10)
C、DIMX(20)D、DIMENSIONa[10]
18、以下程序段:
x=1:
y=4:
DoUntily>
4:
x=x*y:
y=y
+1:
Loop执行后x的结果为(b)A、1B、4C、8D、20
19、以下声明和命名标识符错误的是(c)A、必须以字母开头B、变量名的最后一个字符可以是类型声明字符C、长度不能超过8个字符D、不能与关键字同名
20、下列说明错误的是(d)(1分)A、ConstMyVar#=123B、DimmynameasstringC、dimaasinteger,dimbassingleD、dimMyString="
Hello,"
+"
Myfriend!
"
21、VB中允许出现的数据形式为(b)A、1.89E1.1B、.368C、D32D、2.5E
22、设a=2,b=3,c=4,d=5,下列表达式a>
bANDc<
=dOR2*a>
c的值是(b)A、TrueB、FalseC、-1D、1
23、语句6*6\6/6的输出结果是(c)A、6B、12C、36D、216
24、给窗体form1加载背景图片,应使用(c)A、pictureB、ucaseC、loadpictureD、image
25、字符串"
河南农业大学现教部"
的长度是(c)A、18B、10C、9D、16
二、填空题(12道小题,共35分)
1、设定系统当前日期是2004年5月12日,Month(date)=5。
2、设A$="
VisualBasic"
len(a$)函数返回值是12。
3、在窗体的声明部分,语句Privatex%语句,是将变量定义为窗体模块级变量。
4、逻辑型数据只有truefalse两个值。
5、顺序文件读操作用open语句。
6、一个工程可以包括多种类型的文件,其中扩展名为.frx的文件表示frm文件。
7、Command1.Visible=False,是将命令按钮1设为把它设置为隐藏。
8、当鼠标在控件上暂停时,显示提示信息,要用属性ToolTipText属性。
9、Text1.SetFocus语句功能是把焦点移到上Text1。
10、DimXAsCurrency是将变量X定义为货币型。
三、判断题(10道小题,共10分)1、VB中请求对象执行某一操作的要求称为"
方法"
。
(1分)正确
2、False为字符型常量。
(1分)错误
3、语句Print25*40执行时输出的结果是1000。
(1分)正确
4、窗体的卸载使用Load语句。
(1分)错误
5、表达式268="
268"
的结果为True。
6、语句if0thenprint"
Hello"
是错误的。
7、在for循环结构对循环变量的赋值中,终值可以大于初值,也可以小于初值。
8、将文本框Text1中的内容清除,可使用语句Text1.cls。
错误
9、文件名的命名规则同变量的命名规则一样。
10、InputBox函数返回值的类型是字符串类型。
PrivateSubCommand1_Click()
Dimmark!
aver!
i%,max1!
min1!
aver=0
Fori=1To6
mark=InputBox("
输入第"
&
i&
"
位评委的打分"
)
Ifi=1Then
max1=mark:
min1=mark
Else
Ifmark<
min1Then
min1=mark
ElseIfmark>
max1Then
max1=mark
EndIf
aver=aver+mark
Next
aver=(aver-min1-max1)/4
Printaver
EndSub
1、以下叙述中错误的是(b)(1分)
A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、控件的名称可以由编程人员设定
C、窗体文件包含该窗体及其控件的属性D、VisualBasic中控件的某些属性只能在运行时设置
2、以下关于窗体的描述中,错误的是(d)(1分)
A、窗体的Load事件在加载窗体时发生B、当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止
C、窗体的Height、width属性用于设置窗体的高和宽D、执行UnloadForm1语句后,窗体Form1消失,但仍在内存中
3、用StaticM(60to90)AsInteger语句定义的数组的元素个数是(c)(1分)A、60B、30C、31D、90
4、如果整型变量a、b的值分别为3和1,则下列语句中ForI=atob:
PrintI:
NextI循环体的执行次数是(c)(1分)A、3B、2C、1D、0
5、关于语句Ifx=1Theny=1下列正确的说法是(c)(1分)
A、x=1和y=1均为赋值语句B、x=1和y=1均为关系表达式
C、x=1为关系表达式,y=1为赋值语句D、y=1为关系表达式,x=1为赋值语句
6、用情况选择语句SelectCaseX,选择|X|>
10情况的语句为Case(c)(1分)
A、Not(-10To10)B、10To-10C、Is<
-10,Is>
10D、ABS(X)>
10
7、下列哪条语句是错的(c)(1分)
A、RTrim()B、ExitFunctionC、ExitWhileD、ExitDo
8、在VisualBasic中下面的四个数组声明语句,正确的是(c)(1分)
A、Dima[10]B、Deffn(10)C、Dima(10)D、Dimensiona(10)
9、阅读下面的程序段Fori=1To3:
Forj=1Toi:
Fork=jTo3:
a=a+2:
Next:
Next:
Next执行上面的三重循环后,a的值为(c)(1分)
A、26B、27C、28D、29
10、下面说法错误的是(b)(1分)
A、对象的性质和状态值称为"
属性"
B、请求对象执行某一操作的要求称为"
消息"
C、改变对象的一个或多个属性值的操作称为"
事件"
D、对象发生某事件所执行的程序称为事件驱动程序
11、若使用文本框Text1,为对用户输入内容进行立即检查,应对Text1的哪个事件编程(a)(1分)
A、ChangeB、IntervalC、LeftD、Top
12、如果数据包含小数,则不应定义为下列哪种类型(c)(1分)
A、DoubleB、SingleC、ByteD、Currency
13、下列程序段s=0:
fori=9to42step11:
s=s+i:
next:
ifi>
50thens=s+ielses=s-i运行后s的结果为()(1分)
A、167B、139C、144D、155
14、有如下程序,m$="
ABCDE"
:
MID(m$,1,5)="
abcde"
Printm$,运行后的输出结果是(a)(1分)
A、abcdeABCDEB、ABCDEabcdeC、abcdeD、ABCDE
15、在下列四个式子中,非法的VisualBasic表达式是(c)(1分)
A、a=b+eB、5>
3+3C、a=expD、5<
>
5
16、表达式INT(6*RND+1)*(INT(6*RND-1))值的范围是(b)(1分)
A、[-6,18]B、[-6,24]C、[-3,24]D、[-3,18]
17、字符串"
计算机技术基础"
的长度是,应使用下列(c)函数(1分)
A、TABB、STRC、LEND、INSTR
18、表达式(nottrueortrue)and(trueorfalse)的值为(b)(1分)
A、falseB、trueC、0D、-1
19、下列叙述中正确的是(c)(1分)
A、在窗体的Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程
C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名,但其作用域只限于该过程D、在调用过程时,所有局部变量被系统初始化为0或空符串
20、下面的变量名合法的是(c)(1分)
A、k.nameB、k%nameC、nameD、k-name
21、在VisualBasic中,下面四个数据,数据形式错误的是(b)(1分)
A、3.456#B、236!
C、1.23D-23D、1.89E1.1
22、已知C>
D,S>
T,正确表示它们之间关系的式子是(c)(1分)
A、Sgn(D-C)-Sgn(S-T)>
0B、Sgn(D-C)-Sgn(S-T)=-2
C、Sgn(D-C)-Sgn(S-T)=0D、Sgn(D-C)-Sgn(S-T)=1
23、表达式Int(Rnd*11)+100的值的范围是(b)(1分)
A、[11,111]B、[100,110]C、[11,100]D、[100,111]
24、下列关于属性设置的叙述正确的是(d)(1分)
A、所有的对象都有同样的属性B、控件的属性只能在设计时修改,运行时无法改变
C、控件的属性都有同样的默认值D、引用对象属性的格式为:
对象名称.属性
25、VisualBasic中没有提供下列(d)事件(1分)
A、MouseDownB、MouseUpC、MouseMoveD、MouseExit
二、填空题(12道小题,共35分)
1、可视化VisualBasic语言是公司推出的程序开发语言。
2、双击某个对象时,最终引发该对象的事件执行。
3、程序流程中被重复执行的程序段叫循环体。
4、将对象设置为允许用户操作,并对操作作出响应,是将它的Enabled属性值设为True。
5、在VisualBasic6.0中,用Font.StrikeThtouth属性设置。
6、表示单精度型数据的单一字符是!
7、Rnd函数的含义是。
8、Chr$(数值)函数返回该数值表示的字符。
9、在窗体各过程中均有效的变量是全局变量。
10、在Print方法中,句尾有符号时,是换行执行下一个Print语句
11、下列程序段将十进制数转换为十六进制数,要求十进制数为非负整数。
单击窗体,弹出
InputBox对话框,让用户输入一个十进制数;
单击“确定”后,在Label1上显示出十
六进制数的结果。
如果输入的不是十进制数,在标签Label1上显示出"
你输入的不是十进
制数"
,退回到对话框状态,让用户重新输入。
PrivateSubForm_Click()
DimsHexAsString,YsAsInteger
DimnAsString,ndAsInteger,AiAsString
sHex="
n=InputBox("
请输入一个十进制整数"
IfNotIsNumeric(n)OrLeft(n,1)="
0"
Or_
Int(Val(n))<
Val(n)Then
MsgBox"
你输入的不是十进制整数!
End
nd=Val(n)
DoWhilend>
=10
Ys=ndMod16
SelectCaseYs
Case10
Ai="
A"
Case11
B"
Case12
C"
Case13
D"
Case14
E"
Case15
F"
Case0To9
Ai=Ys
EndSelect
sHex=Trim(Ai)&
sHex
nd=nd\16
Loop
Label1=nd&
EndSub
12、在窗体上有两个命令按钮和一个文本框,名称分别为
cmdstart(“开始”)、cmdend(“结束”)
和txt。
程序开始运行时,要求文本框txt中的字符个数不超过300个,“结束”按钮成灰色,单击
“开始”按钮后,“开始”按钮不可用,同时使“结束”按钮能响应,单击“结束”按钮结束程序。
Privatesubform_load()
=300
Cmdend.enabled=false
Endsub
Privatesubcmdstart_click()
cmdstart.enabled=false
=true
endsub
privatesubcmdend_click()
end
?
?
///
三、判断题(10道小题,共10分)
1、通过label1.cls可以清除由label1所显示的内容。
(1分)
错误
2、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。
错误
3、设a=5,则语句printa=5的运行结果为True。
正确
4、能够改变窗体背景颜色的属性是BackColor。
(1分)正确
5、在VB的表达式中,加入括号有时可以改变运算符的优先级。
6、在if<
条件>
then结构中,条件可以是逻辑表达式或关系表达式。
7、在For<
控制变量>
=<
初值>
To<
终值>
[Step<
步长>
]结构中,步长可以取任意值。
(1分)错误
8、可以用Text1.text="
来清除Text1中的内容。
9、在VB中可以同时打开多个工程。
(1分)正确
10、在定义了一个函数后,可以象调用任何一个VB内部函数一样使用它,即可以在任何表达式、语句或函数中引用它。
四、编程题(4道小题,共60分)
1、求公式:
e=1/1!
+1/2!
+1/3!
+……+1/n!
直到最后一项小于10^(-6)时e的值。
(保留小数点后9位)
(注:
程序代码写在命令按钮Command1的Click事件中。
e=0
s=1
i=1
DoUntils<
10^(-6)
s=s/i
e=e+s
i=i+1
Loop
Printe
2、有100匹马,驮100担货:
大马驮3担,中马驮2担,两匹小马驮1担,问有大、中小马各多少?
(本题不要求填写运行结果)
请将你解答本题所写的源程序粘贴到下面或者上载源程序
PrivateSubCommand1_Click()
Dima,b,cAsInteger
Fora=1To100
Forb=1To100
c=100-a-b
If3*a+2*b+c/2=100Then
Printa,b,c
EndIf
3、编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r,迭代初值自选,精确到0.0001。
〔提示:
计算公式为x=x-f(x)/f'
(x)〕
必须将本题程序最后的运行结果填入下面的框中。
否则,该题以零分计!
4、编写程序,输出下列三角形:
(要求用循环做,非循环不给分。
1
123
12345
1234567
Fori=1To4
PrintTab(20-3*i);
Fort=1To2*i-1
Printt;
1、如果一个工程含有多个窗体,则以下叙述中错误的是(d)(1分)
A、不可以在运行期间改变对象的Name属性的值B、用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
C、任何时刻最多只有一个窗体是活动窗体D、窗体的Name属性的值是显示在窗体标题栏中的文本
2、下列不能打开属性窗口的操作是(c)(1分)
A、执行“视图”菜单中的"
属性窗口"
命令B、按F4键C、按Ctrl+TD、单击工具栏上的"
按钮
3、用DimS(20)AsInteger语句定义的数组的元素个数是()(1分)
A、19B、20C、21D、22
NextI循环体的执行次数是()(1分)
A、3B、2C、1D、0
5、关于语句Ifx=1Theny=1下列正确的说法是()(1分)
10情况的语句为Case()(1分)
7、在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是(a)(1分)
A、PrivateSubText1_GotFocus():
Text1.SelStart=0:
Text1.SelLength=Len(Text1.text):
EndSubB、PrivateSubText1_LotFocus():
EndSub
C、PrivateSubText1_Change():
EndSubD、PrivateSubText1_SetFocus():
8、在VisualBasic中下面的四个数组声明语句,正确的是()(1分)
9、假设有以下程序段ForI=1to3:
Forj=7to1Step-1:
PrintI*j:
Nextj:
NextI则语句PrintI*j的执行次数以及I、j的值分别是()(1分)
A、2130B、2140C、2030D、2040
10、如果Form1是启动窗体,并且Form1的Load事件过程中有Form2.Show,则程序启动后(c)(1分)
A、发生一个运行时错误B、发生一个编译时错误
C、在所有的初始化代码运行后Form1是活动窗体D、在所有的初始化代码运行后Form2是活动窗体
11、以下控件中可以入选为容器控件的是(b)(1分)
A、Image图像框控件B、PictureBox图片框控件C、TextBox文本框控件D、ListBox列表框控件
12、假设变量bool_x是一个布尔型(逻辑型)的变量,则下面正确的赋值