求帮忙,帮我把下面的vb代码翻译成中文,谢谢!
Dim a() As String
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Open "d:1.txt" For Input As #1
Do Until EOF(1)
i = i + 1
ReDim Preserve a(i) As String
Line Input #1, a(i)
Loop
End Sub
Private Sub Timer1_Timer()
Static j As Integer
j = j + 1
If j <= i Then
Label1.Caption = a(j)
Else
j = 0
End If
End Sub
你想做什么?
计算机的语言是让计算机解释(翻译)执行的,没有听说将一个计算机语言翻译成中文的
编写或看懂计算机程序是程序员的工作
若你无法做到,不建议学习编程了
(你若只是玩下,可以去学习E语言,那个是全中文的)
热门标签: