VB程序设计学习与实验指导答案文档格式.docx
- 文档编号:19831230
- 上传时间:2023-01-10
- 格式:DOCX
- 页数:21
- 大小:19.73KB
VB程序设计学习与实验指导答案文档格式.docx
《VB程序设计学习与实验指导答案文档格式.docx》由会员分享,可在线阅读,更多相关《VB程序设计学习与实验指导答案文档格式.docx(21页珍藏版)》请在冰豆网上搜索。
0OrYMod400=0
5.x=Int((99-10+1)*Rnd+10)
6.0“”
7.空格
8.6,845.30
9.
(1)8
(2)1
(3)abcd
(4)出错,类型不匹配
(5)False
(6)2008-6-29
(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)8
(20)34.54
(21)中国
(22)上海
(23)VISUALBASIC
(24)visualbasic
10.
(1)x<
-100orx>
100
(2)a=Int(a)Andb=Int(b)Ora<
0Andb<
(3)x<
=yorx>
=z
(4)a>
0Anda<
Int(a)
(5)a=0xorb=0
(6)Len(S)<
(7)UCase(S)=S
(8)Left(S,1)=”a”AndRight(S,1)=”a”
(9)Instr(S,”@”)<
(10)Trim(S)=S
(11)Date=#8/8/2008#
(12)Weekday(Date)=2
第4章程序控制结构与算法基础
一.简单填空
1.Randomize
2.N=Int((99-10+1)*Rnd+10)
3.M=(Int((100-10+1)*Rnd+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”
=”a”Andc<
=”z”
=”0”Andc<
=”9”
n3=n3+1
2.0
1n-1
nModi=0
sum+i
sum=n
3.1000
CStr(n)
CStr(n*n)
Right(s2,Len(s1))=s1
4.100200
2N-1
ExitFor
count+1
countMod5=0Print
5.sum=1
a*x^2/((2*n-1)*(2*n))
sum+a
Abs(a)<
=0.0000001
第5章数组的应用
二.读程序写结果
1.12036
2.10317
3.261426
1.
A(i,j);
Picture1.Print
A(i.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((100-50+1)*Rnd+50)
B(i)+1
第6章过程
一.判断题
T
F
二.选择题
四.读程序写结果
1.x=2,y=2m=2
2.94,5,927
3.5026
4.564,5
5.7,1411,2215,30
6.29293
7.1225
下篇实验教程
实验2VisualBasic变量、函数与表达式的使用
实验2-1算术运算符的使用
-2
2007-10-15
32.8571432.85714285714286
实验2-2字符运算符的使用
200710
2017
2007-10-1010
2007-10-20
出错,类型不匹配
实验2-3关系运算符的使用
False
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<
N
L=M
L=N
MModk=0AndNModk=0
Text3.Text=k
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("
a"
)+(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
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)<
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)
i-1
k+1
Text4.Text=Text4.Text&
实验4-6二维数组的产生及输出
1To4
1To5
PrintA(i,j);
Picture1.PrintA(i,j);
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)
a
实验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
b(i)&
Gcd(a(i),b(j))=1
Gcd=K
实验5-6
Create(a)
Output(a)
Sort(a)
GetMaxMin(a,MaxData,MinData)
MaxData
MinData
Average(a)
1ToUBound(a)
a(i);
a(i)>
a(j)
t=a(j)
a(j)=a(i)
2ToUBound(a)
M
M=a(i)
a(i)<
N
N=a(i)
s=s+a(i)
Average=s/UBound(a)
实验6界面设计
实验6-1用户登陆
MsgBox"
请登录!
PassWordInput=TxtPassW.Text
UserIdInput=UserIdAndPassWordInput=PassWord
CmdReset_Click
实验6-2学籍登记
OptXb(0).Value=True
List1.AddItemSpace(4)&
xh&
Space(6)&
xm&
xb&
Space(12)&
xy&
Space(16)&
zy&
Space(4)
List1.RemoveItemList1.ListIndex
实验6-3字体格式设置
SelectCaseOpFont
Check2.Value=1
OpColor=Index
OpFont=Index
实验6-4兴趣调查
List1.AddItemItem
SelectCaseIndex
Item=Text1.Text
实验6-5调色板
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 学习 实验 指导 答案