vb用do loop编写函数fun计算两个正整数的最大公约数,并显示结果

第一题答案：OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then

第一题：PrivateSubCommand1_Click()Dima!,b!,c!,d!,x!a=Text1.Textb=Text2.Textc=Text3.Textd=Text4.Textx=Tex

第一题：两个TextBox,一个Command.OptionExplicitPrivateFunctionMaxModNum_(ByValaAsLong,ByValbAsLong)_AsLongDim

FunctionMax(xAsInteger,yAsInteger,zAsInteger)AsIntegerMax=IIf(x>=y,x,y)Max=IIf(Max>=z,Max,z)EndFunct

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

函数定义名Area,参数rFunctionArea(r)Area=3.1415926*r*rEndFunction调用例子：PrivateSubCommand1_Click()Label1.Capti

PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

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

#includevoidfun(intn){floats=0.0,w,f=-1.0;inti=0;for(i=0;i再问：n是需要从键盘输入该怎么改呢？再答：intmain(){intn;whi

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

privatesubcommand1_click()ifisnumeric(text1.text)ANDisnumeric(text2.text)thentext3.text=cdbl(text1.t

有两种办法,一是4位单独生成,然后组成4位数,生成一位就判断一下,如果重复就重新生成.另一就是直接生成4位数,判断各位有没有重复,如果有就重新生成一个,如果不重复就退出.这是按第一情况来生成的.Pri

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

y=1./(1+25*x.*x)

我HI你吧,等一下