《Visual Basic程序设计教程第2版》课后部分编程题参考答案Word文档格式.docx
- 文档编号:5827761
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:26
- 大小:21.29KB
《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);
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计教程第2版 Visual Basic程序设计教程第2版课后部分编程题参考答案 Visual Basic 程序设计 教程 课后 部分 编程 参考答案