33问答网
所有问题
当前搜索:
VB 随机排列数组
vb编程
随机数组排列
答:
Private Sub Form_load()Dim a(99), b(9), i As Integer Randomize For i = 0 To 99 a(i) = Int(Rnd * 100)b(a(i) Mod 10) = b(a(i) Mod 10) + 1 Next For i = 0 To 9 Print "个位数上数字为" & i & "的元素个数=" & b(i)Next End Sub ...
VB编程随机
产生“10到129”的数,形成一个4*5 的二维
数组
,按升序
排列
...
答:
Private Sub Command1_Click()Dim a(3, 4)Randomize Print "
排列
前数据:"For i = 0 To 3 For j = 0 To 4 a(i, j) = Int(Rnd * 120) + 10 Print a(i, j);Next Print Next Print "冒泡法升序输出"For i = 0 To (4 * 5 - 1)For j = 0 To (4 * 5 - 1) - 1 ...
VB
数组随机排列
答:
完整代码如下:Option ExplicitPrivate d(7, 5) As IntegerPrivate a(35) As IntegerPrivate Sub Command1_Click()Dim i As IntegerDim j As IntegerDim n As Integer'生成1-35
随机
序列存入
数组
An = 0RandomizeDo While n < 35 j = Int(Rnd * 35 + 1) For i = 1 To n If ...
vb
产生
随机
数,然后
数组排列
,然后平均数。
答:
Private Sub Command1_Click()Dim i As Integer, j As Integer '定义循环变量 Dim rndNum(9) '定义
数组
Dim avg As Single Dim sum As Integer Dim temp Randomize '初始化
随机
数发生器 For i = 0 To 9 rndNum(i) = Int(Rnd * 90 + 10) '产生10个10--99之间的随机整数(如果要求不...
vb中随机数组
的生成及
排列
答:
Randomize Print "初始顺序的数字:"For i = 1 To 10 a(i) = 20 + Int(61 * Rnd())Print a(i);Next i Print For i = 1 To 5 j = a(i): a(i) = a(11 - i): a(11 - i) = j Next i Print "颠倒后的数字:"For i = 1 To 10 Print a(i);Next i Print End ...
"从100到500
随机
选10个不同的数从小到大
排列
"
vb编程
答:
n(i) = Int((500 - 100 + 1) * Rnd + 100) str = str & n(i) & " " If i Mod 5 = 0 Then str = str & vbCrLf '令10个
随机
数分为两行显示 Next i str = "产生10原始数据为:" & vbCrLf & str '冒泡法
排序
For i = 1 To 10 For j = i ...
VB
题目:
随机
产生1-33之间的6个随机数(保证6个数字不重复)按照从大到小...
答:
PrintNum "
排序
后的6个
随机
数为:", num()End Sub '---以下用于打印
数组
Public Function PrintNum(str As String, num() As Integer)Dim tmpString As String Dim i As Integer For i = 0 To 5 tmpString = tmpString & " " & num(i)Next Print str & tmpString End Function ...
VB随机
产生10个任意的两位正整数存放在一维
数组
中,求数组的最大值、平 ...
答:
Picture1.Print "
数组
按从大到小
排序
:"For i = 1 To 10 Picture1.Print b(i);Next End Sub Private Sub Command5_Click()Dim x%, p%, i x = Val(InputBox("输入要插入的数据:"))p = 1 Do While x > a(p) And p <= 10 p = p + 1 Loop For i = 10 To p Step -1 ...
vb
产生10个两位
随机
整数,用冒泡
排序
法对10个数按升序排序
答:
2015-06-23 vb先产生10个两位随机数,然后利用子过程sort对产生的随... 2 2014-04-27 【
VB
】将10个随机的两位数从大到小用选择法和冒泡法
排序
1 2016-05-24
vb随机
产生20个[1,1000]范围内的整数,按升序进行冒... 2013-07-19 vb,用冒泡排序法实现对
数组
中含有10个元素(随机产生)的一... 2 20...
VB
程序设计,
随机
产生10个三位正整数,输出并按升序
排序
,插入一个新数...
答:
Dim jz() As Long '定义
数组
Private Sub rank(n As Integer, a() As Long) '升序
排列
过程(冒泡
排序
法)For i = 0 To n - 1 flag = 0 For j = n To i + 1 Step -1 If a(j - 1) > a(j) Then t = a(j - 1): a(j - 1) = a(j): a(j) = t: flag = 1 ...
1
2
3
4
5
6
涓嬩竴椤
其他人还搜
数组随机排序
数组排列
数组全排列
编程实现一个数组的全排列
三维数组怎么排列
java数组降序排列
VB6定义几个数的数组
js 数组排序
对数组进行排序