UC知道VB一个很有意思的东西，帮忙看看，在线等
来源：百度知道 编辑：UC知道 时间：2024/06/01 21:11:51
Dim a, b, c, d, e, f, g As Long
a = Text1(1).Text
b = Text1(0).Text
c = a + b
Print (c)
If c > 10 Then
c = c - 10
End If
d = a - b
Print (d)
If d < 0 Then
d = b - a
End If
e = b + c
Print (e)
If e > 10 Then
e = e Mod 10
End If
f = b + d
Print (f)
If f > 10 Then
f = f Mod 10
End If
输入1，4 得到的是4，3，8，7（机子计算）
手算应该是5，3，9，7 怎么回事？？
4个print分别是14
-3
8
7
a = Text1(1).Text
b = Text1(0).Text
c = a + b
Print (c)
If c > 10 Then
c = c - 10
End If
d = a - b
Print (d)
If d < 0 Then
d = b - a
End If
e = b + c
Print (e)
If e > 10 Then
e = e Mod 10
End If
f = b + d
Print (f)
If f > 10 Then
f = f Mod 10
End If
输入1，4 得到的是4，3，8，7（机子计算）
手算应该是5，3，9，7 怎么回事？？
4个print分别是14
-3
8
7
无论是手算还是电脑算，结果都是：5 3 6 4
你的什么4387和5397如何来？？
以上是我在电脑上调试出来的
另外，你的程序有个有错误，应该改为：
a=val(text1(1).text)
b=val(text1(0).text)
你是不是弄错了?a+b怎么也不得4啊