计算最大质数最后六位数：Private Sub Command1_Click() s = 1 For i = 1 To 86243 s = s * 2 Mod 1000000 Next i s = s - 1 Print sEnd Sub
