Visual Basic Dot Net程序设计教程第2版课后实验题.docx
- 文档编号:28458324
- 上传时间:2023-07-13
- 格式:DOCX
- 页数:10
- 大小:137.02KB
Visual Basic Dot Net程序设计教程第2版课后实验题.docx
《Visual Basic Dot Net程序设计教程第2版课后实验题.docx》由会员分享,可在线阅读,更多相关《Visual Basic Dot Net程序设计教程第2版课后实验题.docx(10页珍藏版)》请在冰豆网上搜索。
VisualBasicDotNet程序设计教程第2版课后实验题
实验三
第一题
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dimx,y,zAsSingle
x=TB1.Text
Ifx>=3000Theny=0.7*x
Ifx<3000Andx>=2000Theny=0.8*x
Ifx<2000Andx>=1000Theny=0.9*x
Ifx<1000Theny=x
z=x-y
TB2.Text=y
TB3.Text=z
EndSub
PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click
TB1.Text=""
TB2.Text=""
TB3.Text=""
EndSub
PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
Dima,bAsSingle
a=Val(InputBox("请输入所购买物品总价","折扣前总价"))
Ifa>=3000Thenb=0.7*a
Ifa<3000Anda>=2000Thenb=0.8*a
Ifa<2000Anda>=1000Thenb=0.9*a
Ifa<1000Thenb=a
MsgBox("你所买物品总价为"&b,,"折扣后总价")
EndSub
PrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.Click
End
EndSub
EndClass
第三题
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dimx%,y%,z%,t%
x=Val(T1.Text)
y=Val(T2.Text)
z=Val(T3.Text)
Ifx<=yThent=x:
x=y:
y=t
Ifx<=zThent=x:
x=z:
z=t
Ify<=zThent=y:
y=z:
z=t
L2.Font=NewFont("宋体",20)
L2.Text=x&">"&y&">"&z
EndSub
EndClass
第七题
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dima,b,c,d,x1,x2AsSingle
a=Val(T1.Text)
b=Val(T2.Text)
c=Val(T3.Text)
d=b*b-4*a*c
Ifd>0Then
x1=(-b+Math.Sqrt(d))/(2*a)
x2=(-b-Math.Sqrt(d))/(2*a)
L5.Text=x1
L7.Text=x2
ElseIfd=0Then
x1=(-b)/(2*a)
x2=x1
L5.Text=x1
L7.Text=x2
Else
MsgBox("该一元二次方程无实数根!
",,"方程根个数")
EndIf
EndSub
PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click
T1.Text=""
T2.Text=""
T3.Text=""
L5.Text=""
L7.Text=""
EndSub
PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
End
EndSub
EndClass
第十一题
PublicClassForm1
Dims,t,u,vAsString
PrivateSubRB1_CheckedChanged(senderAsObject,eAsEventArgs)Handles_
RB1.CheckedChanged,RB2.CheckedChanged,RB3.CheckedChanged,RB4.CheckedChanged,_
RB5.CheckedChanged,RB6.CheckedChanged,RB7.CheckedChanged,RB8.CheckedChanged,_
CB1.CheckedChanged,CB2.CheckedChanged,CB3.CheckedChanged,CB4.CheckedChanged
If(RB1.Checked)Then
t=RB1.Text&vbCrLf
Else
t=RB2.Text&vbCrLf
EndIf
If(RB3.Checked)Then
u=RB3.Text&vbCrLf
ElseIf(RB4.Checked)Then
u=RB4.Text&vbCrLf
Else
u=RB5.Text&vbCrLf
EndIf
If(RB6.Checked)Then
v=RB6.Text&vbCrLf
ElseIf(RB7.Checked)Then
v=RB7.Text&vbCrLf
Else
v=RB8.Text&vbCrLf
EndIf
If(CB1.Checked)Then
s=CB1.Text&vbCrLf
EndIf
If(CB2.Checked)Then
s&=CB2.Text&vbCrLf
EndIf
If(CB3.Checked)Then
s&=CB3.Text&vbCrLf
EndIf
If(CB4.Checked)Then
s&=CB4.Text&vbCrLf
EndIf
EndSub
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
L3.Font=NewFont("楷体",15)
L3.Text="简历"&vbCrLf
L3.Text&=L1.Text&":
"&TB1.Text&vbCrLf
L3.Text&=L2.Text&":
"&TB2.Text&vbCrLf
L3.Text&=GB1.Text&":
"&t&vbCrLf
L3.Text&=GB2.Text&":
"&u&vbCrLf
L3.Text&=GB3.Text&":
"&v&vbCrLf
L3.Text&=GB4.Text&":
"&vbCrLf&s
EndSub
PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click
TB1.Focus()
TB1.Text=""
TB2.Text=""
L3.Text=""
RB1.Checked=False
RB2.Checked=False
RB3.Checked=False
RB4.Checked=False
RB5.Checked=False
RB6.Checked=False
RB7.Checked=False
RB8.Checked=False
CB1.Checked=False
CB2.Checked=False
CB3.Checked=False
CB4.Checked=False
EndSub
EndClass
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic Dot Net程序设计教程第2版课后实验题 Net 程序设计 教程 课后 实验