Dim s As Long,n As SinglePrivate Sub Command1_Click()n = 0Do While s < 20n = n + 1s = 12 * (1 + 0.01) ^ nLoopPrint n; "年后我国人口将增长到20亿"EndEnd Sub
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 08:27:45
![Dim s As Long,n As SinglePrivate Sub Command1_Click()n = 0Do While s < 20n = n + 1s = 12 * (1 + 0.01) ^ nLoopPrint n;](/uploads/image/z/14373433-1-3.jpg?t=Dim+s+As+Long%2Cn+As+SinglePrivate+Sub+Command1_Click%28%29n+%3D+0Do+While+s+%3C+20n+%3D+n+%2B+1s+%3D+12+%2A+%281+%2B+0.01%29+%5E+nLoopPrint+n%3B+%22%E5%B9%B4%E5%90%8E%E6%88%91%E5%9B%BD%E4%BA%BA%E5%8F%A3%E5%B0%86%E5%A2%9E%E9%95%BF%E5%88%B020%E4%BA%BF%22EndEnd+Sub)
Dim s As Long,n As SinglePrivate Sub Command1_Click()n = 0Do While s < 20n = n + 1s = 12 * (1 + 0.01) ^ nLoopPrint n; "年后我国人口将增长到20亿"EndEnd Sub
Dim s As Long,n As Single
Private Sub Command1_Click()
n = 0
Do While s < 20
n = n + 1
s = 12 * (1 + 0.01) ^ n
Loop
Print n; "年后我国人口将增长到20亿"
End
End Sub
Dim s As Long,n As SinglePrivate Sub Command1_Click()n = 0Do While s < 20n = n + 1s = 12 * (1 + 0.01) ^ nLoopPrint n; "年后我国人口将增长到20亿"EndEnd Sub
这段程序挺好的
没什么逻辑毛病
你是不是问语法错误?
你什么意思?
这段程序挺好的
没什么逻辑毛病
你是不是问语法错误? sdasg