vb实验报告答案全21.docx
- 文档编号:4354803
- 上传时间:2022-11-30
- 格式:DOCX
- 页数:29
- 大小:22.98KB
vb实验报告答案全21.docx
《vb实验报告答案全21.docx》由会员分享,可在线阅读,更多相关《vb实验报告答案全21.docx(29页珍藏版)》请在冰豆网上搜索。
vb实验报告答案全21
实验一问答题:
1、答:
常见的有visualBasic、C++、Java、SQL。
用途特点:
(参考课本4-5页)
2、答:
代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是:
代码<程序<软件
3、答:
面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象,因此它们都可以被看作一个小型的“机器”,即对象。
它能够让人们更简单地设计并维护程序,使得程序更加便于分析、设计、理解。
4、答:
参考课本第9页
5、答:
类——是创建对象实例的模板,包含了创建对象的属性描述和行为特征的定义。
对象——是类的一个实例,继承了类的属性、方法。
控件——是具有图形界面的对象,它同样具有属性、方法、事件,是用来设计用户界面的重要元素。
属性——是对象的性质,用来描述和反应对象特征的参数。
事件——响应对象的动作,它发生在用户与程序交互时。
如单击控件、鼠标移动、键盘按下。
过程——指附在该对象上的程序代码,是事件的处理程序。
6、答:
参考课本12页到17页。
实验二问答题:
1、答
通用属性有:
Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答
标签label是用来显示信息的,不具有输入功能。
属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据,编辑文本。
属性有Text、Maxlength、MultiLine、ScrollBars、Locked、PassWord。
3、答
结果为:
标签里显示一个“abc”,图片框里显示3行“欢迎您”。
4、答
要保存2次,分别是工程文件.vbp和窗体文件.frm。
实验一:
一、选择
1.D2.D3.B4.A5.B
6.C7.CD8.D9.D10.编程机制是C、设计方式是B
11.A12.D13.D14.C15.A
二、填空
1.windows2.中断3.工具箱4.代码5.分类
6.form2.show7.出现语法错误8.错9.事件10.面向对象11.工程文件结构及各文件名12.工程13.设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font19.form_load()20.对象
1.PrivateSubCommand1_Click()
PrintSqr(8),8^(1/3)
EndSub
2.PrivateSubCommand1_Click()
Fori=100To110
PrintSqr(i)
Nexti
EndSub
3.PrivateSubForm_Load()
Print"郑州大学在前进!
"
EndSub
4.PrivateSublabel_click()
Label.caption=”蓝天白云绿水青山”
Endsub
实验二:
一、选择
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、5003..vbp.frm
4.lefttopHeight、Widthtwip5.picture
6.load7.locked8.fontAlignment
9.GotFocus()LostFocus()10.属性窗口程序代码
1.PrivateSubCommand1_Click()
Label3=Val(Text1)*Val(Text2)
EndSub
PrivateSubCommand2_Click()
Label3=Val(Text1)/Val(Text2)
EndSub
2.PrivateSubCommand1_Click()
Picture1.Visible=True
Picture1.Picture=LoadPicture("d:
\tu1.jpg")
EndSub
PrivateSubCommand2_Click()
Picture1.Visible=True
Picture1.Picture=LoadPicture("d:
\tu2.jpg")
EndSub
PrivateSubCommand3_Click()
Picture1.Visible=False
'也可以改为:
Picture1.Picture=LoadPicture("")
EndSub
3.PrivateSubCommand1_Click()
Label3=Val(Text1)*Val(Text2)
EndSub
4.PrivateSubCommand1_Click()
Text2=Text1
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
EndSub
PrivateSubForm_Load()
Command1.Visible=False
Command2.Visible=False
EndSub
PrivateSubText1_Change()
Command1.Visible=True
Command2.Visible=True
EndSub
5.PrivateSubForm_Load()
Image1.Picture=LoadPicture("d:
\tu3.jpg")
EndSub
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))
Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height))
End
实验三:
一、选择
1.A2.BC3.BC4.A5.A
6.A7.BCD8.D9.B10.B11.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)或mid(s,1,3)
操作题:
2.PrivateSubCommand1_Click()
Dimn%
n=Abs(Val(Text1))
Label2=Format(n^2,"#.000")&Space
(2)&Format(Sqr(n),"#.000")&Space
(2)&Format(n^3,"#.000")&Space
(2)&Format(n^(1/3),"#.000")
'上句的输出也可以用下面的print方式:
'PrintFormat(n^2,"#.000");Spc
(2);Format(Sqr(n),"#.000");Spc
(2);Format(n^3,"#.000");Spc
(2);Format(n^(1/3),"#.000")
EndSub
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
4.PrivateSubCommand1_Click()
Dimm%,n%
Randomize
m=Val(Text1):
n=Val(Text2)
x=Int(Rnd*(n-m)+m)
y=Int(Rnd*(n-m)+m)
z=Int(Rnd*(n-m)+m)
Label3=m&"到"&n&"之间的3个随机数为:
"&x&Space(3)&y&Space(3)&z
EndSub
5.PrivateSubCommand1_Click()
Label1.Caption=Date
EndSub
PrivateSubCommand2_Click()
Label2.Caption=Time
EndSub
PrivateSubCommand3_Click()
Label3.Caption=WeekdayName(Weekday(Date))
EndSub
实验四:
一、选择
1.C2.D3.C4.D5.A
6.D7.B8.B9.A10.C
二、填空
1.48.71E-01,-4.87122.关系、逻辑、算术
3.900,100,mid(s,2,1)
4.m、1,2,3、printm&"月是第二季度"、endselect
三、程序结果
1.X=4y=13
2.10
操作题:
1.方法一:
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
方法二:
OptionExplicit
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
2.PrivateSubCommand1_Click()
Dimx%
x=Val(Text1)
Ifx/400=x\400OrxMod4=0AndxMod100<>0Then
Label2=Text1&"年是闰年"
Else
Label2=Text1&"年不是闰年"
EndIf
EndSub
3.PrivateSubCommand1_Click()
Dimx%,y%,z%
x=InputBox("输入第一个数")
y=InputBox("输入第二个数")
z=InputBox("输入第三个数")
Print"输入的数是:
";x;y;z
Ifx>yThent=x:
x=y:
y=t
Ify>zThent=y:
y=z:
z=t
Ifx>yThent=x:
x=y:
y=t
Print"排序结果是:
";x;y;z
EndSub
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
方法二:
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
实验五
一、选择
BCBAC
二、填空
(1)forx=2to10
s*(1-1/x)
(2)1t>1E-6
(3)jt
(4)5115
1.PrivateSubCommand1_Click()
Forn=1To100
s=s+n
Nextn
Prints
EndSub
PrivateSubCommand2_Click()
n=1
DoWhilen<=100
s=s+n
n=n+1
Loop
Prints
EndSub
2.PrivateSubCommand1_Click()
Fori=0To20
Forj=0To33
Ifi*5+j*3+1/3*(100-i-j)=100ThenPrinti,j,100-i-j
Nextj
Nexti
EndSub
3.PrivateSubCommand1_Click()
n=0
Do
IfnMod2=1AndnMod3=2AndnMod5=4AndnMod6=5AndnMod7=0ThenExitDo
n=n+1
Loop
Printn
EndSub
4.'已知x,y,z分别是0~9中的一个数,求x,y,z的值,使得xxz+yzz=532.
PrivateSubCommand1_Click()
Dimx%,y%,z%,i%,j%
Forx=0To9
Fory=0To9
Forz=0To9
If(x*100+x*10+z)+(y*100+z*10+z)=532ThenPrintx,y,z
Next
Next
Next
EndSub
PrivateSubCommand2_Click()
Forx=0To9
Fory=0To9
Forz=0To9
IfVal(x&x&z)+Val(y&z&z)=532ThenPrintx;y;z
Next
Next
Next
EndSub
5.PrivateSubCommand1_Click()
x=Val(Text1)
y=x*4
n=0
DoWhilex<=y
x=x*(1+0.1)
n=n+1
Loop
Printx,n
EndSub
6.PrivateSubCommand1_Click()
n=Val(InputBox("输入计算到第几项:
",,0))
Fori=1Ton
s=s+(-1)^(i+1)*i
Next
Printn,s
EndSub
PrivateSubCommand2_Click()
n=Val(InputBox("输入计算到第几项:
",,0))
p=1
Fori=1Ton
s=s+p*i
p=-p
Next
Printn,s
EndSub
7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n)
PrivateSubCommand1_Click()
Dimn%,s%
n=Val(InputBox("输入计算到第几项:
",,0))
s=0:
t=0
Fori=1Ton
t=t+i
s=s+t
Nexti
Prints
EndSub
PrivateSubCommand2_Click()
Dimn%,s%
n=Val(InputBox("输入计算到第几项:
",,0))
s=0:
t=0
Fori=1Ton
t=0
Forj=1Toi
t=t+j
Next
s=s+t
Next
Prints
EndSub
8.PrivateSubCommand1_Click()
DimsAsDouble,piAsDouble
n=1:
s=0
DoWhile1/(2*n-1)>=0.0001'也可以是DoUntil1/(2*n-1)<0.0001
s=s+(-1)^(n+1)*1/(2*n-1)
n=n+1
Loop
pi=4*s
Printpi
EndSub
9.'5-9:
输出所有的“水仙花数”.
'所谓的“水仙花数”是指一个3位数,其各位数字的立方和等于该数本身。
'例如153是一个水仙花数,因为153=1^3+5^3+3^3
PrivateSubCommand1_Click()
Forn=100To999
k=Format(n)'或者k=Trim(Str(n))
Ifn=Left(k,1)^3+Mid(k,2,1)^3+Right(k,1)^3ThenPrintn
Next
EndSub
PrivateSubCommand2_Click()
Forx=1To9
Fory=0To9
Forz=0To9
n=x*100+y*10+z
s=x^3+y^3+z^3
Ifn=sThenPrintn
Next
Next
Next
EndSub
10.'第10题的改造题-----求100至999之间的最大三个素数(的平均值)
PrivateSubCommand1_Click()
Forn=999To100Step-1
Fori=2Ton-1
IfnModi=0ThenExitFor
Nexti
Ifi=nThen
Printn
s=s+n
k=k+1
EndIf
Ifk=3ThenExitFor
Nextn
Prints/3
EndSub
11.'随机产生20个(50,100)范围内的随机整数,
'显示他们当中的最大值、最小值和平均值
PrivateSubCommand1_Click()
s=0:
Max=0:
Min=1000
Fori=1To20
x=Int(Rnd*49+51)'(50,100)即为[51,100),Int(Rnd*(100-51)+51)
Printx;
s=s+x
Ifx>MaxThenMax=x
Ifx Nexti aver=s/20 Print Print"max=";Max,"min=";Min,"aver=";aver EndSub 12.PrivateSubCommand1_Click() Fori=1To4 PrintTab(10-i); Forj=1To2*i-1 Ifj<=iThen PrintFormat(j); Else PrintFormat(2*i-j); EndIf Next Print Next EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 报告 答案 21
![提示](https://static.bdocx.com/images/bang_tan.gif)