Max=a（i,j）
imax=i
jmax=j
EndIf
IfMin>a（i,j）Then
Min=a（i,j）
imin=i
jmin=j
EndIf
Nextj
Nexti
Fori=1To3
Forj=1To4
Printa（i,j）;
Nextj
Print
Nexti
Print
Print"Max=";Max;"行号";imax;"列号";jmax
Print"Min=";Min;"行号";imin;"列号";jmin
EndSub
4、
OptionBase1
PrivateSubCommand1_Click（）
Dima（）
a=Array（7,6,5,1,8,5,3,9,4）
n=Val（InputBox（"请输入要删除的数：
"））
Fori=1ToUBound（a）
Ifa（i）=nThen
k=i
ExitFor
EndIf
Nexti
Fori=k+1ToUBound（a）
a（i-1）=a（i）
Nexti
ReDimPreservea（UBound（a）-1）
Fori=1ToUBound（a）
Printa（i）;
Nexti
Print
EndSub
5．2答案
一、选择题
1---10：
ADBADBABBB
11---:
BDDBA
二、判断题
TTFFFFFFTF（15题BackColor去掉空格，FillSte全部漏了y）
三、
1、
1000
Timer1.Enabled=true
0
s=（xMod3600）Mod60
2、
n=3x=42y=9
四、
1、
PrivateSubCommand1_Click（）
Fori=0ToList1.ListCount-1
List3.AddItemList1.List（i）
Nexti
Fori=0ToList2.ListCount-1
List3.AddItemList2.List（i）
Nexti
EndSub
2、
PrivateSubForm_Load（）
Label1.Left=0
Label1.Top=0
EndSub
PrivateSubTimer1_Timer（）
Statici
Ifi=0Then
Label1.BackColor=vbRed
ElseIfi=1Then
Label1.BackColor=vbBlue
Else
Label1.BackColor=vbGreen
i=-1
EndIf
i=i+1
IfLabel1.Top>Form1.HeightThen
Label1.Left=0
Label1.Top=0
Else
Label1.Left=Label1.Left+（Form1.ScaleWidth-Label1.Width）/10
Label1.Top=Label1.Top+（Form1.ScaleHeight-Label1.Height）/10
EndIf
EndSub
3、
Dimt1AsDouble
Dimt2AsDouble
PrivateSubCommand1_Click（）
t1=Now
Label1.Caption=Format（t1,"hh:
mm:
ss"）
Label2.Caption=Format（t1,"hh:
mm:
ss"）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
Label3.Caption=Format（t2-t1,"hh:
mm:
ss"）
EndSub
PrivateSubForm_Load（）
Timer1.Interval=1000
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer（）
t2=Now
Label2.Caption=Format（t2,"hh:
mm:
ss"）
EndSub
5．3答案
一、选择题
DBD（第3题答案是d、127，12漏了1）DCBCD（A多了一个”值”字）A
二、
TTTTT
三、
1、
259
该题Command3改为command1
2、
a（）
函数改为：
Subswap（b（）AsInteger）
n=UBound（b）
Fork=1Ton\2
t=b（k）
b（k）=b（11-k）
b（11-k）=t
Nextk
EndSub
3、
四、程序设计
1、子过程和函数过程各一个做法
Subsubsushu（xAsInteger,kAsBoolean）
k=True
Fori=2Tox-1
IfxModi=0Then
k=False
ExitFor
EndIf
Nexti
EndSub
Functionfsushu（xAsInteger）AsBoolean
fsushu=True
Fori=2Tox-1
IfxModi=0Then
fsushu=False
ExitFor
EndIf
Nexti
EndFunction
PrivateSubCommand1_Click（）
DimkAsBoolean
x%=InputBox（"inputx:
"）
Callsubsushu（x,k）
Ifk=TrueThen
Printx;"是素数"
Else
Printx;"非素数"
EndIf
EndSub
PrivateSubCommand2_Click（）
x%=InputBox（"inputx:
"）
Iffsushu（x）=TrueThen
Printx;"是素数"
Else
Printx;"非素数"
EndIf
EndSub
2、
OptionBase1
Subfmax（a（）AsInteger,max）
max=a
（1）
Fori=1ToUBound（a）
Ifa（i）>maxThen
max=a（i）
EndIf
Nexti
EndSub
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=Rnd*100
Nexti
Fori=1To10
Printa（i）;
Nexti
Print
Callfmax（a（）,max）
Print"max=";max
EndSub
3、
Functionxsum（x）
Sum=1
Fori=1Tox
Sum=Sum+x^i
Nexti
xsum=Sum
EndFunction
PrivateSubCommand1_Click（）
a=3
b=5
c=7
d=9
Printa/xsum（a）+b/xsum（b）+c/xsum（c）+d/xsum（d）
EndSub
4、
Functionsp（ss,sc,sr）
DoWhileInStr（ss,sc）>0
x=InStr（ss,sc）
Ifx=1Then
ss=sr&Right（ss,Len（ss）-Len（sc））
Else
s1=Left（ss,x-1）
s2=Right（ss,Len（ss）-（x-1）-Len（sc））
ss=s1&sr&s2
EndIf
Loop
sp=ss
EndFunction
PrivateSubCommand1_Click（）
ss="abcabcbc"
sc="bc"
sr="99"
Printsp（ss,sc,sr）
EndSub
5．4答案
一、选择题
BCBAAB（其中y=IIf（x>10,100,-100）f,Show改为y=IIf（x>10,100,-100）
f.Show）BBA
二、
1、
“文本文件（*.txt）|*.txt”
CommonDialog1.FileName
2、
Form1.hide
三、
1、2题合并如下
PrivateSubbaocun_Click（）
CommonDialog1.ShowSave
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
PrivateSubbeijingse_Click（）
CommonDialog1.ShowColor
Text1.BackColor=CommonDialog1.Color
Text1.BackColor=CommonDialog1.Color
EndSub
PrivateSubdakai_Click（）
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
WhileNotEOF
（1）
LineInput#1,i
Text1.Text=Text1.Text&i&vbCrLf
Wend
Close#1
EndSub
PrivateSubqianjingse_Click（）
CommonDialog1.ShowColor
Text1.ForeColor=CommonDialog1.Color
EndSub
PrivateSubtuichu_Click（）
End
EndSub
PrivateSubziti_Click（）
CommonDialog1.ShowFont
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
EndSub
5．5答案
一、选择题
第一题好像都是对的？
（多了个D）BAAD（其中c：
“filel.txt都改为c:
\file1.txt
C
二、分析题
1、dat改为txt文件
y=5a=5
y=15a=10
y=30a=15
2、
程序改为
PrivateSubcommand1_click（）
DimindataAsString
Text1.Text=""
Open"c:
\a1.txt"ForInputAs#1
DoWhileNotEOF
（1）
Input#1,indata
Text1.Text=Text1.Text&indata
Loop
Close#1
EndSub
3、
程序改为
PrivateSubForm_Click（）
DimxAsSingle,yAsSingle
Open"d:
\nm1.txt"ForInputAs#1
Open"d:
\NM2.txt"ForOutputAs#2
DoWhileNotEOF
（1）
Input#1,x
Printx
y=x^2
Write#2,y
Printy
Loop
Close#1,#2
EndSub
三、设计题
1、略
2、略
此2题好像比较简单。
升级会员 