VB问题:编写两个数中较大数的函数过程!急求代码

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a, b
a = Val(InputBox("a="))
b = Val(InputBox("b="))
Print a, b
Call bj(a, b)
End Sub
Sub bj(a, b)
If a > b Then
Print "a>b"
ElseIf a < b Then
Print "a<b"
Else
Print "a=b"
End If
End Sub

Answer 2

Dim a As IntegerDim b As Integer
Dim c As Integerc = IIf(a > b, a, b)
c就是 a b 中的最大值貌似 是这样写 不会用vb哦。。

Answer 3

唉,别人要函数过程写一个不就行了吗? public fuction max(smax as integer,a as integer,b as integer) smax=iff(a>b,a,b) end fuction

Answer 4

这也需要问? 如果A大返回A否则返回B,一个if语句啊同学