temp=num1:
num1=num2:
num2=temp
EndIf
a=num1
b=num2
'**********SPACE**********
DoWhile【?
】b<>0
temp=aModb
a=b
'**********SPACE**********
【?
】b=temp
Loop
Print"最大公因数为:
";a
Print"最小公倍数为:
";num1*num2/a
EndSub
12、功能:
利用下面的过程求m!
和m*n
PrivateSubForm_Click()
DimmAsInteger,nAsInteger
m=2
n=3
'**********SPACE**********
【?
】findm,n
EndSub
PrivateSubfind(xAsInteger,yAsInteger)
Dims,iAsInteger
'**********SPACE**********
【?
】s=1
Fori=1Tox
s=s*i
'**********SPACE**********
p=【?
】x*y
Nexti
Prints,p
EndSub
13、功能:
以下程序段用于求∑n!
PrivateSubForm_Click()
DimsumAsInteger,nAsInteger
n=InputBox("请输入一个正整数")
sum=0
Fori=1Ton
'**********SPACE**********
sum=【?
】sum+mul(i)
Nexti
Printsum
EndSub
PrivateFunctionmul(ByValxAsInteger)
DimsAsInteger,iAsInteger
s=1
'**********SPACE**********
Fori=1To【?
】x
s=s*i
Nexti
'**********SPACE**********
【?
】mul=s
EndFunction
14、功能:
从键盘上输入一串字符,以"?
"结束,统计输入字符中的大、小写字母和数字的个数。
PrivateSubForm_Click()
Dimch$,n1%,n2%,n3%
n1=0
n2=0
n3=0
ch=InputBox("请输入一个字符")
'**********SPACE**********
DoWhile【?
】ch<>?
SelectCasech
Case"a"To"z"
n1=n1+1
'**********SPACE**********
Case【?
】"A"To"Z"
n2=n2+1
Case"0"To"9"
n3=n3+1
EndSelect
ch=InputBox("请输入一个字符")
'**********SPACE**********loop
【?
】
Printn1,n2,n3
EndSub
15、功能:
下面的程序实现:
从键盘输入一个数字,将其插入一个有序数组中,插入后的数组仍保持有序。
PrivateSubForm_Click()
Dima(10)AsInteger,xAsInteger
Fori=1To8
a(i)=2*i-1
Printa(i);
Nexti
Print
x=InputBox("请输入要插入的整数")
'**********SPACE**********
【?
】a(0)=x
i=8
DoWhilea(i)>x
'**********SPACE**********
【?
】a(i+1)=a(i)
i=i-1
Loop
'**********SPACE**********
Ifi>0Then【?
】a(i+1)=x
Fori=1To9
Printa(i);
Nexti
EndSub
16、功能:
过程suixian可以判断某一个数字是否是水仙花数,利用该过程找出三位数中所有水仙花数。
所谓"水仙花数"是指一个3位数,其各位数字立方和等于该数本身。
PrivateSubForm_Click()
DimiAsInteger
Fori=100To999
'**********SPACE**********
【?
】suixiani
Nexti
EndSub
PublicSubsuixian(xAsInteger)
Dimi%,j%,k%
'**********SPACE**********
i=【?
】x\100
j=(x-i*100)\10
k=x-i*100-j*10
'**********SPACE**********
If【?
】ThenPrintxi^3+j^3+k^3=x
EndSub
17、功能:
输入一个数,若大于0,则显示"+";若小于0,则显示"-";若等于"0",则显示"零"。
PrivateSubCommand1_Click()
x=Val(Text1.Text)
SelectCasex
'**********SPACE**********
【?
】CaseIs>0
Label1.Caption="+"
CaseIs<0
'**********SPACE**********
【?
】Label1.Caption="-"
'**********SPACE**********
【?
】case0
Label1.Caption="零"
EndSelect
EndSub
18、功能:
以下程序段用于计算数组中各元素的乘积。
PrivateSubCommand1_Click()
'**********SPACE**********
Dima(1To5)【?
】,b%(2To10),i%,t1#,t2#AsIinteger
Fori=1To5
a(i)=i
Nexti
Fori=2To10
b(i)=i
Nexti
t1=tim(a())
t2=tim(b())
Print"t1=";t1,"t2=";t2
EndSub
'**********SPACE**********
Functiontim(【?
】AsInteger)a()
Dimt#,i%
t=1
Fori=LBound(a)ToUBound(a)
t=t*a(i)
Nexti
tim=t
EndFunction
19、功能:
本程序功能为,单击窗体,Form1的输出结果为
'A1=10B1=20
'A2=20B2=10
'**********SPACE**********
PublicSubSwap1【?
】xAsInteger,ByValyAsInteger)(ByVal
DimtAsInteger
t=x
x=y
y=t
EndSub
PublicSubSwap2(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=10
b=20
'**********SPACE**********
【?
】a,b
Form1.Print"A1=";a,"B1=";b
a=10
b=20
'**********SPACE**********
【?
】a,b
Form1.Print"A2=";a,"B2=";b
EndSub
20、功能:
求表达式s=x/2!
+x^3/4!
+...+x^(2n-1)/(2n)!
的值,并在窗体上输出。
PrivateSubForm_Click()
DimxAsSingle
DimnAsInteger
DimsumAsSingle
x=Val(InputBox("PleaseinputxValue:
"))
n=Val(InputBox("Pleaseinputainteger:
"))
'**********SPACE**********
sum=【?
】
Print"s=";sum
EndSub
Functions(nAsInteger,xAsSingle)AsSingle
DimiAsSingle,tAsLong
s=0
Fori=1Ton
t=1
Forj=1To2*i
'**********SPACE**********
【?
】
Nextj
'**********SPACE**********
s=s+x^(【?
】)/t
Nexti
EndFunction
21、功能:
写出程序运行后,单击窗体,Form1上显示的内容sum函数的功能为累加求和
'isum=1
'isum=