如图，程序运行后，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入text1中。最后按原文件名存盘。
我自己写的程序：
Private Sub Cmd1_Click()
Dim n As Integer, s As Long, i As Integer
n = Val(Com1.Text)
s = 0
For i = 1 To 5000
If i Mod n = 0 Then
s = s + i
End If
Next
Text1.Text = s
End Sub
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
关闭运行的窗口时，总是显示子程序或函数未定义。我编写的程序有为什么错了。对了，这行是题上给的原始程序，不能改动的。
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
O(∩_∩)O谢谢，各位大哥、大姐咯~
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
当你关闭窗体时，就会触发unload事件，然而你的unload事件里只是unload_sub调用程序，而你的unload事件并没有定义，所以当你关闭运行的窗口时，总是显示子程序或函数未定义。
你的这段程序没有错。
是题目的问题
unload_sub
End Sub
当你关闭窗体时，就会触发unload事件，然而你的unload事件里只是unload_sub调用程序，而你的unload事件并没有定义，所以当你关闭运行的窗口时，总是显示子程序或函数未定义。
你的这段程序没有错。
是题目的问题
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-03-26
unload_sub 应该是unload me
第2个回答 2009-03-26
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
我觉得是不是源题错误？ unload_sub 这样写也不符合这个指令的格式规则！
================================
Unload 语句
从内存中卸载窗体或控件。
语法： Unload object
object 所在处是要卸载的 Form 对象或控件数组元素的名称。
================================
改成： Unload Me 就没问题了！
unload_sub
End Sub
我觉得是不是源题错误？ unload_sub 这样写也不符合这个指令的格式规则！
================================
Unload 语句
从内存中卸载窗体或控件。
语法： Unload object
object 所在处是要卸载的 Form 对象或控件数组元素的名称。
================================
改成： Unload Me 就没问题了！
第3个回答 2009-03-26
unload_sub 应该Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
我觉得是不是源题错误？ unload_sub 这样写也不符合这个指令的格式规则！
是unload me Unload 语句
从内存中卸载窗体或控件。
语法： Unload object
unload_sub
End Sub
我觉得是不是源题错误？ unload_sub 这样写也不符合这个指令的格式规则！
是unload me Unload 语句
从内存中卸载窗体或控件。
语法： Unload object
