VB实验题.docx
- 文档编号:8141921
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:53
- 大小:25.75KB
VB实验题.docx
《VB实验题.docx》由会员分享,可在线阅读,更多相关《VB实验题.docx(53页珍藏版)》请在冰豆网上搜索。
VB实验题
实验2
2.2
ImportsSystem.Math
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox1.Text=Log10
(2)/Log10(1+0.008)
EndSub
EndClass
2.3
PublicClassForm1
PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged
IfNotIsNumeric(TextBox1.Text)Then
TextBox1.Text=""
TextBox1.Focus()
EndIf
EndSub
PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Text=2*3.14*Val(TextBox1.Text)
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox3.Text=3.14*Val(TextBox1.Text)*Val(TextBox1.Text)
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
2.4
PublicClassForm1
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
Dims6$
s6=InputBox("输入查找子串s6")
TextBox2.Text=InStr(TextBox1.Text,s6)
Label2.Text=Button6.Text&"函数的结果"
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox2.Text=UCase(TextBox1.Text)
Label2.Text=Button2.Text&"函数的结果"
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
TextBox2.Text=LCase(TextBox1.Text)
Label2.Text=Button3.Text&"函数的结果"
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Text=Len(TextBox1.Text)
Label2.Text=Button1.Text&"函数的结果"
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
TextBox2.Text=Trim(TextBox1.Text)
Label2.Text=Button4.Text&"函数的结果"
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
Dims5%
s5=InputBox("输入产生字符的个数")
TextBox2.Text=StrDup(s5,TextBox1.Text)
EndSub
PrivateSubButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton7.Click
Dims7$
s7=InputBox("输入替换字符串")
TextBox2.Text=Replace(TextBox1.Text,TextBox1.Text,s7)
Label2.Text=Button7.Text&"函数的结果"
EndSub
PrivateSubButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton8.Click
Dims8%,s%
s8=Val(InputBox("输入开始位数"))
s=Val(InputBox("输入结束位数"))
TextBox2.Text=Mid(TextBox1.Text,s8,s)
Label2.Text=Button8.Text&"函数的结果"
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
2.5
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Text=Val(TextBox1.Text)
Label2.Text=Button1.Text&"函数的结果"
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
TextBox2.Text=Str(TextBox1.Text)
Label2.Text=Button2.Text&"函数的结果"
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
TextBox2.Text=Chr(TextBox1.Text)
Label2.Text=Button3.Text&"函数的结果"
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
TextBox2.Text=Asc(TextBox1.Text)
Label2.Text=Button4.Text&"函数的结果"
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
2.6
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Dima,b,c,dAsInteger
Randomize()
a=Int(Rnd()*(999-100+1)+100)
TextBox1.Text=a
b=a\100
c=(aMod100)\10
d=aMod10
TextBox2.Text=d*100+c*10+b
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
实验三
3.1
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimxAsSingle
DimyAsSingle
x=Val(TextBox1.Text)
Ifx<1000Then
y=x
ElseIfx>=1000Andx<2000Then
y=0.9*x
ElseIfx>=2000Andx<3000Then
y=0.8*x
Else
y=0.7*x
EndIf
TextBox2.Text=y
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
3.2
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimtAsInteger
DimmoneyAsSingle
t=Val(TextBox1.Text)
Ift<10Then
money=30
ElseIft>=10Andt<50Then
money=2.5*t
Else
money=2*t
EndIf
Ifmoney>150Then
money=150
EndIf
TextBox2.Text=money
EndSub
PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load
EndSub
EndClass
3.3
PublicClassForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimtAsSingle
DimmAsSingle
a=Val(TextBox1.Text)
b=Val(TextBox2.Text)
c=Val(TextBox3.Text)
Ifa t=a a=b b=t EndIf Ifa t=a a=c c=t EndIf Ifb m=b b=c c=m EndIf TextBox4.Text=a&">"&b&">"&c EndSub PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load EndSub EndClass 3.4 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click DimxAsSingle DimyAsSingle DimzAsSingle DimtAsSingle DimmAsSingle x=Val(TextBox1.Text) y=Val(TextBox2.Text) z=Val(TextBox3.Text) Ifx>yThen t=x x=y y=t EndIf Ifx>zThen t=x x=z z=t EndIf Ify>zThen m=y y=z z=m EndIf TextBox4.Text=x&"<"&y&"<"&z EndSub PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load EndSub EndClass 3.5 PublicClassForm1 PrivateSubTextBox2_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox2.LostFocus DimmAsInteger DimnAsInteger DimxAsSingle DimyAsSingle m=Val(TextBox1.Text) n=Val(TextBox2.Text) IfnMod2<>0Then MsgBox("脚数必须为偶数",,"警告") TextBox2.Text="" TextBox2.Focus() ExitSub EndIf y=n\2-m x=m-y Ifx<0Ory<0Then MsgBox("荒唐解,请重新输入",,"警告") TextBox1.Text="" TextBox2.Text="" Label2.Text="" TextBox1.Focus() ExitSub EndIf Label2.Text="" Label2.Text=x&""&y EndSub PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged EndSub PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load EndSub EndClass 3.7 ImportsSystem.Math PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dima! b! c! d! x1! x2! DimiAsInteger a=Val(TextBox1.Text) b=Val(TextBox2.Text) c=Val(TextBox3.Text) d=b*b-4*a*c Ifd<0Then i=MsgBox("方程无实数根",MsgBoxStyle.RetryCancel+48,"警告") Ifi=MsgBoxResult.CancelThen Close() Else TextBox1.Text="" TextBox1.Focus() EndIf Else x1=(-b+Sqrt(d))/(2*a) x2=(-b-Sqrt(d))/(2*a) Label2.Text="x1="&x1 Label3.Text="x2="&x2 EndIf EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click End EndSub PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load EndSub EndClass 3.8 PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click 'Dimi! ''Ifi=1Then ''Label1.Text="Monday" ''ElseIfi=2Then ''Label1.Text="Tuesday" ''ElseIfi=3Then ''Label1.Text="Wednesday" ''ElseIfi=4Then ''Label1.Text="Thursday" ''ElseIfi=5Then ''Label1.Text="Friday" ''ElseIfi=6Then ''Label1.Text="Saturday" ''Else '''Label1.Text="Sunday" '''EndIf 'DimiAsChar 'SelectCasei 'Case"1" 'Label1.Text="Monday" 'Case"2" 'Label1.Text="Tuesday" 'Case"3" 'Label1.Text="Wednesday" 'Case"4" 'Label1.Text="Thursday" 'Case"5" 'Label1.Text="Friday" 'Case"6" 'Label1.Text="Saturday" 'Case"7" 'Label1.Text="Sunday" 'EndSelect DimcAsString DimaAsInteger a=Val(TextBox1.Text) c=Choose(a,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday") Label1.Text=c EndSub PrivateSubForm1_Load(senderAsSystem.Object,eAsSystem.EventArgs)HandlesMyBase.Load EndSub EndClass 3.9 ImportsSystem.Math PublicClassForm1 PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click Dimx,yAsSingle,cAsString x=Val(TextBox1.Text) IfRadioButton1.Checked()Then y=Sin(x) c=RadioButton1.Text&"("&x&")="&y ElseIfRadioButton2.Checked()Then y=Exp(x) c=RadioButton2.Text&"("&x&")="&y ElseIfRadioButton3.Checked()Then y=Sqrt(x) c=RadioButton3.Text&"("&x&")="&y EndIf Label2.Text=c EndSub Private
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验