Function prime(x As Long) As BooleanDim i As IntegerFor i = 2 To Sqr(x) If x Mod i = 0 Then Exit FunctionNextprime = TrueEnd FunctionPrivate Sub Form_Click() '点击窗体运行Dim i As Long, n As IntegerPrint "100以内的素数为："For i = 2 To 100 If prime(i) T...