论坛 › MOTO ROKR Z6 论坛 › 在线等求助编程高手

Outsider 发表于 2010-5-30 19:44

在线等求助编程高手

学vb我什么都不会要做作业大侠们帮忙啊题目是
1 输出3~100之间的素数
2、计算3~100之间的素数之和
3计算1~100间所有奇数之和
（要求分别使用for结构，do while……loop结构，do until…… loop结构实现）
4计算s=1+(1+2)+(1+2+3)+…+(1+2+…+10)
5计算S=1!+2!+3!+....+10!
急求答案啊   哪位会告诉我谢谢啊

Forever_K 发表于 2010-5-30 19:57

百度吧，挺多的，这是第一个的
Private   Sub   Form_Load()
    Dim   i   As   Integer
    Dim   j   As   Integer
    Me.Show
    j   =   0
    For   i   =   3   To   100
      If   IsPrime(i)   =   True   Then
          j   =   j   +   1
          Me.Print   i,
                  
      End   If
      If   j   Mod   4   =   0   Then
          Me.Print
      End   If
   
    Next
   
   
   
End   Sub


Private   Function   IsPrime(intNum   As   Integer)   As   Boolean
    Dim   i   As   Integer
   
    For   i   =   2   To   intNum   \   2
      If   (intNum   Mod   i)   =   0   Then
            IsPrime   =   False
            Exit   Function
      End   If
    Next
    IsPrime   =   True

End   Function

Outsider 发表于 2010-5-30 19:57

回复 2# jq_king


    哦谢谢

蓝星 发表于 2010-5-30 20:05

不明白
不学这个

干枯大地 发表于 2010-5-30 20:14

同样不明白的大地飘过...

干枯大地 发表于 2010-5-30 20:14

同样不明白的大地飘过...

Forever_K 发表于 2010-5-30 20:19

回复 6# 干枯大地


    大地你怎么一发就是两个贴？

干枯大地 发表于 2010-5-30 20:22

回复 7# jq_king

我不是故意灌水的，是我这里网速太慢我以为没回帖成功就又刷新了一次..汗...

muchblue 发表于 2010-5-30 20:23

学过C语言，不过现在全还回去了

Forever_K 发表于 2010-5-30 20:23

回复 8# 干枯大地


    水水健康，我也想发俩···

查看完整版本: 在线等求助编程高手