VB程序设计 , 期末考试题库 .求最后答案，回答几个是几个吧，但是不要乱给答案，谢谢。

Question

1，[100，666]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？

2，编程计算10-500的偶数和。

3，编写程序，求[200，1000]既能被3整除又能被5整除的数的和。

4，编写程序，求三位数的奇数中，所有各位数字之和是15的倍数的数的和。

5，编写程序，求在3000以内能被17或者23整除的正整数的个数。

6，编写程序，统计100到650之间能同时被3和7整除的数的个数。

7，编写程序，已知：S=2+4+8+16+32+…，求S不大于5000的最大值。

Answer 1

VB考这些数学题干什么？现在的教育都在误导学生！！！VB应该是用来帮助我们学习的，不是研究什么是素数什么是乘除来乘除去的！无语了！每个学生都要研究这些吗？
答案也很简单，以下代码都是在Command1_Click()中执行。
1.我这个代码应该是你们要的结果，其实代码可以优化的更好玩（暂时不说）。
n = 0
for i = 100 to 666
a = Int(n / 100) '获得百位数，以下分别是获得十位数个位数
b = Int(Int(n / 10) Mod 10)
c = n Mod 100 Mod 10
if (a+b) Mod 10 = c then
print i '这里是在窗体print，具体如何显示结果你看你的试题要求喽。
end if
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then
'是素数,就累加
n=n+1
End If
next i
print n

2.
for i = 10 to 500 step 2
n = n +1
next i
print n
3.写到这里有点print烦了，什么题目啊，无聊至极
for i = 200 to 1000
if i mod 3 = 0 and i mod 5=0 then
n = n+i
end if
next i
print n
4.算了，这分我拿不下了。太累

Answer 2

2.
for i=10 to 500 step 2
sum=sum+i
next i
print sum

3.
for i=200 to 1000
if i mod 3+i mod 5=0 then sum=sum+i
next
print sum

5.
for i=1 to 3000
if i mod 17=0 or i mod 23=0 then j=j+1
next
print j

6.
for i=100 to 650
if i mod 3+i mod 7=0 then j=j+1
next
print j

7.
i=2
do while sum<5000
sum=sum+i
i=i*2
loop
print i/2