
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谢谢啦 展开
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谢谢啦 展开
1个回答
展开全部
程序用到了打开对话框控件、List控制、文件操作、Do循环。
如果真是电脑白痴的话,建立不要用这些东西来折磨自己。如果要学的话,先从基础学起,不要一开始就来“综合”的。
如果真是电脑白痴的话,建立不要用这些东西来折磨自己。如果要学的话,先从基础学起,不要一开始就来“综合”的。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询