《Visual Basic程序设计教程第2版》课后部分编程题参考答案Word文档格式.docx
《《Visual Basic程序设计教程第2版》课后部分编程题参考答案Word文档格式.docx》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计教程第2版》课后部分编程题参考答案Word文档格式.docx（26页珍藏版）》请在冰点文库上搜索。
第3章
1．在窗体上建立一个文本框Text1（输入n值）、三个标签Label1（第一个随机数）、Label2（第二个随机数）和Label3（第三个随机数），以及一个命令按钮Command1。
n=Val（Text1.Text）
Randomize
x=Int（1+n*Rnd）
第一个随机数"
+Str（x）
Label2.Caption="
第二个随机数"
Label3.Caption="
第三个随机数"
2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1（“交换”）和Command2（“合并”）。
PrivateSubCommand1_Click（）'
“交换”
t=Text1.Text
Text1.Text=Text2.Text
Text2.Text=Text3.Text
Text3.Text=t
“合并”
t=Text1.Text+Text2.Text+Text3.Text
Text4.Text=t
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
往右
Text1.Left=Form1.Width-Text1.Width
居中
Text1.Left=（Form1.Width-Text1.Width）/2
5.PrivateSubCmd1_Click（）
Lab1.Visible=True
Lab1.Caption="
您已下达显示命令"
Cmd1.Visible=True
6.PrivateSubForm_KeyPress（KeyAsciiAsInteger）
Show
Print"
输入字符：
;
Chr（KeyAscii）,"
ASCII码为;
KeyAscii
Cls
7.产生这三个消息框的相应语句是：
产生第1个消息框：
x=MsgBox（"
在这里显示提示信息"
4+0,"
请确认"
）
产生第2个消息框：
在这里显示"
+Chr（13）+"
提示信息"
3+0,"
产生第3个消息框：
+Chr（13）+"
2+16+0,"
第4章
1.在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），一个命令按钮Command1（“判断”）。
“判断”
IfxMod2=0Then
Text2.Text="
偶数"
Else消息
奇数"
EndIf
2．窗体上建立了一个文本框Text1，用于显示结果。
PrivateSubForm_Load（）
x=Val（InputBox（"
请输入星期几（0～6）"
））
SelectCasex
CaseIs=0
Text1.Text="
星期日（Sunday）"
CaseIs=1
星期一（Monday）"
CaseIs=2
星期二（Tuesday）"
CaseIs=3
星期三（Wednesday）"
CaseIs=4
星期四（Thursday）"
CaseIs=5
星期五（Friday）"
CaseIs=6
星期六（Saturday）"
CaseElse
输入错误"
EndSelect
3．窗体上建立了一个文本框Text1（“输入口令”）和一个命令按钮Command1（“检查”）。
“检查”
x=Text1.Text
Ifx="
12345678"
Then
MsgBox（"
欢迎你用机!
Else
对不起，口令错"
Text1.SetFocus
Text1.MaxLength=8
Text1.PasswordChar="
*"
4．窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1（“清除”）。
“清除”
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimsAsString*1
s=Chr（KeyAscii）
SelectCases
Case"
A"
To"
Z"
s=LCase（s）
a"
z"
s=UCase（s）
s="
Text2.Text=Text2.Text+s
5．分别选择”红”、”绿”、”蓝”复选框后，单击命令按钮Command1时，通过RGB函数调配的颜色作为一个标签的背景色（BackColor）。
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）
6．程序代码如下：
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
7．
（1）Chr（KeyAscii）
（2）ElseIfChr（KeyAscii）
（3）CheC=CheC-1（4）CheC（5）Is>
0或Else
第5章
1.和数为：
1.21。
s=0
Fork=1To100
s=s+1/（1+k*4）
Nextk
Prints
2.程序代码如下：
DimiAsInteger,aAsInteger,bAsInteger,cAsInteger
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
Nexti
3.在窗体上建立一个文本框Text1（初始值）、一个列表框List1（显示结果）和一个命令按钮Comd1（“查找”）。
PrivateSubComd1_Click（）'
“查找”
DimnAsInteger
List1.Clear:
k=0
DoWhilek<
=99
IfNot（nMod7=0）Then
List1.AddItemn
k=k+1
n=n+1
Loop
4.程序代码如下：
n=Val（InputBox（"
正整数n="
））
Fori=1Ton
Forj=i+1Ton
Fork=j+1Ton
Ifi*i+j*j=k*kThen
（"
i;
"
"
j;
k;
）"
Nextj
5．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。
PrivateSubCommand1_click（）'
显示表项"
按钮单击事件
FontSize=12
Fori=0ToList1.ListCount-1'
逐项判断
IfList1.Selected（i）Then'
真时为选中
PrintList1.List（i）
6．
（1）Text1.Text
（2）UCase（x）（3）t>
="
Andt<
（4）y+x
7．程序代码如下：
DimaAsSingle,xn0AsSingle,xn1AsSingle
a=Val（InputBox（"
请输入一个正数"
xn1=a
Do
xn0=xn1
xn1=（xn0+a/xn0）/2
LoopWhileAbs（xn0-xn1）>
=0.00001
Printa;
的平方根为"
xn1
第6章
1.程序代码如下：
Dima（100）AsSingle
输入个数n"
处理前数据:
Fork=1Ton
a（k）=Val（InputBox（"
请输入第"
&
k&
个数"
Printa（k）;
Print
M=Int（n/2）
Fork=1ToM
h=n-k+1
t=a（h）:
a（h）=a（k）:
a（k）=t
处理的结果:
PrivateSubForm_Load（）
Dima（6,6）AsInteger
Fori=1To6
Forj=1To6
SelectCasei
CaseIs<
j
a（i,j）=1
CaseIs>
a（i,j）=2
CaseIs=j
a（i,j）=0
Printa（i,j）;
t=a（1,i）:
a（1,i）=a（6,i）:
a（6,i）=t
Print:
3．在窗体上建立两个列表框List1（处理前数据）和List2（处理后数据），以及标签Label1。
Dima（100）AsInteger,b（100）AsInteger
n=100
Fori=1Ton'
输入数组a的n个元素
x=Int（20*Rnd）
List1.AddItemx
a（i）=x
k=0
删除零元素
Ifa（i）<
>
0Then
k=k+1:
b（k）=a（i）:
List2.AddItemb（k）
数组中零元素个数：
+Str（n-k）
4．
（1）g（x-10）+1
（2）n-1（3）g（t）<
g（j）
（4）m=s（t）:
s（t）=s（k）:
s（k）=m
5．在窗体上建立4行3列共12个元素的文本框控件数组Text1（0）～Text1（11）
Dimt（12）AsString
Fork=1To12
t（k）="
Empty"
'
初始安排12个位置均为"
Forh=65To74'
代表"
至"
J"
，每次随机安排一个字母
DoWhileTrue'
随机查找一个空位
p=Int（1+12*Rnd）'
产生1～12随机数
Ift（p）="
t（p）=Chr（h）
ExitDo
Nexth
Text1（k-1）.Text=t（k）'
显示座位分配情况
第7章
1.在窗体上建立四个文本框Text1和一个命令按钮Command1（“检验”）。
文本框Text1～Text3用于输入，Text4用于输出结果。
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）
Text4.Text="
存在非数字字符"
Functionche（xAsString）AsBoolean'
若存在非数字字符，函数值为假
che=True
Fork=1ToLen（x）
s=Mid（x,k,1）
Ifs<
Ors>
9"
che=False
ExitFor
EndFunction
2．在窗体上建立七个文本框Text1～Text7和一个命令按钮Command1（“比较”）。
Text1～Text6用于输入，Text7用于输出结果。
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
Submax（x,y,z,m）‘标准模块文件
Ifx>
yThen
m=x
m=y
Ifm<
zThen
m=z
3.
（1）s<
（2）Mid（s,p+1）（3）n
DimxAsSingle,nAsInteger,yAsDouble
x=InputBox（"
x="
"
求X的n次方"
n=InputBox（"
n="
y=Power（x,n）
Printx;
的"
n;
次方="
Format（y,"
###,###.##"
FunctionPower（xAsSingle,nAsInteger）AsDouble
Ifn>
1Then
Power=Power（x,n-1）*x
Power=x
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"
Form1.Hide
Form2.Show
n=n+1:
Text1.SetFocus
Ifn=3Then
Form3.Show
:
Text2.Text="
PrivateSubForm_Activate（）
PrivateSubCommand1_Click（）‘窗体Form2的“返回”
Form2.Hide
Form1.Show
PrivateSubCommand1_Click（）‘窗体Form3
升级会员 