【发布时间】:2021-03-11 10:03:11
【问题描述】:
我尝试为个人文档生成随机语言以在 LotusScript 中进行测试:
Dim arr_language(0 To 10) As String
arr_language(0) = "English"
arr_language(1) = "Spanish"
arr_language(2) = "Chinese"
arr_language(3) = "German"
arr_language(4) = "Dutch"
arr_language(5) = "Swedish"
arr_language(6) = "French"
arr_language(7) = "Danish"
arr_language(8) = "Italian"
arr_language(9) = "Polish"
arr_language(10) = "Portugese"
Dim language As String
language = arr_language( Round(Rnd()* UBound(arr_language) ,0) )
我注意到有时“语言”有时是空的。我做错了什么?
【问题讨论】:
-
我没看出有什么问题?
-
该代码运行良好。可能是语言随后在个人文档的一个字段中设置,并且该字段正在将值更改为“”。这可以是 ComputeWithForm 或字段转换公式。
-
只有一件事:通常人们会使用 Int(Rnd() * UBound(arr_language) + 1) 来获得更好的分布。当您使用 round 时,边距 0 和 10 的可能性大约是所有其他值的一半...