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

最新问答

如何看待中国智造的现状？

大家进来看看吧。

1991年属羊男十一月十七和1996年属鼠女二月初一在一起好吗？会不会结婚？真的相害吗？

龙珠里的琪琪从第几集开始出场

请问什么是名誉董事？

there is no time 后面是加to do sth.还是doing sth.