1樓：匿名使用者
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
執行效果圖如下：
定義5*5的二維陣列,隨機產生25個兩位數存於二維陣列中,計算對角線的平均值
2樓：
//#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個二位數存於此陣列中，統計陣列對
3樓：兄弟連教育北京總校
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程式設計**:定義一個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隨機產生25個1~9的整數放入5*5的二維陣列中輸出,且統計出邊界元素之和與對角線元素之和
5樓：偵探章邯
編制單擊窗體的事件過程，做如下處理：
從檔案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個對調.....第十個與第十一個元素對調。輸出陣列原來元素的值和對調後元素的值。
vb上機題，求大神求大神！
6樓：驕傲地螞蟻
你先學習巢狀迴圈和隨機，然後學習二維陣列和計算奇數，然後在excel裡用塗黑的方式找規律，就可以寫出來了。
7樓：匿名使用者
dim num(4,4) as integerfunction diagonaloddnumbercount()dim i as integer, j as integer, c as integer
randomize
for i = 0 to 4
for j = 0 to 4
num(i, j) = int(rnd*90 + 10) '隨機產生25個兩位數存於num()
if i = j or (i = 4 - j) thenif num(i, j) mod 2 = 1 then c = c + 1 '累計對角線奇數的個數
end if
next
next
diagonaloddnumbercount = cend function
8樓：匿名使用者
病情分析：
你好，這種情況可以經常用小的那邊臉嚼東西。
指導意見：
如果一般面部肌肉長期不使用的話可能會造成對側面肌過度發達，而出現兩邊不對稱的情況，只要改變嚼東西習慣即可
利用vb，編寫一個3*4的二維陣列輸入任意整數，求所有陣列元素和及平均值
9樓：匿名使用者
利用vb，編寫一個3*4的二維陣列輸入任意整數並且求所有陣列元素和及平均值方法為：
1、輸入標頭檔案和主函式。
2、初始化陣列並定義變數型別。
3、輸入i和j。
4、輸出第i行第j列的元素。
5、編譯、執行。
注意事項：在visual basic 6.0中，採用物件導向程式設計方法（object-oriented programming），把程式和資料封裝起來作為一個物件，每個物件都是可視的。
10樓：匿名使用者
private sub ***mand1_click()
dim i as integer, j as integer, a(1 to 3, 1 to 4) as integer, x as integer
'i、j、x 是變數，a(1 to 3, 1 to 4)是二維陣列變數
for i = 1 to 3 'i是迴圈變數，這
裡迴圈3次
for j = 1 to 4 'j是迴圈變數，這裡迴圈4次
randomize '重新整理隨機數種子
a(i, j) = int(rnd * 90 + 10) '產生隨機數，儲存在a陣列中
x = x + a(i, j) '計算陣列的和
print a(i, j) & " "; '列印陣列的值
next j 'j迴圈結束
print '列印換行
next i 'i迴圈結束
print '設定一個空行
print "3*4陣列的和 = " & x '列印陣列的和
print "平均值 = " & round((x / ((i - 1) * (j - 1))), 2) '列印平均值，取小數後二位
end sub
11樓：聽不清啊
private sub ***mand1_click()print "請輸入一個3*4的二維陣列"
dim a(3, 4)
for i = 1 to 3
for j = 1 to 4
x = val(inputbox("請輸入a(" & i & "," & j & "):"))
a(i, j) = x
s = s + a(i, j)
print a(i, j),
next j
next i
print "元素總和="; s
print "平均值="; s / 12
end sub
vb程式改錯 隨機產生一個5*5的二維陣列,輸出主對角線上的最大值和輔對角線上最小值
12樓：聽不清啊
private sub ***mand1_click()dim a(5, 5) as integerrandomize
for i = 1 to 5
for j = 1 to 5
a(i, j) = int(rnd * 100)print tab(j * 4 - 3); a(i, j);
next j
next i
max = a(1, 1)
min = a(1, 5)
for i = 2 to 5
if a(i, i) > max then max = a(i, i)
if a(i, 6 - i) < min then min = a(i, 6 - i)
next i
print "主對角線上的最大值＝"; maxprint "次對角線上的最小值＝"; minprint
end sub
隨機生成25個兩位數，構成一個5*5二維陣列。在靠邊元素及對角元素中求出最大值最小值並顯示結果的vb程式
13樓：
你發了三次同樣的問題沒有一次把問題發全的……
14樓：匿名使用者
private sub form_click()dim a(1 to 5, 1 to 5), t%, r%, c%, max%, min%
max = 10: min = 99
for r = 1 to 5
for c = 1 to 5
randomize
t = int(rnd * 90) + 10a(r, c) = t
print a(r, c);
if r = 1 or r = 5 or c = 1 or c = 5 or r = c then
if t > max then max = tif t < min then min = tend if
next c
next r
print "max: "; max
print "min: "; min
end sub
C二維陣列的程式，一個 C 二維陣列的程式
陣列太大了,看看下面 一個由 c c 編譯的程式佔用的記憶體分為以下幾個部分 1 棧區 stack 由編譯器自動分配釋放 存放函式的引數值，區域性變數的值等。其操作方式類似於資料結構中的棧。2 堆區 heap 一般由程式設計師分配釋放，若程式設計師不釋放，程式結束時可能由 os 注意它與資料結構中的...
用c語言如何定義較大的二維陣列例如1000行
void main 這樣定義沒有問題 array size too large 陣列太大 分析 定義的陣列太大，超過了可用記憶體空間。可能是你的可用記憶體空間太小 用int定義所佔空間較大，如用unsigned char定義空間會節約很多，不過還是不能滿足1000行1000列的要求，微控制器內的資料...
C語言中關於二維陣列的問題，c語言關於定義二維陣列的問題
float a 5 是定義了一個指向陣列的指標，如果要把它當成二維陣列的話，相當於列數為5，行數可以動態分配。如 float a 5 int n 2 定義行數為2 a new float n 5 int sum 0 for int i 0 i 對於你定義的這個陣列，它表示有5個float 型別的指標...