在VB（Visual Basic）中统计编程成绩，你可以采用以下几种方法：
使用数组和循环
可以创建一个数组来存储学生的成绩，然后通过循环遍历数组来计算各个分数段的百分比。
数据库查询
如果成绩数据存储在数据库中，可以使用SQL语句来查询并统计成绩，然后将结果在VB中显示。
文件读写
可以将学生的成绩写入文本文件，然后读取文件中的数据，计算总分和平均成绩，并将结果显示在列表框或其他控件中。
用户输入
可以通过输入框逐个输入学生的成绩，然后使用数组或其他数据结构来存储和计算平均成绩。
界面设计
设计一个用户界面，允许用户输入学生人数和成绩，然后计算并显示平均成绩、最高分、最低分等统计信息。
Excel自动化
如果熟悉Excel VBA，可以创建一个Excel工作表，通过宏来自动化成绩录入、排序和统计。
算法实现
对于更复杂的统计需求，如计算方差、标准差、难度、区分度等，可以使用VB编写相应的算法。
```vb
Private Sub Command1_Click（）
Dim scores（） As Integer
Dim i As Integer
Dim total As Integer
Dim average As Double
' 假设输入了5个学生的成绩
ReDim scores（1 To 5）
total = 0
For i = 1 To 5
scores（i） = Val（InputBox（"请输入第" & i & "个学生的成绩： "））
total = total + scores（i）
Next i
average = total / 5
' 输出统计结果
Print "平均成绩为： " & average
For i = 1 To 5
If scores（i） >= 90 Then
Print "90-100分： " & scores（i）
ElseIf scores（i） >= 80 Then
Print "80-89分： " & scores（i）
ElseIf scores（i） >= 70 Then
Print "70-79分： " & scores（i）
ElseIf scores（i） >= 60 Then
Print "60-69分： " & scores（i）
Else
Print "60分以下： " & scores（i）
End If
Next i
End Sub
```
这个示例代码允许用户输入5个学生的成绩，然后计算并输出平均成绩以及每个分数段的学生人数。你可以根据实际需求调整代码，以适应不同的输入和输出要求。