VB试题库及答案Word文件下载.docx
《VB试题库及答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB试题库及答案Word文件下载.docx（17页珍藏版）》请在冰点文库上搜索。
A、b=Left（a,10）B、b=Mid（a,10）
C、b=Right（a,10）D、b=Mid（a,11,10）
7、设a="
a"
，b="
b"
，c="
c"
，d="
d"
，执行语句x=IIf（（a<
b）Or（c>
d）,"
A"
"
B"
）后，x的值为
A、"
B、"
C、"
D、"
8、在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Click（）
x=InputBox（"
请输入一个整数"
）
Printx+Text1.Text
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为
A、123B、456C、579D、123456
9、在BASIC中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（
A、AND->
NOT->
OR
B、NOT->
AND->
OR
C、OR->
AND
D、NOT->
OR->
AND
10、下面程序段运行时内层循环的循环总次数（
FORX=1TO2
FORY=1TOX
NEXTY
NEXTX
A.、1B、2C、3D、4
11、在VB中，复写框（Check）的Value值有三种，分别是（）。
A、-1，0，1B、0，1，2
C、1，2，3D、True，False，0
12、若要退出For循环，可使用的语句为（）。
A、ExitB、ExitDoC、TimeD、ExitFor
13、利用VB设计程序的基本步骤可分四步：
（1）设计用户界；
（2）（）；
（3）运行调试程序；
（4）生成执行文件。
A、编写代码B、设计算法C、信息反馈D、系统集成
14、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是（ ）
A、Form1.Caption“时钟”B、Form1.Caption=“时钟”
C、Caption=“时钟”D、Fopm1.Caption（“时钟”）
15、保存文件时，窗体的所有数据存储格式为（）
A、*．PRGB、*．FRMC、*．VBPD、*．EXE
16、在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。
程序运行后，如果单击命令按钮，则每隔一秒中在文本框中显示一次当前的时间。
以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1._______
PrivateSubTimer1_Timer（）
Text1.Text=Time
在_____处应填入的内容是
A、Enabled=TrueB、Enabled=FalseC、Visible=TrueD、Visible=False
17、把窗体的KeyPreview属性设置程为True，然后编写如下事件过程
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
程序运行后，按键盘上的“A“键，则在窗体上显示的内容是
A、AB、BC、CD、D
18、VB中的变量如果没有显示声明其数据类型，则默认为（）
A、日期型B、数据型C、字符型D、变体型
19、在VB中，通过改变列表框（）属性的值，可以为列表框添加项目。
A、ListB、（名称）C、CaptionD、Text
20、已知A$=”12345678”，则表达式Val（left$（a$,4）+Mid$（a$,4,2））的值为（
A、12345
B、123445
C、8
D.6
21、下面程序段显示的结果是（
Dimx
Ifxthenprintxelseprintx+1
A、1B、0C.、-1
D、显示出错信息
22、用来测试指定文件结束状态的函数是（）
A、EofB、FreeFileC、Loc
D、Open
23、当Long类型数据与Single类型运算时,运算结果的类型为（
A、Integer
B、Long
C、Single
D、Double
24、某一VB工程含F1、F2两个窗体，执行“F1．Show：
F2．Hide”语句后，F1、F2窗体显示的结果为（）。
A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体
25、数学关系3=〈x〈10表示成正确的VB表达式为（）
A、3〈=x〈10B、3=〈xANDx〈10
C、x〉=3ORx〈10D、3〈=xAND〈10
26.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
PrivateSubForm_Click（）
Dimarr（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr（i,j）=i*j
Nextj
Nexti
Label1.Caption=Str（arr（2,2）+arr（3,3））
程序运行后，单击窗体，在标签中显示的内容是
A、12B、13C、14D、15
27.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中某个项目时，在标签中显示被选中项目的名称。
下列能正确实现上述操作的程序是
A、PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
B、PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
C、PrivateSubList1_Click（）
Label1.Name=List1.Text
D、PrivateSubList1_Click（）
Label1.Caption=List1.Text
28、设a=5，b=4，c=3，d=2，下列表达式的值是
3>
2*bOra=cAndb<
>
cOrc>
d
A、1B、TrueC、FalseD、2
30、下列操作不能打开代码窗口的是（）
A、选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B、选中对象,双击鼠标左键
C、按F7键
D、按F4键
第2部分
1、VB语言的语法规定，多条语句放在同一行中，语句之间用（）分隔。
A、逗号B、冒号C、分号D、单引号
2、在VB中，执行“A=18MOD4”语句后，A的值为（）。
A、2B、4C、6D、8
3、A为True，B为False，则“AandB”和“AOrB”的值分别是（）。
A、TrueTrueB、TrueFalseC、FalseTrueD、FalseFalse
4、在VB中，执行“DimA,BAsString”语句后，A，B的数据结构为（）。
A、整型数B、实型数C、字符型D、字节型
5、在VB中，执行“A=123：
B=Str$（A）”语句后，B的数据结构为（）。
A、整型数、B、字节型C、实型数D、字符型
6、在VB中，复写框（Check）的Value值有三种，分别是（）。
A、-1，0，1B、0，1，2C、1，2，3D、True，False，0
7、若要退出For循环，可使用的语句为（）。
8、利用VB设计程序的基本步骤可分四步：
（1）设计用户界；
9、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是（ ）
A、Form.Caption“时钟”B、Form.Caption=“时钟”
C、Caption=“时钟”D、Fopm.Caption（“时钟”）
10、保存文件时，窗体的所有数据存储格式为（）。
A、*．PRGB、*．FRMC、*．VBPD、*．EXE
11、窗体初始化程序应写在（）事件中。
A、LoadB、UnloadC、ActivateD、GotFocus
12、某一VB工程含F1、F2两个窗体，执行“F1．Show:
A、都显示B、都不显示C、仅显示F1窗体D、仅显示F2窗体
13、VB的数据类型分为（）
A、数值型、字符型、布尔型、日期型B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型D、整型、实型、字符型、日期型、布尔型
14、VB中的变量如果没有显示声明其数据类型，则默认为（）
15、在VB中，通过改变表框（）属性的值，可以为列表框添加项目。
A、ListB、（名称）C、CaptionD、Text
16、在VB中，三个逻辑运算符NOT，AND，OR在运算过程中，优先级从高到低的顺序是（
A、AND->
17、下面程序段运行时内层循环的循环总次数（
FORY=0TOX-1
NEXTY
A、1
B、2
C、3D、4
18、正确的算术表达式是（
A、-3/8+5\INT24.6
B、8*3/5
C、[（X+Y）*Z]/30
D、（X^2+Y/3）*X3
19、若A=2,B=3,C=4,则值为真的关系式是（
A.12/A+2=B^2
B、3>
2*BORA=CANDB>
CORA>
B
C、A>
BANDB<
=COR3*A>
C
D、A*B>
C+3
20、当Long类型数据与Single类型运算时,运算结果的类型为（
）。
A、Integer
B、Long
C、Single
D、Double
21、下面关于顺序文件的描述正确的是（
A.每条记录长度必须相同
B.可通过编程对文件中的某条记录方便的修改。
C.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示。
D.文件的组织结构复杂。
22、下列（）不属于VB的控件。
A、窗体B、数据C、形状D、直线
23、下面（
A、X_YZ
B、123+ABC
C、INTEGER
D、X-Y
24、下面的程序段，输入9后，输出结果是（）。
X=inputbox（“输入一个数”）
Selectcasex
Case1to5
Y=-1
Case5to10
Y=0
Case10to15
Y=1
Endselect
A、0B、1C、-1D、2
25、下列说法中正确的是（）。
A、数组只具有数组名，而没有数组类型
B、数组只具有数组类型，而没有数组名
C、数组的类型和数组元素的类型不同
D、数组和变量一样，都有名称和类型这两种属性
26、创建公用数组的方法是（）。
A、在模块中用Private语句声明B、在模块中用Public语句声明
C、在过程中用Private语句声明D、在过程中用Public语句声明
不是B就是D
27、VisualBasic6.0中缺省的参数传递机制是（）。
A、传值B、传地址C、传值和传地址D、从实参到形参
28、已知A$=”12345678”，则表达式Val（left$（a$,4）+Mid$（a$,4,2））的值为（
A、12345
C、8
D、6
29、下面正确的赋值语句是（）
A、x+y=30B、y=*r*rC、y=x+30D、3y=x
30、要保留动态数组原有的内容，应当使用（）语句。
A、RedimPreserveB、Redim
C、DimC、Public
不是A就是B
二、填空题（每空2分，共20分）
1、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。
请在有（）的地方填上适当的语句或表达式。
（8分）
DimsAsSingle
DimiAsSingle
s=（0）
Fori=1to100（step2）
S=（s+i）
（nexti）
Prints
2、在下列程序的（）内写上适当的内容，使能输出如下图形。
*
**
***
****
*****
******
程序如下：
Fori=1to（6）
Forj=1to（i-6）
Print（“*”）
（PrintString（i,"
*"
））
3、写出下列程序的执行结果
Dima（1To10）AsInteger
Dimb（1To10）AsInteger
Dimc（1To10）AsInteger
Fori=1To10
a（i）=i
Nexti
b
（1）=10
Forj=9To1Step-1
b（10-j+1）=j
Nextj
Fork=1To10
c（k）=a（k）+b（k）
Nextk
Forl=1To10
Printc（l）;
Ifl=5Then
Print
EndIf
Nextl
结果：
1111111111
1111111111
4、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Text1.text="
VB程序设计"
PrivateSubText1_Change（）
Picture1.Print"
VBProgramming"
程序运行后，单击窗体，在文本框显示的内容是__VB程序设计____，而在图片框显示的内容是__VBProgramming____。
5、下列程序输出的值是多少？
s=0
Fori=9To42Step11
s=s+i
Ifi>
50Then
Else
s=s-i
Prints
结果是：
_______155_________。
6、设有如下程序：
DimaAsInteger,sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>
Prints
以上程序的功能是计算1到8的累加。
程序运行后，单击窗体，输出结果为_36___。
7、设有如下程序：
用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。
OptionBase1
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array（12,435,76,-24,78,54,866,43）
Min=arr1
（1）
Fori=2To8
Ifarr1（i）<
MinThenmin=arr1（i）
Print"
最小值是：
"
;
min
8、在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
以下程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
Open"
d:
\test\smtext1.txt"
ForInputAs#1
DoWhileNoteof
（1）
LineInput#1,aspect$
whole$=whole$+aspect$+Chr$（13）+Chr$（10）
Loop
Text1.Text=whole$
Close#1
Open"
\test\smtext2.txt"
ForOutputAs#1
Print#1,text1.text
Close#1
三、程序设计题
1、编写一个函数计算1*2*…*n的值，函数名为fact（）
PrivateFunctionfact（nAsInteger）AsInteger
DimiAsInteger
DimrAsInteger
r=1
Fori=1Ton
r=r*i
fact=r
EndFunction
2、编写一个过程,求成1*2*3*…*N的值，过程名为NA。
3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox（）函数输入框。
当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。
提问：
（1）、应该对窗体的什么事件进行编程？
（2）、编写程序代码，实现上述功能。
应该对窗体的单击（Click）事件进行编辑
Dima（15）,iAsInteger
Fori=1To15
a（i）=InputBox（"
请输入15个整数，单击确定按钮."
）
Next
Printa（i）;
"
IfiMod5=0ThenPrint
4、已知三角形的三条边，编写一个函数求其面积，函数名自命名。
Dima,b,c,l,S
a=Val（InputBox（"
请输入第一条边的长：
））
b=Val（InputBox（"
请输入第二条边的长：
c=Val（InputBox（"
请输入第三条边的长：
l=（a+b+c）/2
Ifl<
=aOrl<
=bOrl<
=cThen
MsgBox"
输入的数据不能组成三角形!
ExitSub
EndIf
S=Sqr（l*（l-a）*（l-b）*（l-c））
PrintS
升级会员 