Question

access VBA编程语言

新建一数据库，在该数据库中创建一窗体，窗体上有二个文本框和二个命令按钮。在第一个文本框中输入一个正整数N后，单击“计算”命令按钮后，求出1-2+3-4+5-6+7……N的结果，并在第二个文本框中显示；单击“清空”命令按钮后，清除两个文本框中的内容，并把光标停在第一个文本框中，如下图所示。

Answer 1

设窗体上text1为输入文本框, text2为结果文本框,, cmd1为计算按钮, cmd2为清空按钮,则
private sub cmd2_click()
text1.value=""
text2.value=""
text1.setfocus
end sub
private sub cmd1_click()
dim I as integer, N as integer, R as integer
N = text1.value
for I = 1 to N
R =R+((I mod 2)*2-1)*I
next
text2.value = R
end sub