Text1.Text = "方程 X1+X2+X3+X4+X5=10 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer 'show all answer in textbox
End Sub
Private Sub Command3_Click() '演示无解情况 Text1.Text = "" Dim answer As String
answer = GETRESULT(5, 3, False) Dim temp temp = Split(answer, vbCrLf) For i = 0 To UBound(temp) temp(i) = "解" & i + 1 & ":" & vbTab & temp(i) Next answer = Join(temp, vbCrLf) Text1.Text = "方程 X1+X2+X3+X4+X5=3 共有 " & UBound(Split(answer, vbCrLf)) + 1 & " 个非零整数解:" & vbCrLf & answer
End Sub
'求解函数 Function GETRESULT(ByVal n As Integer, ByVal SUM As Integer, Optional allowzero As Boolean = True) As String Dim temp() As String, i As Long If n = 2 Then '二元方程 If allowzero = True Then
|