VB试题Word文件下载.docx
《VB试题Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB试题Word文件下载.docx（24页珍藏版）》请在冰点文库上搜索。
b+1Orc<
dAndbModc
A）TrueB）1C）–1D）0
（7）以下可以作为VisualBasic变量名的是。
A）A#AB）counstAC）3AD）?
AA
（8）以下叙述中，错误的是。
A）一个VisualBasic应用程序可以含有多个标准模块文件
B）一个VisualBasic工程可以含有多个窗体文件
C）标准模块文件可以属于某个指定的窗体文件
D）标准模块文件的扩展名是.bas
（9）假定有如下的命令按钮（名称为Command1）事件过程：
PrivateSubCommand1_Click（）
x=InputBox（"
输入：
"
，"
输入整数"
）
MsgBox"
输入的数据是：
”，，”输入数据：
+x
EndSub
程序运行后，单击命令按钮，如果从键盘上输入整数9，则以下叙述中错误的是。
A）x的值是数值9B）输入对话框的标题是“输入整数”
C）信息框的标题是“输入数据：
9”D）信息框中显示的是“输入的数据是：
”
（10）在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然
后编写如下事件过程：
PrivateSubCommand1_Click（）
x=Val（Text1.Text）
SelectCasex
Case1，3
y=x*x
CaseIs>
=10，Is<
=-10
y=x
Case-10To10
y=-x
EndSelect
程序运行后，在文本框中输入4，然后单击命令按钮，则以下叙述中正确的是。
A）执行y=x*xB）执行y=-xC）先执行y=x*x，再执行y=-xD）程序出错
（11）设有命令按钮Command1的单击事件过程，代码如下：
Dima（10）AsInteger
Fori=1To10
a（i）=Int（Rnd*100）
Next
ForEacharrItemIna
IfarrItemMod4=0ThenPrintarrItem；
IfarrItem>
50ThenExitFor
对于该事件过程，以下叙述中错误的是。
A）a数组中的数据是10个100以内的整数
B）语句ForEacharrItemIna有语法错误
C）IfarrItemMod4=0……语句的功能是输出数组中能够被4整除的数
D）IfarrItem>
50……语句的作用是当数组元素的值大于50时退出For循环
（12）设有命令按钮Command1的单击事件过程，代码如下：
Dima（3，3）AsInteger
Fori=1To3
Forj=1To3
a（i，j）=i*j+i
Nextj
Nexti
Sum=0
Sum=Sum+a（i，4-i）
PrintSum
运行程序，单击命令按钮，输出结果是。
A）20B）7C）16D）17
（13）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
a=0
Fori=1To2
Forj=1To4
IfjMod2<
>
0Then
a=a-1
EndIf
a=a+1
Printa
程序运行后，单击命令按钮，输出结果是。
A）0B）2C）3D）4
（14）窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。
程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中。
为了实现上述功能，在程序中的问号（?
）处应填入的内容是。
PrivateSubOption1_Click（IndexAsInteger）
IfText1.Text<
Then
SelectCase?
Case0
Text2.Text=Val（Text1.Text）
Case1
Text2.Text=Val（Text1.Text）*10
Case2
Text2.Text=Val（Text1.Text）*100
A）IndexB）Option1.IndexC）Option1（Index）D）Option1（Index）.Value
（15）在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
DimxAsInteger
a（i）=8+i
x=2
Printa（f（x）+x）
Functionf（xAsInteger）
x=x+3
f=x
EndFunction
程序运行后，单击命令按钮，输出结果为。
A）12B）15C）17D）18
（16）以下关于过程的叙述中，错误的是。
A）事件过程是由某个事件触发而执行的过程B）函数过程的返回值可以有多个
C）可以在事件过程中调用通用过程D）不能在事件过程中定义函数过程
（17）在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。
编写如下程序：
PrivateSubForm_Load（）
Text1.Text="
Text2.Text="
Text3.Text="
x=Val（Text1.Text）
y=Val（Text2.Text）
Text3.Text=f（x，y）
Functionf（ByValxAsInteger,ByValyAsInteger）
DoWhiley<
tmp=xMody
x=y
y=tmp
Loop
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。
A）4B）6C）8D）12
（18）在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintChr（KeyCode）
PrivateSubText1_KeyUp（KeyCodeAsInteger，ShiftAsInteger）
PrintChr（KeyCode+2）
程序运行后，把焦点移到文本框中，此时如果敲击“C”键，则输出结果为。
A）CB）CC）CD）C
CDEF
（19）为了使列表框中的项目呈多列显示，需要设置的属性为。
A）ColumnsB）StyleC）ListD）MultiSelect
（20）如果列表框（List1）中只有一个项目被用户选定，
则执行Debug.PrintList1.Selected（List1.ListIndex）语句的结果是
A）在Debug窗口输出被选定的项目的索引值B）在Debug窗口输出True
C）在窗体上输出被选定的项目的索引值D）在窗体上输出True
（21）在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
DimFlagAsBoolean
DimintNumAsInteger
intNum=InputBox（"
请输入：
IfFlagThen
Printf（intNum）
Functionf（XAsInteger）AsInteger
IfX<
10Then
Y=X
Else
Y=X+10
f=Y
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Flag=True
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。
A）0B）5C）15D）无任何输出
（22）在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=1Then
PopupMenuMenu0
EndSub
则以下叙述中错误的是。
A）该过程的作用是弹出一个菜单B）单击鼠标右键时弹出菜单
C）Menu0是在菜单编辑器中定义的弹出菜单的名称D）参数X、Y指明鼠标当前位置的坐标
（24）设有以下职工的记录类型（由职工号、姓名、工资（基本工资,绩效工资,奖金））定义和数组声明，则要表示第2个职工的绩效工资和该职工的姓名，正确的是
Typeworker
noAsInteger
nameAsString*10
salary（1to3）AsSingle
EndType
Dimw10（1To10）Asworker
A）w10
（2）.salary
（2）,w10
（2）.nameB）w10
（2）.salary,w10
（2）.name
C）w2.salary
（2）,w2.nameD）Withw10
（2）
.salary
.name
EndWith
（25）现有一名为StatusBar1的状态栏，共有3个窗格，现要在最后增加一个窗格，用于显示
系统的当前大小写状态，以下实现方法中,正确的是
A）StatusBar1.Panels.Add4,,,sbrCaps
B）StatusBar1.Add4,"
curCaps"
,4
C）StatusBar1.Panels.Add4,"
cur"
sbrCaps
D）StatusBar1.Add4,,sbrCaps
（27）指令“Circle（500,500）,250,,,,0.6”将绘制
A）画圆B）椭圆C）圆弧D）扇形
（28）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是：
A）PrivateSubText1_Change（）
Command1.Caption=”计算机等级考试”
B）PrivateSubCommand1_Click（）
Caption=”计算机等级考试”
C）PrivateSubForm1_Click（）
Text1.Caption=”计算机等级考试”
D）PrivateSubCommand1_Click（）
Text1.Text=”计算机等级考试”
（29）设a=5,b=4,c=3,d=2，下列表达式的值是 3>
2*bOra=cAndb<
cOrc>
d
A）1
B）True
C）False
D）2
（30）设a=”MicrosoftVisualBasic”,则以下使变量b的值为”VisualBasic”的语句是
A）b=Left（a,10） B）b=Mid（a,10） C）b=Right（a,10）D）b=Mid（a,11,10）
（31）为了使命令按钮（名称为Command1）右移200，应使用的语句是
A）Command1.Move-200 B）Command1.Move200
C）Command1.Left=Command1.Left+200 D）Command1.Left=Command1.Left-200
（32）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。
以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1._________
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time
在______处应填入的内容是
A）Enabled=True B）Enabled=False C）Visible=True D）Visible=False
（33）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：
A）选择图片框，然后按Del键 B）执行语句Picture1.Picture=LoadPicture（“”）
C）执行语句Picture1.Picture=””D）选择图片框，选择Picture属性，然后按回车键
（34）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是
A）PrivateSubList1_Click（） Label1.Caption=List1.ListIndex EndSub
B）PrivateSubList1_Click（） Label1.Name=List1.ListIndex EndSub
C）PrivateSubList1_Click（） Label1.Name=List1.Text EndSub
D）PrivateSubList1_Click（） Label1.Caption=List1.Text EndSub
（35）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<
=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
程序运行后，单击命令按钮，其输出结果为
A）9 B）6 C）12 D）15
（36）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
c="
ABCD"
Forn=1To4
Print_________
Next
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在________处应填入的内容为
A）Left（c,n） B）Right（c,n） C）Mid（c,n,1）
D）Mid（c,n,n）
（37）执行以下程序段
DimxAsInteger,iAsInteger
x=0
Fori=20To1Step-2
x=x+i\5
NextI
后，x的值为
A）16 B）17 C）18 D）19
（38）在VisualBasic工程中，可以作为启动对象的程序是
A）任何窗体或标准模块
B）任何窗体或过程
C）SubMain过程或其他任何模块
D）SubMain过程或任何窗体
（39）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是
A）数组中每个命令按钮的名称（名称属性）均为Command1
B）数组中每个命令按钮的标题（Caption属性）都一样
C）数组中所有命令按钮可以使用同一个时间过程
D）用名称Command1（下标）可以访问数组中的每个命令按钮
（40）把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
A）A B）B C）C D）D
（41）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
a=InputBox（"
请输入日期（1~31）"
t="
旅游景点:
_
&
IIf（a>
0Anda<
=10,"
长城"
"
）_
10Anda<
=20,"
故宫"
20Anda<
=30,"
颐和园"
Text1.Text=t
程序运行后,如果从键盘输入16,则在文本框中显示的内容是:
A）旅游景点：
长城故宫
B）旅游景点：
长城颐和园
C）旅游景点：
颐和园
D）旅游景点：
故宫
（42）在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
PrivateSubForm_Click（）
Dimarr（10,10）AsInteger
DimiAsInteger,jAsInteger
Fori=2To4
Forj=2To4
arr（i,j）=i*j
Nextj
Label1.Caption=Str（arr（2,2）+arr（3,3））
程序运行后,单击窗体,在标签中显示的内容是
A）12B）13C）14D）15
（43）在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionfun（ByValmAsInteger）
IfmMod2=0Then
fun=2
Else
fun=1
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun（i）
Next
Prints
程序运行后,单击命令按钮,则窗体上显示的是:
A）6B）7C）8D）9
（44）阅读程序:
OptionBase1
Dimarr（）AsInteger
PrivateSubForm_Click（）
ReDimarr（3,2）
Fori=1To3
Forj=1To2
arr（i,j）=i*2+j
ReDimPreservearr（3,4）
Forj=3To4
arr（3,j）=j+9
升级会员 