大学VB实验教材的实验与习题答案.docx
《大学VB实验教材的实验与习题答案.docx》由会员分享，可在线阅读，更多相关《大学VB实验教材的实验与习题答案.docx（86页珍藏版）》请在冰豆网上搜索。
大学VB实验教材的实验与习题答案
第一章VB开发环境与VB概述习题答案
习题
一、选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
B
A
A
B
D
B
A
A
C
B
11.
12.
13.
14.
C
D
A
D
第二章常用控件与界面设计习题答案
习题
一、选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
C
B
C
A
A
B
B
B
C
C
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
B
B
D
A
B
B
B
C
C
D
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
B
B
B
C
C
C
A
B
B
C
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
B
C
B
B
D
B
D
D
B
A
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
B
A
B
B
D
A
A
B
D
C
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
D
D
C
D
D
C
A
C
C
B
61.
B
第三章实验与习题
实验
实验3_1
‘算术运算
PrivateSubCommand1_Click（）
ConstaAsSingle=3,bAsSingle=2,cAsSingle=-1,dAsSingle=6
DimxAsSingle,yAsSingle,zAsSingle,mAsSingle
x=2:
y=1:
z=1:
m=1
List1.Clear
List1.AddItema/（b+c/b）
List1.AddItem（x+Sqr（x^2+1））^（1/3）
List1.AddItem（（2*y）/（a*x+b*y）*（a*x-b*y））
List1.AddItem1+1/（1+1/m）
List1.AddItem1/2*（d/3）^（2*x）
List1.AddItemLog（y+Cos（x）^2）
List1.AddItemAbs（（Exp（x）+Sin（x）^3）/（x+y））
List1.AddItemLog（（Exp（x*y）+Abs（1/Tan（z）+Cos（x）^3））/（x+y-z））
List1.AddItemSin（45*3.1415/180）+（Exp（10）+Log（10））/Sqr（x+y+1）
List1.AddItemLog（a）/Log（b）
EndSub
‘关系运算
PrivateSubCommand2_Click（）
List1.Clear
List1.AddItemMid（"VisualBasic",1,12）=Right（"LanguageVisualBasic",12）
List1.AddItem"ABCRG">="abcde"
List1.AddItemInt（134.69）>=CInt（134.9）
List1.AddItem78.9/32.77<=97.5/43.87And-45.4>-4.98
List1.AddItemStr（32.345）=CStr（32.345）
EndSub
‘逻辑运算
PrivateSubCommand3_Click（）
DimxAsInteger,yAsInteger
DimC1AsInteger,C2AsInteger,C3AsInteger
C1=70:
C2=80:
C3=90
x=9:
y=-2
List1.Clear
List1.AddItemx+y<10Andx-y>0
List1.AddItem（x%>=0Andy%>=0）Or（x%<0Andy%<0）
List1.AddItemx=0Xory=0
List1.AddItemC1+C2+C3>=255OrC1>90AndC2>90AndC3>80
EndSub
实验3_2
略
实验3_3
略
实验3_4
‘零售结算
PrivateSubCommand1_Click（）
DimdjAsSingle,slAsSingle,jeAsSingle,nAsInteger
Label1.Caption="金额：
"
dj=InputBox（"请输入商品的单价：
","单价框"）
sl=InputBox（"请输入商品的数量：
","数量框",1）
je=dj*sl
n=MsgBox（"共计金额="&je,vbOKCancel+vbInformation,"结果"）
Ifn=vbOKThenLabel1.Caption="金额：
"&Str（je）&"元"
EndSub
‘产生随机数
PrivateSubCommand2_Click（）
DimmAsInteger,nAsInteger
Dimx1AsInteger,x2AsInteger,x3AsInteger
m=Val（Text1.Text）:
n=Text2.Text
Randomize
x1=Int（Rnd*（n-m+1）+m）
x2=Int（Rnd*（n-m+1）+m）
x3=Int（Rnd*（n-m+1）+m）
Label4.Caption="结果为：
"&Str（x1）&Str（x2）&Str（x3）
EndSub
‘求逆序数
PrivateSubCommand3_Click（）
DimaAsInteger,hAsInteger,tAsInteger,nAsInteger
Randomize
a=Int（Rnd*（999-100+1）+100）
h=Mid（CStr（a）,1,1）
t=Mid（CStr（a）,2,1）
n=Right（CStr（a）,1）
Label5.Caption=a&"-->"&Format（n*100+t*10+h,"000"）
EndSub
实验3_5
略
习题
选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
D
B
B
D
B
D
D
B
C
A
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
D
D
D
C
D
D
B
A
D
B
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
D
C
D
A
A
B
A
A
C
A
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
B
C
A
D
A
B
B
B
C
D
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
B
C
B
D
C
C
A
D
B
A
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
C
B
D
D
D
A
B
A
A
A
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
B
B
C
A
B
B
D
A
A
A
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
C
B
B
D
D
C
B
D
A
D
81.
82.
83.
84.
85.
86.
87.
88.
89.
C
B
D
B
B
B
A
D
C
填空题
1、2-32768~32767
2、整型长整型单精度双精度
3、0False“”
4、Chr（Int（Rnd*（Asc（“L”）-Asc（“C”））+Asc（“C”）））
x>0Andy>0Orx<0Andy<0
c>=”a”Andc<=”z”Orc>=”A”Andc<=”Z”
x>=10Andx<20
x5、False
2
True
False
True
True
True
True
6、188
200100
68.56
876554
7、a=1b=1
a=2b=1
a=3b=1
a=4b=1
8、YMod4=0AndYMod100<>0OrYMod400=0
9、HeSaid,“Goodmorning”.
10、EDEF
11、（A>0AndA<>Int（A））And（B<0AndB<>Int（B））
12、a+b+c+d
（a+b+c+d）/4
sum
aver
13、（f-2*h）/2
（4*h-f）/2
简答题
1、略
2、PrivateSubForm_Click（）
Constg=9.8
DimV0AsSingle,tAsSingle
DimSAsSingle
V0=InputBox（"请输入V0的值：
"）
t=InputBox（"请输入时间t的值：
"）
S=（1/2）*g*t^2+V0*t
MsgBox（"位移量为：
"&S）
EndSub
3、Priv
升级会员 