vb隨機產生1 9的整數放入5 5的二維陣列中輸出,且統計出邊界元素之和與對角線元素之和

2021-03-22 02:54:15 字數 6119 閱讀 6915

1樓:偵探章邯

編制單擊窗體的事件過程,做如下處理:

從檔案c:\a.txt中依次讀出20個學生的學號以及2門功課成績,統計每個學生的總分,並按照總分從高到低進行排序,然後將學生資訊按照總分從高分到低分輸出到c:

\b.txt。

輸入檔案c:\a.txt格式 "0001",20,30"0002",80,90

......

輸出檔案c:\b.txt格式

「0008",90,90,180

"0002」,80,90,170

輸出檔案那一列是在右邊,我這裡打不下所以才在下面某陣列有20個數,元素的值由鍵盤輸入,要求將前10個元素對調,即第一個與第20個對調,第二個與第19個對調.....第十個與第十一個元素對調。輸出陣列原來元素的值和對調後元素的值。

隨機產生25個1~9的整數放入5×5的二維陣列中並輸出,且統計出 1.邊界元素之和 2.

2樓:雲飄風撫

private sub ***mand1_click()dim a(5, 5) as integerdim sum as integer, i as integer, j as integer

dim s as integer

for i = 1 to 5

for j = 1 to 5

a(i, j) = int(rnd * 9 + 1)print a(i, j);

next j

print

next i

for i = 1 to 5

for j = 1 to 5

sum = sum + a(i, j)

next j

next i

print sum

for i = 1 to 5

s = a(i, i)

next i

s = s + a(1, 5) + a(2, 4) + a(4, 2) + a(5, 1)

print s

end sub

3樓:我是達浪啊

隨機產生25個1~9的整數放入5×5的二維陣列中並輸出,且統計出 1.邊界元素之和

vb程式設計**:定義一個5×5的二維陣列,隨機產生25個兩位數(10,99)存於該二維陣列元素中,統

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

//#include "stdafx.h"//vc++6.0加上這一行.

#include "stdio.h"

#include "time.h"

#include "stdlib.h"

int main(void)

如果只計算

一條主對角線,則:

int main(void)

vb 定義5*5的二維陣列,隨機產生25個兩位數存於二維陣列中,計算對角線的平均值

5樓:匿名使用者

vb6新建一工程‍,在窗體上拖入一個命令按鈕。然後進入**區,刪除所有**後,貼上以下**即可:

option explicit

private sub ***mand1_click()

dim a(4, 4) as long

dim i as long, j as long

dim k as long, s1 as long, s2 as long

randomize

me.autoredraw = true

for i = 0 to 4

for j = 0 to 4

a(i, j) = rnd() * 89 + 10

print a(i, j),

if i = j then s1 = s1 + a(i, j)

if i + j = 4 then s2 = s2 + a(i, j)

next j

print

next i

print "對角線的值的平均值有兩個。"

print "從左上角到右下角:"; s1 / 5, "從右上角到左下角:"; s2 / 5

end sub

執行效果圖如下:

vb 定義一個5×5二維陣列 隨機產生25個二位數存於此陣列中,統計陣列對

6樓:兄弟連教育北京總校

vb6新建一工程‍,在窗體上拖入一個命令按鈕。然後進入**區,刪除所有**後,貼上以下**即可:

1option explicit

private sub ***mand1_click()

dim a(4, 4) as long

dim i as long, j as long

dim k as long, s1 as long, s2 as long

randomize

me.autoredraw = true

for i = 0 to 4

for j = 0 to 4

a(i, j) = rnd() * 89 + 10

print a(i, j),

if i = j then s1 = s1 + a(i, j)

if i + j = 4 then s2 = s2 + a(i, j)

next j

print

next i

print "對角線的值的平均值有兩個。"

print "從左上角到右下角:"; s1 / 5, "從右上角到左下角:"; s2 / 5

end sub

用vb程式將1到25的自然數依次賦值給5*5的二維陣列並且輸出陣列的下三角。

7樓:南瓜蘋果

**如下:

private sub ***mand1_click()dim a(1 to 6, 1 to 6) as integerfor i = 1 to 5

for j = 1 to 5

tmp = 99

if i < tmp then

tmp = i

end if

if j < tmp then

tmp = j

end if

if 6 - i < tmp then

tmp = 6 - i

end if

if 6 - j < tmp then

tmp = 6 - j

end if

a(i, j) = tmp

next j

next i

for i = 1 to 5

for j = 1 to 5

picture1.print tab(j * 5); a(i, j);

next j

picture1.print

next i

end sub1

擴充套件資料陣列,是有序的元素序列。若將有限個型別相同的變數的集合命名,那麼這個名稱為陣列名。組成陣列的各個變數稱為陣列的分量,也稱為陣列的元素,有時也稱為下標變數。

用於區分陣列的各個元素的數字編號稱為下標。

陣列是在程式設計中,為了處理方便, 把具有相同型別的若干元素按無序的形式組織起來的一種形式。這些無序排列的同類資料元素的集合稱為陣列。

8樓:匿名使用者

dim a(25) as arr?? (記不清楚了,自己查一下,這裡是定義一個陣列)

dim i,j as intger

for i= 0 to 24

a(i)=i+1

next

for i = 1 to 5

for j= 1 to i

print a((i -1) * 5 + j-1)print " "

next j

print vbcrlf

next i

9樓:聽不清啊

所要求的程式如下,請採納:

private sub ***mand1_click()dim a(5, 5) as integerfor i = 1 to 5

for j = 1 to 5

a(i, j) = (i - 1) * 5 + jif j <= i then print a(i, j);

next j

print

next i

end sub

vb程式設計 隨機產生16個1 位整數,存入4行4列二維陣列中,求對角線上個元素的和並輸出

10樓:匿名使用者

private sub ***mand1_click()clsdim arint(1 to 4, 1 to 4) as integer

dim r as integer, c as integerfor c = 1 to 4

for r = 1 to 4

arint(r, c) = int(rnd * 10)print arint(r, c);

next

print

next

dim mun as integer

for r = 1 to 4

mun = mun + arint(r, r) + arint(r, 5 - r)

next

print mun

end sub

輸入4行4列的二維陣列,求計算主對角線各元素之和,計算副對角線各元素之和。

11樓:凌亂心扉

#include

int main(void)

;int i,j,sum1,sum2;//定義sum1,sum2,分別存放兩條對線元素的和;

sum1=sum2=0;

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

printf("\n第一條對角線的元素值分別為:\n");

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

printf("\n其元素的和值為:%d\n",sum1);

printf("\n第二條對角線的元素值分別為:\n");

j=3;//第二條對角線元素為a[0][3]、a[1][2]、a[2][1]、a[3][0],用j的值約束列的值;

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

printf("\n其元素的和值為:%d\n",sum2);

printf("\n兩條對角線元素的和值為:%d\n",sum1+sum2);

return 0;

}system.out.printf()的使用方法

//"%"表示進行格式化輸出,"%"之後的內容為格式的定義。

system.out.printf("%f",d);//"f"表示格式化輸出浮點數。

system.out.println();

system.out.printf("%9.2f",d);//"9.2"中的9表示輸出的長度,2表示小數點後的位數。

system.out.println();

system.out.printf("%+9.2f",d);//"+"表示輸出的數帶正負號。

system.out.println();

system.out.printf("%-9.4f",d);//"-"表示輸出的數左對齊(預設為右對齊)。

system.out.println();

system.out.printf("%+-9.3f",d);//"+-"表示輸出的數帶正負號且左對齊。

system.out.println();

system.out.printf("%d",i);//"d"表示輸出十進位制整數。

system.out.println();system.out.printf("%02d",2);

%d表示列印整型的,

%2d表示把整型資料列印最低兩位,

%02d表示把整型資料列印最低兩位,如果不足兩位,用0補齊,

所以列印出來就是02了。

12樓:風林火陰山雷

您好!很高興為您解答。

程式如下:

#include

void main()

}printf("主對角線元素之和:%d\n",sum);

}已通過編譯。

望採納~如您還有不解,歡迎追問~

隨機產生一批兩位整數生成5 5方陣,放入二維陣列中,並在窗體上輸出該二維陣列

vb6如下 dim a 1 to 5,1 to 5 as bytedim i as byte,j as bytefor i 1 to 5 for j 1 to 5 a i,j int rnd 90 10print a i,j next print next vb程式設計 定義一個5 5的二維陣列,隨...

VB二維陣列求和問題。會的幫我看下怎麼寫

option explicit 小張,80 小李,90 小婉,70 小張,70 小李,60 小婉,70 這裡的 5 代表的意思是 你要儲存的人頭數減去1,這裡6個人,那麼6減去1就是5了.修改就按意思更改就行了.這裡的 2 你基本不用改動.private vararray 5,2 as varian...

matlab中怎樣將三維陣列的維賦給二維如A1)賦給二維的B

1,直接賦值 b a 1 試了一下可以。2.先用次sum求每行元素和,因為要求 每個元素都除以每列之和 所以得用1次for迴圈 1 三維陣列中的各個為也是二維陣列,所以賦值可以直接賦即可!假設a是三維陣列,b是二維陣列 b a 1 b a 2 b a 3 分別把a的三維中的 一 二 三維賦給b。2 ...