VB b=val(text1.text)-1 dim a(b) as Integer 这样写出现 要求常数表达式那么如何定义一个数组变量且括号里面的值等于text1.text的值减去1呢,

VB b=val(text1.text)-1 dim a(b) as Integer 这样写出现 要求常数表达式那么如何定义一个数组变量且括号里面的值等于text1.text的值减去1呢, VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - 如何用vb设计计算二次方程的根的程序Private Sub Command1_Click()Dim a As Single,b As Single,c As Single,d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = b ^ 2 - 4 * a * cIf d > 0 ThenLabel8.Caption = (-b + Sqr(d)) vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,b As Single,c As SingleDim n As Single,m As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If b ^ 2 - 4 * a * c < 0 ThenLabel3.Caption = 无解Els VB 判断a能否被b整除,能够整除输出“能”,否则输出“不能”.dimaasintegerdimbasintegera=val（text1.text）b=val（text2.text）if a mod b = 0 then text3.text=”能” else text3.text=”不能”显示除数为零,哪里错了 在VB 语句中 x = Val(Text1.Text) Val Dim y As IntegerPrivate Sub Command1_Click()Text2.Text = yEnd SubPrivate Sub Text1_Change()x = Val(Text1.Text)If x < 0 Or x > 100 ThenText1.Text = Text1.SetFocusLabel1.Caption = 请重新输入ElseLabel1.Ca VB判断方程是否有实数根在线等Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim i As Stringa = Val(Text1.Text)b = Val(Text2.Text)If b * b - 4 * a * c >= 0 Theni = 有Elsei = 没有End IfText3.Text = iEnd Sub哪里错了 Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Text2.Text) For M = A To B M = M + 1 NextPrivate Sub Command1_Click()A = Val(Text1.Text):B = Val(Text2.Text)For M = A To BM = M + 1Next MLabel1 = MEnd Sub当A为1,B为2时,运行出来为什么 for k =1 to 5,怎么算的?private sub command1_click()dim k as integer ,s as single,a as single,b as singlea=val(text1(0).text)s=ab=afor k =1 to 5s=s+val(text1(k).text)if aval(text1(k).text)thenb=val(text1(k).text)end if next ks=(s-a-b)/4s=s*3*val(t 下列代码中为什么要写成 a=Val(Text1.Text),而不是直接写成 a=Text1.Text VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)中1, 2,chr(13)+chr(10)是不是ASCII的代码, 在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数Dim a As Stringa = Val(Text1.Text)If a < 0 Thenb = 负整数ElseIf a > 0 Thenb = 正整数Elseb = 0End IfText2.Text = b我这样有什么问题吗? VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = Val(Text2.Text)If vl < vj Then Exit SubFor i = 1 To vl Step 2sumi = sumi + iIf sumi >= vj ThenExit ForEnd IfNext iText3.Text = iText4.Text = sumiEnd SubPrivate Sub Form_Load()Me.Capti VB中, text1=1和text1.text=1有没有区别? VB 条件语句＋限制文本框输入 条件语句问题：如果Text1.texe = A 则 text6.text = 10 '国文如果Text1.texe = A+ 则 text6.text = 12如果Text1.texe = B 则 text6.text = 14如果Text1.texe = C 则 text6.text = 16如 VB 怎样定义A&B=C D&E=CPrivate Sub Form_Load()怎样定义A&B=C D&E=CEnd SubPrivate Sub Command1_Click() If Text1.Text & Text2.Text = C Then MsgBox XXX当在Text1.Text 输入A Text2.Text 输入B时 那么MSGBOX或当在Text1.Text 输入D Text2.Te 1段加法运算程序Private Sub Command1_Click()Text1.Text = str$(Val(Text2.Text) + Val(Text3.Text))教程上是这么写的,但是我有点想不明白..这样写不也一样么?Private Sub Command1_Click()Text1.Text = (Val(Text2.Text) + Val(Text3 【VB的使用中间量交换两个变量数值】Dim x,y As Singlex = Val(Text1.Text)y = Val(Text2.Text)a=xx=yy=a那里错了,交换不成功,可是输入的是整数啊 ,而且交换不了.