问题描述: 我想知道,用vb编程,生成10个0-100之间的随机数,要求分别求出其中所有基数之和以及所有偶数之和,该怎么 1个回答 分类:综合 2014-11-03 问题解答: 我来补答 Private Sub Command1_Click()Dim oushu%,danshu%,sum%oushu = 0danshu = 0For i = 1 To 10Randomizesum = Int(Rnd * 100)If sum Mod 2 = 0 Thenoushu = oushu + sumElsedanshu = danshu + sumEnd IfNext iText1.Text = oushuText2.Text = danshuEnd Su 展开全文阅读