一道大一VB基础编程题，求解

Question

编写程序，利用随机函数产生的2位整数为一维数组（包含10个元素）进行赋值，输出显示数组各元素的值，并分别统计数组元素中奇数和偶数的个数。

Answer 1

没有VB的开发环境了,用Excel的VBA给你做了一个,结果如下图

不知道能不能看清..

源码如下 

Function ar()

    Dim arr() As Integer '定义动态数组

    Dim arrstr As String '这个变量可以不用,仅为调试输出用

    Dim tmpNumber As Integer '临时随机数

    Dim i As Integer '动态数组维度

    Dim zs As Integer '偶数个数

    Dim qs As Integer '奇数个数

    ReDim Preserve arr(1) '重定义动态数组成员下标 带 Preserve 重定义数组时,保留原来的成员值

Do While UBound(arr) < 10 '成员没达到10个则一直循环

    tmpNumber = randNumber() '取随机数,方法单独写一个

    If (tmpNumber > 9 And tmpNumber < 100) Then '判断随机数是否为两位整数

        i = i + 1 '成员数加1

        ReDim Preserve arr(i) '重定义成员数

        arr(i) = tmpNumber '随机数压入数组

        If (tmpNumber Mod 2 = 0) Then '判断是否为偶数

            zs = zs + 1 '偶数+1

        Else

            qs = qs + 1 '奇数=1

        End If

        arrstr = arrstr + "," + Str(tmpNumber) '这句可以不要,仅做Demo时页输出文本用

    End If

Loop

arrstr = arrstr + "其中偶数有:" + Str(zs) + "个,奇数有:" + Str(qs) + "个" '这句可以不要,仅做Demo时页输出文本用

MsgBox arrstr '消息框,弹出结果文本

'ar = arr  '直接返回数组

ar = arrstr '直接返回文本

End Function

Function randNumber() '取随机数方法

    Dim n As Integer

    Randomize '置随机种子

    n = Int(Rnd * 100) + 10 '计算随机数

    randNumber = n '返回随机数

End Function

追答

你的方法是对的,,,我忘记了还有一个反斜线