从另一个子调用字符串

Question

我想使用之前在函数中声明的字符串（这是我希望将其作为函数的原因）。 但是函数无法识别字符串，我的问题是如何修改下面的代码以使其起作用？ 任何帮助表示赞赏。 先感谢您。

Sub encryption

Dim text As String = wraper.DecryptData(ciphertext)

End sub

和...

Public Function CallResults() As String

Dim instructions As String = text '//'text' isn't being recognised
Return instructions

End function

Answer 1

在类级别声明变量text ：

Dim text As String

Sub encryption

   text = wraper.DecryptData(ciphertext)

End sub

Public Function CallResults() As String

   Dim instructions As String = text
   Return instructions

End function

Answer 2

您也可以向其中添加了声明的文本变量的模块添加到项目中（变量是项目的全局变量。

但是，让函数接受可以作用的变量会是更好的设计：

Public Function CallResults(Dim text As String)

   Dim instructions As String = text
   Return instructions

End function

Answer 3

Public Function CallResults() As String

Dim instructions As String = encryption '//'text' isn't being recognised
Return instructions

End function

会做到的。 如果您不止一次获得@Ahmed Salman Tahir的答案，它将更有效率，因为它将缓存加密结果。