编写VB程序产生20个随机数输出这20个数分别计算这20个数的奇数之和和偶数只和谢谢了

如题所述

推荐答案 2018-04-28

Private Sub Command1_Click()
  s1 = 0: s2 = 0
  For i = 1 To 20
    x = Int(Rnd * 101)
    If x Mod 2 = 1 Then s1 = s1 + x Else s2 = s2 + x
    Print x,
    If i Mod 5 = 0 Then Print
  Next i
  Print
  Print "奇数之和="; s1
  Print "偶数之和="; s2
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://88.wendadaohang.com/zd/KcKVaMcK1aaMgMMKBg.html

相似回答

编写VB程序 产生20个随机数 输出这20个数 分别计算这20个数的奇数之和...答：编写VB程序 产生20个随机数 输出这20个数 分别计算这20个数的奇数之和和偶数只和 谢谢  我来答 1个回答 #话题# 居家防疫自救手册听不清啊高粉答主 2018-05-08 · 说的都是干货,快来关注知道顶级答主回答量:7.8万采纳率:89% 帮助的人:9679万我也去答题访问个人页关注展开全部 ...

VB题:定义一个具有20个元素的一维数组,并对其随机赋值,然后求出其中...答：Private Sub Command1_Click()Dim A(1 To 20) As Single, Sum As Single, Str As String Sum = 0: Str = ""For i = 1 To 20 Randomize A(i) = Int(100 * Rnd + 1)Str = Str & Format(CStr(A(i)), "@@@")If A(i) Mod 2 <> 0 Then Sum = Sum + A(i)Str = St...

vb高手请进!帮编写个程序!急求!答：Private Sub Command1_Click()Cls Dim s(1 To 20) As Integer, sum As Long Print "随机20个整数："For i = 1 To 20 s(i) = Int(Rnd * 100 + 100)n = n & s(i) & ","Next Print n Print "能被7整除的数："For j = 1 To 20 If s(j) Mod 7 = 0 Then sum = sum...

VB程序设计中如何产生随机数并分别求奇数和偶数的和答：并分别求出奇数;Str(n)End Sub 随机产生100个两位数;Str(m)Print "奇数和："Private Sub Command1_Click()Randomize Timer For i = 1 To 100 x = Int(Rnd()90 + 10)If x Mod 2 = 0 Then m = m + x Else n = n + x End If Next Print "偶数和："

...20个2位随机奇数和偶数,分2行显示:这20个随机数中偶数有 ;奇数有...答：Dim N1 As Integer '偶数个数 Dim N2 As Integer '奇数个数 N1 = 0 N2 = 0 Randomize '产生随机系列，保证每次运行不同 For i = 1 To 20 RndNUm = 10 + 89 * Rnd() '产生10-99随机数 Print RndNUm & " ";If i = 10 Then Print "" '第11个换行 If RndNUm Mod 2 ...

VB随机产生20个2位随机数并在图片框中按五个一排显示,并计算他们...答：在窗体上添加1个Pictur1和1个按钮 Option Explicit Private Sub Command1_Click()Dim x As Integer Dim i As Integer Randomize For i = 1 To 20 x = Int((90) * Rnd + 10)Picture1.Print x,If i Mod 5 = 0 Then Picture1.Print Next i End Sub ...

vb 生成20个随机数,显示随机数中的偶数,求代码答：For i = 1 To 20 d(i) = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)Next i '显示全部 Text1.Text = ""For i = 1 To 20 Text1.Text = Text1.Text & d(i) & " "Next i '显示偶数 Text2.Text = ""For i = 1 To 20 If d(i) Mod 2 = 0 Then Text...

vb编程随机生成20个【1,100】以内的整数,以每行五个输出其中的奇数,并...答：Private Sub Command1_Click()ClsDim a As LongDim b(20) As Long, c(20) As LongPrint "20个随机数：";For i = 1 To 20Randomizea = Int((Rnd * 100) + 1)b(i) = aPrint a;Next iPrintFor i = 1 To 20If b(i) Mod 2 = 1 Thenj = j + 1c(j) = b(i)End If...

大家正在搜

随机生成1到100随机数随机数的产生方法生成随机数小程序产生随机数的代码随机数程序随机数小程序抽取随机数小程序可以自定义的随机数生成软件随机数生成算法

编写VB程序 产生20个随机数 输出这20个数 分别计算这20个数的奇数之和和偶数只和 谢谢了

编写VB程序产生20个随机数输出这20个数分别计算这20个数的奇数之和和偶数只和谢谢了