VB编程计算求和

我用自己的办法帮你吧 Private Sub Command1_Click() Open "C:\Documents and Settings\11111\桌面\新建 文本文档txt" For Input As #1 Do While Not EOF(1) Line Input #1, ss List1List(k) = ss k = k + 1 Loop Close #1 End Sub Private Sub Command2_Click() Dim s1, s2, s3, s4, s5, s6 As Integer s1 = 0 s2 = 0 s3 = 0 s4 = 0 s5 = 0 s6 = 0 For i = 0 To List1ListCount - 1 s1 = s1 + Mid(List1List(i), 1, 2) s2 = s2 + Mid(List1List(i), 4, 2) s3 = s3 + Mid(List1List(i), 7, 2) s4 = s4 + Mid(List1List(i), 10, 2) s5 = s5 + Mid(List1List(i), 13, 2) s6 = s6 + Mid(List1List(i), 16, 2) Next i Text1Text = s1 & "，" & s2 & "，" & s3 & "，" & s4 & "，" & s5 & "，" & s6 End Sub

代码如下：

Private Sub Command1_Click()

Text3Text = Val(Text1Text) + Val(Text2Text)

Text1Text = ""

Text2Text = ""

End Sub

Private Sub Command2_Click()

End

End Sub

中间的算法如下：

Dim sum As Integer

n = 99 '你输入的最大数

i = 1

sum = 0

Do Until i > n

sum = sum + i

i = i + 1

Loop

'求和到此为止，下面的是求素数

k = 1

Do Until k > n

For j = 1 To k / 2

If k Mod j = 0 And j <> 1 Then

Exit For

End If

Next j

If j > k / 2 And k <> 2 Then

MsgBox k

End If

k = k + 1

Loop

以上就是关于VB编程计算求和全部的内容，包括:VB编程计算求和、VB可视程序 输入2个数，求和、如何用VB求和等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！