vb 调用过程

来源：百度知道 编辑：UC知道 时间：2024/06/05 09:44:49
一个字符函数，每次调用他的时候，他都会随机出现一段文字，并且会发生例如文本框中数值增加等事件。这个函数和随机文本的范围最好在标准模块里声明。所有整个过程被定义，能直接调用。command单击事件过程里的代码越少越好。
如果能详解，额外奖励50分

Private Sub Command1_Click()
Text1 = ttt() '调用TTT过程,并返回组数中的文本,显示到TEXT1中
End Sub

'这个放在模块或本窗体代码中
Public Function ttt() '定义函数
Dim a(5) '设置一个数组用于存放定义的文字

a(1) = "这是第1句"
a(2) = "这是第2句"
a(3) = "这是第3句"
a(4) = "这是第4句"
a(5) = "这是第5句" '为数组赋值
Randomize ' 对随机数生成器做初始化的动作。
V = Int((5 * Rnd) + 1) ' 生成 1 到 5之间的随机数值,您可以根据数组长度定义取值范围。
ttt = a(V) '返回函数值到调用处
End Function

什么样的随机文字，想出现在哪里?