匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

如何在1~49內產生6個號碼@@急!急!急!

如何輸入一段程式,在 1~49內產生6個號碼 ??? and 輸入年、月判斷是否是潤年??

1 個解答

評分
  • 匿名使用者
    2 0 年前
    最佳解答

    表單上放兩個Command

    Private Sub Command1_Click()

    Cls

    Dim x1, x2, x3, x4, x5, x6, x7 As Integer

    Randomize

    For i = 0 To 5: Print (Int(Rnd * 49)) + 1: Next i

    End Sub

    Private Sub Command2_Click()

    yearmun = InputBox("請輸入西元年", "輸入框")

    If yearmun Mod 4 = 0 Then

    MsgBox "你輸入的是閏年", , "結果"

    Else

    MsgBox "你輸入的不是閏年", , "結果"

    End if

    End Sub

還有問題?馬上發問,尋求解答。