VB前七章课后习题参考答案Word文档格式.docx
《VB前七章课后习题参考答案Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB前七章课后习题参考答案Word文档格式.docx（19页珍藏版）》请在冰豆网上搜索。
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
0Then
y=Sqr（x）
Else
y=0
EndIf
Print"
y的值是：
"
;
y
EndSub
2.
PrivateSubCommand1_Click（）
Text1.Visible=False
PrintTab（20）;
"
欢迎进入"
PrivateSubForm_Load（）
Text1.PasswordChar="
*"
Command1.Caption="
进入"
Command1.Enabled=False
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
IfText1.Text="
abc"
Then
Command1.Enabled=True
Else
MsgBox"
输入错误"
,"
提示"
EndIf
3.
IfCommand1.Caption="
显示"
PrintSpc（10）;
欢迎使用VisualBasic!
Command1.Caption="
清除"
Cls
PrivateSubCommand2_Click（）
End
Command2.Caption="
退出"
4.
DimNAsInteger
DimdifAsInteger
dif=Abs（Val（Text1.Text）-N）
'
PrintN
SelectCasedif
Case0
ms="
你猜对了！
Case1To3
Case4To10
**"
Case11To50
***"
Case51To100
****"
Case101To200
*****"
Case201To500
******"
CaseElse
*******"
EndSelect
MsgBoxms
Randomize
N=Int（900*Rnd）+100
第四章
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.李子苹果橘子葡萄柚子香蕉
五、
q*i
s=s+p*i/q
nexti
r=0
r=mmodn
j+i-1
6-（i-1）或7-i
print
Int（rnd*90）+10
i+1to30
a（i）>
a（j）
a（i）mod2<
>
a（i）=mid（str1,i,1）
p=j
a（i）=a（p）
command2.enabled=true
1to2*i-1
command2.enabled=false
7.
list1.listcount
list1.removeitemi
i=i+1
六、（见作业5参考答案1、2、3，作业6参考答案1、2，作业7参考答案1）
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
PrintTab（7*j-6）;
i&
&
j&
="
i*j;
Nextj,i
Dimn,i,fmAsInteger,x,fz,sAsSingle
fz=1:
fm=1:
s=0
请输入x的值：
n=Val（InputBox（"
请输入n的值：
Fori=1Ton
fz=fz*x
fm=fm*（i+1）
s=s+fz/fm
Nexti
结果是：
s
DimnAsInteger,mAsLong
m=1:
n=1
Whilem<
=30000
m=m*n
Printn,m
n=n+1
Wend
n-2
‘方法一
Dimi,sAsInteger
s=0
Fori=100To999
Ifi=（iMod10）^3+（i\10Mod10）^3+（i\100）^3Then
Printi;
s=s+i
和是：
‘方法二
Dima,b,c,sAsInteger
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
Nextc,b,a
Dima,bAsInteger
Fora=1To50
Forb=1To60
If60-a-b>
0Anda*2+b*1+（60-a-b）/2=100ThenPrinta;
b;
60-a-b
Nextb,a
Dimmark（1To20）AsInteger
DimaverAsSingle,nAsInteger,iAsInteger
avcer=0
Fori=1To20
mark（i）=InputBox（"
输入第"
位同学的成绩"
）
aver=aver+mark（i）
aver=aver/20
n=0
Ifmark（i）>
averThenn=n+1
平均分是：
aver&
，高于平均分的人数是：
n&
个。
第五章
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
58
六、（见作业10参考答案1、2，作业11参考答案1、2）
Subzxgbs（a,bAsInteger）
DimmAsInteger
Ifa>
bThenm=aElsem=b
DoWhileTrue
IfmModa=0AndmModb=0ThenExitDo
m=m+1
Loop
Printa&
和"
b&
的最小公倍数是：
m
a=Val（InputBox（"
请输入第一个数"
b=Val（InputBox（"
请输入第二个数"
zxgbsa,b
Functionss（iAsInteger）AsInteger
DimjAsInteger
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Nextj
Ifj>
Sqr（i）Thenss=1Elsess=0
EndFunction
DimiAsInteger,nAsInteger
Fori=100To1000
Ifss（i）=1Then
IfnMod10=0ThenPrint
Functionave（a（）AsDouble,nAsInteger）
s=s+a（i）
ave=s/n
Dima（）AsDouble,sAsDouble,nAsInteger
请输入数据个数"
ReDima（n）
a（i）=Val（InputBox（"
请输入第"
个数"
平均值是：
ave（a,n）
Subnx（a（）AsSingle,nAsInteger）
DimiAsInteger,tAsSingle
Fori=1Ton/2
t=a（i）:
a（i）=a（n+1-i）:
a（n+1-i）=t
Dima（）AsSingle,nAsInteger
请输入数组元素个数"
逆序前：
Printa（i）;
nxa,n
Print
逆序后：
第六章
√√√×
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.颜色起点终点纵横比
y=6
y=14
以（1000,800）为圆心，500为半径的红色实心圆
1000个随机（位置、大小、颜色）的空心圆
奇数次，画黄色边框黑色填充的矩形；
偶数次，画黄色边框无填充矩形
Timer1.Enabled=True
x\3600
（xmod3600）\60
x=x+1
Label1.left
Label1.left=-Label1.width
Combo1.ListiIndex
Shape1.BorderStyle
Combo2.AddItemStr（i）
Callpic
False
n=n+1
LoadPicture（“C:
\pic\1.jpg”）
LoadPicture（fn）
六、
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
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
List1.AddItem"
缇"
磅"
像素"
字符"
英寸"
毫米"
厘米"
Show
ScaleMode=1
X1=Form1.ScaleWidth/2:
Y1=Form1.ScaleHeight/2
Circle（X1,Y1）,50
PrivateSubList1_Click（）
ScaleMode=List1.ListIndex+1
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
PrivateSubHScroll1_Change（）
Timer1.Interval=HScroll1.Value
PrivateSubHScroll1_Scroll（）
CallHScroll1_Change
PrivateSubTimer1_Timer（）
Label1.FontSize=Label1.FontSize+2
IfLabel1.FontSize>
=72ThenTimer1.Enabled=False
第七章
DCABAACDDC
1.窗口快捷
2.Click
3.-（减号）
4.&
5.顺序文件随机文件二进制文件
6.Filelen（）
7.Close#1
8.Eof（）
9.LineInput
10.Open"
\test.txt"
forinputas#1
1．
Open"
\a.txt"
ForOutputAs#1
Fori=1To26
Print#1,Chr（Asc（"
A"
）+i-1）;
Close#1
2．
\student.dat"
ForInputAs#1
D:
\student.bak"
ForOutputAs#2
DoWhileNotEOF
（1）
LineInput#1,c
Print#2,c
Close#1,#2
3．
请输入学生个数"
xm=InputBox（"
请输入姓名"
csny=InputBox（"
请输入出生年月"
wy=Val（InputBox（"
请输入外语成绩"
jsj=Val（InputBox（"
请输入计算机成绩"
Print#1,xm,csny,wy,jsj
升级会员 