Max=arrN(i)
EndIf
Nexti
PrintMax
EndSub
SubSaveData()
OpenApp.Path&"\"&"outtxt.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
FunctionFun()
DimiAsInteger'循环变量
DimnumAsInteger'存放符合条件总数
num=0
Fori=0To1000
IfiMod5=0OriMod7=0Then
num=num+1
EndIf
Nexti
Fun=num
EndFunction
PrivateSubCommand1_Click()
d=Fun()
Text1.Text=d
SaveData
EndSub
OptionBase1
PrivateSubForm_Click()
ConstN=5
ConstM=5
DimMat(N,M)AsInteger
Dimi,j
OpenApp.Path&"\"&"datain.txt"ForInputAs#1
Fori=1ToN
Forj=1ToM
Input#1,Mat(i,j)
Nextj
Nexti
Close#1
Print
Print"初始矩阵为:
"
Print
Fori=1ToN
Forj=1ToM
PrintTab(5*j);Mat(i,j);
Nextj
Print
Nexti
Print
Print"左上-右下对角线上的数为:
"
Fori=1ToN
Forj=1ToM
Ifi=jThenPrintTab(5*j);Mat(i,j);
Nextj
Nexti
EndSub
第四套
PrivateSubCommand1_Click()
Form1.Caption=Form1.Text1.Text&",作者"&Text2.Text
EndSub
PrivateSubHScroll1_Change()
Label1.Left=Me.HScroll1
EndSub
PrivateSubHScroll1_Scroll()
Label1.Left=Form1.HScroll1
EndSub
PrivateSubCommand1_Click()
Text1=Combo1.Text
'Command2.?
=True
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
'Combo1.List(?
)=Text1
Combo1.List(Form1.Combo1.ListIndex)=Text1
Text1=""
Command2.Enabled=False
EndSub
PrivateSubCommand3_Click()
'?
Text1
Form1.Combo1.AddItemText1
EndSub
'答案:
'1)Command2.Enabled=True
'2)Combo1.List(Combo1.ListIndex)=Text1
'3)Combo1.AddItemText1
OptionBase1
PrivateFunctionAverage(a()AsInteger)AsSingle
DimStartAsInteger,FinishAsInteger
DimiAsInteger
DimSumAsInteger
'Start=?
(a)
Start=LBound(a)
'Finish=?
(a)
Finish=UBound(a)
'Min=?
(Start)
'Sum=?
Sum=0
Fori=StartToFinish
'Sum=Sum+?
Sum=Sum+a(i)
Nexti
'Average=?
Average=Sum/Finish
EndFunction
PrivateSubCommand1_Click()
Dimarr1
Dimarr2(4)AsInteger
arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))
Fori=1To4
arr2(i)=CInt(arr1(i))
Nexti
'Aver=Average(?
)
Aver=Average(arr2())
Print"平均值是:
";Aver
EndSub
'正确的程序
PrivateSubCommand1_Click()
DimaAsLong,a1AsLong,a2AsLong
DimkAsInteger,nAsInteger
Fork=0To2
IfOp1(k).ValueThen
n=Val(Op1(k).Caption)
EndIf
Nextk
a1=1
a2=1
Fork=3Ton
a=a1+a2
a1=a2
a2=a
Nextk
Text1.Text=a
EndSub
PrivateSubForm_Unload(CancelAsInteger)
unload_sub
EndSub
'给考生的程序
PrivateSubForm_Unload(CancelAsInteger)
unload_sub
EndSub
Subunload_sub()
Open"out5.dat"ForOutputAs#1
Print#1,Form1.Op1(0).Value,Form1.Op1
(1).Value,Form1.Op1
(2).Value,Val(Form1.Text1.Text)
Close#1
EndSub
第五套
PrivateSubCommand1_Click()
HScroll1.Min=100
HScroll1.Max=1500
HScroll1.LargeChange=100
HScroll1.SmallChange=10
EndSub
PrivateSubHScroll1_Change()
Picture1.Width=HScroll1.Value
EndSub
PrivateSubHScroll1_Change()
Timer1.Interval=HScroll1.Value
EndSub
PrivateSubTimer1_Timer()
Image1.Visible=NotImage1.Visible
EndSub
PrivateSubHScroll1_Change()
Text1.FontSize=HScroll1.Value
'Text1.FontSize=?
IfList1.Text<>""Then
Text1.FontName=List1.Text
'Text1.FontName=?
Else
MsgBox"请选择字体",,""
EndIf
EndSub
'要求考生编写的程序:
PrivateSubC1_Click()
Form1.Timer1.Enabled=True
'或Timer1.Enabled=1或非0值
'在Timer1的前面可以加:
Me.、Form1.、C2.Parent.
EndSub
PrivateSubC2_Click()
Me.Timer1.Enabled=False
'或Timer1.Enabled=False
'在Timer1的前面可以加:
Me.、Form1.、C3.Parent.
EndSub
'提供给考生的程序:
PrivateSubOp1_Click(IndexAsInteger)
'SelectCase?
SelectCaseIndex
Case0
Timer1.Interval=1000
Case1
Timer1.Interval=3000
EndSelect
EndSub
PrivateSubTimer1_Timer()
'Text1.Text=?
.Text+1
Me.Text1.Text=Form1.Text1.Text+1
EndSub
'答案:
'Index
'Text1
第六套
PrivateSubclear_Click()
Text2.Text=""
'或Me.Text2.Text=""
'或Form1.Text2.Text=""
EndSub
PrivateSubcopy_Click()
Text2.Text=Text1.Text
'或Me.Text2.Text=Text1.TextText1.Text前可以加Me或Form1
'或Form1.Text2.Text=Text1.TextText1.Text前可以加Me或Form1
EndSub
OptionBase1
PrivateSubCommand1_Click()
DimarrN(20)AsInteger
DimAverAsSingle
DimSumAsInteger
Randomize
Fori=1To20
'arrN(i)=?
arrN(i)=Int(Rnd*1000)
'或arrN(i)=Fix(Rnd*1000)
Nexti
'Sum=?
Sum=0
Fori=1To20
'Sum=?
Sum=Sum+arrN(i)
Nexti
'Aver=?
Aver=Sum/20
PrintAver
EndSub
Dimred,green
PrivateSubCommand1_Click()
'?
=HScroll1.Value
red=HScroll1.Value
green=HScroll2.Value
'Timer1.Enabled=?
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
IfPicture1.VisibleThen
red=red-1
Ifred=0Then
Picture1.Visible=False
'?
.Visible=True
Form1.Picture3.Visible=True
EndIf
ElseIfPicture3.VisibleThen
Picture3.Visible=False
Ifred=0Then
Picture2.Visible=True
red=HScroll1.Value
Else
Picture1.Visible=True
green=HScroll2.Value
EndIf
ElseIfPicture2.VisibleThen
'green=?
green=green-1
Ifgreen=0Then
Picture2.Visible=False
Picture3.Visible=True
EndIf
EndIf
EndSub
Dima(50)AsLong
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
PrivateSubCommand2_Click()
Open"out5.txt"ForOutputAs#1
Print#1,Text2.Text
Close#1
EndSub
第七套
PrivateSubCommand1_Click()
VScroll1.Min=100
VScroll1.Max=2400
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1_Change()
Picture1.Height=VScroll1.Value
EndSub
'PrivateSubC1_Click()
'L1.?
Text1.Text
'EndSub
'PrivateSubL1_Click()
'L1.RemoveItem?
'EndSub
'正确程序:
PrivateSubC1