实验3VB.docx
- 文档编号:9269889
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:13
- 大小:53.65KB
实验3VB.docx
《实验3VB.docx》由会员分享,可在线阅读,更多相关《实验3VB.docx(13页珍藏版)》请在冰豆网上搜索。
实验3VB
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dimx%,y%
x=Val(InputBox("输入x值"))
Ifx<1000Then
y=x
ElseIfx<2000Then
y=0.9*x
ElseIfx<3000Then
y=0.8*x
Else
y=0.7*x
EndIf
Label1.Text=y
EndSub
EndClass
---------------------------------------------------------------------
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dimx%,y%
x=Val(InputBox("输入x值"))
Ifx<10Then
y=30
ElseIfx<50Then
y=30+2.5*(x-10)
Else
y=30+2*(x-50)
EndIf
Ify>150Then
y=150
Label2.Text="你本月上网费用已超过150,将免费上网"
EndIf
Label1.Text="你一共上网时长为"&x&"小时,应支付"&y&"元"
EndSub
EndClass
----------------------------------------------------------------------------------
PublicClassForm1
PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click
Dima%,b%,c%,t%
a=Val(TextBox1.Text)
b=Val(TextBox2.Text)
c=Val(TextBox3.Text)
Ifa t=a: a=b: b=t Ifb t=b: b=c: c=t Ifa t=a: a=b: b=t EndIf EndIf EndIf Label2.Text=a&">"&b&">"&c EndSub EndClass ------------------------------------------------------------------------- PublicClassForm1 PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click Dima%,b%,c%,t% a=Val(TextBox1.Text) b=Val(TextBox2.Text) c=Val(TextBox3.Text) Ifa>bThen t=a: a=b: b=t Ifb>cThen t=b: b=c: c=t Ifa>bThen t=a: a=b: b=t EndIf EndIf EndIf Label2.Text=a&"<"&b&"<"&c EndSub EndClass ------------------------------------------------------------------------------------ PublicClassForm1 PrivateSubForm1_Load_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load Dimx%,y%,m%,n% m=InputBox("输入头数") n=InputBox("输入脚数") TextBox1.Text=m TextBox2.Text=n Forx=0Tom y=m-x Ifn/2-m=yThen Label2.Text&=x&Space(5)&y EndIf Next Ifx<0Then MsgBox("荒唐解,请重新输入") Ify<0Then MsgBox("荒唐解,请重新输入") EndIf EndIf EndSub PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged IfVal(TextBox2.Text)Mod2<>0Then MsgBox("输入数字不是偶数,请重新输入") TextBox2.Text="" TextBox2.Focus() EndIf EndSub PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged IfVal(TextBox1.Text)<0Then MsgBox("输入数字为负数,请重新输入") TextBox2.Text="" TextBox2.Focus() EndIf EndSub EndClass ------------------------------------------------------------------------------------------------------ PublicClassForm1 PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click Dimi% TextBox1.Text=Val(TextBox1.Text) TextBox2.Text=Val(TextBox2.Text) TextBox4.Text=Trim(TextBox3.Text) SelectCaseTextBox3.Text Case"+" TextBox4.Text=Val(TextBox1.Text)+Val(TextBox2.Text) Case"-" TextBox4.Text=Val(TextBox1.Text)-Val(TextBox2.Text) Case"*" TextBox4.Text=Val(TextBox1.Text)*Val(TextBox2.Text) Case"/" IfVal(TextBox2.Text)=0Then i=MsgBox("分母为0",MsgBoxStyle.RetryCancel+48,"警告") Ifi=MsgBoxResult.CancelThen Close() TextBox2.Text="" TextBox2.Focus() Else TextBox4.Text=Val(TextBox1.Text)/Val(TextBox2.Text) EndIf EndIf EndSelect EndSub PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click End EndSub Endclass ----------------------------------------------------------------------------------------------- ImportsSystem.Math PublicClassForm1 PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click Dima%,b%,c%,d%,t% a=TextBox1.Text b=TextBox2.Text c=TextBox3.Text d=b*b-4*a*c t=2*a Ifd=0Then Label4.Text=Format(-b/t,"0.00") Label5.Text=Format(-b/t,"0.00") ElseIfd>0Then Label4.Text=Format((-b+Sqrt(d))/t,"0.00") Label5.Text=Format((-b-Sqrt(d))/t,"0.00") Else Label4.Text=Format(-b/t,"0.00")&"+"&Format(Sqrt(d)/t,"0.00") Label5.Text=Format(-b/t,"0.00")&"-"&Format(Sqrt(d)/t,"0.00") EndIf EndSub PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click End EndSub EndClass ------------------------------------------------------------------------------------------------ PublicClassForm1 PrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChanged SelectCaseTrim(TextBox1.Text) Case1 Label1.Text="Monday" Case2 Label1.Text="Tuesday" Case3 Label1.Text="Wednesday" Case4 Label1.Text="Thursday" Case5 Label1.Text="Friday" Case6 Label1.Text="Saturday" Case7 Label1.Text="Sunday" CaseIs>7,Is<1 MsgBox("数字为1-7,重新输入") TextBox1.Text="" TextBox1.Focus() EndSelect EndSub EndClass ------------------------------------------------------------------------ PublicClassForm1 PrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChanged IfTextBox1.Text>7OrTextBox1.Text<1Then MsgBox("数字为1~7,重新输入") TextBox1.Text="" TextBox1.Focus() Else Label1.Text=Choose(TextBox1.Text,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday") EndIf EndSub EndClass PublicClassForm1 Dims,w,t,rAsString PrivateSubRadioButton1_CheckedChanged(senderAsObject,eAsEventArgs)HandlesRadioButton6.CheckedChanged,RadioButton3.CheckedChanged,CheckBox1.CheckedChanged If(RadioButton1.Checked)Then s=RadioButton1.Text Else s=RadioButton2.Text EndIf If(RadioButton3.Checked)Thenw=RadioButton3.Text If(RadioButton4.Checked)Thenw=RadioButton4.Text If(RadioButton5.Checked)Thenw=RadioButton5.Text If(RadioButton6.Checked)Thent=RadioButton6.Text If(RadioButton7.Checked)Thent=RadioButton7.Text If(RadioButton8.Checked)Thent=RadioButton8.Text IfCheckBox1.CheckedThen r&=CheckBox1.Text EndIf IfCheckBox2.CheckedThen r&=CheckBox2.Text EndIf IfCheckBox3.CheckedThen r&=CheckBox3.Text EndIf IfCheckBox4.CheckedThen r&=CheckBox4.Text EndIf EndSub PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.Click,RadioButton8.CheckedChanged,RadioButton7.CheckedChanged,RadioButton5.CheckedChanged,RadioButton4.CheckedChanged,RadioButton2.CheckedChanged,RadioButton1.CheckedChanged,CheckBox4.CheckedChanged,CheckBox3.CheckedChanged,CheckBox2.CheckedChanged Label3.Text="简历"&vbCrLf&"姓名: "&TextBox1.Text&vbCrLf&"年龄: "&TextBox2.Text&vbCrLf&"性别: "&s&vbCrLf&"学历: "&w&vbCrLf&"职业: "&t&vbCrLf&"爱好: "&r EndSub EndClass ----------------------------------------------------------------------------------------------------------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验3 VB 实验