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的回答如果你不止一次得到它会更有效率，因为它会缓存加密结果。

从另一个子调用字符串

3 个答案: