麻烦各位大人那个可以帮我看看VB，为什么会死循环，帮我改正下

摆脱各位大人们啊。。帮我看看这个VB题、~

private sub command1_click()
dim i as integer,a as integer
dim sum as integer

for i=1 to 4
a=inputbox("Input","Input")
sum=sum+a
next

print sum
print sum/4
end sub

第5行改成 .SaveFilePath = App.Path & "\"
第24行改成 LogItem "Íê³É" & SizeString(Bytes) & "ÏÂÔز¢±£´æµ½" & DL.SaveFilePath

你用了两个DO循环，第一循环没有设置退出条件，就是说点了按钮后它会一直执行这个循环，标准的死循环啊！

设置退出循环的条件啊
if 条件 then exit do

---

越秀区15726489453： 亲,帮我看下,vb编程 - ？
车兔凯莱： '模块:Module Module1 '随便你传入的数组有多少位都可以输出最大数.'你要输出就不该用SUB Public Function MAXint(ByVal tem() As Integer) '如果要比较小数就改成Double...

越秀区15726489453： 帮我看一下VB这代码谢谢 - ？
车兔凯莱： 楼上的,从代码上看,楼主的代码是在窗体对象模块构建的,并非在公共模块(Module)中...

越秀区15726489453： 请大家帮我看一下这一段vb程序 - ？
车兔凯莱： 如果过程的级别变量是用 Static 关键字来声明的,则只要代码正在任何模块中运行,此变量仍会保留它的值.而当所有的代码都完成运行后,变量会失去它的范围和它的值.如果过程中用 Dim...

越秀区15726489453： 帮我看看vb题... - ？
车兔凯莱： list.additem()一次只能够添加一项,你需要遍历list2的所有item,来一条一条恢复.参照如下:private sub command4_Click()dim itemfor each item in list2.itemslist1.additem(item)next item li...

越秀区15726489453： 谁可以帮我看一下一个vb的简单系统？
车兔凯莱： 用F8调试,然后将停留的代码复制下来给我看看 当然了,很多东东在大型程序中 有可能在模块或其他地方声明的,你截取一段出来,万一用到 变量或对象没有声明,岂不是…… 如:rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic这里面的conn在什么地方声明啊

越秀区15726489453： 请各位VB高手帮我看一下这个程序好吗? - ？
车兔凯莱： dim a,b '声明两个变量,名为a和bdim lanchr()'声明lanchr数组类型为Variant redim lanchr(10) '设置lanchr数组的上线为10lanchr(1)=＂从前有座山＂ '第一...

越秀区15726489453： 大家帮我看看VB代码啊,很简单的？
车兔凯莱： Dim n As IntegerDim sum As IntegerDim temp As Integersum = 0If KeyAscii = 13 ThenFor n = 1 To CInt(Text1.Text)sum = sum + n^2NextLabel5.Caption = ＂1到＂ & n & ＂的平方和为＂ & CStr(temp)End If

越秀区15726489453： VB脚本,各位工控老师工程师帮忙看看？
车兔凯莱： 变量不是这么直接哪里用的,读取变量:a1=HMIRuntime.Tags(＂a1＂).Read对变量写:HMIRuntime.Tags(＂a2＂).Write(0)或者不要那么麻烦直接在按钮的单击事件添加vb函数:HMIRuntime.Screens(＂main＂).ScreenItems(＂lamp_open＂).Visible=1main为页面的对象名称,lamp_open为你图片的对象名称

越秀区15726489453： 谁能帮我看看这个vb程序？
车兔凯莱： 负数不能用sqr函数开平方根,所以: Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, x1 As Single, x2 As Single a = InputBox(＂a=＂) b = InputBox(＂b=＂) c = InputBox(＂c=＂) d = (b ^ 2) - (4 * a * c) If d >...

越秀区15726489453： 麻烦懂vb 的帮我看看,要怎么调整啊 - ？
车兔凯莱： Private Sub Form_Load() '系统初始化,加载数据库 Dim Connectionstring As String, UID As String, PWD As String Dim conn As New ADODB.Connection conn.Connectionstring...