用vb生成二維陣列,找出最小值,並將最小值與中心位置的元素互換

時間 2021-08-30 10:29:04

1樓:匿名使用者

指導意見:

腎虛也分很多種的,有腎陰虛,腎陽虛,腎氣虛,腎精虛等,主要的症狀:腰膝痠軟,頭暈耳鳴,盜汗,四肢厥冷,小便頻數,潮熱汗出等。要找中醫辨證後才可以對症調理

2樓:匿名使用者

dim str as string = ""

dim a(3, 3) as integer, i, j, temp as integer, b(3, 3) as integer, y as integer

for i = 1 to 3

for j = 1 to 3

a(i, j) = int(rnd() * 90 + 10)next

next

for i = 1 to 3

for j = 1 to 3

b(i, j) = a(i, j)

str = str & a(i, j).tostring & " "

next

str = str & vbcrlf

next

for i = 1 to 3

for j = 1 to 3

for y = 1 to 3 - j

if a(i, j) > a(i, j + 1) thentemp = a(i, j + 1)

a(i, j + 1) = a(i, j)a(i, j) = temp

end if

next

next

next

for i = 1 to 3

for j = 1 to 3 - i

if a(j, 1) > a(j + 1, 1) thentemp = a(j + 1, 1)

a(j + 1, 1) = a(j, 1)a(j, 1) = temp

end if

next

next

for i = 1 to 3

for j = 1 to 3

if a(1, 1) = b(i, j) thentemp = b(i, j)

b(i, j) = b(2, 2)

b(2, 2) = temp

end if

next

next

for i = 1 to 3

for j = 1 to 3

str = str & b(i, j).tostring & " "

next

str = str & vbcrlf

next

textbox6.text = str

執行結果:

73 58 62

36 37 79

11 78 83

73 58 62

36 11 79

37 78 83

如何用vb隨機產生一個二維陣列,找到其最大和最小值並輸出,然後再按照行列輸出

c 輸入5行5列的二維陣列,求最大值和最小值其對應行列的位置

問明 using system class program static void main stringargs int array new int 4,4 int i,j,k int max,min,max row,max col,min row,min col,sum 0 string str...

用C找出陣列中的最大值和最小值,用C 找出陣列中的最大值和最小值

樂海白 1 以c 控制台應用程式為例 int input console.write 輸入4個整數,之間以逗號分隔。回車鍵結束輸入.r n string str console.readline 讀入一行使用者輸入信 string nums str.split new char 以逗號為分隔符,分離...

vb程式設計應用二維陣列產生隨機矩陣55並實現矩陣

珈藍惜夢 vb源程式如下 option base 1 private sub command1 click dim a 5,5 as integer,b 5,5 as integer for x 1 to 5 for y 1 to 5 a x,y int 10 rnd 90 隨機產生兩位數的整數 p...