(50分,满意再加50)vb程序填空题!最好算出答案.大家帮帮忙吧..都是些题库里的题目,就要考试了阿~

'此答案经过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 ’满足条件个位与数位之积于十的余数为百位数

’-------不懂得还可以问。给分吧！

Windows程序设计（VB.NET）》在线作业二

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考这些数学题干什么？现在的教育都在误导学生！！！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.算了，这分我拿不下了。太累