用VB，要求对输入的非负整数m和n，如果m>=n，则显示组合数 的值，否则显示数据出错。

两个TEXTBOX用来输入数,一个按扭.

Private Sub Command1_Click()
Dim m As Long
Dim n As Long
Dim I As Long
m = Val(Text1)
n = Val(Text2)
If m > n Then
MsgBox "数据出错"
Else
If (n - m) < m Then m = (n - m)
I = (n - 1) * n / m
MsgBox I
End If
End Sub

Dim m,n As Long
m = InputBox("请输入非负整数m", "输入", "0")
n = InputBox("请输入非负整数n", "输入", "0")

If m >= 0 And n >= 0 Then
If m >= n Then
Msgbox "m = " & m & vbNewLine & "n = " & n
Else
Msgbox "数据出错."
End If
Else
Msgbox "请输入非负整数"
End If