88问答网
所有问题
当前搜索:
vb产生n个随机数
vb编程
,用
随机
函数
产生
50个10~100之间的互不相同的整数存于一数组中...
答:
Private Sub Command1_Click()Dim x(90) As Integer '高效代码,
产生
无重复
随机数
For i = 10 To 100 x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
用
VB
写代码
产生
10个100-200的
随机数
,保存在数组中,从小到大排序,输出...
答:
Private Sub Form_Click() Dim a%(9), i%, j%, t% Randomize For i = 0 To UBound(a) a(i) = Int(Rnd * 101) + 100 Next For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - i - 1 If a(j) > a(j + 1) Then t = a(j):...
编写
VB
程序
产生
20
个随机数
输出这20个数 分别计算这20个数的奇数之和...
答:
Private Sub Command1_Click() s1 = 0: s2 = 0 For i = 1 To 20 x = Int(Rnd * 101) If x Mod 2 = 1 Then s1 = s1 + x Else s2 = s2 + x Print x, If i Mod 5 = 0 Then Print Next i Print Print "奇数之和="; s1 Print "偶数之和="; s...
利用
VB如何
设计下面问题:利用
随机数产生
10个1~100之间的随机数,显示...
答:
ReDim Preserve
n
(q)n(q) = a(i)End If Next i max = a(0) '最大值最小值 min = a(0)For i = 1 To 9 If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next i Print "10个数中的最大值为" & max Print "10个数中的最小值为" & min For...
VB
怎么
生成
10个100内
随机
的偶数
答:
Dim x As Integer, o As String For x = 1 To 10 Do x=Rnd()*100 Loop While x Mod 2 <>0 o = o & x & Space(1)Next tb1.Text = o 需要用一个do-loop-while循环来保证得到
随机数
是偶数 是的,用do-loop-while循环来不断的得到随机数,直到得到一个偶数为止 do x=Rnd()*...
如何用
VB
编写一个简单的选号器?就是点击然后程序
随机
帮选出一
个数
(1...
答:
双色球
随机
选:Private Sub Command1_Click()Dim a(6) As Integer Dim b As Integer For i = 1 To 6 a(i) = Int(Rnd() * (1 + (33 - 1))) + 1 For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 End If Next Next For i = 1 To 6 For j = i + 1...
vb 如何
使
产生
的十
个随机数
全部显示出来
答:
把这10个数每个数之间插入一个分隔符(比如空格、逗号、回车换行等等)再放入label不就行了吗?比如 label1.caption=n1 & " " & n2 & " " & n3 ... & " " & n10 如果你的10
个随机数
是放在数组里面的就更简单了,比如数组a():label1.caption=join(a," ")...
VB
题目!!急求!
生成
10个10-90之间的不同的
随机数
,保存到数组中._百度知 ...
答:
Private Sub form_load() Randomize Show Dim a(1 To 10) As Integer, g(1 To 9) As Integer a(1) = Int(10 + 90 * Rnd) k = 1 ' k在这里用于计数,共取到了k
个随机数
Do While k < 10 '做以下循环直到k=10,也就是要取到10个随机数 x = Int(10...
VB中
,
随机产生
10个0~100之间的
随机数
,按从小到大的顺序排列怎么做...
答:
Command1.Caption = "选随机数"Command2.Caption = "小到大排序"Command3.Caption = "大到小排序"'*** 安排控件摆放位置 Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 1 - 100 之间选 20
个随机数
Trec = 10 End Sub Private Sub Command1_Click() S ...
用
vb
:
产生随机
三位整数[100,999],将该三位数的个、十、百位数求和。
答:
Private Sub Command1_Click()Dim
n
, a, b, c, sum As Integer n = Int((999 - 100 + 1) * Rnd + 100)a = Int(n / 100)b = Int(Int(n / 10) Mod 10)c = n Mod 100 Mod 10 sum = a + b + c Print n Print sum End Sub ...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜