浙江师范大学visual

《浙江师范大学visual》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、浙江师范大学《VisualBasic程序设计基础》考试卷（2007----2008学年第2学期）考试形式　笔试（闭卷）　　　使用学生全校07级理科（非行知）专业　考试时间　120　分钟　　　　　　　出卷时间2008年　6　月　1　日说明：考生应将全部答案写在答题纸上，否则作无效处理。试题一（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】过程JiSuan用于计算e=1+1/1!+1/2!+1/3!+…+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。【程序】O

2、ptionExplicitPrivateSubJiSuan()DimeAssingle,(1),iAslonge=1:t=1:(2)(3)i=i+1:e=e+t:(4)Loop(5)EndSub【供选择的答案】（1）A、tAsStringB、DimtAsStringC、DimtAsSingleD、tAsSingle（2）A、i=1B、i=2C、i=0D、i=3（3）A、Whilet>=0.00001B、DoWhilet>=0.00001C、Whilee>=0.00001D、DoWhilee>=0.00001（4）A、t=t*iB、t=1/(i*t)C、t=t/i

3、D、t=1/i（5）A、MsgBox"近似值为："+tB、MsgBox"近似值为："&tC、MsgBox"近似值为："+eD、MsgBox"近似值为："&e试题二（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1.单击“加粗”第8页，共8页复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。1.单击“选择颜色”按钮(Command1)将显示“颜色”对话框，若单选按钮“前景色”（Option1）被选中，则设置L

4、abel1的前景色为用户选择的颜色，否则设置Label1的背景色为用户选择的颜色。通用对话框控件名称为CommonDialog1。【程序】PrivateSubCheck1_Click()Label1.FontBold=FalseIf(6)ThenLabel1.FontBold=TrueEndSubPrivateSubCommand1_Click()DimcAsLong:(7):c=(8)If(9)ThenLabel1.ForeColor=cElseLabel1.BackColor=cEndSub【供选择的答案】（1）A、Check1.Value=TrueB、Ch

5、eck1.Value=FalseC、Check1.Value=1D、Check1.Value=0（2）A、CommonDialog1.ShowOpenB、CommonDialog1.ShowColorC、CommonDialog1.ShowSaveD、CommonDialog1.Action=1（3）A、CommonDialog1.ForeColorB、CommonDialog1.FontColorC、CommonDialog1.BackColorD、CommonDialog1.Color（4）A、Option1.ValueB、Option1.Value=1C、

6、Option1.Value=falseD、Option1.Value=0试题三（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】第8页，共8页程序界面如上面两图所示，程序运行时要求有以下功能：1.当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。2.当用户单击“删除”按钮(Command2)，若列表框中没有表项被选中，则用消息框提示“没有选择表项”，否则删除被选中的表项。3.文本框仅允许输入数字字符与退格字符(

7、ASCII码值为8)。【程序】PrivateSubCommand1_Click()DimsAsString,tAsStrings=Text1.TextIfs=""ThenExitSub(10):Text1.SetFocusText1.SelStart=0:(11)EndSubPrivateSubCommand2_Click()IfList1.ListIndex=-1ThenMsgBox"没有选择表项"Else(12)EndSubPrivateSubText1_(13)If(14)ThenKeyAscii=0EndSub【供选择的答案】（1）A、List1.Add

8、Items，List1.