查人人中国名人网医学检验学名词解释:VB程序问题:高手请进.有错吗?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 09:57:58
public sub he()
dim a,b as integer
a=10
a=a-1
b=b+1
do
if a<0 then exit do
end if
loop
end sub
(错在哪,谢谢指点)
dim a,b as integer
a=10
a=a-1
b=b+1
do
if a<0 then exit do
end if
loop
end sub
(错在哪,谢谢指点)
end if 是多余的.
因为在then后已经接一条语句.
这样的话证明条件成立的话只有一条语句要执行
是不允许接程序块的.
public sub he()
dim a,b as integer
a=10
do
a=a-1
b=b+1
if a<0 then
exit do
end if
loop
end sub
代码有2处错误:
1 是exit do 放错位置或是END IF 多余.
2 是a = a - 1在DO LOOP循环外,循环无法终止.
修改代码如下:
Option Explicit
Dim a, b As Integer
Public Sub he()
a = 10
Do
a = a - 1
If a < 0 Then
Text1 = "close"
Exit Do
End If
Loop
End Sub
Private Sub Command1_Click()
Call he
End Sub
楼上的兄弟请问
B 到哪去了???
B 是是输出次数的. 如果没有B 这个程序有什么用啊?? 晕
照你这样. 无论输入什么都是"close" 咯??
public sub he(a as integer,b as integer)
do while not a<0
a=a-1
b=b+1
loop
end sub