《Visual Basic程序设计教程第2版》课后部分编程题参考答案.docx

《Visual Basic程序设计教程第2版》课后部分编程题参考答案.docx

《《Visual Basic程序设计教程第2版》课后部分编程题参考答案.docx》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计教程第2版》课后部分编程题参考答案.docx（26页珍藏版）》请在冰豆网上搜索。

《VisualBasic程序设计教程第2版》课后部分编程题参考答案

第1章

1.按要求设置窗体属性

2．在窗体上建立一个标签Label1。

程序代码如下：

PrivateSubForm_Click（）

Label1.Caption="你单击了窗体"

EndSub

PrivateSubForm_DblClick（）

Label1.Caption="你双击了窗体"

EndSub

3．在窗体上建立两个文本框Text1（输入数）、Text2（输出数）和一个命令按钮Command1。

两个文本框的Text属性均为空。

PrivateSubCommand1_Click（）

DimxAsSingle

x=Val（Text1.Text）

Text2.Text=15*x

EndSub

第2章

1～3题：

按要求完成操作练习。

4．PrivateSubCommand1_Click（）'"最大化"按钮

Form1.WindowState=2'最大化

EndSub

PrivateSubCommand2_Click（）'"还原"按钮

Form1.WindowState=0'还原

EndSub

PrivateSubCommand3_Click（）'"最小化"按钮

Form1.WindowState=1'最小化

EndSub

5．在窗体上建立三个文本框Text1（第一个数）、Text2（第二个数）、Text3（计算结果）和一个命令按钮Command1（“计算”）。

PrivateSubCommand1_Click（）

DimxAsSingle

DimyAsSingle

x=Val（Text1.Text）

y=Val（Text2.Text）

Text3.Text=x*x+y*y

EndSub

6.在窗体上建立两个文本框Text1（输入一串字符）、Text2（输出结果）和一个命令按钮Command1。

PrivateSubCommand1_Click（）

DimxAsString

x=Left（Text1.Text,1）+Right（Text1.Text,1）

Text2.Text=x

EndSub

第3章

1．在窗体上建立一个文本框Text1（输入n值）、三个标签Label1（第一个随机数）、Label2（第二个随机数）和Label3（第三个随机数），以及一个命令按钮Command1。

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

2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1（“交换”）和Command2（“合并”）。

PrivateSubCommand1_Click（）'“交换”

t=Text1.Text

Text1.Text=Text2.Text

Text2.Text=Text3.Text

Text3.Text=t

EndSub

PrivateSubCommand2_Click（）'“合并”

t=Text1.Text+Text2.Text+Text3.Text

Text4.Text=t

EndSub

3.

（1）Rnd*9000+1000

（2）Str（x）（3）Mid（s,3,1）+Mid（s,2,1）+Left（s,1）

4.PrivateSubCommand1_Click（）'往左

Text1.Left=0

EndSub

PrivateSubCommand2_Click（）'往右

Text1.Left=Form1.Width-Text1.Width

EndSub

PrivateSubCommand3_Click（）'居中

Text1.Left=（Form1.Width-Text1.Width）/2

EndSub

5.PrivateSubCmd1_Click（）

Lab1.Visible=True

Lab1.Caption="您已下达显示命令"

EndSub

PrivateSubForm_Click（）

Cmd1.Visible=True

EndSub

6.PrivateSubForm_KeyPress（KeyAsciiAsInteger）

Show

Print"输入字符：

";Chr（KeyAscii）,"ASCII码为;";KeyAscii

EndSub

PrivateSubForm_DblClick（）

Cls

EndSub

7.产生这三个消息框的相应语句是：

产生第1个消息框：

x=MsgBox（"在这里显示提示信息",4+0,"请确认"）

产生第2个消息框：

x=MsgBox（"在这里显示"+Chr（13）+"提示信息",3+0,"请确认"）

产生第3个消息框：

x=MsgBox（"在这里显示"+Chr（13）+"提示信息",2+16+0,"请确认"）

第4章

1.在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），一个命令按钮Command1（“判断”）。

PrivateSubCommand1_Click（）'“判断”

x=Val（Text1.Text）

IfxMod2=0Then

Text2.Text="偶数"

Else消息

Text2.Text="奇数"

EndIf

EndSub

2．窗体上建立了一个文本框Text1，用于显示结果。

PrivateSubForm_Load（）

x=Val（InputBox（"请输入星期几（0～6）"））

SelectCasex

CaseIs=0

Text1.Text="星期日（Sunday）"

CaseIs=1

Text1.Text="星期一（Monday）"

CaseIs=2

Text1.Text="星期二（Tuesday）"

CaseIs=3

Text1.Text="星期三（Wednesday）"

CaseIs=4

Text1.Text="星期四（Thursday）"

CaseIs=5

Text1.Text="星期五（Friday）"

CaseIs=6

Text1.Text="星期六（Saturday）"

CaseElse

Text1.Text="输入错误"

EndSelect

EndSub

3．窗体上建立了一个文本框Text1（“输入口令”）和一个命令按钮Command1（“检查”）。

PrivateSubCommand1_Click（）'“检查”

x=Text1.Text

Ifx="12345678"Then

MsgBox（"欢迎你用机!

"）

Else

MsgBox（"对不起，口令错"）

EndIf

Text1.Text=""

Text1.SetFocus

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Text1.MaxLength=8

Text1.PasswordChar="*"

EndSub

4．窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1（“清除”）。

PrivateSubCommand1_Click（）'“清除”

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

DimsAsString*1

s=Chr（KeyAscii）

SelectCases

Case"A"To"Z"

s=LCase（s）

Case"a"To"z"

s=UCase（s）

CaseElse

s="*"

EndSelect

Text2.Text=Text2.Text+s

EndSub

5．分别选择”红”、”绿”、”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。

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

6．程序代码如下：

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

7．

（1）Chr（KeyAscii）

（2）ElseIfChr（KeyAscii）

（3）CheC=CheC-1（4）CheC（5）Is>0或Else

第5章

1.和数为：

1.21。

程序代码如下：

PrivateSubForm_Load（）

Show

s=0

Fork=1To100

s=s+1/（1+k*4）

Nextk

Prints

EndSub

2.程序代码如下：

PrivateSubForm_Load（）

DimiAsInteger,aAsInteger,bAsInteger,cAsInteger

Show

Fori=100To999

a=Int（i/100）

b=Int（（i-100*a）/10）

c=i-100*a-10*b

Ifa*a*a+b*b*b+c*c*c=iThen

Printi

EndIf

Nexti

EndSub

3.在窗体上建立一个文本框Text1（初始值）、一个列表框List1（显示结果）和一个命令按钮Comd1（“查找”）。

PrivateSubComd1_Click（）'“查找”

DimnAsInteger

n=Val（Text1.Text）

List1.Clear:

k=0

DoWhilek<=99

IfNot（nMod7=0）Then

List1.AddItemn

k=k+1

EndIf

n=n+1

Loop

EndSub

4.程序代码如下：

PrivateSubForm_Load（）

Show

n=Val（InputBox（"正整数n="））

Fori=1Ton

Forj=i+1Ton

Fork=j+1Ton

Ifi*i+j*j=k*kThen

Print"（";i;",";j;",";k;"）"

EndIf

Nextk

Nextj

Nexti

EndSub

5．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。

程序代码如下：

PrivateSubCommand1_click（）'"显示表项"按钮单击事件

FontSize=12

Cls

Fori=0ToList1.ListCount-1'逐项判断

IfList1.Selected（i）Then'真时为选中

PrintList1.List（i）

EndIf

Nexti

EndSub

6．

（1）Text1.Text

（2）UCase（x）（3）t>="A"Andt<="Z"（4）y+x

7．程序代码如下：

PrivateSubForm_Load（）

Show

DimaAsSingle,xn0AsSingle,xn1AsSingle

a=Val（InputBox（"请输入一个正数"））

xn1=a

Do

xn0=xn1

xn1=（xn0+a/xn0）/2

LoopWhileAbs（xn0-xn1）>=0.00001

Printa;"的平方根为";xn1

EndSub

第6章

1.程序代码如下：

PrivateSubForm_Load（）

Show

Dima（100）AsSingle

n=Val（InputBox（"输入个数n"））

Print"处理前数据:

"

Fork=1Ton

a（k）=Val（InputBox（"请输入第"&k&"个数"））

Printa（k）;

Nextk

Print

M=Int（n/2）

Fork=1ToM

h=n-k+1

t=a（h）:

a（h）=a（k）:

a（k）=t

Nextk

Print"处理的结果:

"

Fork=1Ton

Printa（k）;

Nextk

EndSub

2.程序代码如下：

PrivateSubForm_Load（）

Dima（6,6）AsInteger

Show

Fori=1To6

Forj=1To6

SelectCasei

CaseIs

a（i,j）=1

CaseIs>j

a（i,j）=2

CaseIs=j

a（i,j）=0

EndSelect

Printa（i,j）;

Nextj

Print

Nexti

Fori=1To6

t=a（1,i）:

a（1,i）=a（6,i）:

a（6,i）=t

Nexti

Print:

Print

Fori=1To6

Forj=1To6

Printa（i,j）;

Nextj

Print

Nexti

EndSub

3．在窗体上建立两个列表框List1（处理前数据）和List2（处理后数据），以及标签Label1。

程序代码如下：

PrivateSubForm_Load（）

Dima（100）AsInteger,b（100）AsInteger

Randomize

n=100

Fori=1Ton'输入数组a的n个元素

x=Int（20*Rnd）

List1.AddItemx

a（i）=x

Nexti

k=0

Fori=1Ton'删除零元素

Ifa（i）<>0Then

k=k+1:

b（k）=a（i）:

List2.AddItemb（k）

EndIf

Nexti

Label1.Caption="数组中零元素个数：

"+Str（n-k）

EndSub

4．

（1）g（x-10）+1

（2）n-1（3）g（t）

（4）m=s（t）:

s（t）=s（k）:

s（k）=m

5．在窗体上建立4行3列共12个元素的文本框控件数组Text1（0）～Text1（11）

PrivateSubForm_Load（）

Dimt（12）AsString

Randomize

Fork=1To12

t（k）="Empty"'初始安排12个位置均为"Empty"

Nextk

Forh=65To74'代表"A"至"J"，每次随机安排一个字母

DoWhileTrue'随机查找一个空位

p=Int（1+12*Rnd）'产生1～12随机数

Ift（p）="Empty"Then

t（p）=Chr（h）

ExitDo

EndIf

Loop

Nexth

Fork=1To12

Text1（k-1）.Text=t（k）'显示座位分配情况

Nextk

EndSub

第7章

1.在窗体上建立四个文本框Text1和一个命令按钮Command1（“检验”）。

文本框Text1～Text3用于输入，Text4用于输出结果。

PrivateSubCommand1_Click（）

DimaAsString,bAsString,cAsString

a=Trim（Text1.Text）

b=Trim（Text2.Text）

c=Trim（Text3.Text）

Ifche（a）Andche（b）Andche（c）Then

Text4.Text=Val（a）+Val（b）+Val（c）

Else

Text4.Text="存在非数字字符"

EndIf

EndSub

Functionche（xAsString）AsBoolean'若存在非数字字符，函数值为假

che=True

Fork=1ToLen（x）

s=Mid（x,k,1）

Ifs<"0"Ors>"9"Then

che=False

ExitFor

EndIf

Nextk

EndFunction

2．在窗体上建立七个文本框Text1～Text7和一个命令按钮Command1（“比较”）。

Text1～Text6用于输入，Text7用于输出结果。

PrivateSubCommand1_Click（）

a=Val（Text1.Text）:

b=Val（Text2.Text）:

c=Val（Text3.Text）

d=Val（Text4.Text）:

e=Val（Text5.Text）:

f=Val（Text6.Text）

Callmax（a,b,c,m）

Callmax（m,d,e,m）

Callmax（m,f,f,m）

Text7.Text=m

EndSub

Submax（x,y,z,m）‘标准模块文件

Ifx>yThen

m=x

Else

m=y

EndIf

Ifm

m=z

EndIf

EndSub

3.

（1）s<>""

（2）Mid（s,p+1）（3）n

4.程序代码如下：

PrivateSubForm_Load（）

DimxAsSingle,nAsInteger,yAsDouble

x=InputBox（"x=","求X的n次方"）

n=InputBox（"n=","求X的n次方"）

y=Power（x,n）

Show

Printx;"的";n;"次方=";Format（y,"###,###.##"）

EndSub

FunctionPower（xAsSingle,nAsInteger）AsDouble

Ifn>1Then

Power=Power（x,n-1）*x

Else

Power=x

EndIf

EndFunction

5．在窗体上设置三个窗体Form1～Form3。

Form1中建立了两个文本框Text1（“用户名”）和Text2（“密码”），以及命令按钮Command1（“判断”）。

Form2中建立了一个文本框Text1（其Text属性值为“欢迎你使用本系统”）和命令按钮Command1（“返回”）。

Form3中建立了一个文本框Text1（其Text属性值为“对不起，请向管理员查询”）和命令按钮Command1（“退出”）。

DimnAsInteger

PrivateSubCommand1_Click（）‘窗体Form1的“判断”

usern=Trim（Text1.Text）:

passw=Trim（Text2.Text）

Ifusern="username"Andpassw="password"Then

Form1.Hide

Form2.Show

Else

n=n+1:

Text1.SetFocus

Ifn=3Then

Form1.Hide

Form3.Show

EndIf

EndIf

Text1.Text="":

Text2.Text=""

EndSub

PrivateSubForm_Activate（）

Text1.Text="":

Text2.Text=""

Text1.SetFocus

EndSub

PrivateSubCommand1_Click（）‘窗体Form2的“返回”

Form2.Hide

Form1.Show

EndSub

PrivateSubCommand1_Click（）‘窗体Form3