VB程序设计学习与实验指导书答案包含实验答案.docx
- 文档编号:23023919
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:28
- 大小:21.56KB
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
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)
Whlei Nmodj=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求最大公约数和最小公倍数 M L=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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 学习 实验 指导书 答案 包含