求帮忙，帮我把下面的vb代码翻译成中文，谢谢！

更新时间2018-11-13 09:12:22

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语言,那个是全中文的)

相关标签:谢谢