vb用sub過程計算5 4陣列中每行最大元素及位置

時間 2022-10-01 03:05:07

1樓:匿名使用者

'假設陣列是 dim k(1 to 5, 1 to 4) as single

dim maxx as integer, maxy as integer

sub findmax()

dim i as integer, j as integerdim tempmax as singletempmax = -1.401298e-45for i = 1 to 5

for j = 1 to 4

if k(i, j) > tempmax thenmaxx = i

maxy = j

tempmax = k(i, j)

end if

next i, j

end sub

'maxx 和maxy就是最大數的位置

2樓:

private sub findmax(arr(5,4) as integer)

dim max%

dim x%

dim y%

max=arr(0,0)

for i=0 to 5

for j=0 to 4

if max < arr(i,j) thenmax = arr(i,j)

x=i+1

y=j+1

else

next j

next i

print "陣列中的最大數為:";maxprint "該最大數的行列為:";x;yend sub

求一VB程式 定義Sub過程,判斷數是否是素數

private sub form click dim n as integer,i as integern inputbox 請輸入要判斷的數 call zh n,i end sub private sub zh n,i as integer 這裡是sub if n 2 or n 3 thenpri...

VB過程這一章關於Sub的問題

1,標準模組最的作用是資源共享,就像你經常都要用到的變數可以在模組那裡定義,而且要用public而不是用dim 2,就要看你需要什麼樣的資料型別了,int,string single,boolean.都行 3,每一個過程或者函式都要這樣的,sub 和end sub 組成一個完整的過程,當然包括你自定...

VB計算器做法,用VB編寫計算器,控制元件都弄好了,求程式碼!

dim choice as string dim current as double dim prev as double private const pi 3.14159265 equal 為 sigh 為 正負號切換 cls為清零 bs 為backspace plus為 minus為 aster...