UC知道小女子走投无路，不胜感激了，求高手帮助
来源：百度知道 编辑：UC知道 时间：2024/05/14 11:40:15
幼儿学习娱乐软件
任务要求：
制作一个集学习、娱乐为一体的幼儿软件，该软件包含如下功能。
1）学数学。10以内和20以内加减法的“实物”演示，用户可以自由选择或输入参与运算的数；10以内和20以内加减法的测试，要求随机给出参与运算的数，能判断用户的答案；测试完能给出得分。
2）看图片。通过使用文件系统控件使用户能方便地选择图片文件并显示出来。
3）绘图板。使用户方便的选择颜色和线型以及图形进行绘图。
4）成绩统计与分析。该功能方便家长掌握孩子从使用该软件以来所有测试成绩情况，能统计成绩（如平均分、各分数段成绩分布比例等），并画出成绩分布的曲线图或柱状图。
5）时钟。在主窗体上绘制一个指针，正确显示当前时间（精确到秒）。
我只差第四个成绩统计与分析的 数据是第一小点的数据，画曲线图是不是要VB调用excel来画 可以帮我编这一段么 谢谢了 小女子不胜感激啊
Dim ar(20) As String, i As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer, f As Integer 'a,b,c,d,f 为统计各分数段学生的个数
a = 0
b = 0
c = 0
d = 0
f = 0
For i = 0 To 19
ar(i) = CInt(Rnd() * 100)
If 0 <= ar(i) And ar(i) < 60 Then
a = a + 1
ElseIf 59 < ar(i) And ar(i) < 70 Then
b = b + 1
ElseIf 69 < ar(i) And ar(i) < 80 Then
c = c + 1
ElseIf 79 < ar(i) And ar(i) < 90 Then
d = d + 1
ElseIf 89 < ar(i) And ar(i) <= 100 Then
f = f + 1
End If
Next
Dim min As Integer, max As Integer, sum As Integer, ave As String, j As Integer
'min,max,ave分别为最小最大和平均值
min = ar(0)
max = ar(