vb 程序y=sinx x^2
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/29 08:20:50
Dimax,yAsIntegerPrivateSubCommand1_Click()x=Text1.TextIfx>0Theny=4*x+1Else:y=3*x+1EndIfText2.Text=yE
第一题:PrivateSubCommand1_Click()Dima!,b!,c!,d!,x!a=Text1.Textb=Text2.Textc=Text3.Textd=Text4.Textx=Tex
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
代码如下:PrivateSubCommand1_Click()f=1Don=n+1f=f*nt=2*n-1s=s+(-1)^n*f/tIfs=10000ThenPrintnExitSubEndIfLo
PrivateSubCommand1_Click()DimSAsDouble,jcAsDoublejc=1Fori=1To99jc=jc*iS=S+jcNextPrint"S=";SEndSu
n=02和72
PrivateSubForm_Click()DimiAsIntegerDimaa,bbAsIntegerFori=1000To9999aa=iMod100bb=Int(i/100)Ifi=(aa+bb
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
k=1开始至10结束,步长减3,但当k=1后,减3,k=-2,不在for的范围,跳出.
PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'
求导得:y′=xcosx−sinxx2,∴切线方程的斜率k=y′x=π=-1π,则切线方程为y=-1π(x-π),即y=-1πx+1.故答案为:y=−xπ+1
PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd
z=y-x'z=9-3=6x=x+z'x=3+6=9y=y-z'y=9-6=3xyz分别是9,3,6
DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum
两处错误,第一个,没有赋值过程,应该改为:a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个:x1=(-b-d)/(2*a)应该是x2=(-b-d)
PrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDouble,yAsDoublea=5b=2.5c=7.8y=a*b*3.1415926/(a+
你这个没有循环知道吗?假设输入一个数字3,你的程序过程是这样的:a=1,y=1,a=1>0.00001,然后进入if,执行里面的程序,结果y=1+1*3/1=4,好了完了跳出if,然后Print显示.
这个你是真不会?结果是3;3
∵y=sinxx∴y'=x(sinx)′−x′sinxx2=xcosx−sinxx2故答案为:xcosx−sinxx2