'此答案经过VB程序测试验证：
创新互联建站专注于回民网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供回民营销型网站建设，回民网站制作、回民网页设计、回民网站官网定制、成都微信小程序服务，打造回民网络公司原创品牌,更为您提供回民网站排名全网营销落地服务。
1.1000 to 8421 '前面判断了3位数的数字，本空为判断4位数的数字
2.1000 to 8421 ‘同理1题
3.c=100-a-b ’本空满足第二个条件：鸡的个数之和为100只
4.i*10+j*5+k*2+m=100 ‘本空需满足钱的总和为100
5.sum=sum+1/s ’按所给公式求和
6.sum=sum+1/(i*(i+1)) ‘按所给公式求和
7.s=1 ’s必须初始化，否则默认为零将导致除数为零的错误
8.mr=right(m,1) ‘取右边的第一个字符串
9.mr=right(m,1) ‘取右边的第一个字符串
10.b=(g*s) mod 10 ’满足条件个位与数位之积于十的余数为百位数
’-------不懂得还可以问。给分吧！
1.C
2.A
3.A
4.A
5.A
6.C
7.D
8.A
9.A
10.D
11.D
12.D
13.B
14.D
15.A
16.B
17.C
18.A
1.A
2.B
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.算了，这分我拿不下了。太累
重庆分公司
重庆分公司
