计算机二级考试VB基础考试题.docx
- 文档编号:11948424
- 上传时间:2023-06-03
- 格式:DOCX
- 页数:11
- 大小:16.44KB
计算机二级考试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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 考试 VB 基础 考试题