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
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
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
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
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
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 ...