vb2级.docx
《vb2级.docx》由会员分享，可在线阅读，更多相关《vb2级.docx（29页珍藏版）》请在冰豆网上搜索。
vb2级
第三套
一
（1）在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。
在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。
一
（2）在该窗体上画一个图片框，通过其属性窗口将名称设为Picture1，宽度（Width属性）设为1700，高度（Height属性）设为1900。
单击图片框（即运行Click事件过程），在Click事件过程中加入语句：
Picture1.Picture=LoadPicture（"pic1.bmp"），即将考生目录下的图形文件pic1.bmp装入图片框中。
单击窗体（即运行Click事件过程），在Click事件过程中加入语句：
Picture1.Picture=LoadPicture（""），即图片框中的图形消失。
二
（1）通过属性窗口将文本框的对齐格式（Alignment属性）均设为1。
单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
IfOption1.Item（0）=TrueThen
Text2.Text=Format（Sin（Val（Text1.Text）*3.14159/180）,"0.000"）
EndIf
IfOption1.Item
（1）=TrueThen
Text2.Text=Format（Cos（Val（Text1.Text）*3.14159/180）,"0.000"）
EndIf
EndSub
二
（2）在“开始”按钮的PrivateSubCommand1_Click（）事件过程中
1）将语句
'Timer1.Enabled=?
改为
Timer1.Enabled=True
在滚动框的PrivateSubHScroll1_Change（）事件过程中
1）将语句
'?
.Interval=HScroll1.Value
改为
Timer1.Interval=HScroll1.Value
在计时器的PrivateSubTimer1_Timer（）事件过程中
1）将语句
'Picture1.Left=?
+10
改为
Picture1.Left=Picture1.Left+10
三单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
Dimf1,f2,fAsLong
Dima（40）AsLong
f1=1
f2=1
a
（1）=f1
a
（2）=f2
Fori=3ToVal（Text1.Text）
f=f1+f2
a（i）=f
f1=f2
f2=f
Next
Text2.Text=a（40）
EndSub
第四套
一
（1）在该窗体上画一个组合框控件，通过其属性窗口将名称设为Combo1，宽（Width属性）设为1200，Style属性设为1，向组合框中添加项目（List属性），添加的项目分别为“北京”、“上海”、“广州”、“深圳”，每个项目为一行。
激活Form1窗体，通过其属性窗口将最大化按钮（MaxButton属性）设为False，最小化按钮（MinButton属性）设为False。
一
（2）在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2。
画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“左”、“右”。
单击“左”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
Text1.SetFocus
EndSub
单击“右”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand2_Click（）
Text2.SetFocus
EndSub
二
（1）需在该窗体上画一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，共有四个单选按钮，标题（Caption属性）分别设为“选项1”、“选项2”、“选项3”、“选项4”，“选项”的Value属性设为True。
在“下一个”按钮的PrivateSubCommand1_Click（）事件过程中，有三处地方需要修改。
1）将语句
'Fork=0To?
改为
Fork=0To3
2）将语句
'n=?
改为
n=k
3）将语句
'n=?
改为
n=0
二
（2）在命令按钮的PrivateSubCommand1_Click（）事件过程中
1）将语句
'SelectCase?
改为
SelectCaseCombo1.ListIndex
2）将语句
'tmpStr=Mid（Trim（Text1.Text）,?
）
改为
tmpStr=Mid（Trim（Text1.Text）,3,4）
3）将语句
'Text2.Text=?
改为
Text2.Text=tmpStr
三单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
DimfAsLong
a
（1）=1
a
（2）=1
Fori=3ToVal（Text1.Text）
f=a（i-2）+a（i-1）+1
a（i）=f
Next
Text2.Text=f
EndSub
第五套
一
（1）在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，标题（Caption属性）分别设为“语文”、“数学”、“体育”，“数学”的Value属性设为1,“体育”的Value属性设为2。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“选课”。
一
（2）在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2。
画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“复制”、“删除”。
单击“复制”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
Text2=Text1.SelText
EndSub
单击“删除”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand2_Click（）
Text1.SelText=""
EndSub
二
（1）对该窗体上的二个文本框，通过其属性窗口将Alignment属性都设为1。
单击“计算”按钮（即运行其Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
ConstPI=3.14159
SelectCaseCombo1.Text
Case"sin":
a=Sin（CInt（Text1.Text）*PI/180）
Case"cos":
a=Cos（CInt（Text1.Text）*PI/180）
Case"tg":
a=Tan（CInt（Text1.Text）*PI/180）
Case"ctg":
a=1/Tan（CInt（Text1.Text）*PI/180）
EndSelect
Text2=Int（a*1000）/1000
EndSub
另外特别注意需在Text1中输入的值必须是40，而且结束程序时必须用窗体右上角的关闭按钮来结束程序，否则该部分将没有成绩。
二
（2）在窗体的PrivateSubTimer1_Timer事件过程中
1）将语句
'num=?
改为
num=num+1
2）将语句
'Text2.Text=Text2.Text+?
改为
Text2.Text=Text2.Text+10
3）将语句
'Text1.Text=Text1.Text+?
改为
Text1.Text=Text1.Text+1
三在窗体的PrivateSubC1_Click（）事件过程中
1）将语句
'Timer2.Enabled=?
改为
Timer2.Enabled=True
在窗体的PrivateSubTimer1_Timer（）事件过程中
1）将语句
'P1.Picture=LoadPicture（"?
"）
改为
P1.Picture=LoadPicture（"绿灯.ico"）
在窗体的PrivateSubTimer2_Timer（）事件过程中
1）将语句
'Timer2.Enabled=?
改为
Timer2.Enabled=False
2）将语句
'P2.Move?
-10,P2.Top,P2.Width,P2.Height
改为
P2.MoveP2.Left-10,P2.Top,P2.Width,P2.Height
第六套
一
（1）在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2，标题（Caption属性）分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性为False。
单击命令按钮1（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubC1_Clickk（）
C2.Visible=True
C1.Visible=False
EndSub
单击命令按钮2（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubC2_Clickk（）
C1.Visible=True
C2.Visible=False
EndSub
一
（2）在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。
画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。
单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubForm_Click（）
L1.AddItemStr$（Form1.HS1）
EndSub
二
（1）由于提供的Fun（）函数不完整，需添加语句，具体内容：
FunctionFun（a（）AsSingle）AsSingle
Sum=0
Fori=1ToUBound（a）
Sum=Sum+a（i）/i
Nexti
Fun=Sum
EndFunction
二
（2）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'Timer1.Enabled=?
改为
Timer1.Enabled=True
2）将语句
'Command1.Enabled=?
改为
Command1.Enabled=False
在窗体的PrivateSubCommand2_Click（）事件过程中
1）将语句
'Timer1.Enabled=?
改为
Timer1.Enabled=False
在窗体的PrivateSubTimer1_Timer（）事件过程中
1）将语句
'Label1.Left=?
改为
Label1.Left=Label1.Left+20
三单击“统计”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand2_Click（）
n=Len（Text1）
Fork=1Ton
ch=Mid（Text1,k,1）
IfUCase（ch）="A"Then
an=an+1
EndIf
IfUCase（ch）="B"Then
bn=bn+1
EndIf
IfUCase（ch）="C"Then
cn=cn+1
EndIf
IfUCase（ch）="D"Then
dn=dn+1
EndIf
Nextk
Text1=an&""&bn&""&cn&""&dn
EndSub
第七套
一
（1）在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题
（Caption属性）设为“等级考试”，BorderStyle属性为1，标题大小自动调整（
AutoSize属性）设为True。
画一个命令按钮控件，通过其属性窗口将名称设为
Command1。
单击命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
Command1.Caption=Label1
Label1.Visible=False
EndSub
一
（2）在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本
内容（Text属性）设为空。
画三个单选按钮控件，通过属性窗口将名称设为Op1、
Op2、Op3，标题（Caption属性）分别设为“北京”、“西安”、“杭州”。
选择单选按钮Op1（即运行Click事件过程），在该Click事件过程中加入语句
：
PrivateSubOp1_Click（）
Text1="颐和园"
EndSub
选择单选按钮Op2（即运行Click事件过程），在该Click事件过程中加入语句
：
PrivateSubOp2_Click（）
Text1.Text="兵马俑"
EndSub
选择单选按钮Op3（即运行Click事件过程），在该Click事件过程中加入语句
：
PrivateSubOp3_Click（）
Text1.Text="西湖"
EndSub
二
（1）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'If?
=TrueThen
改为
IfOption1（i）=TrueThen
2）将语句
'SelectCase?
改为
SelectCaseopt
3）将语句
'?
=Str（HScroll1.Value）&""&opt&Str（HScroll2.Value）&"="&
Str（Result）
改为
Label4=Str（HScroll1.Value）&""&opt&Str（HScroll2.Value）&"
="&Str（Result）
二
（2）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'LoopUntil?
Andn<13
改为
LoopUntiln>0Andn<13
2）将语句
'SelectCase?
改为
SelectCasen
3）将语句
'SelectCase?
改为
SelectCasem
三在命令按钮的PrivateSubCommand1_Click（）事件过程中
1）将语句
'RecNum=?
改为
RecNum=RecNum+1
2）将语句
'Put#1,?
改为
Put#1,RecNum,Pers
3）将语句
'LoopWhileUCase（asp）?
改为
LoopWhileUCase（asp）<>"N"
在命令按钮的PrivateSubCommand2_Click（）事件过程中
1）将语句
'RecNum=?
改为
RecNum=LOF
（1）/Len（Pers）
2）将语句
'Get#1,?
改为
Get#1,i,Pers
第八套
一
（1）在该窗体上画一个文本框控件，通过其属性窗口将名称设为T1，高（Height属性）设为400，宽（Width属性）设为1400。
画二个命令按钮控件，通过其属性窗口将名称分别设为C1、C2，标题（Caption属性）分别设为“显示”、“扩大”。
单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubC1_Click（）
T1="等级考试"
EndSub
单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubC2_Click（）
T1.Height=2*Me.T1.Height
T1.Width=2*T1.Width
T1.FontSize=3*Form1.T1.FontSize
EndSub
一
（2）在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“转换”。
画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，Text属性均设为空。
单击“转换”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubC1_Click（）
Text1.Text=LCase（Text1.Text）
Text2.Text=UCase（Text1.Text）
EndSub
二
（1）向列表框控件添加项目（List属性），添加的项目分别为VisualBasic，TurboC，C++，Java，每个项目为一行。
单击“确定”命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
IfOption1.ValueAndList1.Text<>""Then
Text1.Text=List1.Text&Option1.Caption
Else
IfOption2.ValueAndList1.Text<>""Then
Text1.Text=List1.Text&Option2.Caption
EndIf
EndIf
EndSub
另外需注意：
在结束程序运行之前，必须至少要进行一次选择操作（包括列表框和单选按钮），退出程序时需单击窗体右上角的关闭按钮，这样就运行了PrivateSubForm_Unload（CancelAsInteger）事件过程。
二
（2）在窗体的PrivateSubCommand1_Click（）事件过程中
1）将语句
'iSum=?
改为
iSum=0
2）将语句
'iSum=?
改为
iSum=iSum+j
3）将语句
'IfiSum=?
Then
改为
IfiSum=1250Then
三在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空，多行（MultiLine属性）设为True。
画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“显示”、“保存”。
单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
DimRecNumAsLong
OpenApp.Path&"\in5.txt"ForRandomAs#1Len=Len（Stud）
RecNum=1
DoWhileNotEOF
（1）
Get#1,RecNum,Stud
Text1.Text=Text1.Text&Stud.Name
Text1.Text=Text1.Text&Stud.Sex
Text1.Text=Text1.Text&Str（Stud.Age）
Text1.Text=Text1.Text+vbCrLf
RecNum=RecNum+1
Loop
Close1
EndSub
单击“保存”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand2_Click（）
OpenApp.Path&"\out5.txt"ForOutputAs#1
Print#1,Text1.Text
Close1
EndSub
声明部分定义一个存放“姓名”、“性别”和“年龄”纪录的结构，具体内容：
PrivateTypeStudInfo
NameAsString*8
SexAsString*4
AgeAsInteger
EndType
在声明部分还定义一个结构变量，其语句：
DimStudAsStudInfo
第九套
一
（1）该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“扩大”和“移动”。
单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand1_Click（）
Height=1.2*Height
Width=Width*1.2
EndSub
单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：
PrivateSubCommand2_Click（）
Left=200+Left
Top=Top+100
EndSub
一
（2）画一个标签控件，将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，Left属性设为0。
画一个水平滚动条控件，将名称设为HScroll1，Min属性设为0，Max属性设为3000，SmallChange属性设为10，
升级会员 