VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数

麻烦各位高手啦！很急，谢谢！

推荐答案 2008-06-10

Private Sub Form_Click()
Dim a(30) As Integer
Dim i As Integer
Randomize
For i = 1 To 30
a(i) = Int(100 * Rnd)
Next i

For i = 1 To 30
If a(i) Mod 2 = 0 Then
Text1 = Val(Text1) + 1
Text4 = Text4 & a(i) & vbCrLf
Else
Text2 = Text2 & a(i) & vbCrLf
Text3 = Val(Text3) + 1
End If
Next
End Sub

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

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

相似回答

VB编写产生随机整数的函数,产生30个1~100之间的随机数答：int(100*rnd())，循环 30 次即可。

VB生成20个1到100之间的随机数,统计其中1位数2位数3位数的个数答：Private Sub Command1_Click()Randomize n1 = 0 n2 = 0 n3 = 0 For i = 1 To 20 x = CInt(Rnd * 100) + 1 j = j Mod 5 + 1 Print Tab(5 * j); x;If i Mod 5 = 0 Then Print If x < 10 Then n1 = n1 + 1 Else If x < 100 Then n2 = n2 + 1 Else n3 =...

VB程序设计中如何产生随机数并分别求奇数和偶数的和答：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 "偶数和："

vb产生30个0~1000的随机整数,放入一个数组中,输出最大值答：'实现代码如下Private Sub Form_Click() Me.Cls Dim n(1 To 30) As Integer Dim i%,nMax% Dim str As String '产生30个0-1000的随机数并写入数组 Randomize For i = 1 To 30 n(i) = Int((1000 - 0 + 1) * Rnd + 0) str = str & n(i) & " ...

如何用VB生成1~100的随机数?答：1、2、3按照90%、5%、5%的比例生成随机数的方法：生成一个1~100的随机数，1~90表示1、91~95表示、96~100表示3，公式使用RANDBETWEEN和VLOOKUP（实现转换），公式为：=VLOOKUP(RANDBETWEEN(1,100),{1,1;95,2;96,3},2)示例：

VB编程中,从1-100中随机产生一个随机数并判断它的奇偶性。跪求各位大...答：Dim s As Integer = Int(Rnd() * (100 + 1)) If s Mod 2 Then MsgBox("奇数: <" & s.ToString & ">") Else MsgBox("偶数: <" & s.ToString & ">") End If

vb产生30个100-1000之间的随机数判断其中有多少个素数并将这些素数...答：For i = 1 To 30 t = 生成100到1000的随机数 If 判断素数(t) Then Debug.Print t End If Next i End Sub Public Function 生成100到1000的随机数()Randomize Timer 生成100到1000的随机数 = Int(900 * Rnd) + 100 End Function Function 判断素数(ByVal n As Long) As Boolean Dim i...

vb中产生20个1-100的随机数,挑选其中的素数答：Dim a(19) As IntegerPrivate Sub Command1_Click()Print "产生20个随机数为："Dim i As IntegerFor i = 0 To 19 a(i) = 1 + Int(Rnd * 100) Print a(i); If (i + 1) Mod 5 = 0 Then PrintNextEnd SubPrivate Sub Command2_Click()Print "其中素数为："Dim i As Integer,...

大家正在搜

随机产生一个1至100之间的数随机产生n个10到100之间利用随机函数产生10个1到100 请写出产生100个1到6之间怎么随机产生100个数随机产生100个数 10到100之间的整数恋人之间时间和距离能产生什么人之间是怎么产生爱的