高分求VB程序数学特殊公式输入编写方法

可用希腊字母的英文注音，如：

用sigma这个变量代替σ，

用alpha这个变量代替α，

用beta这个变量代替β，

用omega这个变量代替Ω，

附：希腊字母 中英文读音及常用意义对照一览表

序号 大写 小写 英文注音 国际音标注音 对应英文字母 中文读音 意 义 对应数值

1 Α α alpha a:lfa a 阿尔法 角度（小写）；系数 1

2 Β β beta beta b, v 贝塔 磁通系数；磁感应强度（大写）；角度（小写）；系数 2

3 Γ γ gamma ga:m g, gh, y 伽马 电导系数（小写） 3

4 Δ δ delta delta d, dh, th 戴尔塔 变化量（大写）；屈光度 4

5 Ε ε epsilon ep`silon e 艾普西龙 对数之基数；电势能（小写） 5

6 Ζ ζ zeta zeta z 截塔 系数；方位角；阻抗；相对粘度；原子序数 7

7 Η η eta eta e, i 艾塔 磁滞系数；效率（小写） 8

8 Θ θ theta θita th 西塔 温度；相位角 9

9 Ι ι iot jot i 约塔 微小，一点儿 10

10 Κ κ kappa kap k 卡帕 介质常数 20

11 ∧ λ lambda lamda l 兰姆达 波长（小写）；体积 30

12 Μ μ mu mju m 缪 磁导系数微（千分之一）放大因数（小写）；动摩擦因数（小写） 40

13 Ν ν nu nju n 纽 磁阻系数；光频率（小写），中微子（小写） 50

14 Ξ ξ xi ksi x, ks 克西 随机变量 60

15 Ο ο omicron omik`ron o 奥密克戎 无穷小量：ο(x) 70

16 ∏ π pi pai p 派 圆周率=圆周÷直径=314159 2653589793 80

17 Ρ ρ rho rou r 柔 电阻系数（小写）密度(小写) 100

18 ∑ σ sigma `sigma s 西格马 总和（大写），表面密度；跨导（小写） 200

19 Τ τ tau to: t 套 时间常数；周期（大写） 300

20 Υ υ upsilon jup`silon u, y, v, f 宇普西龙 位移 400

21 Φ φ phi fai ph, f 法爱 磁通（大写）；电势（小写）；黄金分割符号；工程学中表示直径（大写斜体） 500

22 Χ χ chi khi ch, kh 奇 卡方分布；电感 600

23 Ψ ψ psi psai ps 帕赛 角速；介质电通量（静电力线）；角 700

24 Ω ω omega o`miga o 欧米伽 欧姆（大写）；角速度（小写）；角 800

考虑到你是新手，我直接把所有过程都告诉你，你可以照着模仿，但是这只是应急的，如果你的确有需要最好能从头学VB：

在窗体上创建三个文本框和一个按钮

双击按钮，第一行不变，下面加上以下代码：

dim a%,b%

a=text1text

b=text2text

text3text=a+b

自己动手编了个函数过程，可以进行简单的四则混合运算。是习作，请多提宝贵意见。 Function tran(stra As String) As String

'Function tran() 的功能是将一个包含有

'算术四则运算符号表达式的字符串（下称“源字符串”），

'转换为算术表达式并计算出结果

'并将计算结果转换为字符串后返回

'例：tran("1+2-34/5") 返回 "6"

'Function tran() 处理的字符串必须是

'经过检验合法的算术表达式

'否则会出错

Dim k As Integer '存放源字符串中运算符个数

Dim a(100) As String '存放各运算符号

Dim b(100) As Double '存放中间结果

Dim c(100) As String '存放各 *** 作数

Dim d(100) As Integer '存放各运算符在源字符串中的位置

Dim tt As Double

Dim t As String

Dim l As Integer'==================================================================

'查找源字符串中运算符个数，并将各运算符存入 a 数组，'将运算符在源字符串中的位置存入 d 数组

k = 0

For i = 1 To Len(stra)

t = Mid$(stra, i, 1)

If t = "＋" Or t = "－" Or t = "×" Or t = "÷" Or t = "+" Or t = "-" Or t = "" Or t = "/" Then

k = k + 1

a(k) = t

d(k) = i

End If

Next

'===================================================================

d(0) = 0 '虚拟的运算符位置

d(k + 1) = Int(Len(stra) + 1) '便于以下循环取数

'=====================================================

'将各 *** 作数存入c 数组

For i = 1 To k + 1

c(i) = Mid$(stra, d(i - 1) + 1, d(i) - d(i - 1) - 1)

'两个运算中间的字符都作为 *** 作数处理

Next

'=====================================================

'计算分两步，先处理运算符，后计算结果

'处理运算符，以 b 数组存放中间结果

l = 1

b(1) = Val(c(1))For i = 1 To k

If a(i) = "＋" Or a(i) = "+" Then

l = l + 1

b(l) = Val(c(i + 1)) '加法照抄

End If

If a(i) = "－" Or a(i) = "-" Then

l = l + 1

b(l) = -Val(c(i + 1)) '减法取负

End If

If a(i) = "×" Or a(i) = "" Then

b(l) = b(l) Val(c(i + 1)) '乘法取中间结果

End If

If a(i) = "÷" Or a(i) = "/" Then

If Val(c(i + 1)) = 0 Then tran = "错误！——被零除": GoTo 10b(l) = b(l) / Val(c(i + 1)) '除法取中间结果

End If

Next

'=============================================

tt = 0

For i = 1 To l

tt = tt + b(i) '对数组累加求和，即得结果

Nexttran = Trim$(Str$(tt)) '转换为字符串10: End Function 使用的时候，把上面的代码复制粘贴到“通用”部分在计算按扭的单击事件过程中添加代码：Text2Text = tran(Text1Text)要求Text1里面只能是一个合法的算术表达式，不能有多余字符。

Si、Ni 是什么，我这里使用简单的函数 fs、fn 来表示，你可以修改这些函数，实现你需要的功能。

Private Function fs(ByVal i As Long) As Double

fs = i

End Function

Private Function fn(ByVal i As Long) As Double

fn = i

End Function

'实现 B = ……

Public Function fb(ByVal n As Long) As Double

Dim i As Long, s1 As Double, s2 As Double, s3 As Double, s4 As Double

Dim vs As Double, vn As Double

s1 = 0: s2 = 0: s3 = 0: s4 = 0

For i = 1 To n

vs = Log(fs(i)) / Log(10)

vn = Log(fn(i)) / Log(10)

s1 = s1 + vs vn

s2 = s2 + vs

s3 = s3 + vn

s4 = s4 + vs vs

Next

fb = (s1 - s2 s3 / n) / (s3 - s2 ^ 2 / n)

End Function

'实现 A = ……

Public Function fa(ByVal n As Long) As Double

Dim i As Long, s1 As Double, s2 As Double

s1 = 0: s2 = 0

For i = 1 To n

s1 = s1 + Log(fn(i)) / Log(10)

s2 = s2 + Log(fs(i)) / Log(10)

Next

fa = s1 / n - fb(n) s2 / n

End Function

VB使用Rnd 函数产生随机数。

Rnd 函数，返回一个包含随机数值的 Single。

Rnd 函数示例

本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。

Dim MyValue

MyValue = Int((6 Rnd) + 1)   ' 生成 1 到 6 之间的随机数值

Private Sub Form_Load()

Form1Caption = "学号，姓名"

Call Command2_Click

End Sub

Private Sub Command1_Click()

Label1Caption = Val(Text1) + Val(Text2)

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Label1Caption = ""

End Sub

Private Sub Command3_Click()

End

End Sub

以上就是关于高分求VB程序数学特殊公式输入编写方法全部的内容，包括:高分求VB程序数学特殊公式输入编写方法、怎么用VB编写公式、VB中文本内公式的计算问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！