5برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.
Private Sub Command6_Click()ClsDim i As Integer, n As Integer, t As Booleann = InputBox("Enter a num:")t = Truei = 2Do While i <= n / 2 And tIf n Mod i = 0 Then t = Falsei = i + 1LoopIf t ThenPrint...