计算机二级考试VB基础考试题.docx
《计算机二级考试VB基础考试题.docx》由会员分享，可在线阅读，更多相关《计算机二级考试VB基础考试题.docx（11页珍藏版）》请在冰豆网上搜索。
计算机二级考试VB基础考试题
计算机二级考试VB基础考试题
2017计算机二级考试VB基础考试题
考试题一：
1.下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到文件Ks61.dat中，然后从该文件中读出字符串并显示出来。
请完善下面的程序：
PrivateForm_Click（）
DimStr1AsString*50,Str2AsString,FileNoAsInteger
FileNo=【63】
Open“d:
Vb2003KsKs61.dat”For【64】AsFileNo
Str1=InputBox（“请输入一个字符串：
”）
Str1=Lcase（Str1）
Seek#FileNo,1
Put#FileNo,,Str1
【65】#FileNo,1
Str2=Input（【66】,#FileNo）
PrintStr2
EndSub
【63】（A）Free（B）File（C）FreeFile（D）FileFree
【64】（A）Input（B）Output（C）Random（D）Binary
【65】（A）Loc（B）Lof（C）Eof（D）Seek
【66】（A）Len（Str1）（B）Len（Str2）（C）StrLen（Str1）（D）StrLen（Str2）
2.以下程序的功能是：
把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。
请填空。
PrivateSubCommand1_Click（）
DiminDataAsString
Text1.Text=""
Open".smtext1.txt"【14】As#1
DoWhile【15】
Input#1,inData
Text1.Text=Text1.Text&inData
Loop
Close#1
EndSub
3.在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Text1.Text=“”
Text1.SetFocus
Fori=1to10
Sum=Sum+i
Nexti
Text1.Text=Sum
EndSub
程序运行后，输出结果为（【67】）
（A）在文本框Text1中输出55（B）在文本框Text1中输出0
（C）在文本框Text1中输出不定值（D）出错
4.在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：
PrivateSubForm_Load（）
List1.AddItem“123”
List1.AddItem“456”
List1.AddItem“369”
List1.AddItem“789”
Text1.Text=“”
EndSub
PrivateSubList1_DblClick（）
a=List1.Text
Printa+Text1.Text
EndSub
程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果（【68】）
（A）617（B）248369（C）369248（D）0
5.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。
如图所示。
当移动滚动框时，在相应的标签中显示滚动条的值。
当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。
以下不能实现上述功能的事件过程是
（A）PrivateSubCommand1_Click（）
Label3.Caption=Str（Val（Label1.Caption）*Val（Label2.Caption））
EndSub
（B）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1.Value*HScroll2.Value
EndSub
（C）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1*HScroll2
EndSub
（D）PrivateSubCommand1_Click（）
Label3.Caption=HScroll1.Text*HScroll2.Text
EndSub
6.阅读下面程序：
PublicSubxy（aAsInteger,bAsInteger）
DimtAsInteger
Do
t=aModb
a=b:
b=t
LoopWhilet
Printa
EndSub
用Callxy（16,40）调用此通用过程后，输出结果为（【69】）
（A）4（B）8（C）16（D）32
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Forn=1To20
IfnMod3<>0Thenm=m+n3
Nextn
Printn
EndSub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
（A）15（B）18（C）21（D）24
8.以下语句的输出结果是（【70】）
a=“BeiJing”
b=“ShangHai”
Printa;b
以下结果中，“□”表示空格：
（A）BeiJing□ShangHai（B）BeiJingShangHai
（C）BeiJingShangHai□（D）BeiJing□ShangHai□
9.下面程序共执行了（【71】）次循环。
DimIntsumAsInteger,iAsInteger,jAsInteger
考试题二：
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num=1
DoUntilnum>6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是
（A）13.45.8（B）135（C）147（D）无数据输出
2.有如下函数：
FunctionFacn（xAsInteger）AsLong
DimpAsLong,iAsInteger
p=1
Fori=1Tox
p=p*i
Nexti
Facn=p
EndFunction
调用它的.事件过程如下：
PrivateSubCommand1_Click（）
i=Val（InputBox（“请输入数据”））
a=Facn（（i））‘实参i用圆括号括起，则强制为值传递
Printa
EndSub
若输入数据6，则程序运行结果为（【73】）
（A）60（B）120（C）600（D）720
3.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsInteger,sAsInteger
a=8
s=1
Do
s=s+a
a=a-1
LoopWhilea<=0
Prints;a
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是
（A）79（B）340（C）97（D）死循环
4.下列程序的执行结果为（【74】）
DimIntSumAsInteger,iAsInteger
IntSum=0
Fori=30.2To1Step-5.3
IntSum=IntSum+i
Nexti
PrintIntSum
（A）106（B）105（C）102（D）101
5.在窗体上画一个命令按钮，然后编写如下事件过程，该过程执行结果为（【75】）
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant,sAsInteger
a=Array（2,4,6,8）
j=1
Fori=1To4Step1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
（A）0（B）1110（C）2468（D）8642
设有如下通用过程：
PublicFunctionf（xAsInteger）
DimyAsInteger
x=20
y=2
f=x*y
EndFunction
6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
StaticxAsInteger
x=10
y=5
y=f（x）
Printx;y
EndSub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
（A）105（B）205（C）2040（D）1040
7.对窗体编写如下代码：
OptionBase1
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
a=Array（123,86,57,248,32）
m1=a
（1）
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa（i）>m1Then
m1=a（i）
m2=i
EndIf
Nexti
EndIf
Printm1,m2
EndSub
程序运行后，按回车键，输出结果为（【76】）
（A）325（B）2484（C）321（D）2485
设有如下通用过程：
PublicSubFun（a（）,ByValxAsInteger）
Fori=1To5
x=x+a（i）
Next
EndSub
8.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
PrivateSubCommand1_Click（）
Dimarr（5）AsVariant
Fori=1To5
arr（i）=i
Next
n=10
CallFun（arr（）,n）
Text1.Text=n
EndSub
程序运行后，单击命令按钮，则在文本框中显示的内容是
（A）10（B）15（C）25（D）24
9.阅读程序：
FunctionFunc（aAsInteger）
b=1
StaticcAsInteger
b=b+1
c=c+1
Func=a+b+c
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=3
Fori=1to3
PrintFunc（a）
Nexti
EndSub
运行上面的程序，单击命令按钮后，输出结果为（【77】）
（A）6（B）6（C）6（D）6
76813
861021
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
d=0
c=10
x=Array（10,12,21,32,24）
Fori=1To5
Ifx（i）>cThen
d=d+x（i）
c=x（i）
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
（A）89（B）99（C）23（D）77
升级会员 