VB程序设计学习与实验指导书答案包含实验答案Word文档格式.docx
- 文档编号:19443605
- 上传时间:2023-01-06
- 格式:DOCX
- 页数:26
- 大小:21.62KB
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
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);
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 学习 实验 指导书 答案 包含
![提示](https://static.bdocx.com/images/bang_tan.gif)