第一章 VB开发环境与VB概述 习题答案.docx
- 文档编号:3916347
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:99
- 大小:293.73KB
第一章 VB开发环境与VB概述 习题答案.docx
《第一章 VB开发环境与VB概述 习题答案.docx》由会员分享,可在线阅读,更多相关《第一章 VB开发环境与VB概述 习题答案.docx(99页珍藏版)》请在冰点文库上搜索。
第一章VB开发环境与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
x 5、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、PrivateSubCommand1_Click() DimlAsSingle,wAsSingle,hAsSingle DimsAsSingle l=Text1.Text w=Text2.Text h=Text3.Text s=(l*w+l*h+w*h)*2 Label1.Caption=s EndSub 第四章选择分支与循环 实验答案 实验4-1 方法一: x<=5;y 方法二: Is<=2;CaseElse 实验4-2 Shape1.BackColor=vbRed; Inter=15; Inter=Inter-1; Inter; 实验4-3 b b=a a=k 实验4-4 方法二: s*n;t/s<10^-5 实验4-5 方法一: m>=10^-4;(-1)^(n+1)*m 实验4-6 x2=x3;<10^-6 实验4-7 实验4-8 i+2*j+5*k=10;n 实验4-9 题目一: a)5 b)i=16p=12n=5 c)i=9p=8n=1 题目二: 12010 实验4-10 N=1;S=N&"*3"&"+1" 实验4-11 Len(st);Ch=Lcase(ch);CaseElse;St&Mid(Char,I,1) 实验4-12 i\100;(iMod100)\10 习题 一、选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. C C A D A A B D B 二、填空题 1.Is=0;1To10;Is>10 2.9 3.3;415 4.thisisabook;ThisIsABook 5.3;3;35 6.320 7.4 8.151 9.1;401;104 10.123;13;1 11.(3) 12.2024 13.1014 14.BAABCCBAABC 15.XModP=0;X=X+1;Find=False 16.abs(t)<10^(-7);s+t 17.Mid(n,1,1)=Mid(n,2,1)AndMid(n,3,1)=Mid(n,4,1) S=S+1 18.Mid(n,i,1)>Mid(n,i+1,1) 19."输入n";N/I=0;PrintI 第五章数组 实验 5_1 Int(90*Rnd)+10 a(i)=a(21-i) a(21-i)=t 5_2 k=xMod10 i=i+1 5_3 s 5_4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 第一章 VB开发环境与VB概述 习题答案 VB 开发 环境 概述 习题 答案