您所在位置：主题：vb上机题如何自动阅卷
foreversun
[专家分：0] 发布于 2012-11-27 21:26:00
这是高中生的ＶＢ操作题，如何自动对里面的代码进行检测，判断代码正确与否
如果能判断学生完善代码后，检测运行程序的结果正确与否，也可
代码如下：
' 算法描述：
'
'
'
'注意事项：
'
' 1、请在 func() 函数中实现算法，返回算法结果
' 2、请不要修改 Main() 过程
'
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
