88问答网
所有问题
当前搜索:
vb产生n个随机数
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编程
,用
随机
函数
产生
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个1-100之间的
随机数
,并求平均值
答:
str As String = "", temp As Integer = 0, sum As Integer = 0 Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd() * 99 + 1) sum = sum + a(i) Next TextBox6.Text = "这10个数的平均值是" & sum / 10 ...
vb
编写程序,将利用
随机
函数
产生
的10个不大于100的整数保存在数组中...
答:
Dim aver As Single '定义aver放平均值 sum = 0 max = 0 min = 100 Randomize For i = 1 To 10 '
生成随机数
存入数组,并求出和、最大值、最小值 a(i) = Int(Rnd * 100 + 1)sum = sum + a(i)Print a(i)If a(i) > max Then max = a(i)If a(i) < min Then ...
(
vb编程
问题)
随机产生
10个两位数,显示该十
个数
,按大到小的顺序排序,并...
答:
import java.util.Arrays;import java.util.Random;public class Main{public static void main(String[] args){int array[] = new int[10];for(int i=0;i<10;i++){array[i] = new Random().nextInt(90) + 10;}Arrays.sort(array);System.out.println("
生成
的
随机数
的排序结果是:"+...
如何用
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
利用
随机数
函数(RND)
产生
200个200~600之间的整数,每行输出10个数...
答:
可参考。如有帮助请采纳!
VB
用
随机数产生
100个整数(其取值范围为1~100),存放在数组x中,输出出现3...
答:
你在print a(i);后加上这些 if i mod 10=0 then print end if
vb如何产生
两个不同
随机数
答:
Private Sub Command1_Click()Randomize TimerDim f As BooleanDim a As Integer, b As Integerf = TrueWhile f a = Int(Rnd * 10 + 1) b = Int(Rnd * 10 + 1) If a <> b Then f = FalseWendPrint a, bEnd Sub
用
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 ...
棣栭〉
<涓婁竴椤
8
9
10
11
13
14
15
16
17
涓嬩竴椤
12
灏鹃〉
其他人还搜