UC知道来看这个程序
来源：百度知道 编辑：UC知道 时间：2024/06/20 10:51:18
高手们，看看这个程序是求什么用的？
Private Sub Commandl_Click()
A=Inputbox("A=","")
B=Inputbox("B=","")
MAX=(A+B)/2+ABS(A-B)/2
Print "MAX=";MAX
End Sub
如果把MAX换成MIN，然后改为MIN=（A+B）/2-ABS（A-B）/2呢
Private Sub Commandl_Click()
A=Inputbox("A=","")
B=Inputbox("B=","")
MAX=(A+B)/2+ABS(A-B)/2
Print "MAX=";MAX
End Sub
如果把MAX换成MIN，然后改为MIN=（A+B）/2-ABS（A-B）/2呢
这是一个VB的编程代码：
意思是：
Private Sub Commandl_Click() ----点击Commandl时，发生以下动作。
A=Inputbox("A=","")---- 输入A的值。
B=Inputbox("B=","") ----输入B的值。
MAX=(A+B)/2+ABS(A-B)/2 ----计算出(A+B)/2+ABS(A-B)/2 等于多少。
Print "MAX=";MAX ----输出计算结果的值。
End Sub ----结束
修改MAX的名字只是修改代数的表达名字