vb实验报告.docx
- 文档编号:20129265
- 上传时间:2023-04-25
- 格式:DOCX
- 页数:16
- 大小:78.55KB
vb实验报告.docx
《vb实验报告.docx》由会员分享,可在线阅读,更多相关《vb实验报告.docx(16页珍藏版)》请在冰豆网上搜索。
vb实验报告
实验一
第一题
代码:
PrivateSubCommand1_Click()
Constpi=3.1415926
h=Val(Text1.Text)
r=Val(Text2.Text)
Text3.Text=pi*(r^2)
Text4.Text=2*pi*r*h
Text5.Text=pi*(r^2)*h
EndSub
第二题
代码:
PrivateSubCommand1_Click()
Constpi=3.1415926
x=Text1.Text
a=Text1.Text/180*pi
b=Format(Abs(Sin(a)),"0.000")
c=Format(Abs(Cos(a)),"0.000")
Text2.Text=Text2.Text&Space(5)&x&Space(13)&b&Space(13)&c&vbCrLf
EndSub
实验二
第一题
代码:
PrivateSubCommand1_Click()
Constpi=3.1415926
a=Text1.Text/180*pi
x=Sin(a)
b=Text2.Text/180*pi
y=Cos(b)
Ifa>0Andb>0Then
Label1.Caption=x*y
ElseIfa>0Andb<=0Then
Label1.Caption=x+y
ElseIfa<=0Then
Label1.Caption=x-y
EndIf
EndSub
第二题:
代码:
PrivateSubCommand1_Click()
x=Text1.Text
Ifx<100Andx>=90Then
Label2.Caption="优"
ElseIfx<90Andx>=80Then
Label2.Caption="良"
ElseIfx<80Andx>=70Then
Label2.Caption="中"
ElseIfx<70Andx>=60Then
Label2.Caption="及格"
ElseIfx<60Andx>=0Then
Label2.Caption="不及格"
Else
a=MsgBox("错误",,"提示信息")
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
EndIf
EndSub
实验三
第一题
代码:
PrivateSubCommand1_Click()
DimNAsInteger,IAsInteger,SumAsString
N=Val(Text1.Text)
Sum=0
ForI=1ToN
Sum=Sum+4*((-1)^(I+1)*(1/(2*I-1)))
NextI
Label3.Caption=Sum
EndSub
第二题
代码:
PrivateSubCommand1_Click()
DimIAsInteger,NAsDouble,SAsString
N=Val(Text1.Text)
I=1:
S=1
WhileS<=N
I=I+1
S=S*(2*I-1)
Wend
Label3.Caption=S
EndSub
第三题
代码:
PrivateSubForm_Click()
DimSAsInteger,aAsInteger,bAsInteger,cAsInteger
Fora=1To9
Forb=0To9
Forc=0To9
S=a*100+b*10+c
IfS=a^3+b^3+c^3ThenPrintS
Nextc
Nextb
Nexta
EndSub
1.
(1)源代码
OptionBase1:
DimNAsInteger,x()AsInteger
PrivateSubCommand1_Click()
N=Val(InputBox("请输入总人数"))
ReDimx(N)
Fori=1ToN
x(i)=Val(InputBox("请输入第"&Str(i)&"个学生的成绩"))
Text1.Text=Text1.Text&Str(x(i))
Nexti
EndSub
PrivateSubCommand2_Click()
sum1=0:
sum2=0
Fori=1ToN
sum1=sum1+x(i)
Nexti
a=sum1/N
Forj=1ToN
sum2=sum2+(x(j)-a)^2
Nextj
Text2.Text=Str(Sqr(sum2/(N-1)))
EndSub
(2)运行截图
2.
(1)源代码
OptionBase1:
DimnAsInteger,a()AsInteger
PrivateSubCommand1_Click()
n=20
ReDima(n)
Fori=1Ton
Randomize
a(i)=Int(Rnd*101)
Text1.Text=Text1.Text&Str(a(i))
Nexti
EndSub
PrivateSubCommand2_Click()
Max=a
(1)
Fori=1Ton
Ifa(i)>MaxThenMax=a(i)
Nexti
Text2.Text=Str(Max)
EndSub
(2)运行截图
实验四
(1)源代码
OptionBase1:
DimNAsInteger,x()AsInteger
PrivateSubCommand1_Click()
N=Val(InputBox("请输入总人数"))
ReDimx(N)
Fori=1ToN
x(i)=Val(InputBox("请输入第"&Str(i)&"个学生的成绩"))
Text1.Text=Text1.Text&Str(x(i))
Nexti
EndSub
PrivateSubCommand2_Click()
sum1=0:
sum2=0
Fori=1ToN
sum1=sum1+x(i)
Nexti
a=sum1/N
Forj=1ToN
sum2=sum2+(x(j)-a)^2
Nextj
Text2.Text=Str(Sqr(sum2/(N-1)))
EndSub
(2)运行截图
2.
(1)源代码
OptionBase1:
DimnAsInteger,a()AsInteger
PrivateSubCommand1_Click()
n=20
ReDima(n)
Fori=1Ton
Randomize
a(i)=Int(Rnd*101)
Text1.Text=Text1.Text&Str(a(i))
Nexti
EndSub
PrivateSubCommand2_Click()
Max=a
(1)
Fori=1Ton
Ifa(i)>MaxThenMax=a(i)
Nexti
Text2.Text=Str(Max)
EndSub
(2)运行截图
实验五
1.
(1)源代码
FunctiongetResult(KAsInteger)AsLong
tempA=0
Fori=1ToK
tempA=tempA+i
Nexti
getResult=tempA
EndFunction
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger,pAsInteger
m=Val(Text1.Text)
n=Val(Text2.Text)
p=Val(Text3.Text)
Text4.Text=Format((getResult(m)+getResult(n))/getResult(p),"0.00")
EndSub
(2)运行截图
2.
(1)源代码
SubgetResult(ByValKAsInteger,sumAsLong)
tempA=0
Fori=1ToK
tempA=tempA+i
Nexti
sum=tempA
EndSub
PrivateSubCommand1_Click()
DimmAsInteger,nAsInteger,pAsInteger
Dimf1AsLong,f2AsLong,f3AsLong
m=Val(Text1.Text)
n=Val(Text2.Text)
p=Val(Text3.Text)
CallgetResult(m,f1)
CallgetResult(n,f2)
CallgetResult(p,f3)
Text4.Text=Format((f1+f2)/f3,"0.00")
EndSub
(2)运行截图
实验六
(1)源代码
PrivateSubOption1_Click()
Shape1.FillColor=vbRed
EndSub
PrivateSubOption2_Click()
Shape1.FillColor=vbBlue
EndSub
PrivateSubOption3_Click()
Shape1.FillColor=vbGreen
EndSub
PrivateSubOption4_Click()
Shape1.FillColor=vbYellow
EndSub
PrivateSubOption5_Click()
Shape1.Shape=3
EndSub
PrivateSubOption6_Click()
Shape1.Shape=1
EndSub
PrivateSubOption7_Click()
Shape1.Shape=0
EndSub
PrivateSubOption8_Click()
Shape1.Shape=2
EndSub
(2)运行截图
2.
(1)源代码
PrivateSubCommand1_Click()
Timer1.Enabled=False
EndSub
PrivateSubForm_Load()
Label1.Left=0
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left+20
IfLabel1.Left>Form1.ScaleWidthThen
Label1.Left=-Label1.Width
EndIf
EndSub
(2)运行截图
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 报告