如图,程序运行后,在组合框中选定一个数字后,单击“计算”按钮,则计算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