VB窗体控件 "输入方程ax^2 bx c=0的系数abc,求方程的根 "

第一题：PrivateSubCommand1_Click()Dima!,b!,c!,d!,x!a=Text1.Textb=Text2.Textc=Text3.Textd=Text4.Textx=Tex

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

PrivateSubForm_Load()DimiAsInteger,nAsLongDimkAsLongi=1:n=1DoWhilei

whileregexp_instr(var_tmp,'\D'||var_element1||'\D')>0loopvar_return:=var_return||substr(var_tmp,1,

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

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

1DABAACBBDB11ADDACACAAB21CDDDB

...书上不是很清楚的写了么x=(-b±√(b²-4ac))/2a

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

PrivateSubForm_Click()DimsumAsLongFori=1To100sum=sum+i*iNextMsgBoxsumEndSu

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

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

应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不

行啊：DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPublicFunctionADODBJet(OptionalDBfileAsString,

dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a