VB实验教材的实验与习题答案Word格式.docx
- 文档编号:21383120
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:86
- 大小:169.73KB
VB实验教材的实验与习题答案Word格式.docx
《VB实验教材的实验与习题答案Word格式.docx》由会员分享,可在线阅读,更多相关《VB实验教材的实验与习题答案Word格式.docx(86页珍藏版)》请在冰豆网上搜索。
54.
55.
56.
57.
58.
59.
60.
61.
第三章实验与习题
实验
实验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.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)
‘逻辑运算
PrivateSubCommand3_Click()
DimxAsInteger,yAsInteger
DimC1AsInteger,C2AsInteger,C3AsInteger
C1=70:
C2=80:
C3=90
x=9:
y=-2
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
实验3_2
略
实验3_3
实验3_4
‘零售结算
DimdjAsSingle,slAsSingle,jeAsSingle,nAsInteger
Label1.Caption="
金额:
"
dj=InputBox("
请输入商品的单价:
"
单价框"
)
sl=InputBox("
请输入商品的数量:
数量框"
1)
je=dj*sl
n=MsgBox("
共计金额="
&
je,vbOKCancel+vbInformation,"
结果"
Ifn=vbOKThenLabel1.Caption="
Str(je)&
"
元"
‘产生随机数
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)
‘求逆序数
DimaAsInteger,hAsInteger,tAsInteger,nAsInteger
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"
实验3_5
选择题
1-20:
DBBDBDDBCADDDCDDBADB
21-40:
DCDAAB_ACABCADAB_BCD
41-60:
BCBDCCADBACBDDDABAAA
61-80:
BBCABBDAAACBBDDCBDAD
81-89:
CBDBBBADC
填空题
1、2-32768~32767
2、整型长整型单精度双精度
3、0False“”
4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))
x>
0Andy>
0Orx<
0Andy<
c>
=”a”Andc<
=”z”Orc>
=”A”Andc<
=”Z”
=10Andx<
20
x<
zXory<
z
5、False
2
True
False
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)
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
第四章选择分支与循环
实验答案
实验4-1
方法一:
=5;
y
方法二:
Is<
=2
;
CaseElse
实验4-2
Shape1.BackColor=vbRed;
Inter=15;
Inter=Inter-1;
Inter;
实验4-3
b<
c
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;
Mid(Char,I,1)&
St
实验4-12
i\100;
(iMod100)\10
一、选择题
1.C2.C3.A4.D5.A6.B7.B8.D9.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
max<
a(i,j)
row=I
col=j
5_5
1
ReDimPreserveprime(m)
prime(j)
5_6
dMod2
5_7
ExitFor
a(j+1)=a(j)
5_8
N–I
A(j)=A(j+1)
5_9
A(i,1)
J
Min=Max
NotFlag
5_10
ch>
0"
Andch<
9"
P=P&
ch
ReDimPreserveC(k)
5_11
PrivateSubForm_Click()
DimxAsInteger,iAsInteger,kAsInteger,jAsInteger
Dima()AsInteger
x=InputBox("
输入正整数x="
i=2
Printx;
的质因子为:
DoWhilex>
=i
IfxModi=0Then
k=k+1
ReDimPreservea(k)
a(k)=i
x=x\i
Else
i=i+1
EndIf
Loop
Forj=1ToUBound(a)
Printa(j);
Nextj
一选择题
1.A
2.C
3.D
4.C
5.B
6.D
7.D
8.B
9.D
10.B
11.B
12.D
二填空题
1.Variant
2.ReDimA(N)
A
(1)
IfM<
A(I)ThenM=A(I)
3.Int(26*Rnd)+65
Chr(t)
i+1To10
A(i)>
A(j)
4.InStr(s,"
"
Right(s,Len(s)-n)
5.456
654
321
6.T–1
I+1
7.k=6-i–j
max=m
8.j=a
j=j-3
9.i+1
10.2
3
7
三编程题
1.
OptionExplicit
OptionBase1
Dima(10)AsInteger
DimiAsInteger,maxAsInteger
Fori=1To10
a(i)=Int(90*Rnd)+10
Printa(i);
Nexti
i=1
max=0
DoWhilei<
=10
Ifa(i)Mod3=0Then
Ifa(i)>
maxThen
max=a(i)
Ifmax=0Then
Print"
无要找的数"
Printmax&
是最大的能被3整除的数"
2.
DimA()AsInteger
DimIAsInteger,mAsInteger
DimKAsInteger
ReDimA(10)
ForI=1To10
A(I)=I
PrintA(I);
NextI
m=InputBox("
Ê
ä
È
ë
m"
K=9+m
ReDimPreserveA(K)
ForI=11ToK
A(I)=A(I-10)
A(I)=A(I+m-1)
3.
DimIAsInteger,JAsInteger,KAsInteger
Dima()AsInteger,nAsInteger,pAsInteger
DimsAsString,FlagAsBoolean
p=1
ForK=10To100
I=1
DoWhileI<
=10AndNotFlag
J=1
DoWhileJ<
n=I^2+J^2
Ifn=KThen
Flag=True
ReDimPreservea(p)
a(p)=K
p=p+1
s=I&
Str(J)&
Str(K)
List1.AddItems
J=J+1
I=I+1
Flag=False
NextK
4.
DimA(10)AsInteger
DimB(10)AsInteger,SAsString
DimIAsInteger,JAsInteger,XAsInteger
A
(1)=Int(90*Rnd)+10
S=A
(1)
ForI=2To10
Do
X=Int(90*Rnd)+10
ForJ=1ToI-1
IfX=A(J)ThenExitFor
NextJ
IfJ=IThen
A(I)=X
S=S&
A(I)
ExitDo
Text1.Text=S
B
(1)=Int(90*Rnd)+10
S=B
(1)
IfX=B(J)ThenExitFor
B(I)=X
B(I)
Text2.Text=S
S="
ForJ=1To10
IfA(I)=B(J)Then
Text3.Text=S
Text1.Text="
Text2.Text="
Text3.Text="
Text1.SetFocus
5.
DimIAsInteger,JAsInteger
Dima()AsInteger,KAsInteger,SumAsInteger
K=Val(Text1.Text)
J=KMod10
ReDimPreservea(I)
a(I)=J
Sum=Sum+J
K=K\10
LoopUntilK=0
Text2.Text=Sum
6.
Dima(100,2)AsInteger,KAsInteger
DimIAsInteger,JAsInteger
DimMAsInteger,NAsInteger
K=1
ForI=1To99
ForJ=1To99
IfI>
JThen
M=I-J
N=I+J
IfSqr(M)=Int(Sqr(M))AndSqr(N)=Int(Sqr(N))Then
List1.AddItemI&
J
a(K,1)=I
a(K,2)=J
K=K+1
NextI
第六章参考答案
实验6-1
1、ExitDo
2、Y(X)
3、X>
=-1
实验6-2
【题目二】42、26、8
实验6-3
1、s1,key
2、sAsString
3、ch>
a"
z"
4、Mid(s,i,1)=Chr(Asc(ch)+k-26)
思考:
解密函数
PrivateSubdec(sAsString,kAsInteger)'
解密过程
DimiAsInteger,chAsString*1
Fori=1ToLen(s)
ch=Mid(s,i,1)
If"
A"
=chAndch<
Z"
Then
IfAsc(ch)-k<
Asc("
)Then
Mid(s
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 教材 习题 答案