Visual Basic程序设计教程实验答案.docx
- 文档编号:9984132
- 上传时间:2023-05-22
- 格式:DOCX
- 页数:54
- 大小:23.38KB
Visual Basic程序设计教程实验答案.docx
《Visual Basic程序设计教程实验答案.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计教程实验答案.docx(54页珍藏版)》请在冰点文库上搜索。
VisualBasic程序设计教程实验答案
VisualBasic程序设计教程实验答案
实验一
1.PrivateSubCommand1_Click()
Label3.Caption=Text1.Text
EndSub
2.PrivateSubCommand1_Click()'手动
Timer1.Interval=0
Callmymove
EndSub
PrivateSubCommand2_Click()'自动
Timer1.Interval=200
EndSub
PrivateSubForm_Load()
Timer1.Interval=0
EndSub
PrivateSubTimer1_Timer()
Callmymove
EndSub
Submymove()
Label1.Left=Label1.Left-50
IfLabel1.Left<-Form1.WidthThenLabel1.Left=0
EndSub
3.PrivateSubForm_Click()
Text1.Text=Val(Text1.Text)+1
EndSub
5.PrivateSubCommand1_Click()
Text2.Text=Text1.Text
Text2.FontName="隶书"
Text2.FontSize="25"
EndSub
PrivateSubCommand2_Click()
Text2.Text=Text1.SelText
Text2.FontName="宋体"
Text2.FontSize="15"
EndSub
6.Dimh%,w%
PrivateSubCommand1_Click()
Image1.Width=w/2
Image1.Height=h/2
EndSub
PrivateSubCommand2_Click()
Image1.Width=w
Image1.Height=h
EndSub
PrivateSubForm_Load()
w=Image1.Width
h=Image1.Height
EndSub
实验二
1.PrivateSubCommand1_Click()
Text1.Text=Int(Rnd*(9-1+1)+1)
Text2.Text=Int(Rnd*(99-10+1)+10)
Text3.Text=Int(Rnd*(999-100+1)+100)
EndSub
PrivateSubCommand2_Click()
Text4.Text=(Val(Text1)+Val(Text2)+Val(Text3))/3
Text4.Text=Format(Text4.Text,"0.00")
EndSub
PrivateSubCommand3_Click()
Text1.Text="":
Text2.Text="":
Text3.Text="":
Text4.Text=""
EndSub
2.PrivateSubCommand1_Click()
Dimr,n%
r=0.008
n=Log
(2)/Log(1+r)
i=MsgBox("我国有13亿人口,每年增长0.8%,"&n&"年后我国人口超过26亿",0,"人口计算")
EndSub
3.PrivateSubCommand1_Click()
Dima%,b%,c%,d%,e%
a=Val(Text1.Text)
b=a\100
c=aMod100
d=c\10
e=cMod10
Label2.Caption=e&d&b
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
IfNotIsNumeric(Text1)Then
i=MsgBox("输入非数值数据,请重新输入",1,"数据检验")
Text1.SetFocus
Text1=""
EndIf
EndIf
EndSub
PrivateSubText1_lostfocus()
IfNotIsNumeric(Text1)Then
i=MsgBox("输入非数值数据,请重新输入",1,"数据检验")
Text1=""
Text1.SetFocus
EndIf
EndSub
4.PrivateSubForm_Load()
Text1.Text="VisualBasic程序设计教程(第四版)"
Label2.Caption=UCase(Text1.Text)
Label4.Caption=Len(Text1.Text)
Label6.Caption=Left(Text1.Text,11)
Label8.Caption=Mid(Text1.Text,12,6)
Label10.Caption=Right(Text1.Text,5)
EndSub
5.PrivateSubCommand1_Click()
Label2.Caption="Val函数的结果"
Text2.Text=Val(Text1)
EndSub
PrivateSubCommand2_Click()
Label2.Caption="Str函数的结果"
Text2.Text=Str(Text1)
EndSub
PrivateSubCommand3_Click()
Label2.Caption="Chr函数的结果"
Text2.Text=Chr(Text1)
EndSub
PrivateSubCommand4_Click()
Label2.Caption="Asc函数的结果"
Text2.Text=Asc(Text1)
EndSub
实验三
1.PrivateSubCommand1_Click()
x=Val(Text1.Text):
y=Val(Text2.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
Text2.Text=y
EndSub
2.PrivateSubCommand1_Click()
Dimx,y
x=Val(InputBox("请输入上网时间:
","网费计算"))
Ifx<10Then
y=30
ElseIfx>=10Andx<50Then
y=30+2.5*(x-10)
Else
y=30+2.5*40+2*(x-50)
EndIf
Ify>150Then
y=150
EndIf
Printy
EndSub
3.PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle,zAsSingle
PrintTab(10);"xyz"
x=Val(InputBox("请输入x","x值"))
y=Val(InputBox("请输入y","y值"))
z=Val(InputBox("请输入z","z值"))
PrintTab(3);"排序前"&x&""&y&""&z
Ifx t=x x=y y=t EndIf Ifx q=x x=z z=q EndIf Ify w=y y=z z=w EndIf PrintTab(3);"排序后"&x&""&y&""&z EndSub 4.PrivateSubCommand1_Click() Trim(Text3.Text) SelectCaseText3.Text Case"+" Text4.Text=Val(Text1.Text)+Val(Text2.Text) Case"-" Text4.Text=Val(Text1.Text)-Val(Text2.Text) Case"*" Text4.Text=Val(Text1.Text)*Val(Text2.Text) Case"/" IfVal(Text2.Text)=0Then i=MsgBox("分母不能为零",0,"警告") Text2.Text="" Text2.SetFocus Else Text4.Text=Val(Text1.Text)/Val(Text2.Text) EndIf EndSelect EndSub PrivateSubCommand2_Click() End EndSub 5.PrivateSubText2_LostFocus() DimxAsInteger,yAsInteger,mAsInteger,nAsInteger m=Val(Text1.Text): n=Val(Text2.Text) y=n/2-m x=m-y Label2.Caption=x Label3.Caption=y IfLabel2.Caption<0OrLabel3.Caption<0Then i=MsgBox("数据错误,请重新输入",0,"4sy3-5") Text1="": Text2="": Label2.Caption="": Label3.Caption="" Text1.SetFocus EndIf IfVal(Text2.Text)<2*Val(Text1.Text)Then i=MsgBox("脚数必须>=2倍的头数,请重新输入",0,"4sy3-5") Text2="": Label2.Caption="": Label3.Caption="" Text2.SetFocus EndIf IfnMod2<>0Then i=MsgBox("脚数必须是偶数",0,"4sy3-5") Text2="": Label2.Caption="": Label3.Caption="" Text2.SetFocus EndIf EndSub 6.PrivateSubCommand1_Click() DimaAsSingle,bAsSingle,cAsSingle a=Val(Text1.Text): b=Val(Text2.Text): c=Val(Text3.Text) Ifb^2-4*a*c>=0Then Label5.Caption=Format((-b+Sqr(b^2-4*a*c))/(2*a),"0.00") Label7.Caption=Format((-b-Sqr(b^2-4*a*c))/(2*a),"0.00") Else Label5.Caption=Format((-b)/(2*a),"0.00")&"+"&Format(Sqr(Abs(b^2-4*a*c))/(2*a),"0.00")&"i" Label7.Caption=Format((-b)/(2*a),"0.00")&"-"&Format(Sqr(Abs(b^2-4*a*c))/(2*a),"0.00")&"i" EndIf EndSub PrivateSubCommand2_Click() Text1="" Text2="" Text3="" Label5.Caption="" Label7.Caption="" EndSub 7.Dimn! PrivateSubCommand1_Click() Text1.Text="" n=0 Cls EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAscii)<>"="Then IfChr(KeyAscii)="("Then n=n+1 EndIf IfChr(KeyAscii)=")"Then n=n-1 EndIf Else Ifn=0Then Print"括号配对成功"; Else Ifn>0Then Print"左括号多于右括号"&n&"个,按重置按钮,重新输入" EndIf Ifn<0Then Print"右括号多于左括号"&-n&"个,按";重置;"按钮,重新输入" EndIf EndIf EndIf EndSub 8.PrivateSubCommand1_Click() SelectCaseText1.Text CaseIs>7,Is<1 i=MsgBox("请输入1-7之间的一个数",0,"提示") Case"1" Text2.Text="Monday" Case"2" Text2.Text="Tuesday" Case"3" Text2.Text="Wednesday" Case"4" Text2.Text="Thursday" Case"5" Text2.Text="Friday" Case"6" Text2.Text="Saturday" Case"7" Text2.Text="Sunday" EndSelect EndSub PrivateSubCommand2_Click() t=Text1.Text Ift>7Ort<1Then i=MsgBox("请输入1-7之间的一个数",0,"提示") Else Text3.Text=Choose(t,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday") EndIf EndSub 9.PrivateSubCommand1_Click() IfCheck1.ValueThen Label3.FontBold=True Else Label3.FontBold=False EndIf IfCheck2.ValueThen Label3.FontItalic=True Else Label3.FontItalic=False EndIf IfCheck3.ValueThen Label3.FontUnderline=True Else Label3.FontUnderline=False EndIf IfOption1.ValueThen Label3.Caption="Sin("&Text1.Text&")="&Sin(Val(Text1.Text)) ElseIfOption2.ValueThen Label3.Caption="Exp("&Text1.Text&")="&Exp(Val(Text1.Text)) Else Label3.Caption="Sqr("&Text1.Text&")="&Sqr(Val(Text1.Text)) EndIf EndSub 10.PrivateSubCommand1_Click() IfOption1.Value=TrueThen IfOption3.Value=TrueThen Label1.Caption="从上海到南京高铁价格140元" ElseIfOption4.Value=TrueThen Label1.Caption="从上海到南京动车价格93元" Else Label1.Caption="从上海到南京快车价格47元" EndIf Else IfOption3.Value=TrueThen Label1.Caption="从上海到北京高铁价格555元" ElseIfOption4.Value=TrueThen Label1.Caption="从上海到北京动车价格410元" Else Label1.Caption="从上海到北京快车价格179元" EndIf EndIf EndSub 11.PrivateSubCommand1_Click() DimsAsString s="姓名: "&Text1.Text&vbCrLf&"年龄: "&Text2.Text&vbCrLf IfText1.Text=""Then i=MsgBox("请输入姓名",0,"警告") Text1.Text="" Text1.SetFocus EndIf IfNotIsNumeric(Text2)Then i=MsgBox("请输入您的年龄",0,"警告") Text2.Text="" Text2.SetFocus EndIf IfOption1.Value=TrueThen s=s&"性别: "&Option1.Caption&vbCrLf Else s=s&"性别: "&Option2.Caption&vbCrLf EndIf IfOption3.Value=TrueThen s=s&"学历: "&Option3.Caption&vbCrLf ElseIfOption4.Value=TrueThen s=s&"学历: "&Option4.Caption&vbCrLf Else s=s&"学历: "&Option5.Caption&vbCrLf EndIf IfOption6.Value=TrueThen s=s&"职业: "&Option6.Caption&vbCrLf ElseIfOption7.Value=TrueThen s=s&"职业: "&Option7.Caption&vbCrLf Else s=s&"职业: "&Option8.Caption&vbCrLf EndIf IfCheck1.ValueThen ah=Check1.Caption&"" Else ah="" EndIf IfCheck2.ValueThen ah=ah&Check2.Caption&"" Else ah=ah&"" EndIf IfCheck3.ValueThen ah=ah&Check3.Caption&"" Else ah=ah&"" EndIf IfCheck4.ValueThen ah=ah&Check4.Caption Else ah=ah&"" EndIf Label3.Caption="简历"&vbCrLf&s&"爱好: "&ah EndSub PrivateSubCommand2_Click() Text1.Text="": Text2.Text="": Label3.Caption="" Option1=0: Option2=0: Option3=0: Option4=0: Option5=0: Option6=0: Option7=0: Option8=0 Check1=0: Check2=0: Check3=0: Check4=0 EndSub 实验四 1.PrivateSubForm_Click() Print Fori=1To9 PrintTab(20-2*i);String(2*i-1,"★") Nexti EndSub PrivateSubForm_KeyPress(KeyAsciiAsInteger) IfKeyAscii="13"Then Print Fori=1To9 PrintTab(20-2*i);String(2*i-1,"★") Nexti EndIf EndSub 2.PrivateSubForm_click() DimiAsInteger Print Fori=65To73 PrintTab(i-64);String(20-2*(i-64),Chr(i)) Nexti EndSub PrivateSubForm_KeyPress(KeyAsciiAsInteger) IfKeyAscii="13"Then DimiAsInteger Print Fori=65To73 PrintTab(i-64);String(20-2*(i-64),Chr(i)) Nexti EndIf EndSub 3.PrivateSubCommand1_Click() DimnAsInteger s=0 i=0 Forn=1To30 i=i+n s=s+i Nextn Label1.Caption="前30项的和="&s EndSub PrivateSubCommand2_Click() DimnAsLong s=0 i=0 n
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计教程实验答案 Basic 程序设计 教程 实验 答案