VB循环程序例题100道附答案.pdfVIP

资料收集于网络 如有侵权请联系网站 删除 谢谢 VB 循环程序例题附答案 1. 素数 1. [100 ，999] 范围内同时满足以下两个条件的十进制数 . ⑴其个位数字与十位数字之和除 以 10 所得的余数是百位数字；⑵该数是素数 ; 求有多少个这样的数？ 15 n = 0 For i = 100 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (c + b) Mod 10 = a Then x = 0 For j = 2 To i - 1 If i Mod j = 0 Then x = 1: Exit For Next j If x = 0 Then n = n + 1 End If Next i Print n 2. [300 ，800] 范围内同