Dim i,j,n As Integer,flag As BooleanPrivate Sub Command1_Click()n = Text1.TextFor i = 2 To n / 2flag = FalseFor j = 2 To Sqr(i)If i Mod j = 0 Thenflag = TrueEnd IfNext jFor j = 2 To Sqr(n - i)If i Mod...