vb程序编程1.docx
《vb程序编程1.docx》由会员分享，可在线阅读，更多相关《vb程序编程1.docx（15页珍藏版）》请在冰豆网上搜索。
vb程序编程1
PrivateSubCommand1_Click（）
DimaAsInteger
DimbAsInteger
DimmAsInteger
DimnAsInteger
a=InputBox（"输入a的值"）
b=InputBox（"输入b的值"）
Ifam=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
DoWhilenIfxModn=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
升级会员 