《VB语言程序设计》习题答案Word格式文档下载.docx
- 文档编号:831695
- 上传时间:2023-04-29
- 格式:DOCX
- 页数:31
- 大小:26.25KB
《VB语言程序设计》习题答案Word格式文档下载.docx
《《VB语言程序设计》习题答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《《VB语言程序设计》习题答案Word格式文档下载.docx(31页珍藏版)》请在冰点文库上搜索。
4."
系统管理数据库"
1~3题:
按要求完成操作练习。
4.PrivateSubCommand1_Click()'
"
最大化"
按钮
Form1.WindowState=2'
最大化
PrivateSubCommand2_Click()'
还原"
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.C2.B3.D4.D5.B6.C
7.B8.D9.D10.A11.A12.C
13.C14.B15.
(1)A
(2)C16.A17.B
18.
(1)D
(2)B(3)C19.D
1.AC2.AC3.ABCF
1.$000,1242.Label1.Caption="
a*b="
3.Height,Width
4.25.Text1.SetFocus
6.Multiline,ScrollBars,27.编程技术,程序设计
8.PrivateSubText2_Change()´
当文本框Text2中的文本内容发生变动时,执行该事件过程
Label1.Caption=Text1.Text´
把文本框Text1中的文本内容作为标签Label1的标题
PrivateSubText1_GotFocus()´
当文本框Text1获得焦点时,执行该事件过程
Text1.SelStart=0´
选定文本框Text1中的所有文本内容
Text1.SelLength=Len(Text1.Text)
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(“合并”)。
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
PrivateSubCommand2_Click()'
往右
Text1.Left=Form1.Width-Text1.Width
PrivateSubCommand3_Click()'
居中
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.C2.A3.C4.C5.B6.A
7.D8.B9.B10.
(1)D
(2)A(3)B
1.ABCFGHJ2.BE3.CD4.CDE5.AE
1.(SAnd(A>
=18AndA<
=20)AndH>
=1.65)Or(NotSAnd(A>
=16AndAge<
=18)AndH>
=1.60)
2.600003.
(1)"
0"
To"
9"
(2)"
a"
z"
"
A"
Z"
(3)Else
4.
(1)6
(2)-2(3)2
5.SelectCasexCaseIs<
20
CaseIs<
=0y=2
y=4CaseIs<
=30
10y=3
y=0CaseElse
15y=4
y=1EndSelect
6.
(1)(x>
100)And(xMod5=0)
(2)0
(3)Len(Text1.Text)(4)Text1.SelText
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"
s=LCase(s)
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="
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.A2.B3.
(1)C,
(2)B4.B5.C6.A
7.
(1)B,
(2)C,(3)B8.B9.B10.B
二、填空题
1.
(1)4次,n=13
(2)3次,n=8(3)3次,n=27(4)3次,n=10(5)1次,n=12
2.
(1)Len(s)
(2)Mid(s,k,1)(3)c+t(4)Text2.Text
3.
(1)t=1
(2)n=n+1(3)t=t*2
4.05.Text6.下拉列表框7.AddItem,RemoveItem或Clear
8.
(1)ItemA
(2)ItemD(3)ItemD(4)ItemA
9.
(1)Mid(x,p+3)
(2)p+4(3)InStr(p,x,"
123"
1.和数为:
1.21。
s=0
Fork=1To100
s=s+1/(1+k*4)
Nextk
Prints
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.程序代码如下:
Show
n=Val(InputBox("
正整数n="
))
Fori=1Ton
Forj=i+1Ton
Fork=j+1Ton
Ifi*i+j*j=k*kThen
Print"
("
i;
"
j;
k;
)"
Nextk
Nextj
Nexti
5.在窗体上建立一个列表框List1和一个“显示表项”命令按钮Command1。
PrivateSubCommand1_click()'
显示表项"
按钮单击事件
FontSize=12
Fori=0ToList1.ListCount-1'
逐项判断
IfList1.Selected(i)Then'
真时为选中
PrintList1.List(i)
Nexti
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.D2.A3.
(1)B,
(2)B4.C5.C6.A
7.
(1)C
(2)B(3)A(4)B(5)D
1.AD2.CD
1.二,12;
1,3;
-1,22.0123
2222
2101
4444
3.Name,Index
4.
(1)0ToIndex
(2)Val(Text1(k).Text)
5.
(1)i+1Tok
(2)s(i)<
s(j)(3)s(i)<
>
s(i-1)(4)h=h+1
6.
(1)ReDima(1Ton+1)
(2)a(K+1)=a(K)(3)a(p)
1.程序代码如下:
Dima(100)AsSingle
n=Val(InputBox("
输入个数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
处理的结果:
Printa(k);
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
t=a(1,i):
a(1,i)=a(6,i):
a(6,i)=t
Print:
Printa(i,j);
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)<
0Then
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB语言程序设计 VB 语言程序设计 习题 答案