摘要：System.mt.dll，使用社区版开发，仅供学习交流使用。

模块里面实现参数和返值

Option Explicit

Public Type tPara

ID As Long

Result As String

End Type

Public Paras As tPara

Sub DoTask(ByVal ID As Long)

Dim i As Integer, j As Integer

Dim StrTemp As String

StrTemp = ""

For i = 1 To 10

For j = 1 To 10000

StrTemp = StrTemp & "123"

Next

Next

'查找和返值

For i = 1 To UBound(Paras)

If Paras(i).ID = ID Then

Paras(i).Result = ID * 10 + 1

End If

Next

End Sub

窗体修改代码

运行结果

System.mt.dll，使用社区版开发，仅供学习交流使用。

使用本软件风险由用户自行承担，在适用法律允许的最大范围内，对因使用或不能使用本软件所产生的损害及风险，包括但不限于直接或间接的个人损害、商业盈利的丧失、贸易中断、商业信息的丢失或任何其它经济损失，以及任何不可抗力带来的损失，我方不承担任何责任。

如本文不适合发表请通知删除。

来源：玉姿教育