VB投硬币程序

Private Sub Command1_Click()

   Dim n As Integer, jg As Integer

   Randomize

   Do Until n = 3

      jg = CInt(Rnd)

      If jg = 0 Then

         n = n + 1

     搜明 Else

      局漏缺   n = 0

      End If

      Print IIf(jg, "反面", "正面")

    Loop

End 桐辩Sub

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 30

Combo1.AddItem i

Next i

Combo1.Text = 15

For i = 2008 To 2020

Combo2.AddItem i

Next i

Combo2.Text = 2008

For i = 1 To 12

Combo3.AddItem i

Next i

Combo3.Text = 1

Text1.Text = 0

Option1(2).Value = True

End Sub

在command的click事件中 加入一个 static 变量，桐族

Static num as Integer

num=num+1

然后 你通过num值去判断虚轮帆出现的文字。用select语句、数组结合下标差雹都行

---