1.统计[521,8421]之间有?个这样的整数,各位数字之和能被7整除
PrivateSubForm_Click()
DimcountAsInteger
count=0
FontSize=14:FontBold=True
Fori=521To8421
SelectCasei
Case521To999
a=i\\100
b=i\\10Mod10
c=iMod10
If(abc)Mod7=0Thencount=count1
Case___
a=i\\1000;b=i\\100Mod10;c=i\\10Mod10;d=iMod10
If(abcd)Mod7=0Thencount=count1
EndSelect
NextI
Printcount
EndSub
2.统计[521,8421]之间有多少个这样的整数,其各位数字之积能被7整除。
PrivateSubForm_Click()
DimcountAsInteger
count=0
FontSize=14:FontBold=True
Fori=521To8421
SelectCasei
Case521To999
a=i\\100
b=i\\10Mod10
c=iMod10
If(a*b*c)Mod7=0Thencount=count1
Case________________
a=i\\1000
b=i\\100Mod10
c=i\\10Mod10
d=iMod10
If(a*b*c*d)Mod7=0Thencount=count1
EndSelect
Nexti
Printcount
EndSub
3.我国古代数学家在《算经》中出了一道题：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？”意为公鸡4吊钱1只，母鸡3吊钱1只，3只小鸡值1吊钱。编程实现用100吊钱买100只鸡，公鸡、母鸡、小鸡每种鸡至少一只，有多少种买法？
PrivateSubcommand1_Click()
Dima%,b%,c%,s%
FontSize=14:FontBold=True
Print:Print:Print
s=0
Fora=1To20
Forb=1To34
________________
If4*a3*bc/3=100Thens=s1
Nextb
Nexta
Prints
EndSub
4.要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。
要求每次换成50张小钞票，每种至少一张。编程求有多少种换法。
PrivateSubCommand1_Click()
Dimi,j,k,mAsInteger
DimRMBsumAsInteger
FontSize=14:FontBold=True
Fori=1To9
Forj=1To17
Fork=1To37
m=50-i-j-k
If________________ThenRMBsum=RMBsum1
Nextk,j,i
PrintRMBsum
EndSub
5.已知Sum=11/1!1/2!1/3!…1/n!,求当n为多少时，sum的值大于2.718281828？
PrivateSubCommand1_Click()
Dimi%,s#,sum#
i=1
s=1
sum=1
Do
s=s*i
_______________________
Ifsum2.718281828Then
Printi
ExitDo
EndIf
i=i1
Loop
EndSub
6.已知sum＝1/(1*2)1/(2*3)…1/(n*(n1))的值,其中n为整数，计算n=25时sum的值。（要求结果保留到小数点后第五位）
PrivateSubForm_Click()
DimI%,sum#
I=1
sum=0
ForI=1To25
________________
Next
PrintFormat(sum,\"0.#####\")
EndSub
7.已知sum=4/3!6/5!…(n1)/n!,其中n为整数，计算n=15时sum的值。（要求结果保留到小数点后第九位）
PrivateSubCommand1_Click()
Dimi%,s#,sum#
sum=0
n=15
Fori=3TonStep2
_________________
Forj=1toi
s=s*j
Nextj
sum=sum(i1)/s
Nexti
PrintFormat(sum,\"0.#########\")
EndSub
8.在[1,10000]范围内考察个位数字是1的素数个数
PrivateSubForm_click()
Fori=2To10000
j=2:k=Int(i/2)1
DoWhilej=k
IfiModj=0ThenExitDo
j=j1
Loop
IfjkThen
m=Str(i)
______________
Ifmr=\"1\"Thens=s1
EndIf
Nexti
Prints
EndSub |
