VB前七章课后习题参考答案.docx
《VB前七章课后习题参考答案.docx》由会员分享，可在线阅读，更多相关《VB前七章课后习题参考答案.docx（19页珍藏版）》请在冰豆网上搜索。
VB前七章课后习题参考答案
第一章
一、
√√×√√√×√√×√××√×√×√
二、
CDDCBADABC
三、
1.可视
2.对象事件
3.代码控件
4.Proj1.vbp
5.Frm1.frm
6.编译可执行
第二章
一、
√×××√×√√√√×××√×√√√
二、
BDACCBADCACDBBBCBBBA
三、
1.String
2.Long4
3.xxx
4.145
5.6
6.3
7.False
8.（xmod10）*10+x\10
9.Int（Rnd*90）+10
10.a*bmodc
11.log（x）+sin（300）
12.constPIassingle=3.1415926
13.日期
14.Int（i）+1
15.&Alt+Y
16.Enabled
17.Maxlength
18.Text1.setfocus
19.Multiline
20.Visible
21.Alignment
22.Autosize
第三章
一、
√×√√××√√××
二、
ADDCBABABA
三、
1.Ifx>ythenx=x+y:
y=x-y:
x=x-y
2.同类型的值或表达式
3.0或1
4.True
5.0
6.Enabled
四、（见作业3参考答案1、2、3和作业4参考答案1）
1.
PrivateSubForm_Click（）
Dimx,yAsSingle
x=Val（InputBox（"输入x的值","输入"））
Ifx>3Then
y=x+3
ElseIfx>=1Then
y=x^2
ElseIfx>0Then
y=Sqr（x）
Else
y=0
EndIf
Print"y的值是：
";y
EndSub
2.
PrivateSubCommand1_Click（）
Text1.Visible=False
PrintTab（20）;"欢迎进入"
EndSub
PrivateSubForm_Load（）
Text1.PasswordChar="*"
Command1.Caption="进入"
Command1.Enabled=False
EndSub
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfText1.Text="abc"Then
Command1.Enabled=True
Else
MsgBox"输入错误",,"提示"
EndIf
EndIf
EndSub
3.
PrivateSubCommand1_Click（）
IfCommand1.Caption="显示"Then
PrintSpc（10）;"欢迎使用VisualBasic!
"
Command1.Caption="清除"
Else
Cls
Command1.Caption="显示"
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Command1.Caption="显示"
Command2.Caption="退出"
EndSub
4.
DimNAsInteger
PrivateSubCommand1_Click（）
DimdifAsInteger
dif=Abs（Val（Text1.Text）-N）
'PrintN
SelectCasedif
Case0
ms="你猜对了！
"
Case1To3
ms="*"
Case4To10
ms="**"
Case11To50
ms="***"
Case51To100
ms="****"
Case101To200
ms="*****"
Case201To500
ms="******"
CaseElse
ms="*******"
EndSelect
MsgBoxms
EndSub
PrivateSubForm_Load（）
Randomize
N=Int（900*Rnd）+100
EndSub
第四章
一、
√√××√×√×√××××
二、
CCDBBADB
三、
1.Fori=0to9:
b（i）=i:
nexti
2.Dim数组名（）[as数据类型]
3.8
4.Additem
5.True
6.List1.clear
7.文本框列表框
8.下拉组合框简单组合框下拉列表框
四、
1.05
2.4（输入数据依次为：
3，1，0）
3.2471116
4.1491625
5.
W
WWW
WWWWW
WWWWWWW
WWWWWWWWW
WWWWWWWWWWW
6.
234
345
7.8（最大公约数）
8.李子苹果橘子葡萄柚子香蕉
五、
1.
q*i
s=s+p*i/q
nexti
2.
r=0
r=mmodn
3.
j+i-1
6-（i-1）或7-i
print
4.
Int（rnd*90）+10
i+1to30
a（i）>a（j）
a（i）mod2<>0
5.
a（i）=mid（str1,i,1）
p=j
a（i）=a（p）
command2.enabled=true
6.
1to2*i-1
command2.enabled=true
command2.enabled=false
7.
list1.listcount
list1.removeitemi
i=i+1
六、（见作业5参考答案1、2、3，作业6参考答案1、2，作业7参考答案1）
1.
PrivateSubForm_Click（）
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
PrintTab（7*j-6）;i&"*"&j&"="&i*j;
Nextj,i
EndSub
2.
PrivateSubForm_Click（）
Dimn,i,fmAsInteger,x,fz,sAsSingle
fz=1:
fm=1:
s=0
x=Val（InputBox（"请输入x的值：
","输入"））
n=Val（InputBox（"请输入n的值：
","输入"））
Fori=1Ton
fz=fz*x
fm=fm*（i+1）
s=s+fz/fm
Nexti
Print"结果是：
";s
EndSub
3.
PrivateSubForm_Click（）
DimnAsInteger,mAsLong
m=1:
n=1
Whilem<=30000
m=m*n
Printn,m
n=n+1
Wend
Print"结果是：
";n-2
EndSub
4.
‘方法一
PrivateSubForm_Click（）
Dimi,sAsInteger
s=0
Fori=100To999
Ifi=（iMod10）^3+（i\10Mod10）^3+（i\100）^3Then
Printi;
s=s+i
EndIf
Nexti
Print"和是：
";s
EndSub
‘方法二
PrivateSubForm_Click（）
Dima,b,c,sAsInteger
s=0
Fora=1To9
Forb=0To9
Forc=0To9
Ifa*100+b*10+c=a^3+b^3+c^3Then
Printa*100+b*10+c;
s=s+a*100+b*10+c
EndIf
Nextc,b,a
Print"和是：
";s
EndSub
5.
PrivateSubForm_Click（）
Dima,bAsInteger
Fora=1To50
Forb=1To60
If60-a-b>0Anda*2+b*1+（60-a-b）/2=100ThenPrinta;b;60-a-b
Nextb,a
EndSub
6.
PrivateSubForm_Click（）
Dimmark（1To20）AsInteger
DimaverAsSingle,nAsInteger,iAsInteger
avcer=0
Fori=1To20
mark（i）=InputBox（"输入第"&i&"位同学的成绩"）
aver=aver+mark（i）
Nexti
aver=aver/20
n=0
Fori=1To20
Ifmark（i）>averThenn=n+1
Nexti
Print"平均分是：
"&aver&"，高于平均分的人数是：
"&n&"个。
"
EndSub
第五章
一、
××√√×√×√
二、
CAAC
三、
1.6
2.按值传递
3.按地址传递
4.Publicxassingle
5.Staticxasinteger
6.b（）aslong
7.Form2.y
8.按地址传递
四、
1、
（masinteger）asinteger
fun=0
fun=1
x=int（rnd*100+1）
2、
30
50
3、
Isp=true
mmodi=0
（2）[下一行：
Fori=4to100step2]
p1andp2
Isp（i）
4、
16
526
5、
12
（2）=1100
64（8）=100
进制转换
6、
3’1’2’6’4’9’
7、
10
10
58
58
六、（见作业10参考答案1、2，作业11参考答案1、2）
1.
Subzxgbs（a,bAsInteger）
DimmAsInteger
Ifa>bThenm=aElsem=b
DoWhileTrue
IfmModa=0AndmModb=0ThenExitDo
m=m+1
Loop
Printa&"和"&b&"的最小公倍数是：
"&m
EndSub
PrivateSubForm_Click（）
Dima,bAsInteger
a=Val（InputBox（"请输入第一个数"））
b=Val（InputBox（"请输入第二个数"））
zxgbsa,b
EndSub
2.
Functionss（iAsInteger）AsInteger
DimjAsInteger
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>Sqr（i）Thenss=1Elsess=0
EndFunction
PrivateSubForm_Click（）
DimiAsInteger,nAsInteger
n=0
Fori=100To1000
Ifss（i）=1Then
Printi;
n=n+1
IfnMod10=0ThenPrint
EndIf
Nexti
EndSub
3.
Functionave（a（）AsDouble,nAsInteger）
Fori=1Ton
s=s+a（i）
Nexti
ave=s/n
EndFunction
PrivateSubForm_Click（）
Dima（）AsDouble,sAsDouble,nAsInteger
n=Val（InputBox（"请输入数据个数"））
ReDima（n）
Fori=1Ton
a（i）=Val（InputBox（"请输入第"&i&"个数"））
Nexti
Print"平均值是：
"&ave（a,n）
EndSub
4.
Subnx（a（）AsSingle,nAsInteger）
DimiAsInteger,tAsSingle
Fori=1Ton/2
t=a（i）:
a（i）=a（n+1-i）:
a（n+1-i）=t
Nexti
EndSub
PrivateSubForm_Click（）
Dima（）AsSingle,nAsInteger
n=Val（InputBox（"请输入数组元素个数"））
ReDima（n）
Fori=1Ton
a（i）=Val（InputBox（"请输入第"&i&"个数"））
Nexti
Print"逆序前：
";
Fori=1Ton
Printa（i）;
Nexti
nxa,n
Print
Print"逆序后：
";
Fori=1Ton
Printa（i）;
Nexti
EndSub
第六章
一、
√×√√√×√×√×××√
二、
BBACBCAACACCBABBCC
三、
1.Scroll和Change
2.Value
3.Change
4.定时器失效
5.Timer
6.65535
7.Circle（ScaleWidth/2,ScaleHeigth/2）,800
8.LoadPicture
9.AutoSizeStretchFalseFalse
10.单击（选中）属性
11.形状（外观）矩形
12.LoadPicture（"C:
\Windows\Cloud.bmp"）
13.图片框其他控件
14.缇ScaleMode
15.画点
16.颜色起点终点纵横比
四、
1、
y=6
y=14
2、
以（1000,800）为圆心，500为半径的红色实心圆
3、
1000个随机（位置、大小、颜色）的空心圆
4、
奇数次，画黄色边框黑色填充的矩形；偶数次，画黄色边框无填充矩形
五、
1、
Timer1.Enabled=True
x\3600
（xmod3600）\60
x=x+1
2、
Label1.left
Label1.left=-Label1.width
3、
Combo1.ListiIndex
Shape1.BorderStyle
Combo2.AddItemStr（i）
4、
Callpic
False
n=n+1
LoadPicture（“C:
\pic\1.jpg”）
LoadPicture（fn）
六、
1.
PrivateSubForm_Click（）
Dimx1AsSingle,y1AsSingle,x2AsSingle,y2AsSingle
x1=Val（InputBox（"请输入第一个点的横坐标","输入"））
y1=Val（InputBox（"请输入第一个点的纵坐标","输入"））
x2=Val（InputBox（"请输入第二个点的横坐标","输入"））
y2=Val（InputBox（"请输入第二个点的纵坐标","输入"））
Picture1.ScaleMode=3
Picture1.Line（x1,y1）-（x2,y2）,,B
EndSub
2.
PrivateSubForm_Click（）
ScaleMode=6
DrawWidth=2
FillStyle=0
FillColor=vbBlue
IfScaleWidth>ScaleHeightThenr=ScaleHeightElser=ScaleWidth
r=r/3:
X1=ScaleWidth/2:
Y1=ScaleHeight/2
Form1.Circle（X1,Y1）,r,vbYellow
EndSub
3.
PrivateSubForm_Load（）
List1.AddItem"缇"
List1.AddItem"磅"
List1.AddItem"像素"
List1.AddItem"字符"
List1.AddItem"英寸"
List1.AddItem"毫米"
List1.AddItem"厘米"
Show
ScaleMode=1
X1=Form1.ScaleWidth/2:
Y1=Form1.ScaleHeight/2
Circle（X1,Y1）,50
EndSub
PrivateSubList1_Click（）
ScaleMode=List1.ListIndex+1
X1=Form1.ScaleWidth/2:
Y1=Form1.ScaleHeight/2
Circle（X1,Y1）,50
EndSub
4.
PrivateSubForm_Load（）
Label1.Caption="好好学习"
Label1.Left=Width/2-Label1.Width/2
Label1.Alignment=2
Label1.AutoSize=True
Label2.Caption="推出速度控制：
"
HScroll1.Min=1
HScroll1.Max=1000
HScroll1.SmallChange=10
HScroll1.LargeChange=100
HScroll1.Value=500
Timer1.Interval=500
EndSub
PrivateSubHScroll1_Change（）
Timer1.Interval=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll（）
CallHScroll1_Change
EndSub
PrivateSubTimer1_Timer（）
Label1.FontSize=Label1.FontSize+2
Label1.Left=Width/2-Label1.Width/2
IfLabel1.FontSize>=72ThenTimer1.Enabled=False
EndSub
第七章
一、
DCABAACDDC
二、
1.窗口快捷
2.Click
3.-（减号）
4.&
5.顺序文件随机文件二进制文件
6.Filelen（）
7.Close#1
8.Eof（）
9.LineInput
10.Open"C:
\test.txt"forinputas#1
三、
1．
PrivateSubForm_Click（）
Open"C:
\a.txt"ForOutputAs#1
Fori=1To26
Print#1,Chr（Asc（"A"）+i-1）;
Nexti
Close#1
EndSub
2．
PrivateSubForm_Click（）
Open"C:
\student.dat"ForInputAs#1
Open"D:
\student.bak"ForOutputAs#2
DoWhileNotEOF
（1）
LineInput#1,c
Print#2,c
Loop
Close#1,#2
EndSub
3．
PrivateSubForm_Click（）
Open"D:
\student.dat"ForOutputAs#1
n=Val（InputBox（"请输入学生个数"））
Fori=1Ton
xm=InputBox（"请输入姓名"）
csny=InputBox（"请输入出生年月"）
wy=Val（InputBox（"请输入外语成绩"））
jsj=Val（InputBox（"请输入计算机成绩"））
Print#1,xm,csny,wy,jsj
Nexti
Close#1
EndSub
升级会员 