VB二级Word格式文档下载.docx
- 文档编号:17980274
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:48
- 大小:31.29KB
VB二级Word格式文档下载.docx
《VB二级Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB二级Word格式文档下载.docx(48页珍藏版)》请在冰豆网上搜索。
今年不是闰年"
。
PublicSubrn()
Constyear=2023
If----1----Then
今年是闰年"
Else
EndSub
FunctionisLeapYear(yAsInteger)AsBoolean
If----2----Or(----3----And----4----)Then
isLeapYear=False
isLeapYear=True
EndFunction
[题3]ComMulti过程是求任意两个正整数的最小公倍数,求最小公倍数的一种方法是先求出两个数的最大公约数,两个数的乘积除以最大公约数的商即为最小公倍数。
PublicSubComMulti()
DimmAsInteger,nAsInteger'
任意两个正整数
DimmultiAsInteger'
最小公倍数
输入两个正整数,要求m与n都必须大于零
Do
m=Val(InputBox("
m="
))
n=Val(InputBox("
n="
LoopWhile------------1----------
multi=---------2-----------
Form1.Printm;
和"
n;
的最小公倍数是:
multi
'
Div函数过程求任意两个正整数m和n的最大公约数
PublicFunctionDiv(mAsInteger,nAsInteger)AsInteger
该函数过程用于求任意两个正整数的最大公约数。
先将两个整数中的较小数假设为最大公约数,再依次往下
寻找能同时除尽m和n的数即为最大公约数
----------3------------
Ifn<
mThen
Div=n
DoWhilemModDiv<
>
0OrnModDiv<
0
-----------4----------
Loop
[题4]find过程是用于从1到10000中找出这样的数,该数各个位的数字的阶乘相加之和等于该数,并将结果输出。
PublicSubfind()
Dimk,a,n,i
DimpAsInteger
Fork=1To10000
a=LTrim(Str(k))
n=0
Fori=----1-----
p=Val(Mid(a,i,1))
n=-----2----
Ifn=kThenform1.Printk
Nextk
Functionfact(xAsInteger)AsLong
该函数用于计算阶乘
DimyAsLong
Dimi%
y=1
Fori%=1Tox
y=y*i%
Nexti%
----3----
[题5]ComDiv过程是求任意两个正整数的最大公约数。
PublicSubComDiv()
DimdivAsInteger'
最大公约数
LoopWhile----1----
-----2-----
div=n
DoWhilemModdiv<
0OrnModdiv<
----3-----
的最大公约数是:
div
[题6]该过程是用于计算e的值并将结果输出,要求精确到0.000000000000001,
e的计算公式为:
e=1+1/1!
+1/2!
+…+1/n!
PublicSube()
Dimn,term,t
n=0:
term=1:
t=1
n=n+1
t=---1---
term=---2-----
LoopWhilet>
0.000000000000001
form1.print"
e="
&
---3----
[题7]该过程是用于计算一元二次方程的根,并将结果输出来。
PublicSubgetanswer()
Dimdalt!
a#,b#,c#
a=InputBox("
输入系数a"
)
b=InputBox("
输入系数b"
c=InputBox("
输入系数c"
dalt=b*b-4*a*c
if----1----then
dalt=Sqr(dalt)
MsgBoxFormat((-b+dalt)/2/a),"
0.00"
+Chr(13)+Chr(10)+Format((-b-dalt)/2/a,"
elseif---2----then
MsgBoxFormat(-b/2/a,"
)+Chr(13)+Chr(10)+Format(-b/2/a,"
dalt=---3----
MsgBoxFormat((-b+dalt)/2/a,"
)+"
+i"
-i"
[题8]该过程是用于找出被3、5、7除,余数为1的最小的5个整数,并将结果输出来。
DimcountN%,n%
countN=0
n=1
n=----1----
if-----2----then
Form1.Printn
countN=countN+1
Loop----3-----
[题9]p过程是用于整理数组a,使其中小于零的元素移到数组的前端,大于零的元素移到数组的后端,等于零的元素留在数组的中间。
PublicSubp(a%())
Dimi%,low%,high%,t%
low=0
i=0
high=UBound(a)
doWhile----1----
Ifa(i)<
0Then
t=a(i)
a(i)=a(low)
a(low)=t
----2----
i=i+1
ElseIfa(i)>
a(i)=a(high)
a(high)=t
-----3-----
----4----
[题10]MoveStr过程是把字符数组移动m个位置,当Tag为True左移,则前m个字符移到字符数组尾。
PublicSubMoveStr(a$(),m%,TagAsBoolean)
Dimi%,j%,t$
Dimc
IfTagThen
Fori=1Tom
c=a(0)
forj=0to----1----
a(j)=a(j+1)
Nextj
-----2-----
------3------
forj=Ubound(A)-----4------
a(j)=a(j-1)
a(0)=c
[题11]Modify.bas模块中的Transfer过程用于将一个十六进制整数转换为十进制整数;
number函数过程用于将一个十六进制符号转换为数值。
PublicSubTransfer()
DimHexAsString'
十六进制数
DimDecAsDouble'
十进制数
DimtempAsString
DimnAsInteger
Hex=InputBox("
输入一个十六进制整数"
******错误1*******
n=Val(Hex)
******错误2*******
temp=Mid(Hex,i,1)
******错误3*******
Dec=Dec+number*16^i
i=i+1
LoopWhilei<
n
******错误4******
Form1.Printstr(Hex)&
转换为十进制数为"
&
str(Dec)
PublicFunctionnumber(strAsString)AsInteger
SelectCasestr
Case"
a"
"
A"
number=10
b"
B"
number=11
c"
C"
number=12
d"
D"
number=13
e"
E"
number=14
f"
F"
number=15
CaseElse
number=Val(str)
EndSelect
[题12]Modify.bas模块中的BubbleSort过程是选择排序法;
GenerateData过程产生个[1,20]之间互不相同的随机整数;
Swap过程交换两个变量的数值。
PrivateConstn=10
Privatea(1Ton)AsInteger
BubbleSort过程是排序
Swap过程交换两个变量数值
GenerateData过程产生10个[1,20]之间互不相同的随机整数
PublicSubBubbleSort()
DimiAsInteger,jAsInteger
i=1
Forj=i+1Ton
Ifa(j)>
a(i)Then
*******1*********
Swap(a(j),a(i))
*******2*******
LoopWhilei=n
排序结果"
Fori=1Ton
Form1.Printa(i);
PublicSubGenerateData()
DimjAsInteger
DimbAsBoolean
b=False
DoWhileNotb
a(i)=Int(20*Rnd+1)
b=True
******3******
Forj=1Toi
Ifa(i)=a(j)Then
ExitFor
Form1.Printa(i)
********4********
PublicSubSwap(ByValaAsInteger,ByValbAsInteger)
DimtempAsInteger
temp=a
a=b
b=temp
[题13]Modify.bas模块中的wrap过程用于判断一个字符串是否“回文”。
所谓“回文”是指字符串顺读与倒读都是一样的,如“潮起潮落,落潮起潮”。
PublicSubWrap()
DimlengthAsInteger
Dimstr1AsString
DimstrleftAsString
DimstrrightAsString
DimkAsInteger
str1=InputBox("
请输入任意的字符串"
)'
输入任意字符串
****错误1*****
length=Val(str1)
k=1
****错误2*****
strleft=Left(str1,k)'
从左边起逐个取出一个字符
****错误3*****
strright=Right(str1,k)'
从右边起逐个取出一个字符
****错误4****
Ifstrleft=strrightThen
ExitDo
k=k+1
LoopWhilek<
=length/2
Ifk>
length/2Then
Form1.Printstr1&
是回文"
不是回文"
[题14]Modify.bas模块中的MaxLine过程用于查找一个5行4列的二维数组中行平均值最大的行,并将该行所有数据调整到第一行的位置。
Modify.bas模块中的DataProduce过程用于产生原始数据;
Average过程用于计算各行的平均值;
PrintArraay过程用于打印二维数组和行平均值。
Dima(1To5,1To4)AsInteger
Dimave(1To5)AsInteger
PublicSubMaxLine()
DimLine_noAsInteger'
最大平均值的行号
找出最大平均值所在行
Line_no=1
Fori=2To5
Ifave(Line_no)>
=ave(i)Then
Line_no=ave(i)
交换第一行与最大平均值所在行
Forj=1To4
temp=a(1,j)
******错误3******
a(Line_no,j)=a(1,j)
a(Line_no,j)=temp
交换对应行的平均值
temp=ave
(1)
ave
(1)=ave(Line_no)
ave(Line_no)=temp
打印交换后的数据
交换后的数据和平均值"
PrintArray
PublicSubDataProduce()
产生5*4数组
Fori=1To5
a(i,j)=Int(100*Rnd)
PublicSubAverage()
DimsumAsInteger
计算各行平均值
sum=a(i,j)
ave(i)=sum/4
将数组和平均值打印出来
原始数据和平均值"
PublicSubPrintArray()
Form1.Printa(i,j);
Spc(3);
平均值="
ave(i)
[题15]Modify.bas模块中的TJ过程是将一批数据中小于零的数及它们的积打印出来,但不完整,请在横线上填入必要的内容,使其完整。
Modify.bas模块中的SCSJ过程是产生数据,数据的取值范围为-10~10之间的随机数。
TJ过程是将一批数据中小于零的数及它们的积打印出来
数据由SCSJ过程产生,数据的取值范围为-10~10之间的随机整数数
PublicSubTJ()
DimtAsSingle
--------1--------
Fori=1To10
If--------2--------Then
t=t*a(i)
T="
t
PublicSubSCSJ()
原始数据"
随机产生0或1,为0时取负,为1时取正
j=Int(Rnd*2)
If------3-----ThenJ=-1
a(i)=j*Int(Rnd*(n+1))
[题16]Modify.bas模块中的calculate过程是产生100个[0,99]范围内的随机整数,统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数并打印出来.
Publicsubcalculate()
Dima(1to100)asinteger
Dimx(1to10)asinteger
DimIasinteger,pasinteger
‘产生100个[0,99]范围内的随机整数
‘每行10个打印出来
forI=1to100
‘**********1**********
a(i)=rnd*100
ifa(i)<
10then
form1.printspace
(2);
a(i)
else
form1.printspace
(1);
a(i);
endif
ifImod10=0thenform1.print
nextI
‘统计个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数
‘并将统计结果保存在数组x
(1),x
(2),……,x(10)中,将统计结果打印出来
‘**********2**********
p=int(a(i)/10)‘求个位上的数字
ifp=0thenp=10
‘**********3**********
x(p)=x(p)-1
form1.print“统计结果”
forI=1to10
p=I
ifI=10thenp=0
‘**********4**********
form1.print“个位数为”+str(p)+”共
“+str(x(p))+”个”
endsub
[题17]Modify
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 二级