VB六個數取最大值和最小數

2021-05-14 15:49:27 字數 519 閱讀 4431

mxl=1                          && 最大的文字框編號

mnl=1                          && 最小的文字框編號

mxn=val(thisform.text1.value)  && 最大的數

mnn=val(thisform.text1.value)  && 最小的數

for i=2 to 6

txi =('thisform.text'+allt(str(i  ))+'.value')

txi=val(&txi)

if mxntxi

mnl=i

mnn=txi

endif

endfor

thisform.label1.caption=str(mxl)

thisform.label2.caption=str(mxn)

thisform.label3.caption=str(mnl)

thisform.label4.caption=str(mnn)

js陣列取最大值最小值,以及小數取整

例子 var mcgs 6,56,5,65,6,9,4.5,2,12,12,1,50.6,2 陣列2 var sin 48,4,8,6,8,6,1,1,3,1,3,68,646,48,6,4,1.5,陣列1 var test mcgs,sin 兩個陣列 var mix test.join split...

輸入3個數,求最大值最小值中間值

輸入3個數,求最大值最小值中間值 2 bool 如果為真,則返回1,如果為假則返回0 3 邏輯與 要求表示式兩邊同時為真,結果才為真,如果表示式兩邊有乙個為假,結果就為假。邏輯或 一真即真 4if 第一種形式,如果條件表示式為真,會執行大括號裡的語句,執行完畢後跳出大括號執行下面的語句 如果為假,跳...

陣列3個數乘積的最大值

題目 給定乙個無序陣列,包含正數 負數和0,要求從中找出3個數的乘積,使得乘積最大。要求時間複雜度 o n 空間複雜度 o 1 function maxprod arr var prod arr 0 arr 1 arr 2 if len 3 var max1 number.min value,max...