t=b（i）:
b（i）=b（j）:
b（j）=t
EndIf
Nextj
Nexti
Fori=1Ton
Printb（i）;
IfiMod5=0ThenPrint
Nexti
EndSub
2．
PrivateSubCommand2_Click（）
Dima（1to5,1to5）AsInteger,i%,j%
Dimsum1AsInteger,sum2AsInteger
sum1=0:
sum2=0
Print"数组:
"
Fori=1To5
Forj=1To5
a（i,j）=Int（Rnd*9）+1
Printa（i,j）;
Nextj
Print
Nexti
Fori=1To5
Forj=1To5
Ifi=1Orj=1Ori=5Orj=5Thensum1=sum1+a（i,j）
Ifi=jOri+j=6Thensum2=sum2+a（i,j）
Nextj
Nexti
Print"数组靠边元素之和为:
";sum1
Print"数组对角线元素之和为:
";sum2
EndSub
3、
PrivateSubCommand1_Click（）
Dima（1To20）AsInteger,iAsInteger,tAsInteger
Fori=1To20
a（i）=Int（Rnd*90）+10
Nexti
Print"交换前的数为：
"
Fori=1To20
Printa（i）;
IfImod10=0thenprint
Nexti
Print
Fori=1To10
t=a（i）:
a（i）=a（21-i）:
a（21-i）=t
Nexti
Print"交换后的数为：
"
Fori=1To20
Printa（i）;
Ifimod10=0thenprint
Nexti
EndSub
第7章过程 答案
一、判断题
1——10：
√××√√√√××√
二、选择题
1——5：
AACDB6——10：
DBCAB
三、程序阅读题
1、3123
2、3264
1664
864
464
3、3511
192659
4、
51
52
四、程序填空题
（1）temp=1
（2）temp（3）nfactor（i）
（4）sum（5）C（）A
（7）A（8）B
（9）Ａ （10）Ａ （１1）Ｂ （１2）Ｄ
五、上机测试题
1．Functionchu（nAsInteger）Asboolean
Ifn\17=n/17Andn/37=n\37Then
Chu=true
EndIf
EndFunction
PrivateSubForm_DblClick（）
DimiAsInteger
Fori=100To10000
Ifchu（i）=truethenprintI;
Nexti
EndSub
2.PrivateFunctionfsum（nAsInteger）AsInteger
DimiAsInteger,xAsInteger,yAsInteger,zAsInteger
x=n\100
y=（n-x*100）\10
z=nMod10
fsum=x+y+z
EndFunction
3.
Functionave（x（）AsInteger,nAsInteger）
DimiAsInteger,sAsLong
Fori=1Ton
s=s+x（i）
Nexti
ave=s/n
EndFunction
PrivateSubCommand1_Click（）
Dima（1To10）AsInteger,iAsInteger
Fori=1To10
a（i）=Val（inputobx（""））
Printa（i）;
Nexti
Print
text1.Text="数组的平均值为"&ave（a（）,10）
EndSub
第8章常用控件 答案
一、断题
1——15：
√××√××√××√×√×√×
二、选择题
1——5：
BCDAB6——10：
CBACD11-15:
ABCBC16-20:
AABAA21-23:
ADD
三、填空题
1、Enabled、Visible
2、文本框和列表框
3、Change
4、Command1.setfoucs
5、Timer
6、MaxLength
四、程序阅读题
1、D
2、ABB
3、463789
4、子
苹果
橘子
葡萄
柚子
香蕉
5、6
15
28
45
6、11
23
36
410
515
五、程序填空题
1、
（1）Label1.left
（2）-label1.width
2、
（1）List1.ListIndex<0（或者写成=-1）
（2）List1.RemoveItemList1.ListIndex（3）Text1.Text=””（4）List1.AddItemText1.Text
3、
（1）Text2.Enabled=False
（2）printi（3）Text2.Enabled=False（4）keyascii=13（5）Command1.Enabled=True
4、
（1）Timer1.Enabled=True
（2）x\3600（3）（x-h*3600）\60或（xmod3600）\60
（4）x=x+1
5、ADBC
6、CABA
7、BAAD
五、程序设计题
1、
PrivateSubText1_Change（）
DimfAsSingle,cAsSingle
c=Val（Text1.Text）
f=9/5*c+32
Text2.Text=f
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii<48OrKeyAscii>57AndKeyAscii<>46Then'
KeyAscii=0
EndIf
EndSub
2、
PrivateSubCommand1_Click（）
IfText1.Text=""Then
MsgBox"请先输入添加项"
Else
List1.AddItemText1.Text
EndIf
EndSub
PrivateSubCommand2_Click（）
IfList1.ListIndex<0Then
MsgBox"请选择一删除项"
Else
List1.RemoveItemList1.ListIndex
EndIf
EndSub
PrivateSubCommand3_Click（）
IfList1.ListIndex<0Then
MsgBox"请选择一修改项"
Else
Text1.Text=List1.Text
EndIf
Command4.Enabled=True
EndSub
PrivateSubCommand4_Click（）
DimaAsInteger
IfList1.Text=Text1.TextThen
MsgBox"请先修改此项"
Else
a=List1.ListIndex
List1.RemoveItemList1.ListIndex
List1.AddItemText1.Text,a
EndIf
EndSub
PrivateSubForm_Load（）
Command4.Enabled=False
EndSub
3、
DimtAsInteger
PrivateSubTimer1_timer（）
label1（0）.Caption=Time（）
t=t+1
h=t\3600
m=（t-h*3600）\60
s=tMod60
label1
（1）.Caption=h
label1
（2）.Caption=m
label1（3）.Caption=s
EndSub
PrivateSubcommand1_click（）
timer1.Enabled=True
EndSub
PrivateSubForm_Load（）
timer1.Enabled=False
timer1.Interval=1000
EndSub
4、
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Label1.FontBold=True
Else
Label1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck1.Value=1Then
Label1.FontItalic=True
Else
Label1.FontItalic=False
EndIf
EndSub
PrivateSubOption1_Click（）
Label1.FontName="宋体"
EndSub
PrivateSubOption2_Click（）
Label1.FontName="楷体_gb2312"
EndSub
5、
PrivateSubCommand1_Click（）
Fori=0ToList1.ListCount-1
IfList1.List（i）Mod2=0Then
List2.AddItemList1.List（i）
EndIf
Nexti
Fori=0ToList2.ListCount-2
Forj=i+1ToList2.ListCount-1
IfList2.List（i）t=List2.List（i）:
List2.List（i）=List2.List（j）:
List2.List（j）=t
EndIf
Nextj,i
EndSub
PrivateSubForm_Load（）
Fori=1To10
List1.AddItemInt（Rnd*900）+100
Nexti
EndSub
第9章习题集答案：
一、判断题
×√√√√××√×√×
二、选择题
DACAA
第10章图形操作与图形控件 答案
一、判断题
1——5：
×√×√√ 6——11：
√×√××√
二、选择题
1——5：
BAADA6——10：
BAACB11-14:
CCDD（11题A和C均可）
三、填空题
1、pic1.circle（pic1.scalewidth/2,pic1.scaleheight/2）,700
2、form1.scale（-200,250）-（300,-100）
3、AutosizeStretch
四、程序阅读题
1.
结果：
在图片框内绘制多个绿色边框矩形，填充样式在“实心”、“透明”间交替变换。
2.
3.
B
4、
D
五、程序填空题
1、Picture1.ForeColor=Commondialog1.Color
Picture1.CurrentX=x
Picture1.CurrentY=Y
Picture1.Line–（x,y）
2、
B
A
D
六、上机测试题
1、
Dimx1AsSingle,y1AsSingle
PrivateSubPic1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,_YAsSingle）
x1=X
y1=Y
EndSub
PrivateSubPic1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Pic1.FillStyle=0
Pic1.FillColor=VbGreen
Pic1.Line（x1,y1）-（X,Y）,,B
EndSub
2、
PrivateSubForm_Click（）
ConstrAsInteger=1
DimiAsInteger
Picture1.Width=Picture1.Height
Picture1.Scale（-10*r,10*r）-（10*r,-10*r）
Fori=1To10
Picture1.Circ
升级会员 