Question

求助 vb语言求1到n的所有偶数之和

求1到n的所有偶数之和
出现在end sub,end function或end属性后面只能出现注释
详细代码如下：
Private Sub Command2_Click()
Dim a As Long
a = InputBox("请输入一个大于1的正整数")
s = 0
For a = 1 To n
If a Mod 2 = 0 Then
s = s + a
End If
Next a
End Sub
Text0.Value

Answer 1

a = InputBox("请输入一个大于1的正整数")

改成
n =val(InputBox("请输入一个大于1的正整数"))

追问

不行啊亲。

追答

提示什么错误了？！~

Answer 2

Text0.Value删掉这句