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