1樓：貌似風輕
private sub form_click()form1.cls
dim i as integer, j as integer, temp as integer
dim a(1 to 10) as integerfor i = 1 to 10
a(i) = int(rnd * 100 + 1)next i
for i = 1 to 9
for j = i + 1 to 10
if a(i) > a(j) then temp = a(i): a(i) = a(j): a(j) = temp
next j
next i
for i = 1 to 10
print a(i);
next i
end sub
2樓：匿名使用者
private sub command2_click()randomize timer
dim a(1 to 10) as integer, i as integer, j as integer, tmp as integer
for i = 1 to 10
a(i) = int(1 + rnd * 100)next
for i = 1 to 10
for j = i to 10
if a(i) > a(j) then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
end if
next
next
for i = 1 to 10
print a(i);
next
將隨機產生範圍從1到100的10個整數放在陣列a(1 to 10)中，用選擇法將陣列中的元素按由小到大的順序輸出。
3樓：娛樂小八卦啊
**如下：
public class array_number {
public static void main(string args) {
double doublearr = new double[10];
listlist = new arraylist();
stroerandomnumber(doublearr);
storeinlist(list, doublearr);
system.out.println(list);
system.out.println("***************==");
getlistelement(list);
擴充套件資料
rand()函式用來產生隨機數，會在0~32767的範圍內隨機返回乙個整型數；使用該函式之前需要引用庫函式"stdlib.h"；其函式原型為：int rand(void)，引數為空，返回值為乙個int型變數。
使用rand()函式來產生隨機數實際上並不是嚴格意義上的隨機數，它是通過乙個演算法來模擬輸出隨機數，因為演算法週期比較長，所以基本就達到了"隨機"，但是如果僅僅使用該函式，那麼每次執行輸出的結果都是一樣的。
srand()：
srand()函式是隨機數發生器的初始化函式。函式原型：void srand(unsigned int seed);，引數是乙個整型變數（隨機數種子）；rand()需要與rand()配合使用，rand()在產生隨機數前，需要系統提供的生成偽隨機數序列的種子，rand根據這個種子的值產生一系列隨機數。
如果系統提供的種子沒有變化，每次呼叫rand函式生成的偽隨機數序列都是一樣的，就像上面的兩個程式一樣，已確定預設種子的值，而srand()函式就起到手動改變種子的作用。
4樓：
private sub command1_click()dim a(1 to 10) as integerfor i = 1 to 10
a(i) = int(rnd * 100) + 1print a(i);
next i
for i = 1 to 9
for j = i + 1 to 10
if a(i) > a(j) then
t = a(i): a(i) = a(j): a(j) = tend if
next j
print a(i);
next i
print a(i);
end sub
vb程式設計問題：1使用隨機函式產生10個10~100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在乙個
5樓：匿名使用者
根據已有的程式行，缺的內容主要就是乙個排序過程。新增乙個排序的過回
程就答行了。但是不知道該添在**，請說明程式的空白處是在**？能不能標出來，比如用括號，星號什麼的，標一下需要補充到**？
或者，能不能說明一下，各文字框，按鈕的功能是什麼？ d = val(text3.text)，這個應該是要插入的資料了，說明text3是用來輸入的，text2.
text = text2.text & str(a(i))，這說明text2是顯示排序後的結果的，
那有沒有text1？用作什麼？兩個按鈕定義的功能是什麼？插入的資料怎麼插？是隨機插入乙個位置，並替換掉原來的資料還是將陣列重新定義隨機插入後，後面的數向後移？
這些需要說明一下，或者把需要填寫的位置標清楚，不然，不好確定該怎麼填。
vb，用氣泡排序法實現對陣列中含有10個元素（隨機產生）的一維陣列進行公升序排列
6樓：匿名使用者
這個要動態演示排序過程麼？還是直接顯示排序的結果？
7樓：
private sub command1_click()dim a(1 to 10) ,i ,j,s as integerrandomize
for i=1 to 10 //隨機10個產生1-100的整數
a(i) = int(rnd * 100) + 1next i
for i=1 to 9
for j=i+1 to 10
if a(i)>a(j) then //如果前面的比後面大，那麼就讓他們交換
s=a(i)
a(i)=a(j)
a(j)=s
end if
next j
next i
for i=1 to 10
print a(i)
next i
end sub
有什麼不明白的，可以追問。
8樓：匿名使用者
dim n(9) as integer
for i = 0 to 9
randomize '初始化
n(i) = rnd * 100 '賦隨機值next i
dim temp as integer '用作改變位置臨時儲存for i = 0 to 8
if n(i) > n(i + 1) then '判斷是否前一位大於後一位
temp = n(i)
n(i) = n(i + 1)
n(i + 1) = temp
i = -1 '為了更準確，讓它重新開始
end if
next i
for i = 0 to 9
print "第" & i + 1 & "位：" & n(i) '輸出
next i
vb程式設計：隨機產生10個0～100的整數 用選擇法從小到大排列 冒泡法從大到小排列
9樓：在晴天的雨傘
新建乙個form1新增command1新增label1label1高度設的稍高一點，以顯示資料。form**檢視中加入以下語句.private sub command1_click() '定義變數
dim a(9) as integer
dim i as integer
dim r as integer
dim t as integer '產生隨機數randomize
for i = 0 to 9
a(i) = cint(rnd() * 100)next i '排序
for i = 0 to 8
for r = i + 1 to 9
if a(i) > a(r) then
t = a(i)
a(i) = a(r)
a(r) = t
end if
next r
next i '顯示資料
label1.caption = ""
for i = 0 to 9
label1.caption = label1.caption + "第" + cstr(i + 1) + "個隨機數=" + cstr(a(i)) + vbcrlf
next i
end sub
c語言，用選擇法對陣列中10個整數按由小到大排序
10樓：
我都不知道說什麼好！i是外迴圈計數變數，由它來安排後面的j迴圈從**開始，所以第i以前的都已經排好序了，這說明i只能一次增1來遍歷陣列。正因為如此，所以才安排乙個臨時變數k來記錄第i以後的所有元素值中最小(或最大)值的下標，以不影響i按部就班地遍歷整個陣列(最後乙個元素可以不包括，因為j是從i+1開始的；當然包括了也不錯，只是多作一次迴圈判斷罷了)。
你倒好，還在迴圈體中對i進行干預！你以為k=i了兩者就一樣了？k=i只是在每一輪迴圈開始時讓k的初值等於i(選擇法演算法要素之一)，而兩者的功能完全不同：
i在當前一輪迴圈中不能改變，是要準備把i以後的元素中最小值拿來與i下標的元素比較看是否應該交換；而k是隨i以後的元素值的大小而遊走的，總是記錄著i以後的元素中當前最小值(或最大值)的下標。你把i當k用，隨時更改它的值，那外迴圈還能正常進行嗎？排序演算法過程全是在外迴圈正確程序下才***，外迴圈被人為擾亂了，其中的演算法還能正常？
況且，外迴圈中還有i++！比如：當前i==5，那麼正常時下一輪應該是i==6；可你內迴圈把i當臨時變數k使，倘若array[9]是最小的，那麼i立馬被賦值為9了，……程序退到外迴圈由於i++的作用i就是10了，那麼i 看**首先要理解**思想，再研究怎麼用c的合法語句體現這種思想，所以必須把乙個功能模組整體觀察…… 11樓：夜獨行孤單 int i , j ,min ; for ( i = 0 ; i < n-1 ; i ++ )int temp = arr[ i ] ; arr[ i ] = arr [ min ] ; arr[ min ] = temp;} 12樓：謇蕊郟冬梅 太奇葩了吧？再把k=i改成d=i，把if(array[j] vb試題用隨機函式產生 10個兩位數的整數放在陣列a中並輸出，用隨機函式產生10個一位數的整數放入數 13樓：匿名使用者 新建一bai工程，在窗體上拖入一ducommand控制項。然後進zhi入**區 dao，刪除所有**後，粘內貼以下**即容可。 option explicit private sub command1_click()dim a(9) as integer, b(9) as integer, c(9) as integer dim i as integer randomize clsprint "陣列a", "陣列b", "陣列c" for i = 0 to 9 a(i) = rnd() * 9 + 10 '產生隨機兩位整數b(i) = rnd() * 9 '產生隨機一位整數c(i) = a(i) + b(i) '將對應的隨機數相加print a(i), b(i), c(i) '結果輸出到窗體上next i end sub 執行效果如下圖所示： dim a 1 to 20 as integerprivate sub command1 click clsscale 0,0 100,100 for u 1 to 20 a u int rnd 50 50b b a u print a u next u c b 20 for i 1 to 19 f... 參考一下這個，vb6.0做個隨機排序的軟體，有 裡面定義了乙個常量const pxsl 50，修改這個常量，就可以用作其他數量的內容隨機無重複排列了。定義了乙個dim stryuan pxsl 1 as string 源陣列 作為原始資料存放的陣列，用迴圈賦值為1 50，以此為例演示了無重複生成排列... 可以的，先設定textbox的屬性值，確定範圍，隨機數產生用 rnd函式。比如 int rnd 整數n 產生0,1,2,3，n 1中的隨機數。rnd產生的是0 1的隨機數。例如 int rnd n m 1 m 產生的是在區間 m，n 內的數。randomize 關鍵必須有，不然每次執行隨機數都不變n... 如下，僅供參考 include include include using namespace std int main sum sum 20 cout 最大值為 cout 最小值為 cout 平均值為 return 0 利用隨機函式產生50 100範圍內的20個隨機整數，顯示其中的最大值 最小值 ... dim a 1 to 35 randomize for i 1 to 35 a a i int rnd 36 for j 1 to i 1 if a i a j then goto anext j next i 請參考這個題我的回答 同樣是關於vb隨機數生成的。這很簡單 以窗體click事件為例 d...vb方面的 利用隨機函式產生50 100範圍內的隨機
VB中如何在隨機範圍內產生無重複隨機數
vb程式設計，產生隨機數，vb程式設計，產生隨機數
利用隨機函式產生50至100範圍內的隨機數，顯示他們的
vb隨機函式，vb隨機函式