VB输入系数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/01 10:00:58
SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex
PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","
privatefunctiony(xassingle,nasinteger,a()assingle)asdoubley=g(x)+h(x+3,n,a())+g(2*x)printyendfunctio
ax2+bx+c=0应该是:a^2+bx+c=0吧?x1=round((-b+sqr(b^2+4*a*c)),2)x2=round((-b-sqr(b^2+4*a*c)),2)
PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu
PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;
PrivateSubCommand1_Click()fori=1to20a=val(inputbox("输入第"&i&"个数:"))ifa>=0thenj=j+1:s=s+anextprint"正数个
PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB
PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------
SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex
http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n
自己看下书,试着写一下就好,太简单了再问:你妹,会了还问你?别把自己膨胀的信心践踏在别人身上再答:别误会,要是说过了我很抱歉,这个代码估计没人给你发,还是自己照着书写就可以实现,很快的再问:好吧,原谅
a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif
他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()
PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"
那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或
建立一个text1、一个command1,代码如下:PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的
用键盘ascii码判断就可以了.比如,在计算器数字键click里,添加代码判断keyboard的输入字符ascii码,如果是需要的数字则接受,否则拒绝.再问:我一点都不会写。。再答:你学过VB没有?再
dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a
PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I