VB编程，求代码 输出[100.200]之间所有素数

Private Sub Command1_Click()Dim i As Integer, s As IntegerFor i = 100 To 200If f1(i) ThenPrint i;s = s + 1If s Mod 7 = 0 Then PrintEnd IfNextPrintPrint "个数：";Print sEnd SubPublic Function f1(x As Integer) As BooleanDim n As Integern = 1Do While