VB考前辅导班模拟考试卷MNSJ3.docVIP

VB考前辅导模拟试卷三（中等） 试题一（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 过程JiSuan用于计算e = 1 + 1/1! + 1/2! + 1/3! + …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。 【程序】 Option Explicit Private Sub JiSuan() Dim e As single, (1) , i As long e = 1: t = 1: (2) (3) i = i + 1: e = e + t: (4) Loop (5) End Sub 【供选择的答案】 A、t As String B、Dim t As String C、Dim t As Single D、t As Single A、i = 1 B、i = 2 C、i = 0 D、i = 3 A、While t = 0.00001 B、Do While t = 0.00001 C、While e = 0.00001 D、Do While e = 0.00001 A、t = t * i B、t = 1/(i * t) C、t = t / i D、t = 1 / i A、MsgBox 近似值为： + t B、MsgBox 近似值为： t C、MsgBox 近似值为： + e D、MsgBox 近似值为： e 试题二（每小题2分，共8分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 程序界面如下图所示，程序运行时要求有以下功能： 单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。 单击“选择颜色”按钮(Command1)将显示“颜色”对话框，若单选按钮“前景色”（Option1）被选中，则设置Label1的前景色为用户选择的颜色，否则设置Label1的背景色为用户选择的颜色。通用对话框控件名称为CommonDialog1。 【程序】 Private Sub Check1_Click() Label1.FontBold = False If (6) Then Label1.FontBold = True End Sub Private Sub Command1_Click() Dim c As Long : (7) : c = (8) If (9) Then Label1.ForeColor = c Else Label1.BackColor = c End Sub 【供选择的答案】 A、Check1.Value = True B、Check1.Value = False C、Check1.Value = 1 D、Check1.Value = 0 A、CommonDialog1.ShowOpen B、CommonDialog1.ShowColor C、CommonDialog1.ShowSave D、CommonDialog1.Action = 1 A、CommonDialog1.ForeColor B、CommonDialog1.FontColor C、CommonDialog1.BackColor D、CommonDialog1.Color A、Option1.Value B、Option1.Value = 1 C、Option1.Value = false D、Option1.Value = 0 试题三（每小题2分，共10分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 程序界面如上面两图所示，程序运行时要求有以下功能： 当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。 当用户单击“删除”按钮(Command2)，若列表框中没有表项被选中，则用消息框提示“没有选择表项”，否则删除被选中的表项。 文本框仅允许输入数字字符与退格字符(ASCII码值为8)。 【程序】 Private Sub Command1_Click() Dim s As String, t As S