VB的倍數如何寫

最近老師出了議題要用矩陣寫出1~100亂數中

有2的倍數時"得到金錢/20/40/60/80/100"

有3的倍數時"得到人蔘N個"(N=1~20)

有7的倍數時"得到何首烏N個"(N=1~14)

有23的倍數時"得到裝備1件"

有31的倍數時"得到武器一件"

重點是要用矩陣寫出來 有大大會的話幫忙一下

感謝妳~~

已更新項目:

我們老師說寫出來的亂數是內建的 就是亂數已經產生了

而且亂數要宣告在

Dim a(100) As String

Privat sub form_load( )

Ranomize

後面我就不會了..

2 個已更新項目:

我的E-MAIL:luckym4a1@yahoo.com.tw

1 個解答

評分
  • 最佳解答

    Dim t(100) As String

    Private Sub Command1_Click()

    Static h As Integer

    h = h + 1

    Randomize

    Cls

    a = Int(Rnd * 100) + 1

    b = Int((Rnd * 5) + 1) * 20

    c = Int(Rnd * 20) + 1

    d = Int(Rnd * 14) + 1

    If a Mod 2 = 0 Then

    t(h) = "獲得金錢" & b & "元" '有2的倍數時 "得到金錢/20/40/60/80/100"

    Print t(h)

    ElseIf a Mod 3 = 0 Then

    t(h) = "獲得人蔘" & c & "個" '有3的倍數時"得到人蔘N個"(N=1~20)

    Print t(h)

    ElseIf a Mod 7 = 0 Then

    t(h) = "獲得何首烏" & d & "個" '有7的倍數時"得到何首烏N個"(N=1~14)

    Print t(h)

    ElseIf a Mod 23 = 0 Then

    t(h) = "獲得裝備1件" '有23的倍數時 "得到裝備1件"

    Print t(h)

    ElseIf a Mod 31 = 0 Then

    t(h) = "獲得武器一件" '有31的倍數時 "得到武器一件"

    Print t(h)

    Else

    t(h) = "什麼都沒有"

    Print t(h)

    End If

    List1.Clear

    For i = 1 To h

    List1.AddItem t(i)

    Next i

    End Sub

    我用1個command和1個list

    不曉得是不是您要的...

    如果看不懂 留你的e-mail

    我把檔案mail給妳

    參考資料: 自己
還有問題?馬上發問,尋求解答。