计算机等级考试二级VB考前练习
为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是小编搜索整理的计算机等级考试二级VB考前练习，供参考练习，预祝考生们考出自己理想的成绩!
计算机等级考试二级VB考前练习
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．以下程序的功能是：把当前目录下的顺序文件的内容读入内存，并在文本框Text1中显示出来。请填空。
PrivateSubCommand1_Click()
DiminDataAsString
Text1.Text=""
Open"."【14】As#1
DoWhile【15】
Input#1,inData
Text1.Text=Text1.Text&inData二级VB
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”
apk文件怎么打开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
i=1:j=1
Do
Do
Intsum=Intsum+j
拆迁政策j=j+2
Printj;
LoopUntilj>3
i=i+1
LoopUntili>11
PrintIntsum
（A）10（B）11（C）12（D）13
10．下列程序执行后，变量x的值为（【72】）
Dima,b,c,d,xAsSingle
a=200:b=100:c=500
Ifb>aThen
d=a:a=b:b=d
EndIf
Ifb>cThen
x=b
ElseIfa>cThen
x=c
Else
x=a
EndIf
Printx
（A）0（B）100（C）200（D）500
一键复制全文
下载文档投诉
发布评论