VB语言程序设计课后编程及上机调试参考答案Word格式文档下载.docx

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,