vb,用do while.....loop求1~100中的奇数和

原问题：vb,用do while.....loop求1~100中的奇数和
分类：编程开发 > 最后更新时间：【2017-07-30 10:16:43】

最佳答案

Private Sub Command1_Click()
Dim a, s As Integer
a = 1
s = 0
Do While a <= 100
If a Mod 2 = 1 Then
s = s + a
End If
a = a + 1
Loop
Print s
End Sub

最佳答案由网友  whoami1978  提供
公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
2

分享到：

其他回答

暂无其它回答!

    推荐
  • vb mscomm1.input_VB 数组接收 MSComm1...
  • vb msgbox标题_vb msgbox加标题提示缺少=
  • 在VB中有几个text控件，怎么把这几个控件...
  • 用VB string打印数字菱形
  • VBA当L单元格有数值时,在m单元格自动写入...
  • 有关大神的网游小说_有关vb数组的……求大神