vb报告册答案高等教育出版社王贺明主编.docx
- 文档编号:3799370
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:23
- 大小:40.89KB
vb报告册答案高等教育出版社王贺明主编.docx
《vb报告册答案高等教育出版社王贺明主编.docx》由会员分享,可在线阅读,更多相关《vb报告册答案高等教育出版社王贺明主编.docx(23页珍藏版)》请在冰豆网上搜索。
vb报告册答案高等教育出版社王贺明主编
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)求最大公约数和最小公倍数
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
MsgBox"上网费用为:
"&fei&"元"
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
EndSub
方法二
PrivateSubCommand1_Click()
Do
x=Val(InputBox("请输入上网时间:
",,-1))
Ifx<> -1Then
SelectCasex
CaseIs< 10
fei=25
Case10To50
fei=x*2
Case50To100
fei=x*1.5
CaseIs>=100
fei=x*1
EndSelect
zongfei=zongfei&Space(3)&fei
MsgBoxzongfei,,"上网费用为"
Else
ExitDo
EndIf
Loop
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
EndSub
2-5
第18页
2-3
PrivateSubCommand1_Click()
n=0
Do
IfnMod2=1AndnMod3=2AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDo
n=n+1
Loop
Printn
EndSub]
2-5
PrivateSubCommand1_Click()
x=Val(Text1)
y=x*4
n=0
DoWhilex<=y
x=x*(1+0.1)
n=n+1
Printx
Loop
Printx,n
EndSub
2-6
PrivateSubCommand1_Click()
n=Val(InputBox("输入计算到第几项:
",,0))
Fori=1Ton
s=s+(-1)^(i+1)*i
Next
Printn,s
EndSub
PrivateSubForm_Load()-8
EndSub
2-8
PrivateSubCommand1_Click()
DimsAsDouble,piAsDouble
n=1:
s=0
DoWhile1/(2*n-1)>=0.0001
s=s+(-1)^(n+1)*1/(2*n-1)
n=n+1
Loop
pi=4*s
Printpi
EndSub
2-9
PrivateSubCommand1_Click()
Forn=100To999
k=Trim(Str(n))
Ifn=Left(k,1)^3+Mid(k,2,1)^3+Right(k,1)^3ThenPrintn
Next
EndSub
2-11
PrivateSubCommand1_Click()
s=0:
Max=0:
Min=1000
Fori=1To20
Randomize
x=Int(Rnd*50+51)
Printx;
Ifx> MaxThenMax=x
Ifx< MinThenMin=x
s=s+x
Nexti
aver=s/20
Print"max=";Max,"min=";Min,"aver=";aver
EndSub
PrivateSubForm_Load()
EndSub
实验一:
一、选择
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\400Or
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 报告 答案 高等教育出版社 王贺明 主编