酷祥資訊部落格

關於部落格
遊戲、資訊
  • 87949

    累積人氣

  • 2

    今日人氣

    0

    訂閱人氣

VB抽籤小程式

Private Sub Command1_Click()
Select Case Int((3 + 1) * Rnd)
Case Is = 0
Text1.Text = "下下籤"
Case Is = 1
Text1.Text = "中籤"
Case Is = 2
Text1.Text = "平籤"
Case Is = 3
Text1.Text = "上上籤"
End Select
End Sub

相簿設定
標籤設定
相簿狀態