y=a（i）
EndIf
Nexti
IfOption1.Value=TrueThen
Label2.Caption=x
Else
Label2.Caption=y
EndIf
EndSub
第二小题
（2）
PrivateSubList1_DblClick（）
CallMoveItem（List1,List2）
EndSub
PrivateSubCommand1_Click（）
CallMoveAll
EndSub
PublicSubMoveItem（L1AsListBox,L2AsListBox）
L2.AddItemL1.Text
L1.RemoveItemL1.ListIndex
EndSub
PublicSubMoveAll（）
Fori=0ToList1.ListCount-1
List2.AddItemList1.List（i）
Next
EndSub
第五题
Dima（7,7）AsInteger
PrivateSubForm_Load（）
read
EndSub
PublicSubread（）
OpenApp.Path&"\Data5.txt"ForInputAs#1
DoWhileNotEOF
（1）
Fori=1To7
Forj=1To7
Input#1,a（i,j）
Nextj
Nexti
Loop
Close#1
EndSub
PublicSubSave（）
OpenApp.Path&"\out5.txt"ForOutputAs#1
Print#1,lblFirst.Caption,lblSecond.Caption
Close#1
EndSub
PrivateSubCommand1_Click（）
DimSumAsLong
N=7
Counter=0
Sum=0
'===============考生编写程序开始======================
Fori=1ToN
Forj=1ToN
Ifi=jOri+j=8Then
Ifa（i,j）Mod3=0Then
Counter=Counter+1
Sum=Sum+a（i,j）
EndIf
EndIf
Nextj
Nexti
lblFirst.Caption=Counter
lblSecond.Caption=Sum
'===============考生编写程序结束======================
Save
EndSub
第六题
注意：
时钟的interval属性设置为300
DimflagAsInteger
PrivateSubCmd_Click（IndexAsInteger）
IfIndex=2Then
End
Else
Image1.Picture=LoadPicture（"yellow.ico"）
flag=Index
Timer1.Enabled=True
EndIf
EndSub
PrivateSubTimer1_Timer（）
SelectCaseflag
Case0
Image1.Picture=LoadPicture（"green.ico"）
Timer1.Enabled=False
Case1
Image1.Picture=LoadPicture（"red.ico"）
Timer1.Enabled=False
EndSelect
EndSub
第七题
第八题
PrivateSubForm_Click（）
Label1.Visible=True
EndSub
PrivateSubForm_Load（）
Form1.Caption="标签"
EndSub
第九提
PrivateSubCommand1_Click（）
CallShowName（Command1）
EndSub
PrivateSubLabel1_Click（）
CallShowName（Label1）
EndSub
PrivateSubShowName（cAsControl）
IfTypeOfcIsCommandButtonThen
Label2.Caption="单击"&Command1.Caption
EndIf
第十题
注意，时钟interval设置为500
PrivateSubForm_Load（）
Picture1（0）.Left=0
Picture1（0）.Top=100
Fork=1To7
Picture1（k）.Visible=False
Next
EndSub
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer（）
StaticiAsInteger
Picture1（i）.Visible=False
i=i+1
Ifi=7Then
i=0
EndIf
Picture1（i）.Visible=True
EndSub
第十三题
第十四题
第十五题
第十六，七题
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
PrivateSubText2_Change（）
IfCheck1.Value=1Then
Text3.PasswordChar=""
Else
Text3.PasswordChar="#"
EndIf
Text3.Text=Text2.Text
EndSub
PrivateSubCommand1_Click（）
‘Text1.Enabled=true
Text1.SetFocus
EndSub
PrivateSubCommand2_Click（）
IfText1.Enabled=FalseThen
MsgBox"请先使用“输入密码”功能！
"
Else
'IfText1<>"abc"Then
n=n+1
'Ifn=3Then
MsgBox"三次密码输入错误，你无权进入本系统！
"
End
Else
MsgBox"第"+Str（n）+"次密码输入错误，请重试！
"
Text1=""
Text1.SetFocus
EndIf
Else
Text1.Enabled=False
Text1=""
'form1.Hide
'form2.Show
EndIf
EndIf
EndSub
‘Form2:
PrivateSubCommand1_Click（）
Form2.Hide
Form1.Show
EndSub
第十八题
OptionBase1
DimsAsString
PrivateSubCommand1_Click（）
OpenApp.Path&"\in4.dat"ForInputAs#1
s=Input（LOF
（1）,#1）
Close#1
Text1.Text=s
EndSub
PrivateSubCommand2_Click（）
DimmAsInteger
'IfLen（s）=0Then
MsgBox"请先使用“读数据”功能！
"
Else
'IfText1.sellength=0Then
MsgBox"请先选中文本！
"
Else
t=""
Fori=1ToText1.SelLength
c=Mid（Text1.SelText,i,1）
Ifc<>""Then
t=t+c
Else
'Ift="the"Then
m=m+1
EndIf
t=""
EndIf
Nexti
'text2=Str（m）
EndIf
EndIf
EndSub
第十九题
OptionBase1
Dima（100）AsInteger,numAsInteger
PrivateSubCommand1_Click（）
DimkAsInteger
OpenApp.Path&"\in5.dat"ForInputAs#1
Fork=1To100
Input#1,a（k）
Text1=Text1+Str（a（k））+Space
（1）
Nextk
Close#1
EndSub
PrivateSubCommand2_Click（）
Dimb（100）AsInteger
num=0
IfLen（Text1.Text）=0Then
MsgBox"请先执行“读数据”功能！
"
Else
'考生编写（功能：
生成b数组，且按从小到大顺序排序）
'注意：
请务必将数组b的元素个数存入变量num中
'以下程序段将已排序的b数组显示在Text2中
Fori=1Tonum
Text2.Text=Text2.Text+Str（b（i））+Space
（2）
Nexti
EndIf
EndSub
PrivateSubForm_Unload（CancelAsInteger）
OpenApp.Path&"\out5.dat"ForOutputAs#1
Print#1,Text2.Text
Close#1
EndSub
第二十题
第二十一题
PrivateSubForm_Click（）
n=InputBox（"请输入","等级考试","Basic"）
EndSub
第二十二题
PrivateSubCommand1_Click（）
DimnAsInteger
DimbAsInteger
Dima（3）AsInteger
s=RTrim（Text1.Text）
n=Len（Text1.Text）
Fori=1Ton
b=a（Mid（s,i,1））
SelectCaseAsc
Case48To57
a（0）=a（0）+1
Case65To90
a
（1）=a
（1）+1
Case97To122
a
（2）=a
（2）+1
EndSelect
Next
Fori=0To2
Label=a（i）
Next
EndSub
PrivateSubremove（LaAsListBox,LbAsListBox）
'Fori=0Tola.listcount-1
'Lb.AddItemla.List（i）
Next
'la.Clear
EndSub
PrivateSubCommand1_Click（）
Callremove（List1,List2）
EndSub
PrivateSubCommand2_Click（）
Callremove（List2,List1）
EndSub
第二十四题
Dima（10）AsInteger
PublicSubSave（）
OpenApp.Path&"\out5.txt"ForOutputAs#1
Print#1,Label4.Caption
Close#1
EndSub
PrivateSubCommand1_Click（）
OpenApp.Path&"\Data5.txt"ForInputAs#1
'DoWhileNoteof
（1）
Fori=1To10
Input#1,a（i）
's=s&a（i）
Nexti
Loop
Close#1
Label2.Caption=s
EndSub
PrivateSubCommand2_Click（）
'============以下考生编写程序开始=================
Fori=1to9
Forj=i+1to10
Ifa（i）>a（j）then
t=a（i）
a（i）=a（j）
a（j）=t
endif
nextj
nexti
'============考生编写程序结束=====================
Fori=1To10
s=s&Str（a（i））
Nexti
Label4.Caption=s
Save
EndSub
第二十五，六题
PrivateSubHScroll1_Change（）
EndSub
PrivateSubForm_Load（）
EndSub
PrivateSubList1_Click（）
HS.Width=List1.Text
EndSub
第二十七题
PrivateSubForm_Load（）
Loadme
EndSub
PrivateSubOption1_Click（IndexAsInteger）
DimnAsInteger
n=Val（Text1.Text）
SelectCaseIndex
Case0
Text2.Text=f1（n）
Case1
Text2.Text=f1（n+2）
EndSelect
EndSub
PublicFunctionf1（nAsInteger）AsLong
DimxAsLong
x=1
Fori=1Ton
x=x*i
Next
f1=x
EndFunction
第二十八题
PrivateSubForm_Load（）
OpenApp.Path&"\in4.txt"ForInputAs#1
LineInput#1,s
Text1.Text=s
Close#1
EndSub
PrivateSubCommand1_Click（）
DimnAsInteger
s=Text1.Text
s1=RTrim（Text2.Text）
Do
p=InStr（s1,s）
Ifp<>0Thenn=n+1
s=Mid（s,p+1）
LoopWhilep=0
Label3.Caption=n
EndSub
第二十九题
PrivateFunctionisprime（aAsInteger）AsBoolean
DimflagAsBoolean
flag=True
b%=2
DoWhileb%<=Int（a/2）Andflag
IfInt（a/b%）=a/b%Then
flag=False
Else
b%=b%+1
EndIf
Loop
isprime=flag
EndFunction
PrivateSubC1_Click（）
DimxAsInteger
x=17999
DoWhilex<18000
Ifisprime（x）Then
Text1.Text=x
ExitDo
Else
x=x-2
EndIf
Loop
EndSub
PrivateSubC2_Click（）
OpenApp.Path&"\out5.txt"ForOutputAs#1
Print#1,Text1
EndSub
第三十题
第三十三题
OptionBase1
Dima（100）AsInteger,numAsInteger
PrivateSubCommand1_Click（）
DimkAsInteger
OpenApp.Path&"\in5.dat"ForInputAs#1
Fork=1To100
Input#1,a（k）
Text1=Text1+Str（a（k））+Space
（1）
Nextk
Close#1
EndSub
PrivateSubCommand2_Click（）
Dimb（100）AsInteger
DimIasinteger,jasinteger,tasinteger,nasinteger
num=0
IfLen（Text1.Text）=0Then
MsgBox"请先执行“读数据”功能！
"
Else
'考生编写（功能：
生成b数组，且按从小到大顺序排序）
'注意：
请务必将数组b的元素个数存入变量num中
ForI=1to100
Ifa（i）mod3=0then
N=n+1
B（n）=a（i）
Endif
Nexti
Fori=1ton-1
Forj=i+1ton
Ifb（i）>b（j）then
T=b（i）
B（i）=b（j
升级会员 