《Visual Basic程序设计教程》编程题答案文档格式.docx
《《Visual Basic程序设计教程》编程题答案文档格式.docx》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计教程》编程题答案文档格式.docx（28页珍藏版）》请在冰豆网上搜索。
Form1.WindowState=0'
还原
PrivateSubCommand3_Click（）'
最小化"
Form1.WindowState=1'
最小化
5．在窗体上建立三个文本框Text1（第一个数）、Text2（第二个数）、Text3（计算结果）和一个命令按钮Command1（“计算”）。
PrivateSubCommand1_Click（）
DimxAsSingle
DimyAsSingle
x=Val（Text1.Text）
y=Val（Text2.Text）
Text3.Text=x*x+y*y
6.在窗体上建立两个文本框Text1（输入一串字符）、Text2（输出结果）和一个命令按钮Command1。
DimxAsString
x=Left（Text1.Text,1）+Right（Text1.Text,1）
Text2.Text=x
第3章《编程及上机调试》
1．在窗体上建立一个文本框Text1（输入n值）、三个标签Label1（第一个随机数）、Label2（第二个随机数）和Label3（第三个随机数），以及一个命令按钮Command1。
n=Val（Text1.Text）
Randomize
x=Int（1+n*Rnd）
Label1.Caption="
第一个随机数"
+Str（x）
Label2.Caption="
第二个随机数"
Label3.Caption="
第三个随机数"
2．在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及两个命令按钮Command1（“交换”）和Command2（“合并”）。
“交换”
t=Text1.Text
Text1.Text=Text2.Text
Text2.Text=Text3.Text
Text3.Text=t
PrivateSubCommand2_Click（）'
“合并”
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.PrivateSubCmd1_Click（）
Lab1.Visible=True
Lab1.Caption="
您已下达显示命令"
Cmd1.Visible=True
5.PrivateSubForm_KeyPress（KeyAsciiAsInteger）
Show
Print"
输入字符：
;
Chr（KeyAscii）,"
ASCII码为;
KeyAscii
Cls
6.产生这三个消息框的相应语句是：
产生第1个消息框：
x=MsgBox（"
在这里显示提示信息"
4+0,"
请确认"
）
产生第2个消息框：
在这里显示"
+Chr（13）+"
提示信息"
3+0,"
产生第3个消息框：
+Chr（13）+"
2+16+0,"
第4章《编程及上机调试》
1.在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），一个命令按钮Command1（“判断”）。
PrivateSubCommand1_Click（）'
“判断”
IfxMod2=0Then
Text2.Text="
偶数"
Else消息
奇数"
EndIf
2.在窗体上建立两个文本框Text1、Text2及Text3，分别代表学号、年级及学生类型，建立一个命令按钮Command1（“判断”）。
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
3．窗体上建立了一个文本框Text1（“输入口令”）和一个命令按钮Command1（“检查”）。
“检查”
x=Text1.Text
Ifx="
12345678"
Then
MsgBox"
欢迎你用机!
Else
对不起，口令错"
Text1.Text="
Text1.SetFocus
PrivateSubForm_Load（）
Text1.MaxLength=8
Text1.PasswordChar="
*"
4．窗体上建立了两个文本框Text1（输入字符串）及Text2（转换结果），一个命令按钮Command1（“清除”）。
“清除”
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimsAsString*1
s=Chr（KeyAscii）
SelectCases
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
EndIf
IfCheck2.Value=1Then'
”绿”复选框
g=255
EndIf
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．在窗体上建立了两个文本框Text1及Text2，两个命令按钮Command1及Command2（“复制”及“粘贴”）。
在文本框Text1中输入文本“复制文本的演示程序”。
PrivateSubCommand1_Click（）'
“复制”按钮
Command1.Enabled=True
Command2.Enabled=True
“粘贴”按钮
Text2.Text=Text1.SelText
Command1.Enabled=False
Command2.Enabled=False
PrivateSubText1_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfText1.SelLength>
0Then
第5章《编程及上机调试》
1.和数为：
1.21。
s=0
Fork=1To100
s=s+1/（1+k*4）
Nextk
s="
Format（s,"
##.00"
2.程序代码如下：
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
Nexti
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
n=n+1
Loop
4．在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。
PrivateSubCommand1_click（）'
显示表项"
按钮单击事件
FontSize=12
Fori=0ToList1.ListCount-1'
逐项判断
IfList1.Selected（i）Then'
真时为选中
PrintList1.List（i）
Nexti
5．
（1）KeyPress
（2）Combo1.List（k）（3）Combo1.AddItem
Show
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.程序代码如下：
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
EndSelect
Printa（i,j）;
Nextj
Print
t=a（1,i）:
a（1,i）=a（6,i）:
a（6,i）=t
Nexti
Print:
Print
Printa（i,j）;
Print
OptionBase1
Dima（8,8）AsInteger,nAsInteger
DimmaxAsInteger,rAsInteger,cAsInteger
Randomize
n=8
Fori=1Ton
Forj=1Ton
x=Int（900*Rnd+100）'
产生一个随机数
a（i,j）=x
Printx;
Nextj
max=0:
r=1:
c=1
Ifa（i,j）>
maxThen'
判断有无更大数
max=a（i,j）:
r=i:
c=j
Nextj,i
Print"
最大值为：
max
位于行：
r,"
列：
c
3．在窗体上建立两个列表框List1（处理前数据）和List2（处理后数据），以及标签Label1。
Dima（100）AsInteger,b（100）AsInteger
Randomize
n=100
Fori=1Ton'
输入数组a的n个元素
x=Int（20*Rnd）
List1.AddItemx
a（i）=x
k=0
删除零元素
Ifa（i）<
>
k=k+1:
b（k）=a（i）:
List2.AddItemb（k）
数组中零元素个数：
+Str（n-k）
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
5．
（1）s（i）<
s（j）
（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用于输出结果。
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="
存在非数字字符"
Functionche（xAsString）AsBoolean'
若存在非数字字符，函数值为假
che=True
Fork=1ToLen（x）
s=Mid（x,k,1）
Ifs<
Ors>
9"
che=False
ExitFor
EndFunction
2．在窗体上建立一个文本框控件数组Text1（0）～Text1（5）、一个文本框Text2和一个命令按钮Command1（“比较”）。
文本框控件数组用于输入6个数，Text2用于输出结果。
Dimd（5）AsSingle,mAsSingle
Fork=0To5
d（k）=Val（Text1（k）.Text）
Callmax（d（0）,d
（1）,d
（2）,m）
Callmax（m,d（3）,d（4）,m）
Callmax（m,m,d（5）,m）
Text2.Text=m
'
标准模块文件
Submax（x,y,z,m）'
比较三个数x、y、z的大小，并返回大数m
Ifx>
yThenm=xElsem=y
Ifm<
zThenm=z
EndSub
3.
（1）s<
（2）Mid（s,p+1）（3）List1.ListCount
4.程序代码如下：
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及Form2，把Form2设置为启动窗体。
在Form1中设置命令按钮C1，Form2中设置命令按钮C2。
PrivateSubC1_Click（）‘窗体Form1的“隐藏”按钮
Form1.Hide
PrivateSubC2_Click（）‘窗体Form2的“显示”按钮
Form1.Show
6．在窗体上设置三
升级会员 