vb 程序y=sinx x^2

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=

X

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