1樓：匿名使用者
private sub command1_click()dim b(0 to 10) as integer, mp as integer, i as integer, x as integer
randomize
for i = 0 to 10
b(i) = int(rnd * (100 - 1 + 1) + 1)
print b(i);
next
for i = 10 to 0 step -1print b(i);
next i
end sub
2樓：匿名使用者
option explicit
private sub command1_click()dim s() as long, ts as long, sl as long, tsl as long
sl = 12
tsl = sl + 1
redim s(tsl)
dim i as long
print "陣列個數: " & tsl, "最小下標: " & 0 & " 最大上標： " & sl
for i = 0 to tsl
s(i) = rnd * 100
print s(i);
next
for i = 0 to tsl / 2
ts = s(i)
s(i) = s(tsl - i)
s(tsl - i) = ts
next
for i = 0 to tsl
print s(i);
next
end sub
3樓：匿名使用者
這個就是這個拍方法資料的問題啊，很簡單的！rnd和randomize 函式
vb編寫隨機產生一個陣列，並且將陣列元素逆序存放。（一維陣列）
4樓：匿名使用者
逆序：從大到小，還是，從小到大，還是什麼？
5樓：匿名使用者
private sub command8_click()dim b(0 to 10) as integer, mp as integer, i as integer, x as integer
randomize
for i = 0 to 10
b(i) = int(rnd * (100 - 1 + 1) + 1)
print b(i)
next
for i = 0 to ubound(b)for x = i + 1 to ubound(b)if b(x) > b(i) then
mp = b(i)
b(i) = b(x)
b(x) = mp
end if
next
print b(i)
next
end sub
vb程式設計：隨機生成10個資料，用一維陣列存放(預設下標從1開始)，輸出陣列元素於一行，將該陣列元素... 20
6樓：匿名使用者
新建一個工程，在窗體上新增一個按鈕，輸入以下**，執行點選按鈕就可private a1&(1 to 10), a2&(1 to 10)private sub command1_click()dim b1&, b2&
for b1 = 1 to 10
a1(b1) = int(rnd() * 100)print a1(b1);
next
for b1 = 10 to 1 step -1print a1(b1);
next
print "下標奇數：";
for b1 = 1 to 10 step 2print a1(b1);
next
print "下標偶數：";
for b1 = 2 to 10 step 2print a1(b1);
next
end sub
7樓：丹溪藍終覓
option
base
語句在模組級別中使用，用來宣告陣列下標的預設下界。語法option
base
說明由於下界的預設設定是
0，因此無需使用
option
base
語句。如果使用該語句，則必須寫在模組的所有過程之前。一個模組中只能出現一次
option
base，且必須位於帶維數的陣列宣告之前。注意dim、private、public、redim以及static
語句中的
to子句提供了一種更靈活的方式來控制陣列的下標。不過，如果沒有使用to子句顯式地指定下界，則可以使用
option
base
將預設下界設為
1。使用
array
函式或paramarray
關鍵字建立的陣列的下界為
0；option
base
對array
或paramarray
不起作用。option
base
語句隻影響位於包含該語句的模組中的陣列下界。
vb程式設計:隨機產生10個1到20之間的整數，放在陣列a中，然後將a的元素倒序存放，即第一個變為最後
8樓：匿名使用者
private sub form_click() '單擊窗體dim a(1 to 10)
randomize
print "原陣列：";
for i = 1 to 10
a(i) = int(rnd * 20 + 1)print a(i); " ";
next
print "調換後：";
for i = 1 to 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
next
for i = 1 to 10
print a(i); " ";
next
end sub
雙擊窗體 開啟**視窗 清楚裡面所有內容 複製上面**進去~ 按f5執行 點選窗體 顯示效果
9樓：周俊
option base 1
private sub command1_click()dim s(10) as integer
for i = 1 to 10
s(i) = rnd() * 10+10
print s(i)
next i
print "以上是初始的10個隨機整數"
for a = 10 to 1 step -1print s(a)
next a
print "以上逆轉順序後的10個隨機整數"
end sub
10樓：聽不清啊
private sub command1_click()dim a(10) as integer
randomize
print "原來的數："
for i = 1 to 10
a(i) = int(rnd * 20) + 1print a(i);
next i
print "交換以後的數："
i = 1: j = 10
do while i < j
t = a(i): a(i) = a(j): a(j) = ti = i + 1: j = j - 1
loop
for i = 1 to 10
print a(i);
next i
print: print
end sub
c語言程式設計：程式設計實現將一個陣列逆序輸出
11樓：很多很多
1、首先開啟軟體vc++6.0軟體，準備一個空白的c語言檔案，引入標頭檔案並寫好主函式：
2、然後輸入**，首先定義陣列，接著用一個for迴圈接受使用者輸入的陣列元素並將其列印到螢幕上，並儲存到前面的陣列中，然後用第二個for迴圈逆序排序，方法就是前面的元素和後面的元素比較大小，前面比後面小就交換順序，最後再用一個for迴圈輸出排序的結果：
3、最後編譯執行寫好的程式，開啟一個命令列，輸入7個不同的數，之後程式就會把輸入的數逆序輸出了。以上就是c語言程式設計實現陣列逆序輸出的方法：
12樓：凌亂心扉
#include
int main()
;int i;
for(i=4;i>=0;i--)
printf("\n");
return 0;
}擴充套件資料：
**：#include"iostream"
#define n 5
using namespace std;
int main()
,i,temp;
printf("\n original array:\n");
for(i=0;iprintf("%4d",a);
for(i=0;i
printf("\n sorted array:\n");
for(i=0;iprintf("%4d",a);
system("pause");
return 0;}
13樓：碧海風雲
陣列逆序輸出，只要從陣列最後一位向前迴圈輸出即可。
#include
int main(void) ;
int i;
printf("原始陣列為：\n");
for(i=0;i<10;i++)
printf("逆序為：\n");
for(i=9;i>=0;i--)
printf("%d\t",arr[i]);
printf("\n");
return 0;
}執行結果
14樓：wo騎鶴上揚州
#include"stdio.h"
void main()
15樓：挑戰本我
/*n為陣列內數字個數，使用時請自己替換*/#include
void main()
也可以用指標，不過以上方法是可行的
16樓：匿名使用者
#include
void main(void)
17樓：匿名使用者
#include "stdio.h"
#define n 5
int main()
,i,temp;
printf("\n original array:\n");
for(i=0;i printf("%4d",a[i]); for(i=0;i printf("\n sorted array:\n"); for(i=0;i printf("%4d",a[i]); printf("\n"); return 0;} vb編寫程式實現以下功能：設有一個二維陣列a(4，4)，每個陣列元素為兩位的隨機正整數[10,100)。 18樓：匿名使用者 private sub command1_click() '交換第二列和第四列 text1.text = "" text2.text = "" label1.caption = "" dim aa(1 to 4, 1 to 4) as integer, bb(1 to 4, 1 to 4) as integer text1.text = "交換前的資料" & vbcrlf for i = 1 to 4 for j = 1 to 4 randomize aa(i, j) = int(rnd * 89 + 11) bb(i, j) = aa(i, j) text1.text = text1.text & aa(i, j) & space(2) '顯示交換前的資料 next j text1.text = text1.text & vbcrlf next i for i = 1 to 4 for j = 1 to 4 if j = 2 then bb(i, j + 2) = aa(i, j) '將第二行資料儲存到第四行 elseif j = 4 then bb(i, j - 2) = aa(i, j) '將第四行資料儲存到第二行 end if next j next i text2.text = "交換後的資料" & vbcrlf for i = 1 to 4 for j = 1 to 4 text2.text = text2.text & bb(i, j) & space(2) '顯示交換後的資料 next j text2.text = text2.text & vbcrlf next i end sub private sub command2_click() '統計結果 label1.caption = "" dim xx as string, yy as string, kk as integer, dd() as string, kk1 as integer xx = text1.text yy = text2.text if len(xx) <= 5 then msgbox "文字框1輸入的字元不能小於5個字元！" exit sub end if if len(yy) <> 1 then msgbox "文字框2輸入的字元必須是1個字元！" exit sub end if kk = len(xx) redim dd(1 to kk) kk1 = 0 for i = 1 to kk dd(i) = right(left(xx, i), 1) if asc(dd(i)) = asc(yy) then kk1 = kk1 + 1 next i label1.caption = "文字框1中包含" & yy & "字元有" & kk1 & "個。" end sub 隨機數重複的做法 把text1 text3的multiline屬性設定為true dim a 100 as integerprivate sub command1 click k 1 if text2.text then exit subfor i 1 to 100 if a i text2.tex... private sub command1 click dim i as integer,j as integerdim l as long,h as longfor i 1 to 10 h 1 for j 1 to i h h j next l l h next print l end sub pr... option explicit private sub command1 click dim a as integer dim i,j,n redim a 9,9 for i 1 to 8 print tab 25 i 2 for j 1 to i a i,1 1 a i,i 1 a i 1,j 1...用vb程式設計序實現
vb程式設計計算，VB程式設計計算 1 2
vb程式設計教程答案，vb程式設計教程答案