Question

求助一道access窗体编程的题目！

在“VBA编程”数据库中，创建一个名为“求1到n的所有偶数之和”的窗体，在该窗体上创建一个文本框控件，两个命令按钮控件，命令按钮的标题分别设置为“计算”和“关闭”，并为每个按钮分别编写单击事件过程的VBA程序代码。当运行该窗体时，单击“计算”按钮“，显示出一个含有”请输入一个大于1的正整数“信息的输入对话框，当用户在该输入对话框中输入一个正整数并单击”确定“按钮后，在该窗体中显示指定范围内的所有偶数之和。单击“关闭“按钮关闭该窗体。
请我做一下传上来给我吧，谢谢！！

Private Sub Command3_Click()
Dim a As Long
a = InputBox("请输入一个大于1的正整数")
Dim i As Long
s = 0
For i = 1 To a
If i Mod 2 = 0 Then
s = s + i
End If
next i
If a Mod 2 = 0 Then
text1.Value = "2+4+6+...+a=" & s
Else
text1.Value = "2+4+6+...+(a-1)=" & s
end if
End Sub
我写了这个运行错误额，还有“在该窗体中显示指定范围内的所有偶数之和”这个条件也做不出哎

Answer 1

Private Sub Command1_Click()
Dim str1 As Integer
Me.Cls
str1 = Val(InputBox("请输入一个数字", "必须是数字"))
If str1 = 0 Then Exit Sub
ReDim a(str1) As Integer
For i = 0 To str1
If i Mod 2 = 0 Then
a(i) = i
j = j + a(i)
End If
Next i
Print j

End Sub

Answer 2

这个你知道怎么求偶数之和么,如果会,就容易了。自己动下脑袋

追问

我代码写出来总是运行不了额

追答

应该是设计有问题了