1樓：匿名使用者
dim a as integer
dim b as integer
private sub command1_click()randomize
a = int(rnd * 100 + 10)randomize
b = int(rnd * 100 + 10)if a > b then
msgbox "大的數字是" & a & ",小的數字是" & belsemsgbox "大的數字是" & b & ",小的數字是" & a
end if
abs(a - b)
end sub
在vb中比較三個數的最小值，思路如下圖，但是會輸出三個數值，怎麼修改**
2樓：有開就好
把邏輯簡化，用不著這麼多句。
vb列表框隨機產生10個數 刪除最大最小值新增資料
3樓：網友
private sub command1_click()for i = 1 to 10
int(100 * rnd) '隨機產生10個數。
next i
end sub
private sub command2_click()j =
if j > 0 then
min = val(
max = min
for i = 0 to j - 1
vali = val(
if min > vali then '找最小值。
min = vali
imin = i
end if
if max < vali then '找最大值。
max = vali
imax = i
end if
nextprint min, max
imax)imin)
end if
end sub
用vb編寫隨機產生一組資料，求這組資料的最大最小值或排序
4樓：網友
option explicit
private mcount()
對陣列mcount進行排序，排序後順序是從小到大sub sortint(mcount())dim arrbuf()
dim dmax
dim dmin
dim dbuf
dim i%, j%, k%, p%
arrbuf = mcount
i = ubound(arrbuf)
k = 0j = 1
do while i >= k
doevents
dmin = arrbuf(k)
dmax = arrbuf(i)
if dmin > dmax then
dbuf = dmin
dmin = dmax
dmax = dbuf
end if
for p = j to i - 1
if arrbuf(p) >dmax thendbuf = dmax
dmax = arrbuf(p)
arrbuf(p) = dbuf
elseif arrbuf(p) dmin = arrbuf(p)
arrbuf(p) = dbuf
end if
nextarrbuf(k) = dmin
arrbuf(i) = dmax
j = j + 1
k = k + 1
i = i - 1
loopif i = k then
if arrbuf(i) >dmax thendbuf = arrbuf(i + 1)
arrbuf(i + 1) = arrbuf(i)arrbuf(i) = dbuf
elseif dmin > arrbuf(i) thendbuf = arrbuf(i - 1)
arrbuf(i - 1) = arrbuf(i)arrbuf(i) = dbuf
end if
end if
mcount = arrbuf
end sub
private sub commandbutton1_click()redim mcount(10000)
dim i as integer
dim z%
for i = 1 to 10000
mcount(i) = rnd * 1000, 4) = mcount(i)
nextsortint mcount
for i = 1 to 10000
5) = mcount(i)
nextend sub
用vb做 1．隨機產生10個正整數，求其中的最小值，並將原始資料和最小值顯示在窗體中。
5樓：網友
private sub form_click()randomize
min = 1000
for i = 1 to 10
a = int(rnd() 100)
if min > a then min = aprint a;
if i mod 5 = 0 then printnext
print "這些數中的最小數是："; minend sub
vb中怎麼表示最小值
6樓：網友
需要去比較你所有的符合條件的a+b
怎樣用Excel計算兩組資料的乘積？
材料 工具 excel 首先開啟excel,由於我是在這裡做演示，所以隨便輸入了兩組資料現在我們要計算這兩組資料的乘積。 首先我們要計算一下下圖中所選定的資料，選定這一組資料然後點選簡鄭上方的函式按鈕。 在彈出的選單中並沒有我們需要用到的乘積的公式，就點選一下其他函式這個選項。 在插入函式的頁面中，...
怎麼用spss檢驗兩組資料的差異是否顯著
檢驗方式 給出了兩組各 10名品酒員對一批白葡萄酒和一批紅葡萄酒的品評結果，以及這兩批葡萄酒的相應理化指標及釀酒葡萄的相應成分指標。對兩組品酒員評判結果應用 t 檢驗分析判斷兩組評判結果的差異性。根據成對雙樣本均值分析取每組品酒員對某種酒的樣本評分的平均值進行t 檢驗分析，得出兩組評判員對某種葡萄酒...
spss中兩組資料的顯著性差異怎麼分析
檢驗方式 給出了兩組各 10 名品酒員對一批白葡萄酒和一批紅葡萄酒的品評結果，以及這兩批葡萄酒的相應理化指標及釀酒葡萄的相應成分指標。對兩組品酒員評判結果應用 t 檢驗分析判斷兩組評判結果的差異性。根據成對雙樣本均值分析取每組品酒員對某種酒的樣本評分的平均值進行 t 檢驗分析，得出兩組評判員對某種葡...