大家好,今天小六子来为大家解答以下的问题，关于vb随机函数产生20个10~100的随机整数，VB随机函数这个很多人还不知道，现在让我们一起来看看吧！

1、我给你编了个,你试试就知道了。

2、代码如下：Private Sub Form_Click()Dim a%(1 To 20), i%, j%For i = 1 To 20Randomizea(i) = Int(Rnd * 20) + 1For j = 1 To i - 1If a(j) = a(i) Then Exit ForNext jIf j = i ThenPrint a(i)Elsei = i - 1End IfNext iEnd Sub。

本文分享完毕，希望对你有所帮助。