vb程序设计学习与实验指导书答案包含实验答案 1.docx
《vb程序设计学习与实验指导书答案包含实验答案 1.docx》由会员分享,可在线阅读,更多相关《vb程序设计学习与实验指导书答案包含实验答案 1.docx(28页珍藏版)》请在冰豆网上搜索。
vb程序设计学习与实验指导书答案包含实验答案1
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
XX文库-让每个人平等地提升自我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.8571432.85714285714286
实验2-2字符运算符的使用
200710
200710
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.38905609893065
1-1.999999998205103
4
-110
.7055475
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.1415926
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
OptionBase