vb实验答案.docx
- 文档编号:9990086
- 上传时间:2023-02-07
- 格式:DOCX
- 页数:26
- 大小:20.48KB
vb实验答案.docx
《vb实验答案.docx》由会员分享,可在线阅读,更多相关《vb实验答案.docx(26页珍藏版)》请在冰豆网上搜索。
vb实验答案
kwsy1.2属性设置二
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox1.Enabled=False
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox1.Visible=False
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
TextBox1.Enabled=True
TextBox1.Visible=True
EndSub
EndClass
kwsy2.3评选奖学金
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox1.Focus()
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima!
b!
c!
d!
a=Val(TextBox1.Text)
b=Val(TextBox2.Text)
c=Val(TextBox3.Text)
d=(a+b+c)/3
If(a=100Andb=100Andc>=80)Or(a=100Andc=100Andb>=80)Or(b=100Andc=100Anda>=80)Ord>=95Then
TextBox4.Text="获一等奖"
ElseIfd>=85Anda>80Andb>=80Andc>=80Then
TextBox4.Text="获二等奖"
ElseIfd>=80Then
TextBox4.Text="获三等奖"
Else
TextBox4.Text="不获奖学金"
EndIf
EndSub
EndClass
kwsy1.4药物反应
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimx!
y!
x=Val(InputBox("请输入药物剂量","输入框"))
y=1000*x-x*x
MsgBox("敏感度为"&y,,"输出框")
EndSub
EndClass
求一元二次方程的根
ImportsSystem.Math
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima#,b#,c#,d!
x$,y$
a=Val(TextBox1.Text)
b=Val(TextBox2.Text)
c=Val(TextBox3.Text)
d=b*b-4*a*c
Ifd>0Then
d=Sqrt(d)
x=(-b+d)/2/a
y=(-b-d)/2/a
TextBox4.Text=x
TextBox5.Text=y
ElseIfd=0Then
x=-b/2/a
y=-b/a/2
TextBox4.Text=x
TextBox5.Text=y
Else
d=Math.Sqrt(-d)
x=Format(-b/2/a,"0.0000")
y=Format(d/2/a,"0.0000")
TextBox4.Text=x&"+"&y&"i"
TextBox5.Text=x&"-"&y&"i"
EndIf
EndSub
EndClass
求最大公约数和最小公倍数
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
End
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dima,b,n,m,rAsLong
a=Val(TextBox1.Text)
b=Val(TextBox2.Text)
Ifa=0Orb=0Then
InputBox("请重新输入")
EndIf
Ifa>bThen
m=a:
n=b
Else
n=a:
m=b
EndIf
Do
r=mModn
m=n
n=r
LoopWhile(r<>0)
Label3.Text="结果为:
"&vbCrLf
Label3.Text&=a&"与"&b&"的最大公约数为"&m&vbCrLf
Label3.Text&=a&"与"&b&"的最小公倍数为"&a*b/m
EndSub
EndClass
特殊图形显示
(二)P24
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
End
EndSub
PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.Click
Dimi!
j%
Label1.Text=""
Fori=1To5
Label1.Text&=Space(3*(i-1))&"★"
Forj=1To17-3*i
Label1.Text&="☆"
Nextj
Label1.Text&="★"&vbCrLf
Nexti
Label1.Text&=Space(3*(i-1))&"☆"&vbCrLf
Fori=5To1Step-1
Label1.Text&=Space(3*(i-1))&"☆"
Forj=1To17-3*i
Label1.Text&="★"
Nextj
Label1.Text&="☆"&vbCrLf
Nexti
EndSub
EndClass
kysy3.1产量问题
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimn%,max!
s!
s=0
max=0
Forn=20To50
s=n*(300-10*(n-20))
Ifs>maxThen
max=s
EndIf
Next
Forn=20To50
s=n*(300-10*(n-20))
Ifs=maxThen
Label1.Text&="当每亩地种植"&n&"棵梨树时达到最高产量为"&max&"kg"&vbCrLf
EndIf
Next
EndSub
EndClass
kysy3.2猴子吃桃子
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimx!
x=1
Label1.Text="第7天的桃子数为:
1个"&vbCrLf
Fori=6To1Step-1
x=2*(x+1)
Label1.Text&="第"&i&"天的桃子数为:
"&x&"个"&vbCrLf
Nexti
EndSub
EndClass
kysy3.3求自然对数e
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimi%,r#,s#
s=1
r=1
i=0
Do
i=i+1
r=r*i
s=s+1/i
LoopWhile1/r>=0.00001
Label1.Text="e的值为"&Format(s,"#.######")
MsgBox("e的值为"&Format(s,"#.######"),,"求e的值")
EndSub
EndClass
kysy3.4求素数
PublicClassForm1
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
End
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dimm!
i!
n!
n=0
Form=1To100
Fori=2Tom-1
IfmModi=0ThenExitFor
Nexti
Ifi=mThen
n=n+1
Ifn=7Then
n=0
Label2.Text&=vbCrLf
EndIf
Label2.Text&=m&Space
(1)
EndIf
Nextm
EndSub
EndClass
kysy3.5图形显示
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
End
EndSub
PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.Click
Dimi!
j%
Label1.Text=""
Fori=1To6
Label1.Text&=Space(6-i)
Forj=1To2*i-1
Label1.Text&=Chr(64+i)
Nextj
Label1.Text&=vbCrLf
Nexti
EndSub
EndClass
sy4.1运动成绩排序
PublicClassForm1
InheritsSystem.Windows.Forms.Form
Dimi%,j%,m%,temp!
t$,n%
Dima$()={207,126,453,"096",339,"077",231,276,122,302}
Dimb!
()={14.5,14.2,15.2,15.7,14.9,15.1,14.7,13.9,13.7,14.5}
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Label1.Text=""
Label1.Text="运动员编号"&Space(3)&"成绩(秒)"&vbCrLf
Dimi%
m=UBound(b)
n=UBound(a)
Fori=0Ton
Label1.Text&=a(i)&Space(7)&b(i)&vbCrLf
Next
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Label2.Text=""
Label2.Text="名次"&Space(3)&"编号"&Space(3)&"成绩(秒)"&vbCrLf
Dimi%,j%
Fori=0To8
m=i
Forj=i+1To9
Ifb(m)>b(j)Thenm=j
Nextj
temp=b(m):
b(m)=b(i):
b(i)=temp
t=a(m):
a(m)=a(i):
a(i)=t
Label2.Text&=i+1&Space(6)&a(i)&Space(6)&b(i)&vbCrLf
Nexti
Label2.Text&=i+1&Space(6)&a(i)&Space(6)&b(i)&vbCrLf
EndSub
EndClass
sy4.2矩阵求解
PublicClassForm1
InheritsSystem.Windows.Forms.Form
Dimi%,j%,a%(5,5),s%,m%,n%,k%
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Randomize()
Dimi%,j%
Label1.Text=""
Fori=0To4
Forj=0To4
a(i,j)=Int(Rnd()*99+1)
Label1.Text&=a(i,j)&Space(8-Len(a(i,j)))
Next
Label1.Text&=vbCrLf&vbCrLf
Next
EndSub
PrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.Click
Dimi%,j%
Label2.Text=""
a(i,j)=Len(Label1.Text)
Fori=0To4
s+=a(i,i)
Next
Label2.Text="主对角线元素之和是:
"
Label2.Text&=s
EndSub
PrivateSubButton3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton3.Click
Dimi%,j%
Label3.Text=""
a(i,j)=Len(Label1.Text)
a(m,n)=0
Fori=0To4
Forj=0To4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 实验 答案