编程模拟如下操作：
随机抛掷3枚硬币，共抛掷100次。用1代表正面朝上，2代表反面朝上。
将所有正面朝上和反面朝上的结果显示出来，并显示出是第多少次抛掷的。
用vb编程，如何实现？
我是新手，请大家多多照顾
致谢

谢谢楼下的回答，我已经做出来了，刚学vb，什么都不太懂啊
再次表示感谢


[ 本帖最后由 jiali2010 于 2010-3-23 14:59 编辑 ]

在你现有的代码基础上改的.没有优化

Option Explicit

Option Base 1                       '申明数组下标从 1 开始

Private Sub Command1_Click()
Dim i, j  As Integer
Dim a(3) As Integer
Dim b(2) As Integer

Cls                 '清除前面的结果

For i = 1 To 100
    Print "第"; IIf(i < 10, " ", ""); i; "次 ";     '显示一个提示 ,IIF 函数,简化的IF命令
    For j = 1 To 3
        Randomize
        a(j) = Round(Rnd + 1)
        b(a(j)) = b(a(j)) + 1           '保存结果
        Print a(j);
    Next j
    If i Mod 5 = 0 Then Print           '5组才换一行
Next i

Print                                   '空一行
Print "正面:"; b(1), "反面:"; b(2)      '输出结果

End Sub

此程序要用到数组共开辟300个单元，循环嵌套语句，随机函数，IF判断语句，累加语句！
第一，用Dim 定义三个数组a，b，c    定义为整型分别存储  SUM1存储正面  SUM2存储反面
第二，用FOR NEXT 循环语句把3枚硬币的正反面的情况分别存入a，b，c三个数组里进行存储，在循环体里必须加入一个随机函数 rnd函数
      并用IF 语句判断正反面   并用两个变量SUM1，SUM2存储正反面的情况  并用累加 把正反面的次数统计出来
第三，再次用FOR NEXT 循环语句 把所有正面朝上和反面朝上的结果显示出来，并显示出是第多少次抛掷的。
粗略的思路，仅供参考！

Private Sub Command1_Click()
Dim i, j, k, t, c As Integer

Cls                 '清除前面的结果

For i = 1 To 100
    j = Rnd()
    k = j Mod 2
    If k = 0 Then
    t = t + 1
       Print " 第" + Str(i) + " 抛硬币。结果为：正面 " + "  合计正面：" + Str(t) + " 次；反面：" + Str(c) + "次"
    Else
    c = c + 1
Print " 第 " + Str(i) + " 抛硬币。结果为：反面 " + "  合计正面：" + Str(t) + " 次；反面：" + Str(c) + "次"
    End If
    Next
                                  '空一行


End Sub