Private Sub Form_activate()Form1.Print ""End SubPrivate Sub Form_click()Dim d1 As Integer, d2 As IntegerRandomized1 = Int((6 - 1 + 1) * Rand + 1)d2 = Int((6 - 1 + 1) * Rand + 1)Print "你擲了一個(gè)" & d1 & "和一個(gè)" & d2Print "所擲骰子之和為:" & (d1 + d2)End Sub
為什么每次點(diǎn)擊窗口的時(shí)候總是顯示1,1和他們的和2?
三國紛爭(zhēng)
2023-03-20 16:12:40