VB语言程序设计课后编程及上机调试参考答案Word格式文档下载.docx
《VB语言程序设计课后编程及上机调试参考答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB语言程序设计课后编程及上机调试参考答案Word格式文档下载.docx(26页珍藏版)》请在冰豆网上搜索。
最小化"
按钮
Form1.WindowState=1'
最小化
ex0205
PrivateSubcommand1_click()
DimxAsSingle
DimyAsSingle
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=x*x+y*y
ex0206
DimxAsString
x=Text1.Text
Text2.Text=Left(x,1)+Right(x,1)
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'
显示倒序数
ex0302
n=Val(Text1.Text)
Randomize
x=Int(1+n*Rnd)
第一个随机数"
+Str(x)
Label2.Caption="
第二个随机数"
Label3.Caption="
第三个随机数"
ex0303
PrivateSubCmd1_Click()
Lab1.Visible=True
Lab1.Caption="
您已下达显示命令"
PrivateSubForm_Click()
Cmd1.Visible=True
ex0304
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
Print"
输入字符:
Chr(KeyAscii),"
ASCII码为;
KeyAscii
PrivateSubForm_DblClick()
Cls
ex0305
x=MsgBox("
在这里显示提示信息"
4+0,"
请确认"
)
在这里显示"
+Chr(13)+"
提示信息"
3+0,"
2+16+0,"
ex0401
DimxAsLong,sAsString
x=InputBox("
输入一个整数(1~35000)"
s="
奇数"
IfxMod2=0Thens="
偶数"
MsgBoxs
ex0402
DimaAsSingle,bAsSingle
DimcAsSingle,dAsSingle
DimmAsSingle,nAsSingle,xAsSingle
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
n=d
Ifm>
nThen'
求m、n中的较大数
x=m
x=n
Text5.Text=x
ex0403
DimtAsString,pAsString
t=Mid(Text1.Text,5,1)
SelectCaset
Case"
2"
p="
博士生"
3"
硕士生"
4"
本科生"
5"
专科生"
CaseElse
无效学号"
EndSelect
Text2.Text=Left(Text1.Text,2)+"
级"
Text3.Text=p
ex0404
r=0:
g=0:
b=0
IfCheck1.Value=1Then
r=255
IfCheck2.Value=1Then
g=255
IfCheck3.Value=1Then
b=255
Label1.BackColor=RGB(r,g,b)
End
ex0405
LabClk.Caption="
0"
LabClk.Alignment=1
LabClk.BorderStyle=1
LabClk.FontSize=22
LabClk.FontName="
黑体"
TimClk.Interval=1000
PrivateSubTimClk_Timer()
LabClk.Caption=Val(LabClk.Caption)+1
ex0406
Command1.Enabled=False
Command2.Enabled=False
PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfText1.SelLength>
0Then
Command1.Enabled=True
Command2.Enabled=True
Text2.Text=Text1.SelText
ex0501
DimkAsInteger,sAsInteger,tAsInteger
s=0
Fork=1To100Step2
s=s+k
Nextk
1~100范围内的奇数和:
s
ex0502
DimsAsSingle
Fork=1To200
s=s+k/(1+k*k)
PrintInt(s*10+0.5)/10
ex0503
k=2
DoWhilek<
101
s=s+k*(k-1)
k=k+2
Loop
Prints
ex0504
DimkAsInteger,aAsInteger,bAsInteger
DimcAsInteger,nAsInteger
n=0
三位数的水仙花数是:
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
一共有"
&
n&
个水仙花数"
ex0505
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
ex0506
DimsAsString,yAsString
DimxAsString,