vb语言翻译Private Sub yssj_click()picture1.ClsOpen "C:\Documents

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/17 08:01:12

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 帮我翻译一下

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 Su

vb语言翻译Private Sub yssj_click()picture1.ClsOpen "C:\Documents vb Private Sub Command1_Click() VB问题Private Sub Command1_Click() VB里的“Private Sub Command1_Click()”是什么意思? VB里面Private Sub form_click()什么意思 VB里的sub单词是什么意思,比如private sub……、end sub VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF 我是vb初学者对书上一句话不懂private sub form_click()这句话啥意思? 请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text "" 一道VB题Private Sub Commad ClickPrint "s=";s(5)End SubPrivate F 几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b