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

随机产生20个两位正整数,求其中偶数的个数及和。

首页

随机产生20个两位正整数,求其中偶数的个数及和。


        

提交回答
好评回答
  • 2005-11-01 01:55:24
    Private Sub Command1_Click()
    Dim i As Integer, count As Integer, n As Integer, sum As Integer
    Randomize
    For i = 1 To 20
    n = Int(Rnd * 90 + 10)
    If n Mod 2 = 0 Then
    count = count + 1
    sum = sum + n
    End If
    Next i
    MsgBox "count, sum = " & count & ", " & sum
    End Sub

    1***

    2005-11-01 01:55:24

其他答案

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...

热点检索

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

确定举报此问题

举报原因(必选):