急求VB代码!!!!!!!!!!(最迟明天中午)

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:28:36
1.输入10个数据,统计其中正数,负数和零的个数.
2.形成数列1,2,3,5,16,231,……的前10项,该数列的规律是从第三项起,每一项是前两项的平方差.
3.求100～500之间各位数字之和等于5的所有整数.

楼上的好像是错的哦,特别是第二题,理解有误啊....

1.
Private Sub Form_click()
Dim x, a, b, c
For i = 1 To 10
x = InputBox("请输入数据！""数据录入")
Select Case x
Case Is > 0
a = a + 1
Case 0
b = b + 1
Case Is < 0
c = c + 1
End Select
Next
Print a, b, c
End Sub

2.
Private Sub Form_click()
Dim a(10) As Double, i As Integer
a(1) = 1
a(2) = 2
Print a(1)
Print a(2)
For i = 3 To 10
a(i) = a(i - 1) ^ 2 - a(i - 2) ^ 2
Print a(i)
Next
End Sub

3.有多种写法,看你能看懂那一种:
第一种:
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 500
a = i / 100
b = i / 10 Mod 10
c = i Mod 10
If a + b + c = 5 Then Print i
Next
End Sub

第二种:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer