用VB编写程序

' 下面的代码就可以解决你的问题

dim sta,i%,st$,a$,b$,c$

st = “ax^2+bx+c=0” ' 这里你可以改成从文本框获取方程

sta = split(st,"+")

for i = 0 to ubound(sta)

if instr(sta(i) , "x^2")>0 then

a = trim( left(sta(i),instr(sta(i) , "x^2") -1))

elseif instr(sta(i) , "x")>0 then

b = trim( left(sta(i),instr(sta(i) , "x") -1))

elseif instr(sta(i) , "=")>0 then

c = trim( left(sta(i),instr(sta(i) , "=") -1))

end if

next i

VB是VisualBasic编程语言

编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“C”、“Pascal”、“Basic”等。在众多的计算机编程语言中，以BASIC语言最为易学易用。

BASIC是英文Beginner’sAllpurposeSymbolicInstructionCode的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。

1991年，VisualBasic(简称VB)面世，他是第三代BASIC语言，它不但秉承了BASIC语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

VB编写程序的步骤可以分为三步：

设计程序的界面，根据想要实现的功能画出程序的界面；编写代码是最枯燥的一步，根据程序的功能，为每个控件元素编写代码，这是程序设计的关键所在；发布应用程序为程序创建安装项目。

用VB实现上述功能的函数是：

Function fun(m, n) As Integer

Sum = 0

For i = 1 To 100

  If i Mod m = 0 Or i Mod n = 0 Then

    Sum = Sum + i

  End If

Next i

fun = Sum

End Function

Private Sub Command1_Click()

m = CInt(InputBox("m="))

n = CInt(InputBox("n="))

Print "100以内能被"; m; "或"; n; "整除的数的总和="; fun(m, n)

End Sub

以上就是关于用VB编写程序全部的内容，包括:用VB编写程序、vb程序设计、VB编写程序的步骤等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！