vb设计ax2 bx c=0的根

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

这个我直接用的4个command控件,如果你学过应该能看懂Dim a As Integer, b As Integer, c&nb

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=-b/a

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

PrivateSubForm_Activate()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","数

选A因为0的ASCII值为48,9的ASCII值为57C>="0"AndC=48AndAsc(c)

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

PrivateSubCommand1_Click()Dimstr_1AsString,MyValueAsIntegerstr_1=""Forn=1To9RandomizeMyValue=Int((36

自己看下书,试着写一下就好,太简单了再问：你妹，会了还问你？别把自己膨胀的信心践踏在别人身上再答：别误会，要是说过了我很抱歉，这个代码估计没人给你发，还是自己照着书写就可以实现，很快的再问：好吧，原谅

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

1.designofVBbasedCAD/CAMtestquestiondatabase2.designofVBbasedmechanicalmanufacturetechnologytestques

转换为普通坐标极长为R角度为Φ则：坐标为：x=R*cosΦy=R*sinΦ

Privatefunctione()Dime1,n,jcn=0e1=1jc=1Don=n+1jc=n*jce1=e1+1/jcLoopUntil1/jc

新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码：PrivateSubForm_Load()a=InputBox("请输入边长：","计算正方形的面积")MsgBox"面积="

不对,还要考虑可行性,比如内存够不够,时间复杂度行不行等等

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

Private Sub Command1_Click()Dim a As Single, b As Single,&nb

有错：1）delta=b*b-4*a*c2)要判断a是否为0