UC知道求用VB做四则运算。
来源：百度知道 编辑：UC知道 时间：2024/06/05 12:43:10
如 1 、3、4、2用加减乘除计算其所有的答案。及计算公式。即穷举法。
就如：http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=1081985007&z=127625999&pn=0&rn=50&lm=0&word=%BC%D3%BC%F5#1081985007
这个算法那样，只不过是多了乘除。
就如：http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=1081985007&z=127625999&pn=0&rn=50&lm=0&word=%BC%D3%BC%F5#1081985007
这个算法那样，只不过是多了乘除。
Dim nNum() As Integer
Dim i As Integer, j As Integer
Dim k As Integer
ReDim nNum(0 To 3)
nNum(0) = 1
nNum(1) = 3
nNum(2) = 4
nNum(3) = 2
For i = LBound(nNum) To UBound(nNum)
For j = k To UBound(nNum)
Debug.Print nNum(i) & " + " & nNum(j) & "=" & (nNum(i) + nNum(j))
Debug.Print nNum(i) & " - " & nNum(j) & "=" & (nNum(i) - nNum(j))
Debug.Print nNum(i) & " * " & nNum(j) & "=" & (nNum(i) * nNum(j))
Debug.Print nNum(i) & " / " & nNum(j) & "=" & (nNum(i) / nNum(j))
Next
k = k + 1
Next i