一个编程问题 缺少ENDSUB? 谢谢帮我看看啦!

来源:百度知道 编辑:UC知道 时间:2024/06/05 23:04:30
Private Sub Command1_Click()
Sub main()
Sum = 0
For i = 1 To 100
Sum = Sum + i
Next
Form1.Show
Form1.Print "从1到100的和是:", Sum
End Sub
执行后缺少ENDSUB

Private Sub Command1_Click()
Sum = 0
For i = 1 To 100
Sum = Sum + i
Next
Form1.Show
Form1.Print "从1到100的和是:", Sum
End Sub

有两个sub但是只有一个end sub,去掉一个sub即可

去掉
Sub main()