VB6 do loop 语句提示：loop缺少do
在使用Do...loop语句编写一个简单的“求最大公约数”的代码，出现“loop缺少do"的提示。代码如下： Private Sub Form_Load() Dim a, b As Integer a = InputBox("请输入第一个数字", "提示") b = InputBox("请输入第二个数字", "提示") Do While a <> b If a > b Then a = a - b Else b = b - a Loop MsgBox "最大公约数为:" + Str(a), 0 + 64, "运行结果" End End Sub 麻烦大家指出错误之处，谢谢了！
VB6 do loop 语句提示:loop缺少do
Private Sub Form_Load() Dim a, b As Integer a = InputBox("请输入第一个数字", "提示") b = InputBox("请输入第二个数字", "提示") Do While a <> b If a > b Then a = a - b Else b = b - a End If Loop MsgBox "最大公约数为:" + Str(a), 0 + 64, "运行...
《vb求助》 Loop 缺少 Do
If x = "##" Then Exit Do
为什么我的程序总提示loop 没有do
end if 写在loop前面，或者loop写在end if后面。你这么写不是嵌套。VB之所以给你提示Loop缺少Do而不是提示你If缺少End If是因为当它检查到If块时,首先发现这个块里出现了Loop,但是却没有Do,于是不再继续向下检查而直接返回错误信息了.可能和人的习惯不太一样.要适应VB的这种无厘头....
VB6.0 为什么 Loop 缺少 Do?
If a(i) >= max Then 这句没有End If 修改后：Private Sub Form_click()Dim a() As Integer, i As Integer, max As Integer, min As Integer, sum As Integer, average As Integer, maxi As Integer, mini As Integer i = 0 sum = 0 Do While a(i) <> -1 a(i) = Val(Inpu...
VBS 运行就提示“loop”语句缺少“do”是怎么回事啊,
我运行没问题。。。Set file=CreateObject("scripting.filesystemobject").OpenTextFile("d:\\wo.txt")Do While Not file.AtEndOfStream msg=file.ReadLine a=split(msg)Loop
vbs语言,do...loop循环,提示缺少do
If c=4 Then c=5 Else If c=5 Then c=6 Else If c=6 Then c=8 Else If c=8 Then c=10 Else If c=10 Then c=12 Else If c=12 Then c=16 Else c=20 end If ---这些里的else if中间不能有空格,应该是elseif
[求助]为什么提示我的loop语句缺少DO ??
loop --- 这里有个 response.write ""if rs2.bof and rs2.eof then response.write "此大类没有子分类！"end if rs2.close set rs2=nothing rs.movenext loop ---这里也有个 do while not rs.eof 只有这一个 还在DO WHILE 中 RS 在DO中生成就在DO中关闭 ...
请问大佬为什么我的代码会loop语句缺少do?
您的代码中的 For 循环缺少了 do，应该改为 do...loop。请尝试如下代码：Dim Wsh, fso2, dc, d Set Wsh = WScript.CreateObject("WScript.Shell")Set fso2 = CreateObject("Scripting.FileSystemObject")Do Set dc = fso2.Drives For Each d In dc If d.DriveType = 1 Then If u = ""...
'loop' 语句缺少 'do'
本来就是个错误的，缺少DO ，缺少IF
会VB的帮忙看看:loop缺少do...
你在合适的位置添加吧..因为不明白功能..比如这样:Do g1 = Adodc1.Recordset.Fields("学号")For I = 0 To n If g1 = arr(I)Then j = j + 1 If gi <> arr(I)Then DataGrid1.Visible = False next If Adodc1.Recordset.EOF = True Then Exit Do Adodc1.Recordset.MoveNext Loop ...
