vb语言翻译Private Sub yssj

vb语言翻译Private Sub yssj

Private Sub yssj_click() yssj 按钮事件picture1.Cls 清除picture1内容Open C:\Documents and Settings\Administrator\桌面\vb\wen.txt For Input As #1 只读方式打开wen.txtDo While Not EOF(1) do while 循环Line Input #1,linedatapicture1.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 只读方式打开学分.txtDo While Not EOF(2) do while 循环Line Input #2,linedatapicture1.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-nstu(i).pjf = 0For j = 1 To m 子for循环 i循环次数i-mstu(i).pif = stu(i).pif / zxfNext ipicture1.Print 学号 姓名 物理 VB 数学 技经 化学 平均分在picture1中输出End Sub

和我的回答一样，看来我也对了