在两位数10 、11—98、99中,将每个被7除余二的数的个位数与十位数件添加一个小数点,其余数不变,
问题描述：
在两位数10 、11—98、99中,将每个被7除余二的数的个位数与十位数件添加一个小数点,其余数不变,
问经过这样改变后,所有数的和是多少?
答
答案是4306.4
Private Sub Form_Click()
For i = 1 To 20
a = 7 * i + 2
If a 11 Then
s = s + a '符合条件
End If
Next
For i = 11 To 99
n = n + i'总和
Next
Print n - s * 9 / 10
End Sub