求教VB编程问题

1.计算S=1+2+3+...+99 结果用print输出结果。 （只要结果!）

2.今有物不知其数,三三数之剩二,五五数之余三,七七数之余一,其数小于200,问其数之值.

3.打印出10000以内的完全平方数

4.用inputbox输入一个正整数，是质数则输出yes，否则输出no

请高人指点，最好给出原编程代码.O(∩_∩)O谢谢

1。的代码

Dim a%
Private Sub Form_Click()
For i = 1 To 99
a = a + i
Next
Print a
End Sub

其他的都没问题了，我说下3的

10000以内的完全平方数

Private Sub Command1_Click() Dim j As String For i = 1 To 100 j = j & " " & i ^ 2

Next

Text1.Text = j '此处也可以用print j，但是太长窗体上显示不下，所以用了个TEXT

End Sub

1,3有人答了。我先说说4

Dim n as Long

num = CInt(inputbox.Text) For i = 2 To Int(Sqr(num)) If num Mod i = 0 Then Exit For Next If i > Int(Sqr(num)) Then '不是素数

Else

'是素数 End If

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息