vb编程，急用，谢谢大家了

2025-03-07 02:11:07

推荐回答（1个）

回答1：

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim s As Single
Dim M As Integer
For i = 1 To 100
M = 0
For j = 1 To i
M = M + j
Next j
s = s + 1 / M
Next i
Text1.Text = s
End Sub
结果：1.980199

最新问答

笔记本重装时没电自动关机了，现在不能继续重装了，求教高手

在外租房子住感觉在外面买着吃很划不来请问是买电磁炉做饭还是买煤气灶做饭划算实惠呢

我是一名化学本科的应届毕业生