VB程序设计学习与实验指导书答案包含实验答案.docx
《VB程序设计学习与实验指导书答案包含实验答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计学习与实验指导书答案包含实验答案.docx（28页珍藏版）》请在冰豆网上搜索。
VB程序设计学习与实验指导书答案包含实验答案
VB学习与实验指导测试题
参考答案
第一章
一、选择题
1
A
2
B
3
D
4
D
5
B
6
B
7
C
8
A
9
C
10
A
11
A
12
C
13
C
14
D
15
C
16
A
17
B
18
D
二、填空题
1
事件
2
对象按钮
3
工程
4
视图属性窗口
5
窗体编辑器
第二章
一、选择题
1
A
2
C
3
C
4
D
5
C
6
D
7
A
二、填空题
1
类
2
事件
3
4
5
6
Name（名称）
第三章
一、选择题
1
A
2
A
3
CD
4
C
5
A
6
C
7
C
8
A
9
D
10
D
11
C
12
C
13
A
14
D
15
D
16
A
17
C
18
B
19
B
20
D
21
B
22
D
23
A
24
B
25
C
26
C
27
B
28
D
29
B
二、填空题
1
（a*sin（30*3.14/180）+c*log（b））/（（abs（d）+1）*（e+f））+1
2
mod
3
x*y>0andx=fix（x）andy=fix（y）
4
ymod4=0andymod100<>0orymod400=0
5
int（rnd*90）+10
6
0“”
7
空格
8
6,845.30
9
（1）
8
（2）
1
（3）
abcd
（4）
出错（类型不匹配）
（5）
false
（6）
29/06/2008
（7）
IlikeVB
（8）
4
（9）
44
（10）
34
（11）
10-10
（12）
-1
（13）
aa
（14）
3
（15）
0
（16）
1
（17）
C
（18）
5
（19）
4
（20）
34.54
（21）
中国
（22）
上海
（23）
VISUALBASIC
（24）
visualbasic
10
（1）
x<-100orx>100
（2）
a=int（a）andb=int（b）anda*b>0
（3）
x<=yorx>=z
（4）
a>0andfix（a）<>a
（5）
a=0Xorb=0
（6）
len（s）<10
（7）
UCase（s）=s
（8）
Left（s,1）="a"AndRight（s,1）="a"
（9）
instr（s,"a"）<>0
（10）
Trim（s）=s
（11）
Date（）=#8/8/2008#
（12）
Weekday（date）=2
第四章
一、简单填空
1
Randomize
2
N=int（rnd*90）+10
3
M=（int（rnd*91）+10）/10
4
Exitfor
5
Exitdo
二、读程序写结果
1
15012
2
2223-1
3
530
4
204060
三、程序填空
1
Len（s）
Mid（s,I,1）
c>=”A”andc<=”Z”
c>=”a”andc<=”z”
c>=”0”andc<=”9”
2
1
2
n\2
nmodi=0
sum+i
n=sum
3
1000
Cstr（n）
Cstr（m）
Right（s2,len（s1））=s1
4
100
200
2
n-1
exitfor
count+1
coundmod5=0
print
5
Sum=1
A*x*x/（（2*n-1）*（2*n））
Sum+a
Abs（a）<=1e-7
第五章
一、选择题
1
B
2
C
3
C
4
A
5
C
6
A
7
D
8
B
9
C
10
A
11
B
12
D
13
A
二、读程序写结果
1
12036
2
10317
3
261426
三、程序填空
1
A（I,j）;
Picture1.print
A（I,1）
1
A（I,j）
J
“第”&I&“行最大数是”&maxdata&“,第”maxj&“列”
2
Text1.text&a（i）
K
Preserveb（k）
B（k）=a（i）
3
Sqr（n-m）=int（sqr（n-m））
Redimpreserveb（k）
N
A（m）&b（m）
4
Int（rnd*51）+50
1
B（i）+1
第六章
一、判断题
1
√
2
√
3
×
4
×
5
√
6
√
7
√
8
√
9
√
10
√
11
×
12
√
13
√
14
×
15
√
16
√
17
√
18
√
19
√
20
√
二、选择题
1
A
2
C
3
A
4
A
5
A
6
D
7
B
8
A
四、读程序写结果
1
x=2y=2
m=2
2
9
459
27
3
50
26
4
5
645
5
714
1122
1530
6
29
29
3
7
12
25
第七章
一、选择题
1
B
2
B
3
D
4
C
5
B
6
D
7
A
8
D
9
B
10
B
11
C
12
A
13
B
14
C
15
D
16
C
17
A
18
A
19
B
20
C
21
B
22
C
23
B
24
B
25
B
二、简单填空
1
LargeChange
2
Timer.Enabled=False
3
AddItem
4
格式
5
Picture
6
Enabled
7
Load
8
SetFocus
9
MultiLine
10
ms
三、程序填空
1
Inputbox
Timer1_timer
Text2.text
Label3.caption=””
2
Form_load
List1_dblclick
List1.listindex
List2_dblclick
List2.listindex
3
（3）
Text
List1.text
Removeitem10-2*i-1
第八章
一、选择题
1
D
2
B
3
C
4
5
C
二、简单填空
1
popupmenu
2
3
visible
4
连接符-
5
第九章
一、选择题
1
C
2
C
3
B
4
B
5
B
6
B
7
C
8
B
二、简单填空
1
Eof
2
记录字节
3
大小
4
复制
5
Drive
三、程序填空
1
Forinput
Dountileof
（1）
Lineinput#1,data
2
Inputas#1
#1,str
Close#1
综合测试题一
一、选择题
1
A
2
C
3
D
4
B
5
D
6
A
7
A
8
C
9
A
10
C
二、填空
1
Int（x）=xandint（y）=yandx*y<0
2
YAW
oureelcome
3
5
15
151
4
11
19
13
5
4
12
19
6
n
nn
onn
7
untilabs（t）<=eps
（-1）^n
t*x*x/n
8
K=1
c（k）=p
P=””
List1.additemc（i）
9
（Byvalaasinteger）asboolean
i>int（a/2）
judge（p）
10
False
Text1.text=text1.text&“（“&m&“,”&n&”）”&vbcrlf
M=k
Nmodi=0
综合测试题二
一、选择题
1
A
2
B
3
C
4
A
5
C
6
C
7
C
8
B
9
C
10
A
二、填空
1
（Int（51*rnd）+100）/100
2
23456
678
10
3
W
WW
8
4
23
37
4412
5
GCD（21,3）=3
GCD（45,24）=3
6
47
23
11
7
Instr（s,”,”）
Mid（s,n+1）
A（3）=val（s）
8
m+val（mid（cstr（n）,i,1））
m
andtotal（p2）mod6=0
“（“&p1&“,”&p2&“）”
9
（a,t1,t2）
m=a（i,1）
a（I,j）>mthenm=a（I,j）
s=small
（1）:
m=large
（1）
10
Calleu（n+2,f2）
WhleiNmodj=0andimodj=0
P=p+1
下篇实验教程
实验2VisualBasic变量、函数与表达式的使用
实验2-1算术运算符的使用
13
17
8
3
3
2
2
6
2
-2
-2
0
2007-10-15
32.2.286
实验2-2字符运算符的使用
2017
2007-10-1010
2007-10-20
出错，类型不匹配
实验2-3关系运算符的使用
False
False
False
False
False
False
False
True
False
True
实验2-4逻辑运算符的使用
True
True
False
True
False
False
True
True
False
5
-5
9
实验2-5常用函数的使用
3.143.14
7.065
1-1.5103
4
-110
.
58
2525
12500
Aa
6597
4868
8-9
8-8
9-9
aaa4.5aaa4.5
165
Visua6.0
suaBasicBasic6.0
abcdeEFG
BasicBasicBasic
VisualBasic6.0Basic
88
aaadd
2011-3-15
2011-3-1514:
35:
52
15
3
2011
3
001.73
1.73
1.73
17.32E-01
0173%
实验3算法基础及程序控制结构
实验3-1三个数的交换
A=C
C=B
B=T
B
C
实验3-2求周长和面积
ConstPI=3.
2*PI*R
PI*R*R
Picture1.Cls
Format（L,".00"）
Format（M,".00"）
实验3-3求分段函数的值
x=Val（Text1.Text）
y=1+Sin（x）
y=Log（x）
Text1.Text=""
Text2.Text=""
实验3-4求一元二次方程的根
Val（Text2.Text）
Val（Text3.Text）
b^2-4*a*c
"x1="&（-b+Sqr（delt））/（2*a）
"x2="&（-b-Sqr（delt））/（2*a）
Text2.Text=""
Text3.Text=""
End
实验3-5判断素数
NModk=0
k=N
NModi=0
k=2
实验3-6求最大公约数和最小公倍数
ML=M
L=N
MModk=0AndNModk=0
Text3.Text=k
ExitFor
M>N
L=M
L=N
kModM=0AndkModN=0
Text4.Text=k
ExitFor
实验3-7判断升序数、降序数
CStr（N）
Len（S）–1
Mid（S,k,1）>=Mid（S,k+1,1）
k=Len（S）
N=Val（Text1.Text）
S=CStr（N）
Fork=1ToLen（S）-1
IfMid（S,k,1）<=Mid（S,k+1,1）ThenExitFor
Nextk
k=Len（S）
实验3-8判断回文数
1
Len（s）\2-1
Mid（S,k,1）<>Mid（S,Len（S）-k+1,1）
k=Len（S）\2
Mid（S,k,1）+S1
S=S1
实验3-9求级数的值
Val（Text1.Text）
0
1
x^n
s*n
t/s<=10^-6
Text2.Text=y
实验3-10查找数字串并求和
Text1.Text=""
Text2.Text=""
List1.Clear
Text1.Text
0
False
0
WhileMid（s,i,1）>="0"AndMid（s,i,1）<="9"
Flag=True
k=k*10+Mid（s,i,1）
i=i+1
Flag=True
sum+k
Text2.Text=sum
实验3-11随机产生20个奇数
Int（（99-10+1）*Rnd）+10
aMod2=1
nMod5=0
Picture1.Cls
实验3-12加密解密
Chr（Asc（"a"）+（Asc（c）-Asc（"a"）+3）Mod26）
c=Chr（Asc（"A"）+（Asc（c）-Asc（"A"）+3）Mod26）
c&s2
Text2.Text
Len（s2）
Mid（s2,i,1）
c=Chr（Asc（"a"）+（Asc（c）-Asc（"a"）+23）Mod26）
c=Chr（Asc（"A"）+（Asc（c）-Asc（"A"）+23）Mod26）
c&s1
s1
Text1.Text=""
Text2.Text=""
实验3-13统计单词个数
Text1.Text
0
Mid（s,i,1）<>""Andi<=Len（s）
i=i+1
Mid（s,start,i-start）
n
Text1.Text=""
List1.Clear
实验4数组的使用
实验4-1一维数组的产生及输出
i=1To20
Int（（9-0+1）*Rnd+0）
i=1To20
Printa（i）;
Print
i=1To20
Picture1.Printa（i）;
IfiMod5=0ThenPicture1.Print
i=1To20
Text1.Text&Space
（2）&a（i）
IfiMod5=0ThenText1.Text=Text1.Text&vbCrLf
vIna
IfiMod5=0ThenPicture2.Print
实验4-2选手得分
Int（（50-10+1）*Rnd+10）/10
i=1To6
sum=sum+score（i）
max=score
（1）
min=score
（1）
score（i）>maxThenmax=score（i）
score（i）（sum-max-min）/4
实验4-3产生10个互不相同的整数
Int（（999-10+1）*Rnd+10）
tMod10=5
ThenExitFor
n=n+1
a（i）=t
Fori=1To10
Printa（i）;
IfiMod5=0ThenPrint
Nexti
实验4-4统计数字出现的次数
IsNumeric（S）=False
ExitSub
Len（S）
c>="0"Andc<="9"
A（c）=A（c）+1
A（k）<>0
m=m+1
实验4-5排序
1To10
Int（（99-10+1）*Rnd+10）
Text1.Text&A（n）&""
1To9
i+1To10
A（i）>A（j）
T=A（j）
A（j）=A（i）
A（i）=T
1To9
10-i
A（j）>A（j+1）
T=A（j+1）
A（j+1）=A（j）
A（j）=T
1To10
Text3.Text=Text3.Text&A（i）&""
10
T=A（i）
0
j
i-1
k+1
1To10
Text4.Text=Text4.Text&A（i）&""
实验4-6二维数组的产生及输出
1To4
1To5
Int（（9-0+1）*Rnd+0）
1To4
1To5
PrintA（i,j）;
Print
1To4
1To5
Picture1.PrintA（i,j）;
Picture1.Print
1To4
1To5
Text1.Text=Text1.Text&A（i,j）&""
Text1.Text=Text1.Text&vbCrLf
实验4-6查找最大和最小元素及其位置
1To3
1To4
A（i,j）=Int（（99-10+1）*Rnd+10）
Picture1.PrintA（i,j）;
Picture1.Print
A（1,1），1，1
A（1,1），1，1
A（i,j）
i
j
A（i,j）A（i,j）
i
j
"最大元素"&"A（"&maxi&","&maxj&"）="&max
"最小元素"&"A（"&mini&","&minj&"）="&min
实验4-7矩阵转置
DimA（）AsInteger
"请输入N的值"
ReDimA（N,N）AsInteger
Fori=1ToN
Forj=1ToN
A（i,j）=Int（（99-10+1）*Rnd+10）
Text1.Text=Text1.Text&A（i,j）&""
Nextj
Text1.Text=Text1.Text&vbCrLf
Nexti
t=A（i,j）
A（i,j）=A（j,i）
A（j,i）=t
Fori=1ToN
Forj=1ToN
Text2.Text=Text2.Text&A（i,j）&""
Nextj
Text2.Text=Text2.Text&vbCrLf
Nexti
实验5过程
实验5-1孪生素数和降序素数
DimiAsInteger
Fori=2ToN-1
IfNModi=0ThenExitFunction
Nexti
Prime=True
DimaAsInteger
DimbAsInteger
a=N\10
b=NMod10
Ifa>bThen
DecNumber=True
Else
DecNumber=False
EndIf
10To100
Prime（i）=TrueAndPrime（i+2）=True
List2.AddItemi&"和"&i+2
DecNumber（i）=TrueAndPrime（i）=True
List3.AddItemi
实验5-2求多项式和
k=1
a=f（x,k）
S+a
k=k+1
SingleAsSingle
DimiAsInteger,aAsSingle
a=（x+1）/x
Fori=2Tok
a=a*（x+i）/（（2*i-1）*x）
Nexti
a
实验5-3进制转换
Asc（C）-Asc（"A"）+10
Left（S,k-1）
Mid（S,k+1）
Change（Mid（S2,i,1））*N^（0-i）
T1+T2
Tran（8,S）
Tran（16,S）
Not（C>="0"AndC<="7"OrC>="A"AndC<="F"OrC="."）
实验5-4Armstrong数
iAsLong,aAsLong,bAsLong
Combo1.Text
实验5-5
OptionBase1
Dima（5）AsInteger
Dimb（5）AsInteger
b（i）=i*i+1
Text2.Text=Text2.Text&b（i）&""
1To5
1To5
Gcd（a（i）,b
升级会员 