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 "你擲了一個" & d1 & "和一個" & d2Print "所擲骰子之和為:" & (d1 + d2)End Sub
1 回答
ABOUTYOU
TA貢獻1812條經驗 獲得超5個贊
Private Sub Form_activate()
Form1.Print ""
End Sub
Private Sub Form_click()
Dim d1 As Integer, d2 As Integer
Randomize
d1 = Int((6 - 1 + 1) * Rnd() + 1)
d2 = Int((6 - 1 + 1) * Rnd() + 1)
Print "你擲了一個" & d1 & "和一個" & d2
Print "所擲骰子之和為:" & (d1 + d2)
End Sub
添加回答
舉報
0/150
提交
取消