爱问知识人 爱问教育 医院库

跪求用VB编程计算1~100的奇数.偶数.整数和??

首页

跪求用VB编程计算1~100的奇数.偶数.整数和??

急.急.急.急...!!大哥大姐们!!! 
用VB编程计算1~100的奇数和 的程序??

用VB编程计算1~100的偶数和 的程序??

用VB编程计算1~100的整数和 的程序??

提交回答

全部答案

    2018-01-14 04:39:58
  • Dim sumJ As Integer, sumO As Integer, sumZ As Integer, i As Integer 

    Private Sub Form_Load()
    For i = 1 To 100
    sumZ = sumZ i
    If i Mod 2 = 0 Then
    sumO = sumO i
    Else
    sumJ = sumJ i
    End If
    Next
    Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO
    End Sub

    水***

    2018-01-14 04:39:58

类似问题

换一换

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):