【文件属性】:
文件名称:VB数组应用实例-成绩统计
文件大小:2KB
文件格式:RAR
更新时间:2013-12-19 16:34:00
成绩统计
VB数组应用实例-成绩统计
输入成绩部分:
Private Sub Command1_Click()
Dim i As Integer
Picture1.Cls
For i = 1 To N
score(i) = Val(InputBox("请输入第" & i & "位学生的成绩"))
Picture1.Print score(i);
If i Mod 5 = 0 Then Picture1.Print
Next i
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End Sub
【文件预览】:
演示案例1
----Form1.frm(5KB)
----工程1.vbp(623B)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(55B)
网友评论
- 是对10个数进行总分、平均分的统计 很好的小程序