程序1Private Sub Command1_Click()Dim x As Singlex = InputBox("x=")If x / 2 = x \ 2 ThenPrint "yes"ElsePrint "no"End IfEnd Sub

Private Sub Command2_Click()Dim m As Integer, i As Integerm = InputBox("shurushu>2")i = 2Do Until (m Mod i = 0) Or (i = m - 1)i = i + 1LoopIf m Mod i = 0 Then Print "no" Else Print "yes"End Sub