不及格共" & CStr(lv4) & "人" & Chr(13). End Sub. Private Sub Command2_Click() Randomize lv1 = 0: lv2 = 0: lv3 = 0: lv4 = 0 a = InputBox("欲輸入人數有多少?
確定! 回上一頁