VB编写程序,输入x,利用下列公式求y,并输出
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/20 07:03:43
#includeintprime(intx){inti=2;for(i=2;i
PrivateSubCommand1_Click()x=Text1.Texts=1a=1Dok=k+1a=a*-1*x^2/((2*k-1)*(2*k))s=s+aLoopUntilAbs(a)Tex
privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
#include"stdio.h"#include"math.h"intjiecheng(inti){\x09intk=1;\x09while(i>=1)\x09{\x09\x09k*=i;\x09\
#includevoidmain(){intx=0,y;printf("输入X\n");scanf("%d",&x);if(x=1&&x=10){y=3*x-11;}printf("y=%d\n",y
#include#includevoidmain(){doublex;doubley;coutx;if(-2
下面是我的代码,你也可以优化一下.PrivateSubCommand1_Click()cmdlength=Text1.TextIfLen(Text1.Text)>=3Thencmdmi=Mid(Tex
'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The
首先C我长时间没碰了,但你的程序的问题还是能看出来的,还是看看书吧.main函数就不对,应是main(){程序主体}.if函数没有返回值,你的程序中没必要用这么多花括号,当if或else后只有一句条件
PrivateSubCommand1_Click()Fori=1To7Step2s=""Forj=1To7-iStep2s=s&""Nextjm=""Fork=1Toim=m&iNextks=s&mP
PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(
PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj
1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最
楼上太长了...四个文本框,前三个输入,最后一个输出一个按钮,按钮的单击响应代码如下:PrivateSubCommand1_Click()DimpingjunAsDoublepingjun=(Val(
ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"
'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码:Private Sub Command1_Click()  
PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I