Visual Basic 2.docx
- 文档编号:13882912
- 上传时间:2023-06-18
- 格式:DOCX
- 页数:31
- 大小:22.17KB
Visual Basic 2.docx
《Visual Basic 2.docx》由会员分享,可在线阅读,更多相关《Visual Basic 2.docx(31页珍藏版)》请在冰点文库上搜索。
VisualBasic2
试卷编号:
8776
所属语言:
VisualBasic
试卷方案:
2011年VB考前练习1
试卷总分:
132分
共有题型:
6种
一、填空共19题(共计19分)
第1题(1.0分)
VB集成开发环境中用于编写程序代码的窗口是【1】
答案:
=======(答案1)=======
代码窗口
=========或=========
代码编辑窗口
第2题(1.0分)
vb中工程文件的扩展名是【1】
答案:
=======(答案1)=======
.vbp
=========或=========
vbp
第3题(1.0分)
VB表达式9^2MOD45\2*3的值【1】.
答案:
=======(答案1)=======
4
第4题(1.0分)
表达式-3>-6And8>6的值为【1】.
答案:
=======(答案1)=======
True
第5题(1.0分)
设a=2,b=3,c=4,则NOTa<=cOR4*c=b^2ANDb<>a+c的值为【1】.
答案:
=======(答案1)=======
False
第6题(1.0分)
Integer类型的变量占用【1】字节空间.
答案:
=======(答案1)=======
2
第7题(1.0分)
执行下面的程序段后,A的值为【1】
A=300
B=20
A=A+B
B=A-B
A=A-B
答案:
=======(答案1)=======
20
第8题(1.0分)
要设置滚动条控件的最大值,应设置的属性是【1】。
答案:
=======(答案1)=======
Max
第9题(1.0分)
将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【1】。
答案:
=======(答案1)=======
Picture1.picture=loadpicture("c:
\moon.jpg")
第10题(1.0分)
当单选按钮的【1】属性为False时,表示该单选按钮处于末选中状态.
答案:
=======(答案1)=======
Value
第11题(1.0分)
VisualBasic中的文本框中要使该框不允许多行输入,应设置【1】属性为false.
答案:
=======(答案1)=======
MultiLine
第12题(1.0分)
列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.
答案:
=======(答案1)=======
项目列表
=========或=========
列表
第13题(1.0分)
下列程序段运行后在窗体上显示的是【1】。
Dima%,b%
b=5
a=b
printa
答案:
=======(答案1)=======
5
第14题(1.0分)
下面程序运行后输出的结果是【1】.
x=Int(Rnd+3)
Ifx^2>8Theny=x^2+1
Ifx^2=9Theny=x^2-2
Ifx^2<8Theny=x^3
Printy
答案:
=======(答案1)=======
7
第15题(1.0分)
下面程序段显示【1】个"*".
ForI=1To5
Forj=2ToI
Print"*";
Nextj
Nexti
答案:
=======(答案1)=======
10
第16题(1.0分)
执行下面的程序段后,s的值为【1】
s=5
Fori=2.5To5.1Step0.6
s=s+1
Nexti
答案:
=======(答案1)=======
10
第17题(1.0分)
在窗体上添加一个名称为text1的文本框,并建立一个名为option1含有三个元素的
控件数组,option1(0)的标题为"宋体",option1
(1)的标题为"黑体",
option1
(2)的标题为"隶书"。
程序运行后,如果单击某个单选按钮,则文本框中的
字体根据所选择的单选按钮切换。
对以下程序补充:
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseindex
Case0:
a="宋体"
Case1:
a="黑体"
Case2:
a="隶书"
EndSelect
Text1.fontname=【1】
答案:
=======(答案1)=======
a
第18题(1.0分)
若有一个动态数组a有两个元素a(0)和a
(1),现要令数组a有三个元素a(0)、a
(1)
和a
(2),则应当使用【1】语句。
答案:
=======(答案1)=======
ReDima
(2)
=========或=========
redima
(2)
=========或=========
Redima
(2)
第19题(1.0分)
在VB中,过程定义中有两种参数的传递形式:
是【1】和传址.
答案:
=======(答案1)=======
传值
二、判断共16题(共计16分)
第1题(1.0分)
鼠标双击窗体可以触发窗体的DblClick事件。
答案:
Y
第2题(1.0分)
VisualBasic的工程文件的扩展名为frm
答案:
N
第3题(1.0分)
计算机在处理数据时必须将其装入内存,在高级语言中通过内存单元名来访问其中的数据,
命名的内存单元就是变量.
答案:
Y
第4题(1.0分)
表达式5^2+3*5/2+5mod2.6\2的值是32.5。
答案:
Y
第5题(1.0分)
变长字符串的初始值为零长度的字符串即空串。
答案:
Y
第6题(1.0分)
定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.
答案:
Y
第7题(1.0分)
用户从列表框或组合框中只能选择一个项目。
答案:
N
第8题(1.0分)
当计时器控件的interval属性值设置为0时,会连续不断地激发Timer事件.
答案:
N
第9题(1.0分)
设计VB程序时,选中窗体上的"Text1"文本框控件,将其"BackColor"属性值设置为绿色,
将"ForeColor"属性值设置为红色,则"Text1"文字为红色。
答案:
Y
第10题(1.0分)
能够获得一个文本框中被选取文本的内容的属性是Seltext。
答案:
Y
第11题(1.0分)
vb中赋值语句的功能是将赋值号右边表达式的值赋给赋值号左边的变量中。
答案:
Y
第12题(1.0分)
程序如下:
n1=InputBox("请输入第一个数:
")
n2=InputBox("请输入第二个数:
")
Printn1+n2
程序运行时,当分别输入111和222时,在窗体输出的是111222
答案:
Y
第13题(1.0分)
每个对象都有一系列预先定义好的对象事件,但要使对象能响应具体的事件,则编写该对象
相应的事件过程.
答案:
Y
第14题(1.0分)
For…Next语句中的初值必须大于终值
答案:
N
第15题(1.0分)
使用数组定义语句:
DimD$(10),则数组D中各元素的值为空。
答案:
N
第16题(1.0分)
函数过程(FunctionProcedure)用来完成特定的功能,但不返回相应的结果.
答案:
N
三、单项选择共27题(共计27分)
第1题(1.0分)
在VB中用于设计应用程序中各窗体运行时初始位置的窗口是()
A:
代码窗口
B:
窗体设计器窗口
C:
属性窗口
D:
窗体布局窗口
答案:
D
第2题(1.0分)
从功能上讲,VisualBasic6.0有3种版本,下列不属于这3种版本的是().
A:
学习版
B:
标准版
C:
专业版
D:
企业版
答案:
B
第3题(1.0分)
下列符号中,在VB变量声明中可作为单精度数据类型类型符的是()
A:
%
B:
&
C:
!
D:
#
答案:
C
第4题(1.0分)
以下几项中,属于日期型常量的是().
A:
"10/10/02"
B:
10/10/02
C:
#10/10/02#
D:
{10/10/02}
答案:
C
第5题(1.0分)
3>8-3OR10+2<=3*4AND5=2+3的结果是().
A:
True
B:
False
C:
-3
D:
10
答案:
A
第6题(1.0分)
下列符号中,在VB变量声明中可作为双精度精度数据类型类型符的是()
A:
%
B:
#
C:
!
D:
&
答案:
B
第7题(1.0分)
表达式(7\3+1)*(18\5-1)的值是().
A:
8.76
B:
7.8
C:
6
D:
6.67
答案:
C
第8题(1.0分)
能够获得一个文本框中被选取文本的内容的属性是().
A:
Text
B:
Length
C:
SelText
D:
SelStart
答案:
C
第9题(1.0分)
设窗体上有1个滚动条,要求单击滚动条右端的按钮一次,滚动块移动一定的刻度
值,决定此刻度值的属性是()。
A:
Max
B:
Min
C:
SmallChange
D:
LargeChange
答案:
C
第10题(1.0分)
下列叙述错误的是:
A:
一个工程中只能有一个SubMain过程
B:
窗体的Show方法的作用是将
指定的窗体装入内存并显示该窗体
C:
窗体的Hide方法和Unload方
法作用完全相同
D:
若工程文件中有多个窗体,
可以根据需要制定一个为启动窗体
答案:
C
第11题(1.0分)
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,
立即在窗体上显示滚动框的位置(即刻度值)。
下面能够实现上述操作的事件过程是
()。
A:
PrivateSubHScroll1_Change()
PrintHScroll1.SmallChange
EndSub
B:
PrivateSubHScroll1_Scroll()
PrintHScroll1.Value
EndSub
C:
PrivateSubHScroll1_Scroll()
PrintHScroll1.SmallChange
EndSub
D:
PrivateSubHScroll1_Change()
PrintHScroll1.Value
EndSub
答案:
D
第12题(1.0分)
设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().
A:
True
B:
False
C:
1
D:
出错信息
答案:
B
第13题(1.0分)
单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.
A:
Scroll
B:
KeyDown
C:
Change
D:
Dragover
答案:
C
第14题(1.0分)
确定一个控件在窗体上的位置的属性是:
A:
Width和Height
B:
Width或Height
C:
Top和Left
D:
Top或Left
答案:
C
第15题(1.0分)
在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位
在COMMAND1控件上,应将COMMAND1控件的()设置为0
A:
INDEX
B:
TABINDEX
C:
TABSTOP
D:
ENABLED
答案:
B
第16题(1.0分)
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
StaticxAsInteger
Cls
y=y+2
x=x+2
Printx,y
EndSub
程序运行后,连续四次单击Command1按钮后,窗体上显示的是
A:
88
B:
82
C:
28
D:
22
答案:
B
第17题(1.0分)
计算z的值,当x大于等于y时,z=x;否则z=y。
下列语句错误的是()。
A:
Ifx>=yThenz=x:
z=y
B:
Ifx>=yThenz=xElsez=y
C:
z=y:
Ifx>=yThenz=x
D:
Ifx<=yThenz=yElsez=x
答案:
A
第18题(1.0分)
m=1
n=1
SelectCasem
Case1
SelectCasen
Case0
Print"**0**"
Case1
Print"**1**"
EndSelect
Case2
Print"**2**"
EndSelect
A:
**0**
B:
**1**
C:
**2**
D:
0
答案:
B
第19题(1.0分)
有如下程序段,该程序段执行完后,执行循环的次数是()。
total=0
Counter=1
Do
PrintCounter
total=total+Counter
Printtotal
Counter=Counter+1
Iftotal>10Then
ExitDo
EndIf
LoopWhileCounter<=10
A:
5
B:
10
C:
15
D:
20
答案:
A
第20题(1.0分)
PrivateSubCommand1_Click()
K=0
A=0
WhileK<10
K=K+2
A=A+K
Wend
PrintA
EndSub
A:
2
B:
10
C:
20
D:
30
答案:
D
第21题(1.0分)
执行了下面的程序:
SubForm_Click()
Fori=1To6
List1.AddItemi
Next
Fori=1To3
List1.RemoveItemi
Next
EndSub
列表框中的数据项为
A:
1,5,6
B:
2,4,6
C:
4,5,6
D:
1,3,5
答案:
D
第22题(1.0分)
如下数组声明语句,正确的是
A:
Dima[3,4]AsInteger
B:
Dima(3,4)AsInteger
C:
Dima(n,n)AsInteger
D:
Dima{3,4}AsInteger
答案:
B
第23题(1.0分)
用下面语句定义的数组的元素个数是()
DimA(-3To5)AsInteger
A:
6
B:
5
C:
8
D:
9
答案:
D
第24题(1.0分)
在窗体上添加一个命令按钮,编写如下代码:
OptionBase1
PrivateSubCommand1_Click
Dima(10)AsInteger,p(3) AsInteger
k=5
Fori=1To10
a(i)=i
Nexti
Fori=1To3
p(i)=a(i*i)
Nexti
Fori=1To3
k=k+p(i)*2
Nexti
Printk
EndSub
程序运行后,单击命令按钮,输出结果是
A:
35
B:
28
C:
33
D:
37
答案:
C
第25题(1.0分)
有如下事件过程:
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger
m=2:
n=1
Print"m=";m;"n=";n
CallTOD(m,n)
Print"m=";m;"n=";n
EndSub
SubTOD(x,y)
x=x^2
y=y^3
EndSub
程序运行后,输出的结果为()。
A:
m=2n=1
m=1n=2
B:
m=2n=1
m=4n=1
C:
m=1n=2
m=1n=4
D:
m=1n=2
m=2n=4
答案:
B
第26题(1.0分)
Sub和Function的最大差别在于______.
A:
Function有返回值,而Sub没有
B:
Function需要输入参数,而Sub不用
C:
Sub可以用Call语句调用,而Function不行
D:
两者并无不同
答案:
A
第27题(1.0分)
下面过程运行后显示的结果是
PubicSubF1(n%,ByValm%)PrivateSubCommand1_Click()
N=nMod10Dimx%,y%
M=m\10x=12:
y=34
EndSubCallF1(x,y)
Printx,y
EndSub
A:
234
B:
1234
C:
23
D:
123
答案:
A
四、程序填空共4题(共计40分)
第1题(10.0分)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
在窗体上建立两个文本框Text1(输入数)及Text2(显示结果),
'一个命令按钮Command1("判断")。
单击按钮时判断Text1中输入的数值
'是否是4的倍数。
'-------------------------------------------------------
PrivateSubCommand1_Click()
DimxAsInteger
'**********SPACE**********
IfIsNumeric(Text1.Text)=【?
】Then
Text2.Text="输入错误"
ExitSub
EndIf
'**********SPACE**********
x=CInt(【?
】)
'**********SPACE**********
If【?
】=0Then
Text2.Text="是4的倍数"
Else
Text2.Text="不是4的倍数"
EndIf
EndSub
答案:
=======(答案1)=======
False
=========或=========
0
=======(答案2)=======
Text1.Text
=========或=========
Text1
=======(答案3)=======
xMod4
=========或=========
x/4-x\4
=========或=========
x/4-int(x/4)
=========或=========
x\4-x/4
=========或=========
int(x/4)-x/4
第2题(10.0分)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'题目:
窗体上添加一个名为command1的命令按钮,程序运行后,单击命令按钮,统计字符
'串中"i"的个数,请将程序补充完整。
'-------------------------------------------------------
PrivateSubCommand1_Click()
DimnAsInteger
a$="BeijingUniversityofTechnology"
'**********SPACE**********
n=【?
】
Fori=1Ton
b$=Mid(a,i,1)
'**********SPACE**********
If【?
】Thenx=x+1
Nexti
Print"x=";x
EndSub
答案:
=======(答案1)=======
Len(a)
=======(答案2)=======
b=(i)
第3题(10.0分)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
根据输入的学习成绩,分别显示优秀(90分以上),良好
'(75分以上),及格(60分以上),不及格几个等级。
'-------------------------------------------------------
PrivateSubCommand1_Click()
x=Val(Text1.Text)
Ifx>=90Then
Label1.Caption="优秀"
'**********SPACE**********
ElseIf【?
】Then
Label1.Caption="良好"
ElseIfx>=60Then
'**********SPACE**********
【?
】
'**********SPACE**********
【?
】
Label1.Caption="不及格"
EndIf
EndSub
答案:
=======(答案1)=======
x>=75
=========或=========
75<=X
=======(答案2)=======
Label1.Caption="及格"
=========或=========
Label1="及格"
=======(答案3)=======
Else
第4题(10.0分)
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能:
输入一个数,若大于0,则显示"+";若小于0,
'则显示"-";若等于"0",则显示"零"。
'-------------------------------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic