VB编写程序，已知a+b=c,任意输入其中2个数，第三个数自动显示，用变成如何实现

用VB编写一个程序， 输入a、b、c三个数，要求按由大到小的顺序显示~

Private Sub Form_Click()
Dim A(1 To 3), I, J, X As Integer
For I = 1 To 3
A(I) = Val(InputBox("请输入数字"))
Next I
For I = 1 To 2
For J = I + 1 To 3
If A(I) < A(J) Then
X = A(I)
A(I) = A(J)
A(J) = X
End If
Next J
Next I
For I = 1 To 3
Print A(I)
Next I
End Sub

自己添加一个Command1控件，代码如下：
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox("输入第一个值：")
b = InputBox("输入第二个值：")
c = InputBox("输入第三个值：")
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
t = b: b = c: c = t
End If
If a > c Then
t = a: a = c: c = t
End If
Print a; "<"; b; "<"; c
End Sub

数学逻辑分析：
1，如果输入：a,b，则计算c = a + b
2，如果输入：a,c，则计算b = c - a
3，如果输入：b,c，则计算a = c - b

假设：Text1对应a、Text2对应b、Text3对应c
则程序代码如下：
if isnumeric(text1.text) and isnumeric(text2.text) and text3.text="" then
text3.text = val(text1.text) + val(text2.text)
elseif isnumeric(text1.text) and text2.text="" and isnumeric(text3.text) then
text2.text = val(text3.text) - val(text1.text)
elseif text1.text="" and isnumeric(text2.text) and isnumeric(text3.text) then
text1.text = val(text3.text) - val(text2.text)
end if

---

洞头县15321593291： VB编写程序,已知a+b=c,任意输入其中2个数,第三个数自动显示,用变成如何实现 - ？
蓟往中宝： 数学逻辑分析:1,如果输入:a,b,则计算c = a + b2,如果输入:a,c,则计算b = c - a3,如果输入:b,c,则计算a = c - b 假设:Text1对应a、Text2对应b、Text3对应c 则程序代码如下:if isnumeric(text1.text) and isnumeric(text2.text) and text3....

洞头县15321593291： a+b=c+输入任意2个数字自动求解余下的数字VB可以实现?？
蓟往中宝： 这个只有lisp或prolog语言才能做到在VB中,要自己用公式实现,也只要3个:a=c-bb=c-ac=a+b

洞头县15321593291： 用vb编写a+b=c - ？
蓟往中宝： 假如:a = 1 b = 2 则代码如下:c = a + b Print ＂a+b=＂ & c

洞头县15321593291： 编写程序,求任意三个自然数的阶乘之和A!+B!+C!.在VB中怎么编写程序代码?有 - ？
蓟往中宝： Private Sub Command1_Click() a = InputBox(＂请输入自然数A:＂) b = InputBox(＂请输入自然数B:＂) c = InputBox(＂请输入自然数C:＂) sum = Factorial(a) + Factorial(b) + Factorial(c) Print sum End Sub Function Factorial(ByVal i As ...

洞头县15321593291： 用VB编写一个程序,让用户输入三个数判断该三个数能否组成一个直角三角形 - ？
蓟往中宝： vb编程不太熟,解题思路倒是可以说一下. 1.判断三个inputbox的值为不为空,如果至少有一个为空那么就提示必须输入. 2.如果三个inputbox都不为空则要判断是否都是数值型,如果至少有一个不是那么提示重新输入正确的数值. 3.判断是否...

洞头县15321593291： VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数) - ？
蓟往中宝： Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim p As Longa = Val(InputBox(＂A=＂))b = Val(InputBox(＂B=＂))c = Val(InputBox(＂C=＂))p = jc(a) + jc(b) + jc(c)Print a & ＂!+＂ & b & ＂!+＂ & c & ＂!=＂ & p ...

洞头县15321593291： 用VB编写程序,求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现 - ？
蓟往中宝： sub实现:Private Sub Command1_Click() Dim a As Long, b As Long, c As Long a = Val(InputBox(＂请输入一个大于0的整数A:＂)) b = Val(InputBox(＂请输入一个大于0的整数B:＂)) c = Val(InputBox(＂请输入一个大于0的整数C:＂)) If a > 0 And b ...

洞头县15321593291： 利用vb一级 编写程序,求满足下列条件的所有四位数ABCD的个数,该四位数是8的倍数,且A+B=B+C - ？
蓟往中宝： num=0 str=＂＂ for i = 1000 to 9999 if i mod 8= 0 then if Cint(left(Cstr(i),1))+Cint(right(left(Cstr(i),2),1))=Cint(right(left(Cstr(i),2),1))+Cint(left(right(Cstr(i),2),1)) then str=str&＂,＂&i end if end if nextResponse.Write(ubound(split(str,＂,＂))-1)109

洞头县15321593291： a+b=c,编程 - ？
蓟往中宝： 楼主你好!! c=a+b是一定的, 例如a=1,b=2,这么a+b=c,正如1+2=3,c=3, 再看c=a+b,3=1+2,不是一样吗?? 因为a+b=c,所以c=a+b. 谢谢采纳!!

洞头县15321593291： vb题 编写程序,输出30以内满足a*a+b*b=c*c关系的整数组合 - ？
蓟往中宝： Private Sub Command1_Click() For i = 1 To 30 For j = i To 30 For k = 1 To 30 s1 = i * i + j * j s2 = k * k If s1 = s2 Then Print i, j, k Next k Next j Next i End Sub