vb编程输出30以内的勾股数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 00:16:28
Dimn,x,r,sAsSinglen=2s=0DoWhilen再问:能说一下算法的思路吗?再答:首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例,判断是否能
PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimiAsInteger,jAsIntegera=Text1b=Te
OptionExplicitOptionBase1PrivateSubForm_Click()Dimi%,j%,k%,n%Dima()AsIntegern=0Fori=1To1000k=0Forj=1
用什么语言编程?
首先2,4位没1位又不算所以只要搜索3位就可以了beginfori:=100to999doif(imod10)=(idiv100)then{判断回文数}begin{判断素数}j:=3;repeatt:
count=0Fori=1To1000IFi%7==0Thencount++Nexti
代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM
PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd
privatesubform_click()dimnaslongdimxasstringdimyasstringfori=1000to9999x=mid(i,1,2)y=mid(i,4,1)&mid(
帮你做好了附件,你自己研究一下吧,Private Sub Command1_Click() '奇数算术平方根之和 &
PrivateSubCommand1_Click()Fori=1To98Forj=i+1To99Fork=j+1To100Ifi*i+j*j=k*kThenPrinti;j;k,:s=s+1:IfsM
n=(nmod10)*10+(n\10)
Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor
PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"
PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew
在界面上放一个按钮就行了,然后将下面的代码复制到代码窗口.PrivateSubCommand1_Click()Me.Clsi=0Forj=1To500IfjMod17=0ThenIfi=5Theni=
PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin
添加一个Listbox控件然后Ifc=Fix(c)Andc
Private Sub Command1_Click() Cls Dim r(
Dima%,b%,c%,s1,s2,sPrivateSubForm_Click()Fori=1To1000IfiMod7=0Thena=a+1s1=s1+iEndIfIfiMod17=0Thenb=b