自做总动态自测VBA主程序文本含T单选80(可修改为多选判断或填空)讲述.docVIP

启动自测按钮 1、将下面4行复制到 WORD 文本 首页首行 请先设置分值。每题分：单选多选判断计算填空每空分 2、将下面 全部 复制到 WORD 文本 对应的《设计模式》的《查看代码》窗口的页面内 通用程序（单选多选填空判断） 因为下面子程序《Z判卷给分()》--对单选多选填空判断可通用的子程序 Public D题目数 As Integer, D问题键名 As String, D对错串 As String, D题型 As String, D题型串 As String, D显单分 As String, D显多分 As String Public D答案 As String, D回答 As String, D题次 As String, D已答问题 As String Public TF As Boolean, TF按次显示 As Boolean, TF按次记分 As Boolean, TF相对分 As Boolean 逻辑型 Public D单选 As Integer, D多选 As Integer, D判断 As Integer, D填空 As Integer, D计算 As Integer Public F单选 As Integer, F多选 As Integer, F判断 As Integer, F填空 As Integer, F计算 As Integer Public D总答次数 As Integer, D总答题数 As Integer, D总对次数 As Integer, D总对题数 As Integer, D总相对分 As Integer, D总试卷分 As Integer Public D答单选次数 As Integer, D答单选题数 As Integer, D单选对次数 As Integer, D单选对题数 As Integer, D单选相对分 As Integer, D单选试卷分 As Integer Public D答多选次数 As Integer, D答多选题数 As Integer, D多选对次数 As Integer, D多选对题数 As Integer, D多选相对分 As Integer, D多选试卷分 As Integer Public D答判断次数 As Integer, D答判断题数 As Integer, D判断对次数 As Integer, D判断对题数 As Integer, D判断相对分 As Integer, D判断试卷分 As Integer Public D答填空次数 As Integer, D答填空题数 As Integer, D填空对次数 As Integer, D填空对题数 As Integer, D填空相对分 As Integer, D填空试卷分 As Integer Public D答计算次数 As Integer, D答计算题数 As Integer, D计算对次数 As Integer, D计算对题数 As Integer, D计算相对分 As Integer, D计算试卷分 As Integer Private Sub Z初始变量赋值() 初始变量赋值 D题型串 = D题目数 = 50 D多选 = 0 个题 D单选 = 50 个题 单选，多选，判断，填空，计算共5种 D判断 = 0 个题 D填空 = 0 个题 D计算 = 0 个题 F单选 = T单选0.Value 2 X 5 = 10分 F多选 = T多选0.Value 2 X 10 = 20分 F判断 = T判断0.Value 5 X 10 = 50分 F填空 = T填空0.Value 2 X 10 = 20分 F计算 = T计算0.Value 10 X 0 = 0分 TF相对分 = False 按考试卷，满分100分； TF相对分=True 按做对全部题为100分，每题平均给分 D已答问题 = Space(10000)，为零判断是否已经答过的题，以便确定更改答案的次数 D总答次数 = 0 D总答题数 = 0 D总对次数 = 0 D总对题数 = 0 D总相对分 = 0 D总试卷分 = 0 D答单选次数 = 0 D答单选题数 = 0 D单选对次数 = 0 D单选对题数 = 0 D单选相对分 = 0 D单选试卷分 = 0 D答多选次数 = 0 D答多选题数 = 0