为什么每次点击窗口的时候总是显示1，1和他们的和2？

Question

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

Answer 1

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