Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社.docx
- 文档编号:9582356
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:21
- 大小:17.36KB
Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社.docx
《Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社.docx(21页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计基础申石磊季超实验部分答案高等教育出版社
VisualBasic程序设计基础(申石磊季超)实验部分答案-高等教育出版社
2-1
PrivateSubForm_Click()
Cls
EndSub
PrivateSubForm_DblClick()
FontSize=30
fontcolor=vbGreen
Print"hello"
FontSize=90
fontcolor=vbRed
Print"OK"
EndSub
2-2
PrivateSubCommand1_Click()
Label1.MoveWidth*Rnd,Height*Rnd
EndSub
2-3
PrivateSubCommand1_Click()
Label1.Caption=""
EndSub
PrivateSubCommand2_Click()
Label1.Caption="河南大学"
EndSub
2-4
PrivateSubTimer1_Timer()
Text1.Text=Now
Form1.Caption=Now
EndSub
2-5
PrivateSubTimer1_Timer()
IfForm1.BackColor=vbRedThen
Form1.BackColor=vbYellow
Else
Form1.BackColor=vbRed
EndIf
EndSub
2-6
PrivateSubTimer1_Timer()
IfLabel1.Left>-Label1.WidthThen
Label1.Left=Label1.Left+10
Else
Label1.Left=Width
EndIf
EndSub
2-7
PrivateSubCommand1_Click()
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
Text1.Text="河南大学"
EndSub
2-8
PrivateSubText1_Change()
Text2=Text1
EndSub
2-9
PrivateSubCommand1_Click()
FontSize=20
Print"河南大学"
FontSize=15
Print"哲管院"
EndSub
PrivateSubCommand2_Click()
Cls
EndSub
2-10
PrivateSubCommand1_Click()
r=Text1.Text
Text2.Text=6.28*r
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
2-11
PrivateSubForm_Load()
Text1.Text="河南大学"
Text1.FontSize=36
Text1.FontName="隶书"
Text1.BackColor=vbRed
Text1.ForeColor=vbGreen
EndSub
2-12
DimsAsString
PrivateSubCommand1_Click()
s=Text1.Text
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
Text2.Text=s
EndSub
3-2
PrivateSubForm_Click()
DimnAsInteger
Randomize
n=Int(90*Rnd+10)
n1=n\10
n2=nMod10
Printn,n1&n2
EndSub
3-3
PrivateSubTimer1_Timer()
Cls
Print"hehehehehe"
Form1.FontSize=Int(71*Rnd+10)
EndSub
3-4
PrivateSubCommand1_Click()
n=Asc(Right(Text1,1))
Text2=Hex(n)
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
Text1.SetFocus
EndSub
3-5
PrivateSubCommand1_Click()
Text2.Text=Date-CDate(Text1)
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2=""
EndSub
3-6
PrivateSubCommand1_Click()
Text2.Text=Right(Text1,1)&Mid(Text1,2,1)&Left(Text1,1)
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
EndSub
3-7
PrivateSubTimer1_Timer()
Me.Label1.Caption="程序设计"
Me.Label1.FontSize=(41*Rnd+10)
Me.Label1.BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)
Me.Label1.ForeColor=QBColor(Int(16*Rnd))
EndSub
3-8
PrivateSubTimer1_Timer()
Me.Label1.Caption="程序设计"
Me.Label1.FontSize=(41*Rnd+10)
Me.Label1.BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)
Me.Label1.ForeColor=QBColor(Int(16*Rnd))
EndSub
3-9
PrivateSubCommand1_Click()
x=Shell("notepad.exe",1)
EndSub
PrivateSubCommand2_Click()
Shell"mspaint.exe",1
EndSub
3-10
PrivateSubForm_Click()
DimXAsLong
Me.FontSize=15
X=InputBox("输入钱数:
")
X1=X\100
X2=(X-100*X1)\50
x3=(X-100*X1-50*X2)\20
x4=(X-100*X1-50*X2-20*x3)\10
x5=(X-100*X1-50*X2-20*x3-10*x4)\5
x6=(X-100*X1-50*X2-20*x3-10*x4-5*x5)\2
x7=(X-100*X1-50*X2-20*x3-10*x4-5*x5-2*x6)\1
PrintX
PrintX1;"张100元"
PrintX2;"张50元"
Printx3;"张20元"
Printx4;"张10元"
Printx5;"张5元"
Printx6;"张2元"
Printx7;"张1元"
EndSub
4-1
PrivateSubForm_Click()
DimnAsInteger
p!
=InputBox("存款金额")
r!
=InputBox("利率")
n=InputBox("存款年数")
s!
=Round(p*(1+r)^n,2)
Print"本金+利息:
"&s
EndSub
4-2
PrivateSubForm_Click()
x!
=InputBox("输入数据x")
y!
=InputBox("输入数据y")
Ifx>yThen
Print"x=";x;"y=";y
Else
Print"y=";y;"x=";x
EndIf
EndSub
4-3
PrivateSubForm_Click()
DimnAsInteger
n=InputBox("输入年份")
IfnMod4=0AndnMod100<>0Then
Print"闰年"
Else
Print"不是闰年"
EndIf
EndSub
4-4
DimxAsSingle,yAsString
PrivateSubCommand1_Click()
x=Text1.Text
Text2.Text=y
If90<=x<=100Then
y="优秀"
ElseIf80<=x<90Then
y="良好"
ElseIf70<=x<80Then
y="中等"
ElseIf60<=x<60Then
y="及格"
ElseIfx<60Then
y="重考"
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
EndSub
4-5
DimxAsSingle
PrivateSubCommand1_Click()
x=Text1.Text
Ifx>=90Andx<=100Then
Text2.Text="优秀!
"
ElseIfx>=80Andx<90Then
Text2.Text="良好!
"
ElseIfx>=70Andx<80Then
Text2.Text="中等!
"
ElseIfx>=60Andx<70Then
Text2.Text="及格!
"
ElseIfx>=0Andx<60Then
Text2.Text="重考!
"
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Me.Text1.SetFocus
EndSub
4-6
DimxAsSingle
PrivateSubCommand1_Click()
x=Text1.Text
SelectCasex
CaseIs>=90Andx<=100
Text2.Text="优秀!
"
CaseIs>=80Andx<90
Text2.Text="良好!
"
CaseIs>=70Andx<80
Text2.Text="中等!
"
CaseIs>=60Andx<70
Text2.Text="及格!
"
CaseIs<60
Text2.Text="重考!
"
EndSelect
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
4-7
PrivateSubCommand1_Click()
x=Text1.Text
Ifx>=50Then
Text2.Text="慢跑"
ElseIfx>=40Andx<50Then
Text2.Text="竞走"
ElseIfx>=30Andx<40Then
Text2.Text="跳绳"
ElseIfx<30Then
Text2.Text="长跑"
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
4-8
PrivateSubForm_Click()
PrintTab(20);"偶数"
Fori=1To100
IfiMod2=0ThenPrinti;
IfiMod20=0ThenPrinti
Nexti
EndSub
4-9
PrivateSubForm_Click()
Fori=100To1000
IfiMod3=2AndiMod5=3AndiMod7=2ThenPrinti
Nexti
EndSub
5-1
PrivateSubForm_Click()
Dimi%,a(1To5)AsString
Fori=LBound(a)ToUBound(a)
a(i)=InputBox("a("&i&")")
Nexti
Fori=UBound(a)ToLBound(a)Step-1
Printa(i)
Nexti
EndSub
5-2
OptionBase1
PrivateSubForm_Click()
Dimi%,aAsVariant
Fori=1To10
a=Array(10,11,12,13,14,15,16,17,18,19)
Ifa(i)Mod3=0Then
Print"a(i)="&a(i)
EndIf
Nexti
EndSub
5-3
OptionBase1
PrivateSubCommand1_Click()
DimaAsVariant
a=Array(1,2,3,4,5,6,7,8,9,10)
Fori=1To9
Printa(i+1),
Nexti
Printa
(1)
EndSub
PrivateSubCommand2_Click()
DimaAsVariant
a=Array(1,2,3,4,5,6,7,8,9,10)
Printa(10),
Fori=0To8
Printa(i+1),
Nexti
EndSub
5-4
OptionBase1
PrivateSubForm_Click()
Dima(1To5,1To5)AsInteger
Fori=1To5
Forj=1To5
a(i,j)=10+Fix(50*Rnd)
Nextj
Nexti
Fori=1To5
Forj=1To5
s=s+a(i,j)
Printa(i,j),
Nextj
Print,
Prints
Nexti
Fori=1To5
Forj=1To5
Ifi=jThen
Printa(i,j),
Else
EndIf
Nextj
Nexti
EndSub
5-5
OptionBase1
PrivateSubForm_Click()
DimA()AsInteger
DimmaxAsInteger,bmaxAsDouble
DimminAsInteger,bminAsDouble
M=InputBox("第一维上界!
")
N=InputBox("第二维上界!
")
ReDimA(M,N)AsInteger
Fori=1ToM
Forj=1ToN
A(i,j)=Fix(900*Rnd)+100
Nextj
Nexti
Fori=1ToM
Forj=1ToN
PrintA(i,j),
Nextj
Nexti
max=A(1,1):
min=A(1,1)
Fori=2ToM
Forj=2ToN
IfA(i,j)>maxThenmax=A(i,j):
bmax=((i)&(j))
IfA(i,j) bmin=((i)&(j)) Nextj Nexti Print"max=";max,"bmax=";bmax Print"min=";min,"bmin=";bmin EraseA EndSub 5-6 OptionBase1 PrivateSubForm_Click() Dima()AsInteger n=InputBox("第一维上界! ") ReDima(n,n)AsInteger Fori=1Ton Forj=1Ton Ifi=jThen a(i,j)=1 Printa(i,j), Else a(i,j)=0 Printa(i,j), EndIf Nextj Print Nexti EndSub 5-7 OptionBase1 PrivateSubForm_Click() Dima a=Array(1,2,3,4,5,6,7,8,9,10) Fori=1To10 Printa(i); Nexti Print Forj=1To7 a(j)=a(j+3) Printa(j); Nextj Print Fori=1To7 ReDimPreservea(i) Nexti EndSub 5-8 PrivateSubCommand1_Click(IndexAsInteger) n1=Val(Text1) n2=Val(Text2) SelectCaseIndex Case0 Text3=n1+n2 Case1 Text3=n1-n2 Case2 Text3=n1*n2 Case3 Text3=n1/n2 EndSelect EndSub 6-1 PrivateSubvolume(rAsSingle,hAsSingle,vAsSingle) v=3.14*r*r*h EndSub PrivateSubForm_Click() DimaAsSingle DimbAsSingle DimcAsSingle a=InputBox("输入半径! ") b=InputBox("输入高度! ") volumea,b,c Printc EndSub 6-2 Functionvolume(rAsSingle,hAsSingle)AsSingle volume=3.14*r*r*h EndFunction PrivateSubForm_Click() DimaAsSingle DimbAsSingle DimcAsSingle a=InputBox("输入半径! ") b=InputBox("输入高度! ") c=volume(a,b) Print"圆柱体体积: ";volume(a,b) EndSub 6-3 Subweek(aAsSingle) Ifa=0Then Print"星期日" ElseIfa=1Then Print"星期一" ElseIfa=2Then Print"星期二" ElseIfa=3Then Print"星期三" ElseIfa=4Then Print"星期四" ElseIfa=5Then Print"星期五" Else Print"星期六" EndIf EndSub PrivateSubForm_Click() DimaAsSingle a=InputBox("输入数据") weeka Print EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计基础申石磊 季超实验部分答案高等教育出版社 Basic 程序设计 基础 申石磊 实验 部分 答案 高等教育出版社
![提示](https://static.bdocx.com/images/bang_tan.gif)