VB中指出100~300之间所有素数,并且至少一个是9,结果显示在一个图片框中,5个一行
VB中指出100~300之间所有素数,并且至少有一个数字是9,例如193.197.199等,结果显示在一个图片框中,5个一行...
VB中指出100~300之间所有素数,并且至少有一个数字是9,例如193.197.199等,结果显示在一个图片框中,5个一行
展开
展开全部
Dim Gs As Integer
Gs = 0
For i = 101 To 300 Step 2
For j = 3 To i - 1 Step 2
If i Mod j = 0 Then
Exit For
End If
Next
If j >= i - 1 Then
If Int(i / 100) = 9 Or Int((i Mod 100) / 10) = 9 Or (i Mod 10) = 9 Then
Gs = Gs + 1
Me.Picture1.Print i;
If Gs = 5 Then
Me.Picture1.Print
Gs = 0
End If
End If
End If
Next
Gs = 0
For i = 101 To 300 Step 2
For j = 3 To i - 1 Step 2
If i Mod j = 0 Then
Exit For
End If
Next
If j >= i - 1 Then
If Int(i / 100) = 9 Or Int((i Mod 100) / 10) = 9 Or (i Mod 10) = 9 Then
Gs = Gs + 1
Me.Picture1.Print i;
If Gs = 5 Then
Me.Picture1.Print
Gs = 0
End If
End If
End If
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询