Question

用Access vba程序求窗体中输入任意两整数,计算并输出两数间所有整数的倒数之和

窗体中输入任意两整数,计算并输出两数间所有整数的倒数之和

Answer 1

窗体如下：

代码：

Option Compare Database

Private Sub Command4_Click()
Dim s1 As Integer
Dim s2 As Integer
Dim sumx As Single
s1 = Me.Text0
s2 = Me.Text2
If s1 > s2 Then MsgBox "第一个数不能大于第二个数", vbExclamation: Exit Sub
For i = s1 To s2
  sumx = sumx + 1 / i
Next
Me.Text5 = sumx
End Sub