-
工具材料:以 Microsoft Visual Studio 2010 為例。
1.首先在桌面上,單擊“Microsoft Visual Studio 2010”圖示。
2. 然後在此介面中,輸入 20 個隨機生成的 50-108 整數(包括 50 和 108)以分配給一維陣列 **“dim arr(1 to 20) as integer dim max as integer for i = 1 to 20 arr(i) = int(rnd() 58 + 50)”。
4. 最後,在此介面中,輸入最大值 **for i = 1 到 20 if max < arr(i) then max = arr(i) end if”。
-
private sub form_load()= ""
dim arr(1 to 20) as integerdim max as integer
for i = 1 to 20
arr(i) = int(rnd() 58 + 50)= arr(i) &"_" &
nextfor i = 1 to 20 '這是乙個簡單的過程,用於查詢最大值,如果 max < arr(i) 那麼
max = arr(i)
end if
next "最大值為:" & max & " " & vbcrlf & "原始資料為:" & vbcrlf & "排序後為:"
for i = 2 to 20
temp = arr(i)
j = i - 1
do until temp < arr(j)arr(j + 1) = arr(j)
j = j - 1
if j = 0 then
exit do
end if
looparr(j + 1) = temp
next i
for i = 1 to 20
arr(i) &" - "
next i
end sub
-
下面是一種語言,它生成 30 個介於 50 和 100 之間的隨機整數,輸出可被 7 整除並平衡的數字,並找到它們的總和
執行此輸出 30 個介於 50 和 100 之間的隨機整數,以及最後一行可被 7 整除的數字之和。
-
dim i as integer, num as integer, sum as integer
randomize '初始化隨機數生成器。
for i = 1 to 30 '迴圈生成 30 個數字。
num = int((100 - 50 + 1) *rnd() 50) '生成介於 50 和 100 之間的隨機整數。
if num mod 7 = 0 then '判斷鄭琦能不能被7整除。
sum = sum + num '累積可被 7 整除的數字。
num '輸出乙個可被 7 整除的數字。
end if
next i
可被 7 整除的數字 喊叫 凝視 和 對於:" sum '輸出可被 7 整除的數字之和。
-
總結。 整理有序資料。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
在一維陣列中,先輸出預排序資料,然後使用選擇排序的演算法進行排序,最後丟失。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
整理有序資料。
在一維陣列中,先輸出預排序資料,然後使用選擇排序的演算法進行排序,最後丟失。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
整理有序資料。
在一維陣列中,先輸出預排序資料,然後使用選擇排序的演算法進行排序,最後丟失。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
整理有序資料。
在一維陣列中,先輸出預排序資料,然後使用選擇排序的演算法進行排序,最後丟失。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
整理有序資料。
在一維陣列中,先輸出預排序資料,然後使用選擇排序的演算法進行排序,最後丟失。
選擇排序):C語言編寫程式,在main函式中用乙個隨機函式生成20個整數,在[0-100]之間,儲存。
-
13-rnd*24
int(rnd(1)+4) 產生 [4,5] 的數字。
int(rnd()*12)+7) 產生乙個介於 [-5,7] 之間的數字。
我不擅長數學,所以我自己把兩者相乘。
-
list list1 = new arraylist();儲存 50 個隨機數。
list list2 = new arraylist();儲存它們為偶數的隨機數。
int rannum;
生成 50 個隨機數並將它們放入 list1,其中偶數分別放入 list2。
for (int i = 0; i < 50; i++)
對偶數進行排序(公升序);
按降序輸出偶數。
for (int i = ; i > 0; i--)
混淆所有資料;
-
一看到這些關於炒飯的問題,我就噁心了。
-
有很多方法可以在表單上新增乙個按鈕、兩個標籤,請參見下圖
窗體的 autoredraw 屬性更改為 true,兩個標籤的 autosize 屬性都更改為 true。
啟動後請參見下圖:
點選按鈕檢視下圖
完整的**如下:
option explicit
private d(7, 5) as integerprivate a(35) as integerprivate sub command1_click()dim i as integer
dim j as integer
dim n as integer
生成 1-35 個隨機序列並將它們存放在陣列 a 中
n = 0randomize
do while n < 35
j = int(rnd * 35 + 1)for i = 1 to n
if j = a(i) then exit fornext i
if i > n then
n = n + 1
a(n) = j
end if
迴圈根據陣列 A 系列將陣列 D 重新分配給陣列 D。
n = 0for i = 1 to 7
for j = 1 to 5
n = n + 1
d(i, j) = a(n)
next j
next i
如表 2 所示。
" & vbcrlf
for i = 1 to 7
for j = 1 to 5
right(" " & cstr(d(i, j)),4)
next j
vbcrlf
next i
end sub
private sub form_load()dim i as integer
dim j as integer
dim n as integer
陣列 d 初始化。
n = 0for i = 1 to 7
for j = 1 to 5
n = n + 1
d(i, j) = n
next j
next i
如表 1 所示。
" & vbcrlf
for i = 1 to 7
for j = 1 to 5
right(" " & cstr(d(i, j)),4)
next j
vbcrlf
next i
end sub