vb程序编程1.docx
- 文档编号:2455169
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:15
- 大小:16.38KB
vb程序编程1.docx
《vb程序编程1.docx》由会员分享,可在线阅读,更多相关《vb程序编程1.docx(15页珍藏版)》请在冰豆网上搜索。
vb程序编程1
PrivateSubCommand1_Click()
DimaAsInteger
DimbAsInteger
DimmAsInteger
DimnAsInteger
a=InputBox("输入a的值")
b=InputBox("输入b的值")
Ifa m=b n=a Else m=a n=b EndIf r=mModn DoWhiler<>0 m=n n=r r=mModn Loop Print"a与b的最大公约数为";n EndSub PrivateSubCommand10_Click() DimiAsInteger DimjAsInteger Fori=1To4 PrintTab(20-2*i); Forj=1Toi Print2*i-1; Next Print Next EndSub PrivateSubCommand11_Click() DimiAsInteger DimjAsInteger DimnAsInteger DimsAsLong DimflagAsBoolean Fori=100To1000 flag=True Forj=2Toi-1 IfiModj=0Then flag=False ExitFor EndIf Nextj IfflagThen n=n+1 s=s+i Printi; IfnMod10=0Then Print EndIf EndIf Nexti Print Print"n=";n,"s=";s EndSub PrivateSubCommand12_Click() Form=1To5 PrintTab(70-3*m); Forn=1To2*m-1 Ifn<=mThen Printn; Else Print2*m-n; EndIf Nextn Print Nextm EndSub PrivateSubCommand13_Click() DimaAsInteger,bAsInteger DimcAsInteger,dAsInteger DimiAsInteger,jAsInteger DimkAsInteger,lAsInteger a=InputBox("输入两位数a的值") i=a\10 j=aMod10 c=j*10+i Forb=10To99 k=b\10 l=bMod10 d=l*10+k Ifa+b=c+dThen Printa;"的对调数是";b EndIf Next EndSub PrivateSubCommand14_Click() DimnAsInteger DimsAsLong Forn=1To1000 s=s+n Ifs>=1000Then ExitFor EndIf Next Print"1+2+3...+n<1000的最大n值为";n-1 EndSub PrivateSubCommand15_Click() DimmAsInteger,nAsInteger Cls Print Forn=1To5 PrintTab(2*n+2); Form=nTo10-n PrintSpc (1);"*"; Next PrintSpc(4); Form=1To2*n-1 PrintSpc (1);"*"; Next Print Next EndSub PrivateSubCommand16_Click() DimiAsInteger DimjAsInteger Fori=1To5 PrintTab(20-3*i); Forj=1To2*i-1 Print2*i-1; Nextj Print Nexti EndSub PrivateSubCommand17_Click() DimnAsInteger,iAsInteger n=InputBox("输入数值") Fori=1Ton PrintSpc(n-1) m=String(2*i-1,"*") Printm Nexti EndSub PrivateSubCommand18_Click() DimiAsInteger i=InputBox("输入判断的数值") IfiMod2=0Then Printi;"是偶数" Else Printi;"是奇数" EndIf EndSub PrivateSubCommand19_Click() DimxAsInteger,fiagAsBoolean DimnAsInteger,sAsLong Forx=100To1000 flag=True n=2 DoWhilen IfxModn=0Then flag=False EndIf n=n+1 Loop IfflagThen s=s+x EndIf Nextx Print"100到1000之间的素数和为";s EndSub PrivateSubCommand2_Click() Rem水仙花数 DimxAsInteger,yAsInteger,zAsInteger DimiAsInteger i=100 DoWhilei<=999 x=i\100 y=(iMod100)\10 z=iMod10 Ifi=x^3+y^3+z^3Then Printi; EndIf i=i+1 Loop EndSub PrivateSubCommand20_Click() DimaAsString,iAsInteger DimkAsInteger a="ABCDEFG" k=Len(a) Fori=iTok PrintRight(a,i) Nexti EndSub PrivateSubCommand21_Click() Rem1+2...+100 DimxAsInteger DimiAsLong i=0 y=1 DoWhiley<=100 i=i+y y=y+1 Loop Print"1+2...+100=";i EndSub PrivateSubCommand22_Click() Rem前n项和 DimxAsInteger,yAsInteger DimnAsInteger DimiAsLong n=InputBox("输入n的值") i=0 y=1 DoWhiley<=n i=i+y y=y+1 Loop Printi EndSub PrivateSubCommand23_Click() Rem2到100的素数输出 DimaAsInteger DimiAsInteger Fora=2To100 i=2 DoWhilei<=a-1 IfaModi=0Then ExitDo EndIf i=i+1 Loop Ifi>a-1Then Printa; j=j+1 IfjMod10=0ThenPrint EndIf Next EndSub PrivateSubCommand24_Click() DimcjAsInteger DimdjAsString cj=InputBox("请输入成绩") Ifcj>=0Andcj<=100Then SelectCasecj CaseIs<60 dj="E" CaseIs<70 dj="D" CaseIs<80 dj="C" CaseIs<90 dj="B" CaseIs<=100 dj="A" EndSelect EndIf Printcj;"的成绩等级是";dj EndSub PrivateSubCommand25_Click() Print"*345678" Print"----------------------------" Forj=12To24Step3 PrintFormat(j,"@@@");"|"; Fori=3To8 PrintFormat(j*i,"@@@@"); Next Print Next EndSub PrivateSubCommand26_Click() Rem1到100奇数和 DimiAsInteger,sumAsLong sum=0 i=1 DoWhilei<99 i=i+2 sum=sum+i Printi; j=j+1'分行 IfjMod10=0ThenPrint Loop Printsum EndSub PrivateSubCommand27_Click() DimiAsSingle,sAsString Randomize i=Rnd Printi Ifi<0.5Then s="正面" Else s="反面" EndIf Prints EndSub PrivateSubCommand28_Click() DimiAsInteger,jAsInteger,n1AsInteger,n2AsInteger j=0 DoWhilej<100 j=j+1 i=Rnd Ifi>0.5Then n1=n1+1 Else n2=n2+1 EndIf Loop Printn1,n2 EndSub PrivateSubCommand29_Click() Rem********* DimnAsInteger n
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 编程