问几道vb习题

1,有一堆苹果,个数在50至500之间,按5人均分余4个,按6人均分余3个,按7人均分余2个,用穷举法设计程序,输出苹果有多少个?共有几种分法?

2,将12名运动员的百米成绩进行排序,输出名次及成绩

第1题:

Private Sub Command1_Click()
Dim i%, j%
For i = 50 To 500
If i Mod 5 = 4 Then
j = j + 1
Print "方法" & j & "苹果" & i & "个,5人均分余4个"
End If
If i Mod 6 = 3 Then
j = j + 1
Print "方法" & j & "苹果" & i & "个,6人均分余3个"
End If
If i Mod 7 = 2 Then
j = j + 1
Print "方法" & j & "苹果" & i & "个,7人均分余2个"
End If
Next
Print "共有的方法数为:" & j
End Sub

1、
Private Sub Form_Paint()
Dim i As Long, j As Long
j = 0
For i = 50 To 500
If i Mod 5 = 4 And i Mod 6 = 3 And i Mod 7 = 2 Then
Print ("苹果有" & i & "个")
j = j + 1
End If
Next
Print "共有" & j & "种分法"
End Sub

第一题他们都做了，那我做第二题:
有两个command控件 一个是“输入” 一个是"计算"
Dim a(11) As Integer