vb语言翻译Private Sub yssj_click()picture1.ClsOpen "C:\Documents and Settings\Administrator\桌面\vb\wen.txt" For Input As #1Do While Not EOF(1)Line Input #1, linedata picture1.Print Tab(5); linedataLoopClose #1End SubPrivate Sub ysxf_click()pi

vb语言翻译Private Sub yssj_click()picture1.ClsOpen "C:\Documents and Settings\Administrator\桌面\vb\wen.txt" For Input As #1Do While Not EOF(1)Line Input #1, linedata picture1.Print Tab(5); linedataLoopClose #1End SubPrivate Sub ysxf_click()pi
vb语言翻译
Private Sub yssj_click()
picture1.Cls
Open "C:\Documents and Settings\Administrator\桌面\vb\wen.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, linedata
picture1.Print Tab(5); linedata
Loop
Close #1
End Sub
Private Sub ysxf_click()
picture1.Cls
Open "C:\Documents and Settings\Administrator\桌面\vb\学分.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, linedata
picture1.Print Tab(5); linedata
Loop
Close #2
End Sub

Private Sub jqpij_click()
picture1.Cls
Dim i%, j%
For i = 1 To n
stu(i).pjf = 0
For j = 1 To m
stu(i).pif = stu(i).pif / zxf
Next i
picture1.Print " 学号 姓名 物理 VB 数学 技经 化学 平均分"

End Sub 帮我翻译一下

vb语言翻译Private Sub yssj_click()picture1.ClsOpen "C:\Documents and Settings\Administrator\桌面\vb\wen.txt" For Input As #1Do While Not EOF(1)Line Input #1, linedata picture1.Print Tab(5); linedataLoopClose #1End SubPrivate Sub ysxf_click()pi
Private Sub yssj_click() yssj 按钮事件
picture1.Cls 清除picture1内容
Open "C:\Documents and Settings\Administrator\桌面\vb\wen.txt" For Input As #1 只读方式打开wen.txt
Do While Not EOF(1) do while 循环
Line Input #1,linedata
picture1.Print Tab(5); linedata 在picture1中输出第5列内容
Loop 退出do while 循环
Close #1 关闭打开文件
End Sub 按钮事件结束
Private Sub ysxf_click() ysxf按钮事件
picture1.Cls 清除picture1内容
Open "C:\Documents and Settings\Administrator\桌面\vb\学分.txt" For Input As #2 只读方式打开学分.txt
Do While Not EOF(2) do while 循环
Line Input #2,linedata
picture1.Print Tab(5); linedata 在picture1中输出第5列内容
Loop 退出do while 循环
Close #2 关闭打开文件
End Sub 按钮事件结束
Private Sub jqpij_click() jqpij按钮事件
picture1.Cls 清除picture1内容
Dim i%,j% 定义i,j
For i = 1 To n 父for循环 i循环次数i-n
stu(i).pjf = 0
For j = 1 To m 子for循环 i循环次数i-m
stu(i).pif = stu(i).pif / zxf
Next i
picture1.Print " 学号 姓名 物理 VB 数学 技经 化学 平均分"
在picture1中输出
End Sub