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,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
只读方式打开学分.txtDo 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-nstu(i).pjf = 0For j = 1 To m 子for循环 i循环次数i-mstu(i).pif = stu(i).pif / zxfNext ipicture1.Print 学号 姓名 物理 VB 数学 技经 化学 平均分在picture1中输出End Sub