VB循环程序例题道附复习资料(共31页).doc

VB循环程序例题附答案 1.素数1. 100，999范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字；该数是素数; 求有多少个这样的数？ 15n = 0For i = 100 To 999a = i 100b = i 10 Mod 10c = i Mod 10If (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 + 1End IfNext iPrint n2. 300，800范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字 ；该数是素数；求满足上述条件的最大的三位十进制数。761For i = 300 To 800a = i 100b = i 10 Mod