在线等求助编程高手

Outsider

学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

百度吧，挺多的，这是第一个的
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

回复 2# jq_king


    哦  谢谢

蓝星

不明白
不学这个

干枯大地

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

干枯大地

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

Forever_K

回复 6# 干枯大地


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

干枯大地

回复 7# jq_king

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

muchblue

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

Forever_K

回复 8# 干枯大地


    水水健康，我也想发俩···[s:250]