vb所有圆面积在100以内的半径值

PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimiAsInteger,jAsIntegera=Text1b=Te

OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1

dimi%fori=1to100ifimod3=1andimod5=2thenprintinext再问：你确定是这个么。再答：确定以及肯定结果是这些，你看有什么问题223752678297再问：还有7

count=0Fori=1To1000IFi%7==0Thencount++Nexti

合数：4、6、8、910、12、14、15、16、1820、21、22、24、25、26、27、2830、32、33、34、35、36、38、3940、42、44、45、46、48、4950、51、5

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

DimiasInteger,jasInteger,oasIntegerj=0o=0Fori=1To100Step2j=j+io=o+(i+1)NextDebug.print"100以内的奇数和:"&j

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIfiModj=0ThenExitForNextjIfj=iThenPrinti;NextiEndSu

13579111315171921232527293133353739414345474951535557596163656769717375777981838587899193959799

OptionExplicitPrivateSubCommand1_Click()DimiAsLongFori=1To10000Iff1(i)=TrueAndf1(i^2)=TrueThenList1.

OptionExplicitPrivateSubForm_Click()Form1.AutoRedraw=TrueClsDimAAsInteger,SuAsBoolean,IAsInteger,JAs

PrivateSubCommand1_Click()Fori=1To98Forj=i+1To99Fork=j+1To100Ifi*i+j*j=k*kThenPrinti;j;k,:s=s+1:IfsM

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

100以内质数记忆法100以内的质数共有25个,这些质数我们经常用到,可以用下面的两种办法记住它们.一、规律记忆法首先记住2和3,而2和3两个质数的乘积为6.100以内的质数,一般都在6的倍数前、后的

PrivateSubCommand1_Click()Fori=2000To9999IfTrim(Str(i))=Trim(StrReverse(Str(i)))ThenPrintStr(i)EndIf

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

在界面上放一个按钮就行了,然后将下面的代码复制到代码窗口.PrivateSubCommand1_Click()Me.Clsi=0Forj=1To500IfjMod17=0ThenIfi=5Theni=

添加一个Listbox控件然后Ifc=Fix(c)Andc

PrivateSubCommand1_Click()Sum=0Fori=0To9Print10*i+7;Sum=Sum+10*i+7NextiPrintPrint"Sum=";SumEndSu