Question

求VB大神给翻译一下

Sub Main()
If Command = "assess" Then
Open "in.txt" For Input As #1
Line Input #1, n
Close #1
Open "out.txt" For Output As #1
Print #1, func(n)
Close #1
Else
Val(n) = InputBox("请输入大学生数 n:", "Input")

MsgBox func(n)
End If
End Sub

ELSE往上的都是啥意思啊

Answer 1

If Command = "assess" Then
Open "in.txt" For Input As #1 '打开in.txt用于输入，里面应该有记录的大学生数
Line Input #1, n '读取其中的一行内容放到n
Close #1
Open "out.txt" For Output As #1
Print #1, func(n) '将n处理了以后写入out.txt
Close #1