vb随机函数10～100（VB随机函数）
•
2024-09-27 19:30:41
摘要 大家好,飞飞今天来为大家解答以下的问题，关于vb随机函数10～100，VB随机函数这个很多人还不知道,那么下面让我带着大家一起来看看吧！1、我...
大家好,飞飞今天来为大家解答以下的问题，关于vb随机函数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。
本文分享完毕，希望对大家有所帮助哦。
版权声明：本文由用户上传，如有侵权请联系删除！
标签：
VB随机函数