南京工业大学VB考试操作题答案全解.docx
- 文档编号:2872889
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:16
- 大小:143.96KB
南京工业大学VB考试操作题答案全解.docx
《南京工业大学VB考试操作题答案全解.docx》由会员分享,可在线阅读,更多相关《南京工业大学VB考试操作题答案全解.docx(16页珍藏版)》请在冰豆网上搜索。
南京工业大学VB考试操作题答案全解
南京工业大学VB考试操作题答案全解!
!
有图有代码!
(楼主手动整理!
!
)来源:
朱晨、Gray的日志
1.Fibonacci函数。
PrivateSubCommand1_Click()
DimnAsInteger
n=Text1
Text2=fib(n)
EndSub
Functionfib(ByValxAsInteger)AsInteger
Ifx=1Orx=2Then
fib=1
Else
fib=fib(x-2)+fib(x-1)
EndIf
EndFunction
PrivateSubCommand2_Click()
Text1=""
Text2=""
Text1.SetFocus
EndSub
PrivateSubCommand3_Click()
End
EndSub
2.百元百鸡
PrivateSubcmdCalc_Click()
'变量说明
DimxAsInteger
DimyAsInteger
DimzAsInteger
'穷举法计算
Forx=1To20
Fory=1To33
z=100-x-y
If5*x+3*y+z/3=100Then
Text1=Text1&CStr(x)&Space(6)&CStr(y)&Space(6)&CStr(z)&Chr(13)&Chr(10)
EndIf
Nexty
Nextx
EndSub
3.矩阵不靠边元素和
Forj=1To5
a(i,j)=Int(Rnd*90)+10
Next
Next
Fori=1To5
Forj=1To5
Picture1.Printa(i,j);
Next
Picture1.Print
Next
EndSub
PrivateSubCommand2_Click()
Text1=fun1(a)
EndSub
Functionfun1(x()AsInteger)AsDouble
DimiAsInteger,jAsInteger
fun1=0
Fori=LBound(x,1)ToUBound(x,1)
Forj=LBound(x,2)ToUBound(x,2)
IfNot(i=LBound(x,1)Ori=UBound(x,1)Orj=LBound(x,2)Orj=UBound(x,2))Then
fun1=fun1+x(i,j)
EndIf
Next
Next
EndFunction
PrivateSubCommand3_Click()
Text1=""
Picture1.Cls
Command1.SetFocus
EndSub
PrivateSubCommand4_Click()
End
EndSub
4.递归函数
PrivateSubCommand1_Click()
List1.Clear
DimiAsInteger
Fori=1To7
List1.AddItemfact(i)
Nexti
EndSub
Functionfact(ByValnAsDouble)AsDouble
Ifn=1Then
fact=1
Else
fact=n*fact(n-1)
EndIf
EndFunction
PrivateSubCommand2_Click()
List1.Clear
EndSub
PrivateSubCommand3_Click()
End
EndSub
5.回文数
PrivateSubCommand1_Click()
Randomize
DimiAsInteger,xAsInteger,minAsInteger
Fori=1To500
x=Int(Rnd*9000)+1000
Text1=Text1&x&vbCrLf
IfHuiWenShu(x)Then
Text2=Text2&x&vbCrLf
Ifmin=0Then
min=x
Else
Ifmin>xThen
min=x
EndIf
EndIf
EndIf
Nexti
Text3=min
EndSub
FunctionHuiWenShu(ByValaAsInteger)AsBoolean
IfStrReverse(a)=aThen
HuiWenShu=True
Else
HuiWenShu=False
EndIf
EndFunction
PrivateSubCommand2_Click()
Text1=""
Text2=""
Text3=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
6.级数求和。
PrivateSubCommand1_Click()
DimsAsDouble,nAsLong
DimmAsDouble
s=0
n=1
Do
m=1/(2*n-1)
Ifm<10^(-5)ThenExitDo
s=s+m
n=n+1
Loop
Text1=CStr(s)
EndSub
PrivateSubCommand2_Click()
Text1=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
7.矩阵转置
OptionBase1
Dima(4,4)AsInteger
PrivateSubCommand1_Click()
DimbAsInteger,cAsInteger
DimiAsInteger,jAsInteger,tempAsInteger
Randomize
Forb=1To4
Forc=1To4
a(b,c)=Int(Rnd*90)+10
Text1=Text1&a(b,c)&""
Nextc
Text1=Text1&vbCrLf
Nextb
Fori=1To4
Forj=1Toi-1
temp=a(i,j)
a(i,j)=a(j,i)
a(j,i)=temp
Nextj
Nexti
Fori=1To4
Forj=1To4
Text2=Text2&a(i,j)&""
Nextj
Text2=Text2&vbCrLf
Nexti
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
8.靠边元素和。
PrivateSubCommand1_Click()
Dima(1To4,1To4)AsInteger
DimiAsInteger,jAsInteger
Fori=1To4
Forj=1To4
a(i,j)=Int(Rnd*10)+0
Next
Next
Fori=1To4
Forj=1To4
Picture1.Printa(i,j);
Next
Picture1.Print
Next
Text1=fun1(a)
EndSub
Functionfun1(x()AsInteger)AsDouble
DimiAsInteger,jAsInteger
fun1=0
Fori=LBound(x,1)ToUBound(x,1)
Forj=LBound(x,2)ToUBound(x,2)
Ifi=LBound(x,1)Ori=UBound(x,1)Orj=LBound(x,2)Orj=UBound(x,2)Then
fun1=fun1+x(i,j)
EndIf
Next
Next
EndFunction
PrivateSubCommand2_Click()
Picture1.Cls
Text1=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
9.孪生素数
PrivateSubCommand1_Click()
DimiAsInteger
List1.Clear
Fori=2To998
IfIsPrime(i)AndIsPrime(i+2)Then
List1.AddItemCStr(i)&""&CStr(i+2)
EndIf
Next
EndSub
FunctionIsPrime(ByValnAsInteger)AsBoolean
DimiAsInteger
Fori=2Ton-1
IfnModi=0ThenExitFunction
Next
IsPrime=True
EndFunction
PrivateSubCommand2_Click()
List1.Clear
EndSub
PrivateSubCommand3_Click()
End
EndSub
10.冒泡顺序
OptionBase1
Dima(10)AsInteger
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,kAsInteger,tempAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd*90)+10
Text1=Text1&a(i)&""
Nexti
Forj=1To9
Fork=1To10-j
Ifa(k)>a(k+1)Then
temp=a(k)
a(k)=a(k+1)
a(k+1)=temp
EndIf
Nextk
Nextj
Forj=1To10
Text2=Text2&a(j)&""
Nextj
EndSub
PrivateSubCommand2_Click()
Text1=""
Text2=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
11.逆序数
PrivateSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 南京 工业大学 VB 考试 操作 答案