66问答网
所有问题
当前搜索:
vb随机生成十个数
VB随机产生10个
任意的两位正整数存放在一维数组中
答:
Option Base 1 Option Explicit Dim a(11) As Integer Private Sub Command1_Click()Dim i As Integer Picture1.Cls Picture1.Print "
产生
的一维数组为:"Randomize For i = 1 To
10
a(i) = Int(Rnd * 20 + 10)Picture1.Print a(i);Next i Picture1.Print End Sub Private Sub Command...
vb中
如何在窗体中
随机生成10个
两位数
答:
Private Sub Form_click()RandomizeDim i As IntegerFor i = 1 To
10
Print 10 + Int(Rnd * 90);NextEnd Sub
VB产生10个
[1,100]的
随机数
答:
Sub Form_Load()Dim fo As Long Randomize Timer For fo = 1 To
10
Label1 = Label1 & Rand(1, 100) & vbCrLf Next Label1.Height = TextHeight("") * 10 End Sub Function Rand(Left As Long, Right As Long) As Long Rand = Left + (Right - Left) * Rnd End Function ...
vb
编写一个程序,利用
随机
函数Rnd
生成10个
10-99之间的整数,并计算其中素...
答:
n= [
10
+int(90*rnd) ]st = [ st + " " + n ]forj=2 to [ n ][ n1=n1+1 ][ exit for ]text1.text=[ st ]text2.text= [ n-n1 ]
vb
代码
随机生成10个
不同的素数。
答:
Function IsPrm(Num As Long) As Boolean For a = 2 To Int(Sqr(Num)) If Num Mod a = 0 Then IsPrm = False Exit For Else IsPrm = True End If Next aEnd Function接着你要确定在哪个范围内
随机生成
素数,这里取在0-100之间(当然,要是要取一
个数
以下的素数的话,只要...
vb随机产生10个随机数
,在1-9
答:
参考代码:Dim a(9) As Integer Randomize For i = 0 To 9 a(i) = CInt(Rnd() *
10
) Next i End Sub
VB
编写程序,
生成10个
无重复数(即互不相等)的两位
随机数
答:
两种方法 1 补充你的算法,Private Sub Command1_Click()Dim a(
10
) As Integer, n As Integer Dim i As Integer, k As Integer Randomize a(1) = Int(Rnd * 90) + 10 k = 1 Do n = Int(Rnd * 90) + 10 For i = 1 To 10 If a(i) = n Then Exit For Next i If i > ...
vb
编写程序,利用
随机
函数
产生
并显示
10 个
1~100 之间的随机整数并找出这...
答:
Private Sub Command1_Click() Dim a(
10
) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub ...
vb
循环语句
随机产生10个数
答:
for j=1 to i-1 不用说了 if x=a(j) then yes=1:exit for 检测x是否=a(j),r如果=重新
生成
x,其实这是判断在生成的
10个随机数
中有无重复的数,如果有,就是这句,重新生成。其他就不用说了,你应该明白。
vb产生10个
不同
随机数
答:
其实呢,思考了一个晚上,还是有解决的办法的.就是用循环嵌套选择句再加上rnd配合起使用的话.低位\高位都可以取到了.代码如下:已经测试成功..绝对符合你的要求..要给分哦 dim i%,wei%,a#(1 to 100)randomize for i = 1 to 100 wei = int(rnd 9 + 1)select case wei case is = 1 a(...
棣栭〉
<涓婁竴椤
2
3
4
5
6
7
8
9
10
11
涓嬩竴椤
灏鹃〉
其他人还搜