- 建立一个EXE工程,在默认窗体上放置如图25的控件:
- 在代码区输入一个求两数中较大的一个的自定义函数:
Function max1(ByVal x As Integer, ByVal y As Integer) As Integer
Dim z As Integer
If x < y Then
z = x
x = y
y = z
End If
max1 =x
End Function
图25
- 在按钮的单击事件中输入代码:
Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
Dim a As Integer, b As Integer
a = Val(txtA.Text)
b = Val(txtB.Text)
txtResult.text=max1(a,b)
End Sub