UC知道一个关于VB过程使用的问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 17:12:34
有如下代码：
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim k As String
Dim x As Integer
Private Sub Form_Click()
c = jisuan(b, c, d)
Print c
End Sub
Public Sub jisuan(num1 As Integer, num2 As Integer, k As Integer)
k = "123"
End Sub
--------------------------------------------------------------------
编译无法通过，提示“缺少函数或变量。”麻烦大家指正。
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim k As String
Dim x As Integer
Private Sub Form_Click()
c = jisuan(b, c, d)
Print c
End Sub
Public Sub jisuan(num1 As Integer, num2 As Integer, k As Integer)
k = "123"
End Sub
--------------------------------------------------------------------
编译无法通过，提示“缺少函数或变量。”麻烦大家指正。
为什么不改成函数呢？过程没有返回值的，怎么给变量c赋值呢。
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim k As String
Dim x As Integer
Private Sub Form_Click()
c = jisuan(b, c, d)
Print c
End Sub
Public Function jisuan(num1 As Integer, num2 As Integer, k As Integer)
jisuan = "123"
End Function
c = jisuan(b, c, d)
要求 jisuan 是一个有输出的函数
Public Sub jisuan(num1 As Integer, num2 As Integer, k As Integer)
定义了一个 没有有输出的过程
问题就在这里