vb題 輸入任意數放入陣列a，把其中的整數放入陣列b，排序後將所有整數輸出

1樓：數學與計算機程式設計

private sub command1_click()clsrandomize (timer)

dim a(19) as single, b() as longfor i = 0 to 19

a(i) = rnd * 10000000print a(i);

if (i + 1) mod 10 = 0 then printif int(a(i)) = a(i) thenredim preserve b(k)

b(k) = a(i)

k = k + 1

end if

next i

print

for i = lbound(b) to ubound(b) - 1for j = i + 1 to ubound(b)if b(j) < b(i) then

t = b(i)

b(i) = b(j)

b(j) = t

end if

next j

next i

for i = lbound(b) to ubound(b)print b(i);

if (i + 1) mod 10 = 0 then printnext i

end sub

2樓：春秋戰甲

c語言中陣列都是有型別定義的，不存在「任意數」吧。

3樓：匿名使用者

這你都不會寫？你學過vb嗎？

vb產生30個0~1000的隨機整數,放入乙個陣列中，輸出最大值

4樓：兄弟連教育北京總校

'實現**如下

private sub form_click()me.cls

dim n(1 to 30) as integerdim i%,nmax%

dim str as string

'產生30個0-1000的隨機數並寫入陣列randomize

for i = 1 to 30

n(i) = int((1000 - 0 + 1) * rnd + 0)

str = str & n(i) & " "

if i mod 10=0 then str=str & vbcrlf

next i

'找最大值

nmax=n(1)

for i = 1 to 30

if n(i)>nmax then nmax=n(i)next i

print str '窗體顯示隨機數

print "最大值：" & nmax

end sub

vb習題：通過輸入對話方塊輸入一批正整數，將其中的偶數存入陣列a，奇數存入陣列b，然後分別以每行10個輸出

輸入100個數值資料放入陣列a.將整數放入陣列b,然後分類將陣列b中的數按大小排列,每行5個資料輸出

5樓：匿名使用者

你應該寫上用什麼語言啊，大哥

6樓：

#include

void main()

,a[100]=;

int k,n;

printf();

for(i=0;i<100;i++)

}n=j+1;

for(i=0;i<=n-1;i++)}}for (i=0;i

printf("\n");}}

vb題目：隨機產生20個正整數存入二維陣列a(4,5),並輸出到文字框text1中，找出其中的素數存入一維陣列b並輸

7樓：歸萱

private sub command1_click()dim i, j, a(1 to 4, 1 to 5) as integer, p, b(), n, temp

text1 = ""

for i = 1 to ubound(a, 2)for j = 1 to ubound(a, 1)randomize

a(j, i) = int(rnd * 100) '0-99的正整數text1 = text1 & a(j, i) & " "

if fc(a(j, i)) then

n = n + 1

redim preserve b(1 to n)b(n) = a(j, i)

end if

next

print

next

if n > 0 then

text2 = join(b)

else

text2 = ""

text3 = ""

exit sub

end if

for i = 1 to ubound(b) - 1p = i

for j = i + 1 to ubound(b)if b(j) < b(p) then p = jnext j

if p <> i then

temp = b(p)

b(p) = b(i)

b(i) = temp

end if

next

text3 = join(b)

end sub

function fc(n) as booleandim i

if n < 2 then exit functionfor i = 2 to int(sqr(n))if n mod i = 0 then exit functionnext

fc = true

end function

c語言程式設計:從鍵盤輸入20個整數存入陣列b中,要求逆序輸出,

8樓：匿名使用者

簡單**如下：

思路:首先輸入20個數；

然後逆序輸出。

#include

void main()

9樓：酷哥

#include"stdio.h"

void main()

char a[21],b[21];

int i;

printf("請輸入乙個20位的陣列：\n");

scanf("%s",b);

for(i=0;i<20;i++)

a[19-i]=b[i];

a[20]='\0';

printf("逆序儲存後的陣列為：%s\n",a);

10樓：心向自由天空

#include

void main()

用vb程式設計任意輸入數輸出其中最大值

桖卉 private sub command1 click a val inputbox 請輸入第一個數 b val inputbox 請輸入第二個數 print 你輸入的數分別是 a 和 bprint 其中較大數是 if a b then print a else print b end if e...

編寫程式其功能是 任意輸入整數到一維陣列中，計算

第一，你的第二迴圈中，a b c在第一次計數後，又重複了一次，所以不對。第二，你沒有對sum1,sum2累加，所以完成迴圈後，sum1,sum2存放的是最後一次判斷的數 同時，正負數和零的計數 累計等都可以在一個迴圈體內完成，不需要分在兩個迴圈裡分別進行，所以程式可以簡化一下 include voi...

VB題 定義具有元素的一維陣列,並對其隨機賦值,然後求出其中元素值為奇數的元素的和

程式如下，用了二個列表框，乙個放隨機的20個數，另乙個放為奇數的，結果在視窗上列印出來。dim aa 20 as integerrandomize 隨機數初始化ss 0 for i 1 to 20 aa i rnd 1 1000 0.5 隨機產生乙個數，轉換為整數 list1.additem aa ...