Nextj
Nexti
Label3.Caption=max
'====考生编写程序结束====
'不得修改以下部分
saveLabel3
EndSub
PrivateSubCommand2_Click（）
'====考生编写程序开始====
DimiAsInteger,jAsInteger,sumAsInteger
sum=0
Fori=1To4
Forj=1To4
Ifi=jThensum=sum+a（i,j）
Nextj
Nexti
Label4.Caption=sum
'====考生编写程序结束====
'不得修改以下部分
saveLabel4
EndSub
1.5上机模拟试题5解答
1.基本操作
（1）略
（2）程序代码如下：
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubCommand3_Click（）
Callsub1
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Text1.Text+1
EndSub2.
简单操作
（1）
'Fori=1To?
其中?
改为：
5
'Forj=1To?
其中?
改为：
2*i-1
'Forj=1To?
其中?
改为：
i+1
'Forj=1To?
其中?
改为：
9-2*i
（2）
'?
=False其中?
改为：
Timer1.Enabled
'Shape2.Top=?
+d*50其中?
改为：
Shape2.Top
'IfShape2.Top<=Shape1.?
OrShape2.Top+Shape2.Width>=Shape1.Top+Shape1.HeightThen其中?
改为：
Top
'Shape2.Left=?
+d*50其中?
改为：
Shape2.Left
3.综合应用
'n=n+?
其中?
改为：
1
'List1.AddItem?
其中?
改为：
ch$
程序代码如下：
PrivateSubCommand2_Click（）
'需要考生编写的内容
DimxAsSingle,pAsSingle
x=Val（Text1.Text）
Ifx<500Then
p=1
ElseIfx<1000Then
p=0.98
ElseIfx<1500Then
p=0.95
ElseIfx<2000Then
p=0.92
Else
p=0.9
EndIf
Text2.Text=CStr（Int（x*0.3*p））
EndSub
PrivateSubList1_Click（）
'需要考生编写的内容
DimiAsInteger
Fori=0ToList1.ListCount-1
IfList1.Selected（i）=TrueThen
Text1.Text=CStr（a（i+1））
EndIf
Nexti
EndSub
1.6上机模拟试题6解答
1.基本操作
（1）程序代码如下：
PrivateSubCommand1_Click（）
Command1.Width=Command1.Width+100
EndSub
（2）程序代码如下：
PrivateSubL1_Click（）
Shape1.Shape=Val（L1.List（L1.ListIndex））
EndSub
2.简单操作
（1）
'Call?
其中?
改为：
calc（i）
'Label2.Caption=?
其中?
改为：
Option1（i）.Caption
'x=?
其中?
改为：
Text1
'IfiMod2?
Then其中?
改为：
<>0
'Label3.Caption=?
其中?
改为：
result
（2）
'Timer1.Enabled=?
其中?
改为：
False
'Timer1.Interval=?
其中?
改为：
500
'IfPicture1.Left>?
Then其中?
改为：
Form1.Width
'Picture1.Left=?
其中?
改为：
0
3.综合应用
程序代码如下：
PrivateSubCommand1_Click（）
'========考生编写程序开始========
DimiAsInteger,N1AsInteger,N2AsInteger,avgAsSingle,sumAsSingle
Fori=1Ton
Ifarr（i）>=60Then
N1=N1+1
Else
N2=N2+1
EndIf
sum=sum+arr（i）
Nexti
avg=sum
Text1.Text=CStr（n）
Text2.Text=CStr（CInt（avg/n））
Text3.Text=CStr（N1）
Text4.Text=CStr（N2）
'==========考生编写程序结束==============
EndSub
1.7上机模拟试题7解答
1.基本操作
（1）程序代码如下：
PrivateSubT1_Change（）
T2.Text=T1.Text
EndSub
（2）程序代码如下：
PrivateSubC1_Click（）
Text1.Left=0
EndSub
2.简单操作
（1）
'L1.?
Text1.Text其中?
改为：
AddItem
'L1.RemoveItem?
其中?
改为：
L1.ListIndex
（2）程序代码如下：
PrivateSubC1_Click（）
IfOp1=TrueThenText1="需要1小时"
IfOp2=TrueThenText1="需要10小时"
IfOp3=TrueThenText1="需要15小时"
EndSub
3.综合应用
程序代码如下：
PrivateSubCommand2_Click（）
'考生应完成的程序
DimiAsInteger,sumAsInteger,avgAsSingle,tem1AsInteger,tem2AsInteger,tem3AsInteger
DimstrAsString,nAsInteger
Fori=1To100
str=CStr（a（i））
tem1=Val（Mid（str,1,1））
tem2=Val（Mid（str,2,1））
tem3=Val（Mid（str,3,1））
Iftem1^3+tem2^3+tem3^3=a（i）Then
sum=sum+a（i）
n=n+1
EndIf
Nexti
avg=Int（sum/n）
Text1.Text=CStr（avg）
EndSub
1.8上机模拟试题8解答
1.基本操作
（1）略
（2）程序代码如下：
PrivateSubHScroll1_Change（）
Text1.Text=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll（）
Text1.Text=HScroll1.Value
EndSub2.简单操作
（1）
'Timer1.Enabled=?
其中?
改为：
True
'IfShape1.Top<=?
Then其中?
改为：
Line1.Y1
'IfShape1.Top+?
>=Line2.Y1Then其中?
改为：
Shape1.Height
（2）程序代码如下：
PrivateSubCommand2_Click（）
'考生编写
DimiAsInteger,javgAsSingle,oavgAsSingle,avgAsSingle
Dimn1AsInteger,n2AsInteger
Fori=1To100
Ifa（i）Mod2=0Then
oavg=oavg+a（i）
n1=n1+1
Else
javg=javg+a（i）
n2=n2+1
EndIf
avg=avg+a（i）
Nexti
oavg=CInt（oavg/n1）
javg=CInt（oavg/n2）
avg=CInt（avg/100）
IfCombo1.Text="所有偶数"Then
Text1.Text=CStr（oavg）
ElseIfCombo1.Text="所有奇数"Then
Text1.Text=CStr（javg）
Else
Text1.Text=CStr（avg）
EndIf
EndSub
3.综合应用
'Dim?
其中?
改为：
mat（M,N）
'OpenApp.Path&"\"&"datain.txt"?
As#1其中?
改为：
ForInput
'?
其中?
改为：
Input#1,mat（i,j）
'?
其中?
改为：
mat（i,4）=t
1.9上机模拟试题9解答
1.基本操作
（1）略
（2）程序代码如下：
PrivateSubCommand1_Click（）
Image1.Picture=LoadPicture（App.Path+"\Misc34.ico"）
EndSub
PrivateSubCommand2_Click（）
Image1.Picture=LoadPicture（App.Path+"\Misc37.ico"）
EndSub
PrivateSubCommand3_Click（）
Image1.Picture=LoadPicture（""）
EndSub2.简单操作
（1）
'Fork=1To?
其中?
改为：
5
'If?
改为：
a
's=（s-a-b）/?
其中?
改为：
4
's=?
*3*Val（Text2.Text）其中?
改为：
s
'?
=Int（s*100）/100其中?
改为：
Text3
（2）程序代码如下：
'需考生编写的程序
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger,sumAsLong,mulAsLong
sum=0:
mul=1
IfOption1.Value=TrueThen
Fori=1Ton
mul=mul*i
Nexti
Text1.Text=CStr（mul）
Else
Forj=1Ton
sum=sum+j
Nextj
Text1.Text=CStr（sum）
EndIf
EndSub
3.综合应用
'Text4=Text4&a&""&?
其中?
改为：
b
'a=?
其中?
改为：
b
'Ifk<=?
Then其中?
改为：
n
'?
=d其中?
改为：
b
1.10上机模拟试题10解答
1.基本操作
（1）略
（2）程序代码如下：
PrivateSubForm_Click（）
Label1.Top=0
Label1.Left=Form1.Width-Label1.Width
EndSub
2.简单操作
（1）
'arrN（i）=Int（Rnd*?
）其中?
改为：
1001
'?
=arrN
（1）其中?
改为：
Min
'If?
Then其中?
改为：
arrN（i）（2）程序代码如下：
FunctionFun（）
DimiAsInteger,jAsInteger
Fori=0To1000
IfiMod7<>0Thenj=j+1
Nexti
Fun=j
EndFunction
3.综合应用
程序代码如下：
PrivateSubC1_Click（）
CallReadData1
CallReadData2
EndSub
PrivateSubC2_Click（）
DimArr3（20）AsInteger,iAsInteger,sumAsInteger
Fori=1To20
Arr3（i）=Arr1（i）-Arr2（i）
sum=sum+Arr3（i）
Nexti
Printsum
CallWriteData（"dataout.txt",sum）
EndSub
1.11上机模拟试题11解答
1.基本操作
（1）程序代码如下：
PrivateSubCommand1_Click（）
Text1.Text=InputBox（"请输入身高:
"）
Text2.Text=InputBox（"请输入体重:
"）
EndSub
（2）程序代码如下：
PrivateSubCommand1_Click（）
VScroll1.Min=100
VScroll1.Max=2400
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1_Change（）
Picture1.Height=VScroll1.Value
EndSub
2.简单操作
（1）
'List1.AddItem?
其中?
改为：
Text1.Text
'Fori=0To?
其中?
改为：
List1.ListCount-1
'IfList1.List（i）=?
Then其中?
改为：
Text1.Text
'List1.RemoveItem?
其中?
改为：
i
（2）
'Start=?
（a）其中?
改为：
LBound
'Finish=?
（a）其中?
改为：
UBound
'Max=?
（Start）其中?
改为：
a
'Ifa（i）?
MaxThenMax=?
其中?
改为：
>、a（i）
'arr2（i）=CInt（?
）其中?
改为：
arr1（i）
'M=FindMax（?
）其中?
改为：
arr2
3.综合应用
程序代码如下：
OptionBase1
DimArr（100）AsInteger,sumAsInteger
SubReadData（）
OpenApp.Path&"\"&"datain1.txt"ForInputAs#1
Fori=1To100
Input#1,Arr（i）
Nexti
Close#1
EndSub
SubWriteData（FilenameAsString,NumAsInteger）
OpenApp.Path&"\"&FilenameForOutputAs#1
Print#1,Num
Close#1
EndS
升级会员 