1樓：匿名使用者
分成隔成陣列，並隨機的調換一下元素，再合併成字串輸出到文字框private sub command1_click()dim items
items = split(text1.text, vbcrlf)dim i as integer
dim u as integer
u = ubound(items)
for i = u to 0 step -1if items(i) <> "" then u = i: exit for
next
randomize
dim rndindex as integerdim item as stringfor i = 1 to u * 3
rndindex = int(rnd * (u + 1))item = items(rndindex)items(rndindex) = items(u)items(u) = item
next
text2.text = join(items, vbcrlf)end sub
2樓：網海1書生
dim s() as string, i as long, j as long, k as integer
s = split(text1.text, vbcrlf)text2.text = ""
randomize
for i = 0 to ubound(s)for j = 1 to 10000
k = int(rnd * (ubound(s) + 1))if s(k) <> "" then
text2.text = text2.text & s(k) & vbcrlf
s(k) = ""
exit for
end if
next
if j > 10000 then exit fornext
vb如何隨機讀取txt中任意一行的內容，然後輸出到text1.text？
用vb，生成一個1到100之間的隨機數
3樓：匿名使用者
private sub command1_click()
label1.label1 = int(rnd(1) * 100)
end sub
4樓：湘湖泛舟
dim myvalue
randomize ' 對隨機數生成器做初始化的動作。
myvalue = int((100 * rnd) + 1) ' 生成 1 到 100 之間的隨機數值。
5樓：泣覓山
private sub command1_click()text1.text = int(rnd(1) * 100)end sub
點選按鈕command1 就在文字text1裡輸出 隨即數
6樓：匿名使用者
randomize
(rnd * 100)+1
7樓：匿名使用者
int(rnd*(100+1)+1)
或者 int(100*rnd+1)
用vb程式設計實現隨機產生一個100到999之間的隨機數,並將此數逆序輸出
8樓：匿名使用者
dim b as integer
dim d as integer
b = rnd() * 900 + 100d=strreverse(b)
vb如何生成隨機數
9樓：飛喵某
1、開啟「microsoft visual basic 6.0 中文版」軟體，準備一個空白的工程檔案：
2、然後需要一個命令按鈕，單擊左側工具箱中的「命令按鈕」，在窗體中右側拖動滑鼠左鍵畫出即可：
3、雙擊該命令按鈕，這裡演示輸入**列印0～10之間的任意隨即整數，生成其他範圍的隨機整數公式為「int（（上限-下限+1）*rnd+下限）」，如果是1到53就是「int（（1-53+1）*rnd+53」：
4、寫完之後執行程式，每單擊一次命令按鈕，就會在窗體上列印一個0～10之間的隨即整數：
10樓：匿名使用者
1、隨機生成數生成通式：
randomize 『必要**，不然的話每次隨機生成都是一樣的數
a=int(rnd*(m-n+1))+n 』 其中m>n生成n~m間（包括n，m）的隨機整數
假如我想隨機生成20-100間 ，那麼就是n=20，m=100
**是int(rnd*(100-20+1))+20
2、**：
private sub command1_click()
clsdim n as integer
dim wzs(10) as integer
n = 1
while n <= 10
wzs(n) = int(rnd * 1000)
n = n + 1
wend
n = 1
while n <= 10
print wzs(n)
n = n + 1
wend
擴充套件資料
隨機數是專門的隨機試驗的結果。
在統計學的不同技術中需要使用隨機數，比如在從統計總體中抽取有代表性的樣本的時候，或者在將實驗動物分配到不同的試驗組的過程中，或者在進行蒙特卡羅模擬法計算的時候等等。
產生隨機數有多種不同的方法。這些方法被稱為隨機數生成器。隨機數最重要的特性是它在產生時後面的那個數與前面的那個數毫無關係。
參考資料
11樓：新時代向前衝
其實隨機生成數很簡單：
randomize 『必要**，不然的話每次隨機生成都是一樣的數
a=int(rnd*(m-n+1))+n 』其中m>n生成n~m間（包括n，m）的隨機整數
假如我想隨機生成20-100間
那麼就是n=20，m=100
**是int(rnd*(100-20+1))+20
visual basic（簡稱vb）是microsoft公司開發的一種通用的基於物件的程式設計語言，為結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。是一種可用於微軟自家產品開發的語言。 [1]
「visual」 指的是開發圖形使用者介面 (gui) 的方法——不需編寫大量**去描述介面元素的外觀和位置，而只要把預先建立的物件add到螢幕上的一點即可。 「basic」指的是 basic (beginners all-purpose symbolic instruction code) 語言，是一種在計算技術發展歷史上應用得最為廣泛的語言。
visual basic源自於basic程式語言。vb擁有圖形使用者介面（gui）和快速應用程式開發（rad）系統，可以輕易的使用dao、rdo、ado連線資料庫，或者輕鬆的建立active x控制元件，用於高效生成型別安全和麵向物件的應用程式 [2] 。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
12樓：匿名使用者
vb隨機數生成函式是 rnd[(number)]，number 引數為可選項。在呼叫 rnd 生成隨機數之前，先使用 randomize 初始化隨機數生成器來產生種子，該生成器是根據系統計時器來產生種子的
13樓：
通過一個函式random，就會生成你需要的隨機數，希望對你有幫助
14樓：
將以下**輸入即可
private sub form_click() '窗體click()事件
randomize
'防止每次生出隨機數一樣
print int(rnd * 53) + 1'rnd()生成[0，1）的隨機數，int（）是取整end sub
改text1的font屬性，那有改字號的
15樓：匿名使用者
'下面**產生不重複的隨機數
private sub command1_click()
dim a(1 to 53) as string, tmp as integer
dim i as integer, j as integer, k as integer
for i = 1 to 53 '先按順序編號
a(i) = i
next
randomize timer
for i = lbound(a) to ubound(a) '共執行53次
j = rnd * 52 + 1 '產生第一個隨機數
k = rnd * 52 + 1 '產生第二個隨機數
'把這二個數的數值交換，以達到打亂次序的目的
tmp = a(j)
a(j) = a(k)
a(k) = tmp
next
text1.font.size = 18 '字型變大
text1.text = join(a, ",") '產生的隨機陣列顯示到text1.text上
end sub
【j**a】求助怎麼把一個陣列元素隨機打亂順序，謝謝~~~
16樓：匿名使用者
new一個長度為10000的鍵值對,陣列a做健,值為隨機數,用值排序輸出.排序的時候重複的按原順序,實際還是隨機
17樓：匿名使用者
暈.不用那麼麻煩.
先轉化為list（為什麼不一開始就用list呢？）例：string arr = new string ;
list list = arrays.aslist(arr);
直接呼叫shuffle，就是隨機排序
例：collections.shuffle(list);
直接輸出就是你想要的結果
18樓：miho蓓
樓上正解
collections本來就是集合的幫助類
做運算 用它再合適不過了··
如何通過一條SQL實現一條資料關聯多個表 如表A中的一條資料關聯表B 表C 表D等其他表
1.開啟sqlserver,在物件管理器裡找到要搞的庫右鍵 任務 生成指令碼 2.在彈出的嚮導中跟著嚮導一步一步做吧，最後可以搞出一個檔案 3.一個庫就一個檔案你就直接在mysql裡執行s 搞清楚表之間的關係 例如表a用b欄位跟b的b欄位關聯，用c欄位跟表c的c欄位關聯，用d欄位跟d的d欄位關聯 s...
如何查詢表中，各個分類的前面2條資料，用一條sql語句
執念如此 select from 表名 where 分類名 or 分類名 order by 排序欄位 asc limit 條數總和 貌似只能用來查不同分類的相同條數，比如都是兩條都是三條 select top2 from 表名 where 條件1union select top2 from 表名 w...
裡字前面有一條豎線怎麼去掉，word文件裡字前面有一條豎線怎麼去掉
nice山東草原狼 可能是修訂功能的線 修改完才能刪除稽核意見，最終是審閱 修訂 選擇 最終狀態 word中文字左邊出現豎線 不可以刪除怎麼解決？ 我是武四 設定方法 1 單擊頁面佈局選項卡右下角如圖所示的按鈕 2 彈出頁面設定對話方塊，選擇版式選項卡，在垂直對齊方式處選擇居中即可，如圖所示。 選中...