全国计算机二级vb机试题库1广东考区.docx
《全国计算机二级vb机试题库1广东考区.docx》由会员分享，可在线阅读，更多相关《全国计算机二级vb机试题库1广东考区.docx（165页珍藏版）》请在冰豆网上搜索。
全国计算机二级vb机试题库1广东考区
全国计算机二级vb机试题库1包含题库88套题目的第3、4道题全国计算机二级vb机试题库2包含题库88套题目的第5道题。
（1a）【操作步骤】
步骤1：
打开本题工程文件，在窗体中添加一个单选按钮数组，包含3个单选按钮。
再添加一个文本框。
步骤2：
按照题目要求设置控件的属性，见表3.4。
步骤3：
分析并编写程序代码。
PrivateSubOp1Click（IndexAsInteger）
DimaAsString,bAsString,cAsString
a="我坐"
b="我开"
'SelectCase?
Case0
Text1.Text=a＋Me.Op1（0）．Caption＋"去"
Case1
'Text1.Text=?
＋Me.Op1
（1）．Caption＋"去"
Case2
Text1.Text=b＋Me.Op1
（2）．Caption＋"去"
EndSelect
EndSub
程序结束
参考答案
第一个？
处填入：
Index
第二个？
处填入：
a
（1b）【操作步骤】
步骤1：
打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。
步骤2：
为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表3.5和表3.6。
步骤3：
分析并编写程序代码。
程序提供代码
PrivateSubFormUnload（CancelAsInteger）
Open"out4.txt"ForOutputAs#1
Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.Text
Close#1
EndSub
程序结束
参考答案
PrivateSubC1_Click（）
Text1.Text="我是"
IfOp1.ValueThen
Text1.Text=Text1.Text&Op1.Caption
Else
Text1.Text=Text1.Text&Op2.Caption
EndIf
IfOp3.ValueThen
Text1.Text=Text1.Text&Op3.Caption
Else
Text1.Text=Text1.Text&Op4.Caption
EndIf
EndSub
（2a）【操作步骤】
步骤1：
按题目要求打开工程文件，设置计时器属性,将Enabled属性设置为False，并将Interval属性设置为100。
步骤2：
分析并编写程序代码。
程序提供代码
PrivateSubC1_Click（）
' Timer1.Enabled=?
EndSub
PrivateSubTimer1_Timer（）
Statica%
a=a=+1
' IfP1.Top>P2.Top＋P2.?
Then
P1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.Height
Else
' Timer1.Enabled=?
EndIf
EndSub
程序结束
参考答案
第1个？
处填入：
True
第2个？
处填入：
Height
第3个？
处填入：
False
（2b）【操作步骤】
步骤1：
打开本题工程文件。
步骤2：
分析并编写程序代码。
程序提供代码
PrivateFunctionxn（aAsSingle,mAsInteger）
DimiAsInteger
tmp=1
Fori=1Tom
' tmp=?
Next
'xn=?
EndFunction
PrivateSubCommand1_Click（）
DimnAsInteger
DimiAsInteger
DimtAsSingle
Dims,xAsSingle
n=Val（Text1.Text）
x=Val（Text2.Text）
z=0
Fori=2Ton
t=x+i
' z=z+？
Next
'Label1.Caption=?
CallSaveResult
EndSub
PrivateSubSaveResult（）
OpenApp.Path&"\out4.dat"ForOutputAs#1
Print#1,Label1.Caption
Close#1
EndSub
程序结束
参考答案
第1个？
处填入：
tmp*a
第2个？
处填入：
tmp
第3个？
处填入：
xn（t,i）
第4个？
处填入：
z
（3a）【操作步骤】
步骤1：
打开本题工程文件。
步骤2：
分析并编写程序代码。
程序提供代码
Dima（100）AsInteger
PrivateSubCommand1_Click（）
DimkAsInteger
OpenApp.Path&"\in3.dat"ForInputAs#1
Fork=1To100
Input#1,a（k）
Nextk
Close#1
EndSub
PrivateSubCommand2_Click（）
'需考生编写
EndSub
'以下Function过程用于判断某数是否为水仙花数
Functionisnarc（pAsInteger）
x=Fix（p/100）
y=Fix（（p-x*100）/10）
z=p-x*100-y*10
Ifp=x^3+y^3+z^3Then
isnarc=True
Else
isnarc=False
EndIf
EndFunction
PrivateSubFormUnload（CancelAsInteger）
OpenApp.Path&"\out3.dat"ForOutputAs#1
Print#1,Val（Text1.Text）
Print#1,Val（Text2.Text）
Close#1
EndSub
程序结束
参考答案
DimiAsInteger
DimmaxAsInteger,minAsInteger
max=-1
min=1000
Fori=1To100
Ifisnarc（a（i））Then
Ifmax<=a（i）Thenmax=a（i）
Ifmin>=a（i）Thenmin=a（i）
EndIf
Nexti
Text1=max
Text2=min
（3b）【操作步骤】
步骤1：
打开本题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。
步骤2：
设置窗体中控件的属性，控件的属性见表3.12。
表3.12
步骤3：
分析并编写程序代码。
程序提供代码
窗体代码
PrivateSubForm_Unload（CancelAsInteger）
unloadsub
EndSub
模块代码
Subunloadsub（）
Open"out4.dat"ForOutputAs#1
Print#1,Val（Form1.Cb1.Text）,Val（Form1.Text1.Text）
Close#1
EndSub
程序结束
参考答案
PrivateSubC1_Click（）
DimsumAsLong
DimnAsInteger
DimiAsInteger
n=Val（Cb1.Text）
Fori=nTo5000
IfiModn=0Then
sum=sum+i
EndIf
Nexti
Text1.Text=sum
EndSub
（4a）【操作步骤】
步骤1：
新建一个窗体，按照题目要求建立控件并设置控件属性。
程序中用到的控件及属性设置见表3.17和3.18
步骤2：
分析并编写程序代码。
参考答案
PrivateSubCommand1_Click（）
Combo1.AddItemText1
EndSub
PrivateSubCommand2_Click（）
PrintCombo1.ListCount
EndSub
（4b）【操作步骤】
步骤1：
打开本题工程文件。
步骤2：
分析并编写程序代码。
程序提供代码
PrivateSubCommand1_Click（）
DimnAsInteger,kAsInteger,mAsInteger
DimcAsString,aAsString
Fork=0To2
IfOp1（k）．ValueThen
' n=Val（Op1（k）.?
）
EndIf
Nextk
m=Len（Text1.Text）
a=""
' Fork=1To?
' c=Mid$（Text1.Text,?
1）
c=String（1,Asc（c）+n）
Ifc>"z"Orc>"Z"Andc<"a"Then
c=String（1,Asc（c）-26）
EndIf
' ？
=a+c
Nextk
Text2.Text=a
EndSub
程序结束
参考答案
第1个？
处填入：
Caption
第2个？
处填入：
m
第3个？
处填入：
k
第4个？
处填入：
a
步骤3：
调试并运行程序，关闭程序后按题目要求存盘。
（5a）【操作步骤】
步骤1：
打开本题工程文件，在窗体中添加一个列表框和一个文本框，按照表3.22所示设置控件属性。
表3.22
控件
列表框
文本框
属性
Name
Name
设置值
List1
Text1
步骤2：
分析并编写程序代码。
程序提供代码
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=1Then
Text1.Text=InputBox（"请输入要添加的项目"）
'List1.AddItem?
EndIf
IfButton=2Then
Text1.Text=InputBox（"请输入要删除的项目"）
'Fori=0To?
'IfList1.List（i）=?
Then
'List1.RemoveItem?
EndIf
Nexti
EndIf
EndSub
程序结束
参考答案
第1个？
处填入：
Text1.Text
第2个？
处填入：
List1.ListCount－1
第3个？
处填入：
Text1.Text
第4个？
处填入：
i
（5b）【操作步骤】
步骤1：
打开本题工程文
升级会员 