UC知道又一个vb小程序求教
来源：百度知道 编辑：UC知道 时间：2024/06/04 13:45:01
Private Sub Command1_Click()
x = 0
Do Until x = -1' 望能解释这个语句的意思.
a = InputBox("请输入a的值")
a = Val(a)
b = InputBox("请输入b的值")
b = Val(b)
x = InputBox("请输入x的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub
一、在输入a,b和x值的时候,为什么要连续输入两次?
二、当第二次输入a,b和x值的时候，第一次输入的还有意义吗？
三、是不是说，程序只会对第二次输入的值求和并打印出来？
四、我试着把“Do Until x = -1”语句改为“Do Until x = 1”，填a,b和x值的时候就再也没有完毕的时候了。想关掉输入框结束程序也关不完了，程序无法结束。这又是怎么回事？
x = 0
Do Until x = -1' 望能解释这个语句的意思.
a = InputBox("请输入a的值")
a = Val(a)
b = InputBox("请输入b的值")
b = Val(b)
x = InputBox("请输入x的值")
x = Val(x)
a = a + b + x
Loop
Print a
End Sub
一、在输入a,b和x值的时候,为什么要连续输入两次?
二、当第二次输入a,b和x值的时候，第一次输入的还有意义吗？
三、是不是说，程序只会对第二次输入的值求和并打印出来？
四、我试着把“Do Until x = -1”语句改为“Do Until x = 1”，填a,b和x值的时候就再也没有完毕的时候了。想关掉输入框结束程序也关不完了，程序无法结束。这又是怎么回事？
Do Until x = -1' 直到x=-1时循环才结束
在循环段中，x = Val(x)，x类型为double类型，如果输入-1,x值为-1.0,与循环条件类型不符
挺难啊
你这程序可真奇妙。我不知道VB中是不是数据类型都可以混乱的来。a=inputbox，这里输入的是一个字符串型。如果说你前面a声明的是字符串型（还不知道你声明了没），那么a=val(a)这就是错误了，把一个字符串型转换位数值型再赋给字符串型。你不感觉数据类型不搭配吗？Do Until x = -1' 。这句话看他表面意思好像是说当输入的x=-1的时候停止。这是一个循环。总体来说。感觉这个程序有点迷糊，也不知道VB就是这样？（#define 我擅长C语言）
Do...Untile loop 这个循环应该理解
是当条件不满足的时候才直行的
而
Do Loop...Until 这个循环和上边哪个一样只不过比上边的这个循环多了一个 （这点要分清的）理解了这个应该再遇到这类的就会做了。