试卷VBA编程制作方法VIP专享VIP免费

襄阳市第四十六中学2015年下学期一年级数学试卷（10分）班级：姓名：单项选择题：每题2分1、1+1=？2、人有几只眼睛？3、你和你爸爸、妈妈加起来一共有多少人？4、一个星期共有多少天？5、正常人的一只手共有多少指头？你的成绩：分1、使用方法：1、工具-宏-安全-设置为“中”2、启用“宏”3、编辑：工具-宏-VBA编辑器主程序：PrivateSubCommandButton1_Click()UserForm1.ShowEndSub窗体程序DimiAsIntegerPrivateSubCommandButton1_Click()IfThisDocument.OptionButton2.Value=TrueTheni=i+2提单试卷65437654432143214321IfThisDocument.OptionButton6.Value=TrueTheni=i+2IfThisDocument.OptionButton11.Value=TrueTheni=i+2IfThisDocument.OptionButton16.Value=TrueTheni=i+2IfThisDocument.OptionButton19.Value=TrueTheni=i+2ThisDocument.TextBox1.Text=iIfi<=6ThenThisDocument.TextBox2.Text="继续努力！---罗水平"ElseThisDocument.TextBox2.Text="加油！---罗水平"EndIfi=0UserForm1.HideThisDocument.CommandButton1.Locked=TrueEndSub