VB计算1-1/2+1/3-1/4+......+1/99-1/100的代码

如题所述

举报该文章

第1个回答 2018-10-27

Dim n, i As Integer
Dim temp As Double
n = InputBox("请输入计算个数")
For i = 1 To n - 1 Step 2
temp = temp + 1 / i
Next
For i = 2 To n Step 2
temp1 = temp1 + 1 / i
Next
MsgBox ("1-1/2+1/3-……+1/n-1-1/n=" & temp - temp1)本回答被网友采纳

相似回答

VB用FOR语句编程,计算1-3+5-7+...-99+101的值答：Private Sub Command1_Click() Dim i%, k%, sum% sum = 1 For i = 2 To 51 k = i * 2 - 1 If i Mod 2 = 0 Then k = -1 * k End If sum = sum + k Next i Print "sum = " & sumEnd Sub运行结果，显示 sum = 51 ...

大家正在搜

VB编写计算矩形的面积的代码用VB计算双筋代码 VB代码实现计算器退格功能 VB计算双筋计算用VB VB计算顺序 vb计算题怎么算 VB代码 vb自动计算