SelText = “”End Sub‘複製Private Sub Command2_Click() Clipboard...
text=“n=” & n & “ 是素數” endif end sub 或者把這段程式碼放到text1 的change事件裡 function ss(tmp as long) as boolean ‘素數判斷...
Text = Val(Text1...