VB期末范围题总汇Word格式文档下载.docx
- 文档编号:17888476
- 上传时间:2022-12-11
- 格式:DOCX
- 页数:14
- 大小:18.31KB
VB期末范围题总汇Word格式文档下载.docx
《VB期末范围题总汇Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB期末范围题总汇Word格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
PrivateSubForm_Click()
Dima,b,cAsInteger'
a(个)b(十)c(百)
Fora=0To9
Forb=0To9
Forc=1To9
Ifa^3+b^3+c^3=a+10*b+100*cThen
MsgBox100*c+10*b+a
EndIf
Nextc
Nextb
Nexta
3.百元买百鸡问题;
OptionExplicit
Consta=5,b=3,c=1
PrivateSubForm_Activate()
DimiAsInteger,jAsInteger,kAsInteger,nAsInteger
Fori=1To100
Forj=1To100
Fork=1To100
Ifi*a+j*b+k*c=100Then
n=n+1
List1.AddItem"
公鸡:
&
i&
"
母鸡:
j&
小鸡:
k
Next:
Next:
Next
MsgBox"
共有组合:
n
求1000以内的所有完数
一个按钮里调用的过程
OutputWanNumber1000
4.'
求完数的过程
Dimi,jAsInteger
Fori=4To100
temp=1
Forj=2Toi/2
IfiModj=0Then
temp=temp+j
Nextj
Iftemp=iThen
Printi
Nexti
5.求各位数字之和
inputa:
'
输入任意数
do
b=amod10:
取a的末位数
sum=sum+b:
求和
a=a\10:
去掉末位数
loopuntila=0
print"
sum="
sum:
输出
end
(dimnasstring
inputn
fori=1tolen(n)
sum=sum+val(mid$(n,i,1))
nexti
printsum)
6.求最小公倍数
PrivateSubForm_Load()
Form1.AutoRedraw=True
Dimn1%,m1%,m%,n%,r%
n1=InputBox("
输入n1"
)
m1=InputBox("
输入m1"
Ifm1>
n1Then'
为了求最小公倍数,增加m,n变量
m=m1:
n=n1
Else
m=n1:
n=m1
EndIf
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
Loop
Printn1;
"
m1;
的最大公约数为"
n
Print"
最小公倍数="
m1*n1/n
EndSub
7.求逆序数(感觉题目类型太多)
8.级数有限项求和问题(题目类型太多)
9.求质因子问题
DimNAsInteger,IAsInteger
N=Val(InputBox("
请输入2的整数:
))
I=2
Do
IfNModI=0Then
PrintI;
N=N\I
Else
I=I1
LoopWhileN1
10.字符统计
OptionBase1
Dimiasinteger,A(26)asinteger,nasinteger
DimSasstring*1,Strlasstring
Strl=Text1
n=Len(Strl)
Fori=1Ton
S=Mid(Strl,i,1)
IfUCase(S)>
=”A”AndUCase(S)<
=”Z”Then
A(Asc(UCase(S))-64)+1
EndIf
Fori=1To26
List1.AdditemChr(64+i)&
“:
”&
A(i)
Netxi
PrivateSubCommand_Click()
End
第二大题
1.
判定素数过程
Functionisprime(NumAsLong)AsBoolean
IfNum<
2Thenisprime=False:
ExitFunction
DimiAsLong
Fori=2ToSqr(Num)
If(NumModi)=0Then
isprime=False
ExitFunction
Nexti
isprime=True
EndFunction
PrivateSubCommand1_Click()
Fori=1To1000
Ifisprime(i)Then
Printi
2.求最大公约数过程;
Function
Max公约数(A
As
Long,
B
Long)
求出两个数的最大公约数
Dim
X
Y
K
Long
=
IIf(A
>
B,
A,
B)
x存入最大值
<
y
存入最小值
Do
辗转相除法
Mod
Y:
If
0
Then
Exit
K
Max公约数
Y
End
Function
3.冒泡排序过程
Dima(9)AsInteger
DimiAsInteger
Fori=0To9
a(i)=InputBox("
输入整数"
)
Sorta
Printa(i)
PrivateSubSort(ByRefa()AsInteger)
DimjAsInteger
DimtAsInteger
Fori=LBound(a)+1ToUBound(a)
Forj=UBound(a)ToiStep-1
Ifa(j-1)>
a(j)Then
t=a(j-1)
a(j-1)=a(j)
a(j)=t
4顺序查找过程
Dimi,j,t,a(1To10)
Randomize
原数组:
Fori=1To10
a(i)=Rnd*10
Print"
a("
)="
a(i)&
Space
(2),
IfiMod2=0ThenPrint
Fori=1To9
Forj=i+1To10
Ifa(j)<
a(i)Then
t=a(i)
a(i)=a(j)
Nextj
从小到大排序后数组:
5.判断回文数过程
建一个Text1,Text2,Command1。
Text1,Text2的Multiline都设置为True。
代码如下。
============
Text2.Text="
Dima,iAsInteger,n,sAsString
a=Split(Text1.Text,vbCrLf)
ForEachnIna
s=s&
Ifn=StrReverse(n)Thens=s&
★"
vbCrLf
Next
Text2.Text=s
6.递归函数求阶乘
递归法求阶乘
n=InputBox("
输入自然数"
"
输入"
JieChengn
Ifn>
1Then
Forj=nTo2Step-1
Printj&
*"
1="
PrintJieCheng(n)
PrivateFunctionJieCheng(ByVali&
)AsLong
Ifi>
JieCheng=i*JieCheng(i-1)
Else
JieCheng=1
7.递归函数求Fibonacci数列
Optionbase1
Optionexplicit
Privatesubcommand1_click()
Dimnasinteger,iasinteger
Dimf()aslong
n=text1
Redimf(n)
F
(1)=1
List1.AdditemF
(1)
F
(2)=1
List1,AdditemF
(2)
Fori=3Ton
F(i)=F(i-2)+F(i-1)
List1.AdditemF(i)
End
8.矩阵靠边元素之和
PrivateSubForm_Click()
Cls
Randomize
Dima(5,5)AsInteger
Fori=0To5
Forj=0To5
a(i,j)=Int(Rnd*9)
Printa(i,j)&
Sum=Sum+a(i,j)
Nextj
所有元素和为:
Sum
////////////
Sum=0
Sum=Sum+a(i,0)+a(i,5)+a(0,i)+a(5,i)
Next
Sum=Sum-a(0,0)-a(5,0)-a(5,5)-a(0,5)
所有靠边元素的和:
//////////////////////////////
备用的《Sum=0
Sum=Sum+a(i,i)+a(i,5-i)
两条对角线元素的和为:
Sum》
9.矩阵不靠边元素之和
利用第8题求出的所有和,减去靠边和即可
10矩阵转置
Dima()AsInteger
n=InputBox("
输入行个数"
m=InputBox("
输入列个数"
ReDima(1Ton,1Tom)
生成矩阵"
Fori=1Ton
Forj=1Tom
a(i,j)=Int(Rnd*100+1)
Printa(i,j);
转置"
ifi<
jthen
temp=a(i,j)
a(i,j)=a(j,i)
a(j,i)=temp
endif
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末 范围 总汇