Public Const PI As Single = 3.14159265357           '全局常量
Public Const g As Single = 9.7949
Public Const P As Single = 1.25
Public Const U As Single = 1800000
Public d As Single
Public S As Single
Public h As Integer
Private Sub TEXT1_Change()                                                  '窗口F6的H
   h = Form6.TEXT1.Text
Public L As Integer                               '窗口F6的L
Private Sub TEXT2_Change()
   L = Form6.Text2.Text
Public w As Integer
Private Sub TEXT3_Change()                                                    '窗口F6的V0
   w = Form6.Text3.Text
Public m As Integer                                '窗口F6的m
Private Sub TEXT4_Change()
   m = Form6.Text4.Text
Public r As Integer
Private Sub TEXT5_Change()
   r = Form3.TEXT5.Text                                   '窗口F3的r
Public c As Integer
Private Sub TEXT6_Change()
     c = Form4.TEXT6.Text                                  '窗口F4的R
Public a As Integer                               '窗口F7的a
Private Sub TEXT7_Change()
   a = Form7.TEXT7.Text
Public b As Integer                                   '窗口f7的b
Private Sub TEXT8_Change()
   b = Form7.TEXT8.Text
Public v As Integer
Private Sub TEXT9_Change()
   v = Form8.Text9.Text                                   '窗口F8的速度v
Public Function Re() As Long
Re = P * w * L / U
End Function

If Re <= 1 Then
    d = 100

ElseIf Re > 1 Or Re <= 2 Then
    d = 20

ElseIf Re > 2 Or Re <= 4 Then
    d = 9

ElseIf Re > 4 Or Re <= 10 Then

        d = 6

ElseIf Re > 10 Or Re <= 40 Then

        d = 2

ElseIf Re > 40 Or Re <= 100 Then

       d = 0.8

ElseIf Re > 100 Or Re <= 400 Then

       d = 0.6

ElseIf Re > 400 Or Re <= 1000 Then

       d = 0.5

ElseIf Re > 1000 Or Re <= 200000 Then

       d = 0.4

Else

      d = 0
        Form11.Show                                            '雷诺数过大，涉及了马赫数，不在讨论范围
End If
Public Function f() As Long
f = w * w * S * d * P / 2
End Function
End Sub
本人新手，不知道正确的代码怎么写，它是多form的全局变量和全局函数，所以用了标准模块，但是怎么找书本都找不到案例，求更改。

谢谢指教，我还以为没人理，紧张了好久。
就是表示（a,b)这个区间的意思，大于a值，小于b值。书上好像也是这样表示的，我是照书上来的，不知道用错没有。

还有，我是在模块里放的public变量和public函数公式，在窗口a,b里面进行运算（窗口a的输入值传给窗口b,窗口b也有输入值，然后将两个窗口的输入值一起在窗口b里面计算），把结果在c窗口中显示出来，这样做有问题麽？怎么调用模块的public到窗口里运算？那个print用在窗口c，还是模块？

你好，我也知道我的这段程序有很多错误，主要是我不知道正确的书写格式，翻的教材，参考书都没有合适的例子，挺愁的。
意思就是把窗口A的几个文本框输入值（全局可用）赋值给我定义的变量，把这些变量，连同窗口B的文本框输入值（局部的）进行计算，计算结果在窗口C的文本框里显示（我不知道怎么用，好像print不大对，因为我想把值放在文本框里）出来。
然后我同学叫我把窗口A的几个文本框输入值（全局可用）和那个Re函数放在模块。但是我不知道赋值的格式，Vai(),inputbox()。都不知道怎么书写。
最后，谢谢回复，我以为不会回复我的 ：）