vb求任意數的最大值,VB 求任意三個數的最大值

時間 2022-07-29 23:38:19

1樓:匿名使用者

' 這裡我假設為3個text來進行輸入3個數值來比較,還有乙個text來進行輸出結果

a=val(text1.text)

b=val(text2.text)

c=val(text3.text) : d=0if a < b then

d=aa=b

b=dend if

if a < c then

d=aa=c

c=dend if

text4.caption = "結果:" & a

這個vb程式求三個數中最大值有什麼問題?

2樓:匿名使用者

先設定某個值為最大,然後和其它的兩個比較一下,就得出結果了。

**如下:

'假設三個數分別是x,y,z

dim maxium as integer '定義變數maxium =x '先設定某個值

if  y>maxium then maxium=y '如果y比它大,變數改為y

if z>maxium then maxium=z '如果z比它大,變數改為z

print "最大值:" & maxium

3樓:

dim max as integer = a '假設 a 是最大 (它也是已知最大的數)

if b > max then max = b '如果b 比 max(已知最大的數) 大,更新max

if c > max then max = c '同上賦值是右向左。

每次都和已知最大的比,比已知最大的大,更新已知最大的數值。

vb程式設計題,輸入3個數,然後輸出其中的最大數

4樓:匿名使用者

private sub command1_click()if val(text1)>val(text2) then max=val(text1)

if val(text3)>max then max=val(text3)

text4=max

end sub

按下按鈕,比較3個文字框中數字大小版輸出權到文字框4

vb 編寫乙個具有可選引數的函式過程,既可以求兩個數的最大值,也可以求三個數的最大值,

5樓:網海1書生

function max(n1, n2, optional n3 = empty)

max = iif(val(n1) > val(n2), val(n1), val(n2))

if not isempty(n3) then max = iif(val(n3) > max, val(n3), max)

end function

private sub command1_click()

print "23.567與76.3的最大值是" & max(23.567, 76.3)

print "1895、568與9816的最大值是" & max(1895, 568, 9816)

end sub

vb程式設計題:任意輸入三個數,找出其中最大數?

vb程式設計題:定義並呼叫函式,求任意三個整數中的最大值

6樓:匿名使用者

int a,b,c,d,e;d=math.max(a,b);e=math.max(d,e)比較的是abc中的最大值e為abc中的最大值

使用vb**求輸入的三個數字中最大的數字?

求質因子數,求質因子數 Vb

option explicit private sub command1 click dim n as long n val text1 text2 fenjie n end sub private function fenjie n as long as string dim t as strin...

二分法找數vb求指明哪錯了

修改 if a mid find then 為 if cint a mid cint find then 修改 elseif a mid find then 為 elseif cint a mid cint find then 修改最後一句為 if not flag then picture1.pr...

對於任意大於1的自然數n證明

用數學歸納法,n 2,成立。假設n k時命題成立 1 1 3 1 1 5 1 1 2k 1 根號 2k 1 2 只需證 1 1 2k 1 根號 2k 1 2 根號 2k 3 2即可 即證 2k 3 2k 1 根號 2k 3 根號 2k 1 因為大於1的數開根號後比原來小,故 2k 3 2k 1 根號...

求VB大神幫忙寫下這題的VB程式

private sub command1 click dim i as integer,j as integerfor i 1 to 9 step 2print spc 2 i for j 10 i to 1 step 1print next print spc 4 for j 1 to i pri...

c語言將十進位制整數化成任意進製的數

只要在想這樣就可以pringtf o 某字 o是代表八進位制x為十六進製制 將任意進製的整數化成十進位制整數 一 目的和要求 1 應用迴圈進行冪運算。2 掌握其它進製的數化成十進位制數的計算方法。3 轉換的結果正確。二 實驗內容 1 鍵盤上任意輸入乙個任意進製的整數及它的進製。2 根據其它進製的數化...