VB语言程序设计课后编程及上机调试参考答案.docx
《VB语言程序设计课后编程及上机调试参考答案.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计课后编程及上机调试参考答案.docx（26页珍藏版）》请在冰豆网上搜索。
VB语言程序设计课后编程及上机调试参考答案
VB语言程序设计课后编程及上机调试参考答案
VB语言程序设计课后编程及上机调试参考答案
ex0101
PrivateSubLabel1_Click（）
Caption="练习"
Command1.Caption="确定"
Label1.FontBold=True
Label1.AutoSize=True
Label1.Caption="VisualBasic程序设计教程"
EndSub
ex0102
PrivateSubCommand1_Click（）
Txt.Text="我有电脑"
EndSub
PrivateSubCommand2_Click（）
Txt.Text="我没有电脑"
EndSub
PrivateSubCommand3_Click（）
Txt.Text=""'一对双撇号，中间不留空
EndSub
EndSub
PrivateSubCommand3_Click（）'"最小化"按钮
Form1.WindowState=1'最小化
EndSub
ex0205
PrivateSubcommand1_click（）
DimxAsSingle
DimyAsSingle
x=Val（Text1.Text）
y=Val（Text2.Text）
Text3.Text=x*x+y*y
EndSub
ex0206
PrivateSubcommand1_click（）
DimxAsString
x=Text1.Text
Text2.Text=Left（x,1）+Right（x,1）
EndSub
ex0301
PrivateSubForm_Load（）
DimxAsInteger,yAsInteger
DimaAsInteger,bAsInteger,cAsInteger
x=Val（InputBox（"请输入一个三位数"））
a=Int（x/100）'求百位数
b=Int（x/10）-a*10'求十位数
c=xMod10'求个位数
Show
y=c*100+b*10+a'生成倒序数
Printx;"倒序数为：
";y'显示倒序数
EndSub
ex0302
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
Randomize
x=Int（1+n*Rnd）
Label1.Caption="第一个随机数"+Str（x）
x=Int（1+n*Rnd）
Label2.Caption="第二个随机数"+Str（x）
x=Int（1+n*Rnd）
Label3.Caption="第三个随机数"+Str（x）
EndSub
ex0303
PrivateSubCmd1_Click（）
Lab1.Visible=True
Lab1.Caption="您已下达显示命令"
EndSub
PrivateSubForm_Click（）
Cmd1.Visible=True
EndSub
ex0304
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
Show
Print"输入字符：
";Chr（KeyAscii）,"ASCII码为;";KeyAscii
EndSub
PrivateSubForm_DblClick（）
Cls
EndSub
ex0305
PrivateSubForm_Load（）
x=MsgBox（"在这里显示提示信息",4+0,"请确认"）
x=MsgBox（"在这里显示"+Chr（13）+"提示信息",3+0,"请确认"）
x=MsgBox（"在这里显示"+Chr（13）+"提示信息",2+16+0,"请确认"）
EndSub
ex0401
PrivateSubForm_Load（）
DimxAsLong,sAsString
x=InputBox（"输入一个整数（1～35000）"）
s="奇数"
IfxMod2=0Thens="偶数"
MsgBoxs
EndSub
ex0402
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle
DimcAsSingle,dAsSingle
DimmAsSingle,nAsSingle,xAsSingle
Show
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
d=Val（Text4.Text）
Ifa>bThen'求a、b中的较大数
m=a
Else
m=b
EndIf
Ifc>dThen'求c、d中的较大数
n=c
Else
n=d
EndIf
Ifm>nThen'求m、n中的较大数
x=m
Else
x=n
EndIf
Text5.Text=x
EndSub
ex0403
PrivateSubCommand1_Click（）
DimtAsString,pAsString
t=Mid（Text1.Text,5,1）
SelectCaset
Case"2"
p="博士生"
Case"3"
p="硕士生"
Case"4"
p="本科生"
Case"5"
p="专科生"
CaseElse
p="无效学号"
EndSelect
Text2.Text=Left（Text1.Text,2）+"级"
Text3.Text=p
EndSub
ex0404
PrivateSubCommand1_Click（）
r=0:
g=0:
b=0
IfCheck1.Value=1Then
r=255
EndIf
IfCheck2.Value=1Then
g=255
EndIf
IfCheck3.Value=1Then
b=255
EndIf
Label1.BackColor=RGB（r,g,b）
EndSub
PrivateSubCommand2_Click（）
End
EndSub
ex0405
PrivateSubForm_Load（）
LabClk.Caption="0"
LabClk.Alignment=1
LabClk.BorderStyle=1
LabClk.FontSize=22
LabClk.FontName="黑体"
TimClk.Interval=1000
EndSub
PrivateSubTimClk_Timer（）
LabClk.Caption=Val（LabClk.Caption）+1
EndSub
ex0406
PrivateSubForm_Load（）
Command1.Enabled=False
Command2.Enabled=False
EndSub
PrivateSubText1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfText1.SelLength>0Then
Command1.Enabled=True
EndIf
EndSub
PrivateSubCommand1_Click（）
Command1.Enabled=True
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Text2.Text=Text1.SelText
Command1.Enabled=False
Command2.Enabled=False
EndSub
ex0501
PrivateSubForm_Load（）
DimkAsInteger,sAsInteger,tAsInteger
s=0
Fork=1To100Step2
s=s+k
Nextk
Show
Print"1～100范围内的奇数和：
";s
EndSub
ex0502
PrivateSubForm_Load（）
DimsAsSingle
Show
s=0
Fork=1To200
s=s+k/（1+k*k）
Nextk
PrintInt（s*10+0.5）/10
EndSub
ex0503
PrivateSubForm_Load（）
Show
k=2
s=0
DoWhilek<101
s=s+k*（k-1）
k=k+2
Loop
Prints
EndSub
ex0504
PrivateSubForm_Load（）
DimkAsInteger,aAsInteger,bAsInteger
DimcAsInteger,nAsInteger
Show
n=0
Print"三位数的水仙花数是：
"
Fork=100To999
a=Int（k/100）
b=Int（（k-100*a）/10）
c=kMod10
Ifa*a*a+b*b*b+c*c*c=kThen
Printk
n=n+1
EndIf
Nextk
Print"一共有"&n&"个水仙花数"
EndSub
ex0505
PrivateSubForm_Load（）
Show
Fork=1000To9999
IfkMod78=0Then
a=Int（k/1000）
b=Int（k/100）-10*a
c=Int（k/10）-100*a-10*b
d=kMod10
Ifa=bAndc=dThen
Printk
EndIf
EndIf
Nextk
EndSub
ex0506
PrivateSubCommand1_Click（）
DimsAsString,yAsString
DimxAsString,
升级会员 