vb题目（1） 表弟应付考试用

好久没有碰过vb了...帮忙做一下 先谢谢了

■输入10个数据，统计其中正数、负数和零的个数

■用随机函数生成3个200以内的正整数，按从小到大的顺序依次输出

■用随机函数生成并输出20个两位数，找出其中的最小值并且指出它是第几个数

■形成数列1，2，3，5，16，231.....的前10项，该数列的规律是从第三项起，每一项是前两项的平方差

■求100－500之间各位数字之和等于5的所有整数

■有一个单击按钮过程，其作用是产生50个60－100的随机数，统计其中被6整除余2的个数，并将这些数输出:
Pribate Sub Command_Click()
Dim X As Integer,N%
Dim Counter As Integer
_______Timer
For N=1 To 50
X=Rnd()*_________
If________=2 Then
Print X
Counter=_________
________
Next N
Print Counter
End Sub

■用循环语句和Tab()函数分别输出如下用字符组成的图形

******** **********
******* **********
****** **********
***** **********
**** *******

所有的8个题,依次写在8个按钮的代码中:

Private Sub Command1_Click()
Dim I%, j!, a%, b%, c%
For I = 1 To 10
j = Val(InputBox("请输入一个数吧!"))
If j > 0 Then a = a + 1
If j = 0 Then b = b + 1
If j < 0 Then c = c + 1
Next
Print "正数,负数,零的个数分别是:"; a; c; b
End Sub

Private Sub Command2_Click()
Dim s%(3), I%, j%
Randomize
For I = 1 To 3
s(I) = Int(Rnd * 201)
Next
For I = 1 To 3
For j = I + 1 To 3
If s(j) < s(I) Then s(0) = s(I): s(I) = s(j): s(j) = s(0)
Next
Print s(I)
Next
End Sub

Private Sub Command3_Click()
Dim s%(20), I%, j%
Randomize
s(0) = 100
For I = 1 To 20
s(I) = Int(Rnd * 90 + 10)
If s(I) < s(j) Then j = I
Print s(I)
Next
Print "最小的数是"; s(j); "位置是"; j
End Sub

Private Sub Command4_Click()
Dim s(10), I%
s(1) = 1
s(2) = 2
For I = 1 To 10