对vb生成的工程如何进行判断

[foreversun9996]

VB操作题是如何实现自动评分的。
已知一个考试程序.代码如下：Function func()
Dim a As Integer, x As Integer
a = 178
If a / 2 = Int(a / 2) Then '划线
x = 0
Else
x = 1 '线部分
End If '线部分
func = x
End Function

'
' 请不要修改 Main() 过程 ！
'
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()
Close #1

Else


MsgBox func()

End If

End Sub
程序运动正确后，保存为工程
问题如下：
如何对这个程序正确与否进行判断。
求大家给个解决问题的思路

[叶子]

这个帖子发重复了吧？

[zhufobbs]

不理解？说明白点

[foreversun9996]

如何利用vb对上面生成的工程进行检测是不是正确的。