vb随机函数10~100(VB随机函数)
编辑:
•
来源:
•
2024-09-27 19:30:41
大家好,飞飞今天来为大家解答以下的问题,关于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随机函数