vb报告册答案高等教育出版社王贺明主编.docx
《vb报告册答案高等教育出版社王贺明主编.docx》由会员分享，可在线阅读，更多相关《vb报告册答案高等教育出版社王贺明主编.docx（23页珍藏版）》请在冰豆网上搜索。
vb报告册答案高等教育出版社王贺明主编
实验一：
一、选择
1.D2.D3.B4.A5.B
6.C7.CD8.D9.D10.BC
11.A12.D13.D14.C15.A
二、填空
1.windows 2.中断3.工具箱4.代码 5.分类
6.form2.show7.出现语法错误 8.错 9.事件10.面向对象11.工程文件结构 12.工程 13.设计程序代码 14. 双击窗体15. C:
\ProgramFiles\MicrosoftVisualStudio\VB98或者VB的安装文件夹16.属性17.方法 18.font 19.form_load（） 20.对象
实验二：
一、选择
1.B2.C3.B4.C5.C
6.C7.B8.B9.D10.A
11.C12.C13.C14.B15.A
16.C17.B18.D19.C20.C
二、填空
1.Form_Click（） 2.Interval、50003..vbp.frm
4.left top Height、Width twip 5.picture
6.load 7.locked 8.font Alignment
9.GotFocus（） LostFocus（） 10.属性窗口 程序代码
实验三：
一、选择
1.A2.BC3.BC4.A5.A
6.A7.BCD8.D9.B10.B
11.B
二、判断题
不合法的变量：
3.4.5.6.8.10.11.14.15.16.
三、
1、abs（x+y）
2.（3+x*y）^2
3.（-b+sqr（b^2-4*a*c））/（2*a）
4.sin（30*3.14/180）+exp
（2）
四、
1.int（rnd*71+20）或int（rnd*71）+20
2.x<0andy>0orx>0andy<0或者x*y<0
3.xmod3=0orxmod7=0
或x/3=x\3orx/7=x\7
4.x>=10andx<20
5.x>="A"andx<="Z"
6.left（s,3）
实验四：
一、选择
1.C2.D3.C4.D5.A
6.D7.B8.B9.A10.C
二、填空
1.48.71E-01,-4.8712 2. 关系、逻辑、算术
3.900，100，mid（s,2,1）
4.m、1,2,3、printm&"月是第二季度"、endselect
三、
1. X=4 y=13
2. 10
实验五
一、选择
B C B A C
二、填空
（1）forx=2to10
s*（1-1/x）
（2） 1 t>1E-6
（3） j t
（4） 5 11 5
实验六
一、选择
BCCCD D DDCA
实验七
一、选择
1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A
二、填空
（1）n！
（2）1+1+2+3+4+……+n
（3）n是否是素数
（4）冒泡排序
（5）递归调用产生斐波那契数列
（6）求最大公约数和最小公倍数
第八页编程
2-1
PrivateSubCommand1_Click（）
Label3=Val（Text1）*Val（Text2）
EndSub
PrivateSubCommand2_Click（）
Label3=Val（Text1）/Val（Text2）
EndSub
2-2
PrivateSubCommand1_Click（）
Picture1.Picture=LoadPicture（"d:
\tu1.jpg"）
EndSub
PrivateSubCommand2_Click（）
Picture1.Picture=LoadPicture（"d:
\tu2.jpg"）
EndSub
PrivateSubCommand3_Click（）
Picture1.Visible=False
EndSub
2-5
PrivateSubForm_Load（）
Image1.Picture=LoadPicture（"C:
\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Sunset.jpg"）
EndSub
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubImage1_Click（）
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer（）
Image1.Left=Int（Rnd*（Form1.ScaleWidth-Image1.Width））
Image1.Top=Int（Rnd*（Form1.ScaleHeight-Image1.Height））
EndSub
第11页编程
2-3
PrivateSubCommand1_Click（）
Dimx%,y%
x=Int（Rnd*900+100）
Print"产生的随机数：
";x
y=（xMod10）*100+（x\10Mod10）*10+x\100
Print"反序数：
";Format（y,"000"）
EndSub
PrivateSubCommand2_Click（）
Dimx%,yAsString
x=Int（Rnd*900+100）
Print"产生的随机数：
";x
y=Trim（Str（x））
Print"反序数：
"&Right（y,1）&Mid（y,2,1）&Left（y,1）
EndSub
PrivateSubForm_Load（）
EndSub
2-4
PrivateSubCommand1_Click（）
Dimm%,n%
Randomize
m=Val（Text1）:
n=Val（Text2）
x=Int（Rnd*（n-m+1）+m）
y=Int（Rnd*（n-m+1）+m）
z=Int（Rnd*（n-m+1）+m）
Label3=m&"到"&n&"之间的3个随机数为:
"&x&Space（3）&y&Space（3）&z
EndSub
PrivateSubForm_Load（）
EndSub
2-5
PrivateSubCommand1_Click（）
Label1.Caption=Date
EndSub
PrivateSubCommand2_Click（）
Label2.Caption=Time
EndSub
PrivateSubCommand3_Click（）
Label3.Caption=WeekdayName（Weekday（Date））
EndSub
PrivateSubForm_Load（）
EndSub
第十五页
2-1
方法一
PrivateSubCommand1_Click（）
Dimx!
a!
aa%,b!
bb%,c!
cc$
x=Val（Text1）
a=x*180/3.14
aa=Int（a）
b=（a-aa）*60
bb=Int（b）
c=（b-bb）*60
cc=Format（c,"#.000"）
Label2="弧度"&Text1&"转换为"&aa&"度"&bb&"分"&cc&"秒"
EndSub
方法二
PrivateSubCommand1_Click（）
x=InputBox（"请输入弧度数值","弧度转换",0）
xx=Val（x）
a=x*180/3.14
aa=Int（a）
b=（a-aa）*60
bb=Int（b）
c=（b-bb）*60
cc=Format（c,"#.000"）
MsgBox"弧度"&x&"转换为"&aa&"度"&bb&"分"&cc&"秒"
EndSub
2-2
PrivateSubCommand1_Click（）
Dimx%
x=Val（Text1）
Ifx/400=x\400OrxMod4=0AndxMod100<> 0Then
Label2=Text1&"年是闰年"
Else
Label2=Text1&"年不是闰年"
EndIf
EndSub
2-3
方法二
PrivateSubCommand1_Click（）
Dimx%,y%,z%
x=InputBox（"输入第一个数"）
y=InputBox（"输入第二个数"）
z=InputBox（"输入第三个数"）
Ifx> yThent=x:
x=y:
y=t
Ify> zThent=y:
y=z:
z=t
Ifx> yThent=x:
x=y:
y=t
Printx,y,z
EndSub
PrivateSubForm_Load（）
EndSub
方法一
PrivateSubCommand1_Click（）
Dimx%,y%,z%
x=Val（Text1）
y=Val（Text2）
z=Val（Text3）
Ifx> yThent=x:
x=y:
y=t
Ify> zThen
t=y:
y=z:
z=t
Ifx> yThen
t=x:
x=y:
y=t
EndIf
EndIf
Label1=x&Space（5）&y&Space（5）&z
EndSub
2-4
方法一
PrivateSubCommand1_Click（）
x=Val（InputBox（"请输入上网时间:
"））
Ifx<> -1Then
SelectCasex
CaseIs< 10
fei=25
Case10To50
fei=x*2
Case50To100
fei=x*1.5
CaseIs>=100
fei=x*1
EndSelect
升级会员 