Question

解决这个随机函数的目标是返回一个值，该值将用于将相应的行大写为该数字，我的问题是它每次都返回5，所以必须出错。任何人都可以用这个随机函数来解释我做错了吗？

编辑：我现在得到错误“randomize是一个类型，不能用作表达式”。

这段代码：randomize是一种类型，不能用作表达式。

 Module randomize
   Sub Main()

     Dim line As String = ""
     Dim linenum As Integer = 1
         Randomize()
     Dim random as Integer 
         random = CInt(Int((7 * Rnd()) + 1))

             'If linenum=random the line is capitalized.

Answer 1

Rnd每{{}}}，您需要先调用Randomize来创建新种子。

此外，我不确定在您需要调用的函数之后命名模块是否是一个好主意。

Answer 2

试试这个： -

 Dim x As Integer
 Randomize()
 x = CInt(Int((7 * Rnd()) + 1))

Visual Basic Rnd每次返回5

2 个答案: