vb课设成绩信息管理 ,高手进

帮忙解释一下这段代码的意思吧,O(∩_∩)O谢谢了PrivateSub打开_Click()'向文本框内输入数据Dimq1AsIntegerDimaAsInteger,bA... 帮忙解释一下这段代码的意思吧,O(∩_∩)O谢谢了
Private Sub 打开_Click()
'向文本框内输入数据
Dim q1 As Integer
Dim a As Integer, b As Integer, o As Integer
CommonDialog1.Filter = "text(.*)|*.txt|all file|*.*" ’这句话是什么意思,单词都不认识
CommonDialog1.FilterIndex = 1 都不认识
CommonDialog1.ShowOpen
X1 = CommonDialog1.FileName
List1.List(0) = "姓 名 数学 英语 计算机 平均分" & vbNewLine
Open X1 For Input As #1 'X1是文件名
j = 0
Do While Not EOF(1)
ReDim Preserve n(j + 1), m(j + 1), c(j + 1), e(j + 1)
q1 = q1 + 1
j = j + 1
Input #1, n(j), m(j), c(j), e(j)
a = m(j)
b = c(j)
o = e(j)
pingjun(j) = (a + b + o) / 3 '计算平均分
List1.List(q1) = n(j) & Space(6) & m(j) & Space(5) & c(j) & Space(6) & e(j) & Space(7) & pingjun(j) & vbNewLine '文本框显示数据
Loop
Close #1
End Sub

电脑白痴,可以的话一句一句话都解释一下吧,O(∩_∩)O谢谢啦
展开
 我来答
风雷小草
2011-09-08 · TA获得超过1711个赞
知道小有建树答主
回答量:1174
采纳率:0%
帮助的人:698万
展开全部
程序用到了打开对话框控件、List控制、文件操作、Do循环。
如果真是电脑白痴的话,建立不要用这些东西来折磨自己。如果要学的话,先从基础学起,不要一开始就来“综合”的。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式