求 一段 VB程序的编写代码？？在线等 快点啊！谢谢le !

for I = 2000 to 9990
if I mod 11 = 0 and I mod 17 = 0 then
Count = Count + 1
Sum = Sum + I
next
lblSum.text = Sum
lblAdv.text = Sum / Count

建立两个TEXT控件，一是和，一是均值，一个COMANG控件
Private Sub Command1_Click()
Dim i As Integer

Dim number As Integer
Dim sum As Single

For i = 2000 To 9990
If i Mod 11 = 0 And i Mod 17 = 0 Then
number = number + 1
sum = sum + i
End If
Next i

Text1.Text = sum
Text2.Text = sum / number
End Sub

大哥，你直说能被187正处就得了……给个完整的吧,不需要控件……

Private Sub form_load()

Form1.AutoRedraw = True

Dim b As Integer

   For b = 2000 To 9990

If b Mod 187 = 0 Then

Print b

End If

Next

End Sub

附图：帮忙编写这个程序的VB代码 用vb编写计算器的代码程序 求一个扫雷游戏程序编写代码,一定要是用VB.NET编写的~急!!!!!!!!` 急求使用VB编写一段代码算蝴蝶数 求vb高手帮我编写一段代码。 求用vb或者批处理代码编写一段批量修改文件名的程序代码, VB程序编写代码问题? 求一段VB代码 求一段vb代码 求VB编写程序的步骤