VB二十道常见编程期末操作题.docx
- 文档编号:30077900
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:16
- 大小:17.53KB
VB二十道常见编程期末操作题.docx
《VB二十道常见编程期末操作题.docx》由会员分享,可在线阅读,更多相关《VB二十道常见编程期末操作题.docx(16页珍藏版)》请在冰豆网上搜索。
VB二十道常见编程期末操作题
1.求随机10个整数的最大值、最小值、平均值以及和;
Dima(1To10)
PrivateSubCommand1_Click()
Randomize
Picture1.Print"产生的随机数为:
"
Fori=1To10
a(i)=Int(Rnd*99+1)‘(1~100随机)
Picture1.Printa(i);
Nexti
Picture1.Print
EndSub
PrivateSubCommand2_Click()
Dimmax,min,ave
max=a
(1)
min=a
(1)
ave=0.1*a
(1)
Fori=2To10
Ifa(i)>maxThenmax=a(i)
Ifa(i) ave=ave+0.1*a(i) Nexti Picture1.Print"最大数为: ";max Picture1.Print"最小数为: ";min Picture1.Print"平均数为: ";ave EndSub 2.求水仙花数 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 EndSub 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 EndIf Next: Next: Next MsgBox"共有组合: "&n EndSub 4.求1000以内的所有完数 一个按钮里调用的过程 PrivateSubCommand1_Click() OutputWanNumber1000 EndSub 4.'求完数的过程 PrivateSubForm_Click() Dimi,jAsInteger Fori=4To100 temp=1 Forj=2Toi/2 IfiModj=0Then temp=temp+j EndIf Nextj Iftemp=iThen Printi EndIf Nexti EndSub 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.求逆序数 PrivateSubCommand1_Click() DimnAsStringDimiAsIntegerDimsAsString n=Text1 Fori=1ToLen(n) st=Mid(n,i,1) s=st+s Nexti Text2=s EndSub8 PrivateSubCommand2_Click() Text1=“” Text2=“” EndSub PrivateSubCommand3_Click() End EndSub 8.级数有限项求和问题 PrivateSubCommand1_Click() DimaAsDouble'存放阶乘 DimsAsDouble'存放和 DimiAsInteger'循环变量 DimnAsDouble'存放通项 DimmAsDouble'存放项数 s=1'和初值 a=1'阶乘初值 i=1'循环变量初值 Do a=a*i'阶乘 n=1/a'通项 s=s+n'和 i=i+1'下个循环 LoopUntiln<0.000001'执行循环直到和比0.000001要小 Text1=Str(s)'和列入text1 EndSub PrivateSubCommand2_Click() Text1="" EndSub PrivateSubCommand3_Click() End EndSub 9.求质因子问题 PrivateSubCommand1_Click() DimNAsInteger,IAsInteger N=Val(InputBox("请输入2的整数: ")) I=2 Do IfNModI=0Then PrintI; N=N\I Else I=I+1 EndIf LoopWhileN>1 EndSub 10.字符统计 OptionBase1 OptionExplicit PrivateSubCommand1_Click() 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 Nexti Fori=1To26 List1.AdditemChr(64+i)&“: ”&A(i) Netxi EndSub PrivateSubCommand_Click() End EndSub 11.判定素数过程 Functionisprime(NumAsLong)AsBoolean IfNum<2Thenisprime=False: ExitFunction DimiAsLong Fori=2ToSqr(Num) If(NumModi)=0Then isprime=False ExitFunction EndIf Nexti isprime=True EndFunction PrivateSubCommand1_Click() DimiAsLong Fori=1To1000 Ifisprime(i)Then Printi EndIf Nexti EndSub 12.求最大公约数过程; FunctionMax公约数(AAsLong,BAsLong)'求出两个数的最大公约数 DimXAsLong,YAsLong,KAsLong X=IIf(A>=B,A,B)'x存入最大值 Y=IIf(A<=B,A,B)'y存入最小值 Do'辗转相除法 K=XModY: IfK=0ThenExitDo X=Y: Y=K Loop Max公约数=Y EndFunction 13.冒泡排序过程 PrivateSubCommand1_Click() Dima(9)AsInteger DimiAsInteger Fori=0To9 a(i)=InputBox("输入整数") Next Sorta Fori=0To9 Printa(i) Next EndSub PrivateSubSort(ByRefa()AsInteger) DimiAsInteger 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 EndIf Next Next EndSub 14.顺序查找过程 PrivateSubCommand1_Click() Dimi,j,t,a(1To10) Randomize Print"原数组: " Fori=1To10 a(i)=Rnd*10 Print"a("&i&")="&a(i)&Space (2), IfiMod20ThenPrint Nexti Print Fori=1To9 Forj=i+1To10
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 二十道 常见 编程 期末 操作