目前世界上人口为60亿，如果以每年1.4%的速度增长，n（n为正整数）年后世界人口达到80亿，求n。
Private Sub command1_Click()
Dim p As Single
Dim r As Single
Dim n As Integer
FontSize = 14: FontBold = True
p = 60
r = 0.014
n = 0
Do
n = n + 1
Loop Until p >= 80
Print n
End Sub
求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。
Private Sub Form_click()
Dim s As Integer
Dim x As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
s = 0
x = 100
Do While x <= 999
a = Int(x / 100)
b = Int(x / 10) - a * 10
c = x - a * 100 - b * 10
If Then s = s + 1
x = x + 1
Loop
Print s
End Sub
微信扫一扫
