《Visual Basic程序设计教程》编程题答案.docx

《Visual Basic程序设计教程》编程题答案.docx

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

《VisualBasic程序设计教程》编程题答案

《VisualBasic程序设计教程》林卓然编著

电子工业出版社2004年2月出版

书号:

ISBN7-5053-9652-8定价:

23元

编者免费提供本教材的课堂教学用的电子教案。

需要电子教案的教师，可从电子工业出版社网站（）的“教学资源下载”区中下载，也可直接与编者联系（Puslzr@）。

各章习题（含单选、多选及填空题）答案已放在本教材的附录D中。

《VisualBasic程序设计教程》

<编程及上机调试>题参考答案

第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．在窗体上设置三个命令按钮，其名称分别为Command1（“最大化”）、Command2（“还原”）和Command3（“最小化”）。

程序代码如下：

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.PrivateSubCmd1_Click（）

Lab1.Visible=True

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

EndSub

PrivateSubForm_Click（）

Cmd1.Visible=True

EndSub

5.PrivateSubForm_KeyPress（KeyAsciiAsInteger）

Show

Print"输入字符：

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

EndSub

PrivateSubForm_DblClick（）

Cls

EndSub

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

产生第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、Text2及Text3，分别代表学号、年级及学生类型，建立一个命令按钮Command1（“判断”）。

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

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．在窗体上建立了两个文本框Text1及Text2，两个命令按钮Command1及Command2（“复制”及“粘贴”）。

在文本框Text1中输入文本“复制文本的演示程序”。

PrivateSubCommand1_Click（）'“复制”按钮

Command1.Enabled=True

Command2.Enabled=True

EndSub

PrivateSubCommand2_Click（）'“粘贴”按钮

Text2.Text=Text1.SelText

Command1.Enabled=False

Command2.Enabled=False

EndSub

PrivateSubForm_Load（）

Command1.Enabled=False

Command2.Enabled=False

EndSub

PrivateSubText1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfText1.SelLength>0Then

Command1.Enabled=True

EndIf

EndSub

第5章《编程及上机调试》

1.和数为：

1.21。

程序代码如下：

PrivateSubForm_Load（）

Show

s=0

Fork=1To100

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

Nextk

Print"s=";Format（s,"##.00"）

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．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。

程序代码如下：

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

FontSize=12

Cls

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

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

PrintList1.List（i）

EndIf

Nexti

EndSub

5．

（1）KeyPress

（2）Combo1.List（k）（3）Combo1.AddItem

6．程序代码如下：

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（）

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

2.程序代码如下：

OptionBase1

PrivateSubForm_Load（）

Dima（8,8）AsInteger,nAsInteger

DimmaxAsInteger,rAsInteger,cAsInteger

Show

Randomize

n=8

Fori=1Ton

Forj=1Ton

x=Int（900*Rnd+100）'产生一个随机数

a（i,j）=x

Printx;

Nextj

Print

Nexti

max=0:

r=1:

c=1

Print

Fori=1Ton

Forj=1Ton

Ifa（i,j）>maxThen'判断有无更大数

max=a（i,j）:

r=i:

c=j

EndIf

Nextj,i

Print"最大值为：

";max

Print"位于行：

";r,"列：

";c

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．在窗体WinForm1中建立1个单选按钮组Opt1和1个命令按钮Cmd1，单选按钮组包含3个单选按钮，其标题分别为“单选1”、“单选2”和“单选3”，下标分别为0、1和2。

设置第一个单选按钮被选中。

程序代码如下：

DimnAsInteger

PrivateSubCmd1_Click（）

n=n+1

Ifn=3Thenn=0

Opt1（n）.Value=True

EndSub

5．

（1）s（i）

（2）t=n（i）:

n（i）=n（j）:

n（j）=t

（2）s（i）<>s（i-1）（4）h=h+1

第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（0）～Text1（5）、一个文本框Text2和一个命令按钮Command1（“比较”）。

文本框控件数组用于输入6个数，Text2用于输出结果。

PrivateSubCommand1_Click（）

Dimd（5）AsSingle,mAsSingle

Fork=0To5

d（k）=Val（Text1（k）.Text）

Nextk

Callmax（d（0）,d

（1）,d

（2）,m）

Callmax（m,d（3）,d（4）,m）

Callmax（m,m,d（5）,m）

Text2.Text=m

EndSub

'标准模块文件

Submax（x,y,z,m）'比较三个数x、y、z的大小，并返回大数m

Ifx>yThenm=xElsem=y

Ifm

EndSub

3.

（1）s<>""

（2）Mid（s,p+1）（3）List1.ListCount

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及Form2，把Form2设置为启动窗体。

在Form1中设置命令按钮C1，Form2中设置命令按钮C2。

程序代码如下：

PrivateSubC1_Click（）‘窗体Form1的“隐藏”按钮

Form1.Hide

EndSub

PrivateSubC2_Click（）‘窗体Form2的“显示”按钮

Form1.Show

EndSub

6．在窗体上设置三