VB程序设计学习与实验指导书答案包含实验答案Word文档格式.docx
《VB程序设计学习与实验指导书答案包含实验答案Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB程序设计学习与实验指导书答案包含实验答案Word文档格式.docx（26页珍藏版）》请在冰豆网上搜索。
（3）
abcd
（4）
出错（类型不匹配）
（5）
false
（6）
29/06/2008
（7）
IlikeVB
（8）
（9）
44
（10）
34
（11）
10-10
（12）
-1
（13）
aa
（14）
（15）
（16）
（17）
（18）
（19）
（20）
34.54
（21）
中国
（22）
上海
（23）
VISUALBASIC
（24）
visualbasic
x<
-100orx>
100
a=int（a）andb=int（b）anda*b>
=yorx>
=z
a>
0andfix（a）<
a
a=0Xorb=0
len（s）<
UCase（s）=s
Left（s,1）="
a"
AndRight（s,1）="
instr（s,"
）<
Trim（s）=s
Date（）=#8/8/2008#
Weekday（date）=2
第四章
一、简单填空
Randomize
N=int（rnd*90）+10
M=（int（rnd*91）+10）/10
Exitfor
Exitdo
二、读程序写结果
15012
2223-1
530
204060
三、程序填空
Len（s）
Mid（s,I,1）
c>
=”A”andc<
=”Z”
=”a”andc<
=”z”
=”0”andc<
=”9”
n\2
nmodi=0
sum+i
n=sum
1000
Cstr（n）
Cstr（m）
Right（s2,len（s1））=s1
200
n-1
exitfor
count+1
coundmod5=0
print
Sum=1
A*x*x/（（2*n-1）*（2*n））
Sum+a
Abs（a）<
=1e-7
第五章
12036
10317
261426
A（I,j）;
Picture1.print
A（I,1）
A（I,j）
J
“第”&
I&
“行最大数是”&
maxdata&
“,第”maxj&
“列”
Text1.text&
a（i）
K
Preserveb（k）
B（k）=a（i）
Sqr（n-m）=int（sqr（n-m））
Redimpreserveb（k）
N
A（m）&
b（m）
Int（rnd*51）+50
B（i）+1
第六章
一、判断题
√
×
二、选择题
四、读程序写结果
x=2y=2
m=2
459
50
645
714
1122
1530
第七章
二、简单填空
LargeChange
Timer.Enabled=False
AddItem
格式
Picture
Enabled
Load
SetFocus
MultiLine
ms
Inputbox
Timer1_timer
Text2.text
Label3.caption=””
Form_load
List1_dblclick
List1.listindex
List2_dblclick
List2.listindex
Text
List1.text
Removeitem10-2*i-1
第八章
popupmenu
visible
连接符-
第九章
Eof
记录字节
大小
复制
Drive
Forinput
Dountileof
（1）
Lineinput#1,data
Inputas#1
#1,str
Close#1
综合测试题一
A
二、填空
Int（x）=xandint（y）=yandx*y<
YAW
oureelcome
151
n
nn
onn
untilabs（t）<
=eps
（-1）^n
t*x*x/n
K=1
c（k）=p
P=””
List1.additemc（i）
（Byvalaasinteger）asboolean
i>
int（a/2）
judge（p）
False
Text1.text=text1.text&
“（“&
m&
“,”&
n&
”）”&
vbcrlf
M=k
Nmodi=0
综合测试题二
（Int（51*rnd）+100）/100
23456
678
W
WW
23
37
4412
GCD（21,3）=3
GCD（45,24）=3
47
Instr（s,”,”）
Mid（s,n+1）
A（3）=val（s）
m+val（mid（cstr（n）,i,1））
m
andtotal（p2）mod6=0
“（“&
p1&
p2&
“）”
（a,t1,t2）
m=a（i,1）
a（I,j）>
mthenm=a（I,j）
s=small
（1）:
m=large
（1）
Calleu（n+2,f2）
Whlei<
Nmodj=0andimodj=0
P=p+1
下篇实验教程
实验2VisualBasic变量、函数与表达式的使用
实验2-1算术运算符的使用
-2
2007-10-15
32.8571432.85714285714286
实验2-2字符运算符的使用
200710
2017
2007-10-1010
2007-10-20
出错，类型不匹配
实验2-3关系运算符的使用
True
实验2-4逻辑运算符的使用
-5
实验2-5常用函数的使用
3.143.14
7.38905609893065
1-1.999999998205103
-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
2011
001.73
1.73
17.32E-01
0173%
实验3算法基础及程序控制结构
实验3-1三个数的交换
A=C
C=B
B=T
实验3-2求周长和面积
ConstPI=3.1415926
2*PI*R
PI*R*R
Picture1.Cls
Format（L,"
.00"
）
Format（M,"
实验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）
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>
kModM=0AndkModN=0
Text4.Text=k
实验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
实验3-8判断回文数
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）
x^n
s*n
t/s<
=10^-6
Text2.Text=y
实验3-10查找数字串并求和
List1.Clear
Text1.Text
WhileMid（s,i,1）>
="
0"
AndMid（s,i,1）<
9"
Flag=True
k=k*10+Mid（s,i,1）
i=i+1
sum+k
Text2.Text=sum
实验3-11随机产生20个奇数
Int（（99-10+1）*Rnd）+10
aMod2=1
nMod5=0
实验3-12加密解密
Chr（Asc（"
）+（Asc（c）-Asc（"
）+3）Mod26）
c=Chr（Asc（"
A"
c&
s2
Text2.Text
Len（s2）
Mid（s2,i,1）
）+23）Mod26）
s1
s1
实验3-13统计单词个数
Mid（s,i,1）<
"
Andi<
=Len（s）
Mid（s,start,i-start）
实验4数组的使用
实验4-1一维数组的产生及输出
i=1To20
Int（（9-0+1）*Rnd+0）
Printa（i）;
Print
Picture1.Printa（i）;
IfiMod5=0ThenPicture1.Print
Text1.Text&
Space
（2）&
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）<
minThenmin=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
IfiMod5=0ThenPrint
Nexti
实验4-4统计数字出现的次数
IsNumeric（S）=False
ExitSub
Len（S）
c>
Andc<
A（c）=A（c）+1
A（k）<
0
m=m+1
实验4-5排序
1To10
Int（（99-10+1）*Rnd+10）
A（n）&
1To9
i+1To10
A（i）>
A（j）
T=A（j）
A（j）=A（i）
A（i）=T
10-i
A（j）>
A（j+1）
T=A（j+1）
A（j+1）=A（j）
A（j）=T
Text3.Text=Text3.Text&
A（i）&
T=A（i）
j
i-1
k+1
Text4.Text=Text4.Text&
实验4-6二维数组的产生及输出
1To4
1To5
PrintA（i,j）;
Picture1.PrintA（i,j）;
Picture1.Print
Text1.Text=Text1.Text&
A（i,j）&
实验4-6查找最大和最小元素及其位置
1To3
A（i,j）=Int（（99-10+1）*Rnd+10）
A（1,1），1，1
A（i,j）
i
A（i,j）<
min
最大元素"
A（"
maxi&
"
maxj&
）="
max
最小元素"
mini&
minj&
实验4-7矩阵转置
DimA（）AsInteger
请输入N的值"
ReDimA（N,N）AsInteger
Fori=1ToN
Forj=1ToN
Nextj
t=A（i,j）
A（i,j）=A（j,i）
A（j,i）=t
Text2.Text=Text2.Text&
实验5过程
实验5-1孪生素数和降序素数
DimiAsInteger
Fori=2ToN-1
IfNModi=0ThenExitFunction
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）
实验5-3进制转换
Asc（C）-Asc（"
）+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>
AndC<
7"
OrC>
F"
OrC="
."
实验5-4Armstrong数
iAsLong,aAsLong,bAsLong
Combo1.Text
实验5-5
OptionBase1
Dima（5）AsInteger
Dimb（5）AsInteger
b（i）=i*i+1
升级会员 