三、论述题：
20、及替代20
评分原则：1、针对教学。2、理解深刻，结合现状。3、论述有措施、有新意。4、符合现有文件精神，特别是大纲。5、参考者所答互相比较。
21、评分原则：由于大多数教师对VBA不熟悉，故本题很浅，除字母拼写错误从宽评分外，语法、算法从严明评分。
Sub sx() 子程序名任取，没有sub和endsub从严来说不是完整程序，本次暂不扣分。
For i = 2 To 9 1分
a = ActiveSheet.Cells(2, i)
If Int(a / 2) = a / 2 Then 1分 或 If Mod(a,2) = 0 Then
b = b + 1 1分
MsgBox ("这是第" + Str(b) + "个偶数") 1分
ActiveSheet.Cells(1, i).Value = "Yes" 1分
Else
ActiveSheet.Cells(1, i).Value = "No"
End If
Next
End Sub 其它 1分
替代21、本题提供内容较多，需要理清思路，难度稍大。对程序的健壮性不作要求。评分从宽。本题算法有多种：1、分别用模60和模12取余求天干地支名称和生肖。2、先模60取余求天干地支名称，余数再模12取余求生肖。还有其它方法。下面给出foxpro语言的较简例：
DO TGDZ
CLEA 1分
@ 10,2 SAY “请输入年份” GET NF
IF NF>=1985
N=MOD(NF-1984,60)
ELSE
N=61-MOD(1985-NF,60) 不同数据计算正确2分
ENDIF
?”今年是”+TGDZ(N)+”年” 输出正确1分
S=MOD(N,12) 在得到名称基础上正确计算生肖1分
?”生肖是”+DZ(2,S) 其它结构等1分
其它语言或算法可主要针对算法，也参考语法，作相应评分。
22、Winzip窗口包括标准的Windows窗口部件，特别值得注意的是（关于最感兴趣的部分）：标题栏不仅是Winzip的工作标题，而且还有你当前正在处理的文档的标题，工具栏提供你快捷的方法去执行最普通（常见）的任务。主窗口区域用来显示文档中各文件的信息，当你深入这个向导（指帮助文档），你会发现能直接对这些文件执行许多操作。最后，状态列显示当前选择的文件的数量和大小，其它文档信息。
替代22、如果你从活动的下拉菜单中选择Extract或单击Extract工具栏按钮，Winzip会让你选择将用来放置被展开文件的文件夹。要知道关于那个对话框的更详细内容，请当你碰到有关问题时按F1键，或马上单击从文档中展开的文件