专题四 选择结构程序设计（练习）-《Visual Basic 程序设计》高考备考讲练测（内蒙古）

专题四 选择结构程序设计 一：单选题 1：如果要将定时器的时间间隔设置为1秒，应将其Interval属性值设置为（ ） A. 1 B. 10 C. 100 D. 1000 2：复选框的Value属性为1时，表示( )。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作有错误 3：下面程序段显示的结果是（ ） Dim x x=Int(Rnd)+5 Select Case x Case 5 Print “优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“不通过” End Select A.优秀 B.良好 C.通过 D.不通过 4：单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的（ ）中安排适当的单选按钮，即可实现。 A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox） D．框架控件（Frame）或图片框控件（PictureBox） 5：在Visual Basic中，关于计时器控件的叙述正确的是（ ） A．一个窗体中只能使用一个定时器控件 B．Interval属性的值表示的是每次Timer事件所使用的秒数 C．计时器在程序运行时是不显示的，但也有Left属性 D.如果Enabled属性被设置为True，则计时器一定被启动，并定时产生Timer事件 6：在Visual Basic中，决定单选按钮是否被选中的是（ ） A．Checked B．Visible C．Style D．Value 7：在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 8：在Visual Basic中，关于Select Case语句的叙述，正确的是（ ） A．Select Case语句中的测试表达式可以是任何形式的表达式 B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C．子句Case中的表达式可以是逻辑表达式 D．不是所有的Select Case语句都能用If语句代替 9：编写如下事件过程： Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print "Hello" End If End Sub 程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下（ ）操作。 A.同时按下 Shift 键和鼠标左键 B.同时按下 Shift 键和鼠标右键 C.同时按下Ctrl、Alt 键和鼠标左键 D.同时按下 Ctrl、Alt 键和鼠标右键 10：若要设置定时器控件的定时时间，需设置的属性是（ ）。 A.Interval B.Value C.Enabled D.Text 11：执行下列程序段后，整型变量c的值为（ ）。 A=24 b=328 select case b\10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+b end select A. 537 B. 2427 C. 24328 D. 240328 12：要清除组合框Combo1中的所有内容，可以使用( )语句。 A.Combo1.ClS B.Combo1.Clear C.Combo1.Delete D.Combo1.Remove 13：单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的（ ）中安排适当的单选按钮，即可实现。 A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox） D．框架控件（Frame）或图片框控件（PictureBox） 14：有如下程序： Private Sub Command1_Click() X=10 Print IIf(X>5，1，5) End Sub 运行后的输出结果是（ ）。 A．5 B．1 C．2 D．6 15：在程序中可以通过复选框和单选按钮的（ ）属性值来判断它们的当前状态。 A． Caption B． Value C． Checked D．Selected 16：下面的语句中，可以将列表框List1中的当前选定的列表项的值替换成"ABC"的是（ ）。 A． List1.AddItem "ABC",List1.ListIndex B．List1.Text="ABC" C．List1.List(List1.ListIndex)= "ABC" D．前三项均可 17：在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成（ ）。 A． Case 3<=X<=7 B．Case 3<=X，X<=7 C．Case Is<=7，Is>=3 D．Case 3 To 7 18：如果要求设置定时器时间间隔为0.5秒，那么它的Interval属性应该等于（ ）。 A．5 B．50 C．500 D．5000 19：以下Case语句含有错误的是（ ）。 A． Case 0 To 10 B．Case Is > 10 C．Case Is > 10 And Is < 50 D．Case 3,5,Is > 10 20：将计时器Interval属性应设置为500,Enabled属性设置为True,程序运行到1.1秒时，计时器的Timer事件发生了（ ）次。 A.1 B.2 C.3 D.4 二：填空题 1：Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 2：设置计时器控件只能触发______________________事件。 3：下面程序的输出结果是_______。 X = Int(Rnd) + 3 If X ^ 2 > 8 Then Y = X ^ 2 + 1 If X ^ 2 = 9 Then Y = X ^ 2 - 2 If X ^ 2 < 8 Then Y = X ^ 3 Print Y 4：在Select case 结构中应至少包含一个______子句。 5：如果要把复选框的外观设置为图形方式，应修改复选框的__________属性。 6：列表框的listindex返回当前选项的索引号，索引号从_______开始。如果没有选项被选中，该属性为_______。 7：计时器（Timer）的Interval属性的默认单位为_______。 8：如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于_______。 9：计时器对象_________响应Click事件。(可以/不可以） 10：列表框_________属性可以得到列表中任何选项的值，它以数组的方式存在。 三：程序填空题 1：窗体上有4个文本框，名称分别为Text1、Text2、Text3、Text4和一个Command1的命令按钮，表单设计如下图所示。程序实现的功能为：在Text1、Text2、Text3中分别输入年、月、日，然后单击命令按钮，则可以在Text4中显示该天是当年的第几天。根据程序功能将下列代码补充完整。 Private Sub Command1_Click() Dim year%, month%, days% year = Val(Text1) month = Val(Text2) days = Val(Text3) For i = 1 To ____（1）___ Select Case i Case 1, 3, 5, 7, 8, 10: days = days + 31 Case 4, 6, 9, 11: days = days + 30 Case 2: days = days + _________（2）__________ End Select Next i Text4 = days End Sub Function LeapYear(x As Integer) As Integer If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then LeapYear = 1 Else LeapYear = 0 End If End Function 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 专题四 选择结构程序设计 一：单选题 1：如果要将定时器的时间间隔设置为1秒，应将其Interval属性值设置为（ ） A. 1 B. 10 C. 100 D. 1000 【答案】D 【解析】Interval属性用于设置定时器事件触发的时间间隔，单位是毫秒（ms）。1秒等于1000毫秒，所以要将时间间隔设置为1秒，应将Interval属性值设置为1000。因此正确答案是D。 2：复选框的Value属性为1时，表示( )。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作有错误 【答案】B 【解析】复选框（CheckBox）的Value属性用于表示其选中状态：0（或vbUnchecked）：表示未被选中；1（或vbChecked）：表示被选中；2：表示灰色不可用状态。 3：下面程序段显示的结果是（ ） Dim x x=Int(Rnd)+5 Select Case x Case 5 Print “优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“不通过” End Select A.优秀 B.良好 C.通过 D.不通过 【答案】A 【解析】Rnd函数生成一个 0 到 1 之间（不包括 1）的随机数，Int(Rnd)将其取整，结果只能是 0，因此x = Int(Rnd) + 5的结果恒为 5。 4：单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的（ ）中安排适当的单选按钮，即可实现。 A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox） D．框架控件（Frame）或图片框控件（PictureBox） 【答案】D 【解析】框架控件（Frame）和图片框控件（PictureBox）都可作为容器，将单选按钮分组放入其中，可实现组间独立的互斥效果。 5：在Visual Basic中，关于计时器控件的叙述正确的是（ ） A．一个窗体中只能使用一个定时器控件 B．Interval属性的值表示的是每次Timer事件所使用的秒数 C．计时器在程序运行时是不显示的，但也有Left属性 D.如果Enabled属性被设置为True，则计时器一定被启动，并定时产生Timer事件 【答案】C 【解析】一个窗体中可以放置多个计时器控件，它们各自独立工作，计时器的Interval属性单位是毫秒（ms）Enabled属性设为True是计时器启动的必要条件，但还需Interval属性值大于 0。 6：在Visual Basic中，决定单选按钮是否被选中的是（ ） A．Checked B．Visible C．Style D．Value 【答案】D 【解析】 Visual Basic 中，单选按钮（OptionButton）的属性中，用于决定其是否被选中的是Value属性。 7：在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 【答案】B 【解析】-10 TO 10直接表示 x 在 - 10 到 10 之间，符合|x| <= 10的条件。 8：在Visual Basic中，关于Select Case语句的叙述，正确的是（ ） A．Select Case语句中的测试表达式可以是任何形式的表达式 B．Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C．子句Case中的表达式可以是逻辑表达式 D．不是所有的Select Case语句都能用If语句代替 【答案】Ｂ 【解析】Select Case语句的测试表达式只能是数值表达式或字符串表达式，不能是任意形式的表达式，子句Case中的表达式需与测试表达式类型匹配，且不能是逻辑表达式， 所有Select Case语句都可以用If...ElseIf...Else语句替代，只是Select Case在多分支判断时更简洁。 9：编写如下事件过程： Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print "Hello" End If End Sub 程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下（ ）操作。 A.同时按下 Shift 键和鼠标左键 B.同时按下 Shift 键和鼠标右键 C.同时按下Ctrl、Alt 键和鼠标左键 D.同时按下 Ctrl、Alt 键和鼠标右键 【答案】D 【解析】Button参数：Button=2表示按下的是鼠标右键；Shift=6对应Ctrl+Alt。 10：若要设置定时器控件的定时时间，需设置的属性是（ ）。 A.Interval B.Value C.Enabled D.Text 【答案】A 【解析】定时器控件（Timer）的Interval属性用于设置定时时间间隔，单位为毫秒（ms）。当Interval属性值大于 0 且Enabled属性为True时，定时器会每隔设定的时间间隔触发一次Timer事件。 11：执行下列程序段后，整型变量c的值为（ ）。 A=24 b=328 select case b\10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+b end select A. 537 B. 2427 C. 24328 D. 240328 【答案】C 【解析】初始值：a = 24，b = 328。计算b \ 10：328 \ 10（整数除法）的结果为 32。Select Case判断32属于Case 10 to 99的范围，因此执行c = a * 1000 + b。计算得：c = 24 * 1000 + 328 = 24000 + 328 = 24328。 12：要清除组合框Combo1中的所有内容，可以使用( )语句。 A.Combo1.ClS B.Combo1.Clear C.Combo1.Delete D.Combo1.Remove 【答案】B 【解析】Combo1.Clear可直接清除组合框中的所有内容。 13：单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的（ ）中安排适当的单选按钮，即可实现。 A．框架控件（Frame）或图像控件（Image） B．组合框（ComboBox）或图像控件（Image） C．组合框（ComboBox）或图片框控件（PictureBox） D．框架控件（Frame）或图片框控件（PictureBox） 【答案】D 【解析】单选按钮（OptionButton）的互斥性仅限于同一容器内的控件。若需实现多组独立的互斥选项，需将不同组的单选按钮放置在不同的容器中。 14：有如下程序： Private Sub Command1_Click() X=10 Print IIf(X>5，1，5) End Sub 运行后的输出结果是（ ）。 A．5 B．1 C．2 D．6 【答案】B 【解析】IIf函数是一个条件判断函数，语法为IIf(条件, 条件为真时的值, 条件为假时的值)。 15：在程序中可以通过复选框和单选按钮的（ ）属性值来判断它们的当前状态。 A． Caption B． Value C． Checked D．Selected 【答案】B 【解析】在 Visual Basic 中，复选框（CheckBox）和单选按钮（OptionButton）的Value属性用于表示它们的当前状态 16：下面的语句中，可以将列表框List1中的当前选定的列表项的值替换成"ABC"的是（ ）。 A． List1.AddItem "ABC",List1.ListIndex B．List1.Text="ABC" C．List1.List(List1.ListIndex)= "ABC" D．前三项均可 【答案】C 【解析】List1.List(List1.ListIndex) = "ABC" 通过列表框的List属性（以索引访问列表项），直接修改当前选中项的文本为 “ABC” 17：在Select Case x结构中，描述判断条件3≤X≤7的测试项应该写成（ ）。 A． Case 3<=X<=7 B．Case 3<=X，X<=7 C．Case Is<=7，Is>=3 D．Case 3 To 7 【答案】D 【解析】Case 3 To 7 正确表示 x 在 3 到 7 之间（包括 3 和 7）。 18：如果要求设置定时器时间间隔为0.5秒，那么它的Interval属性应该等于（ ）。 A．5 B．50 C．500 D．5000 【答案】C 【解析】定时器控件的Interval属性用于设置时间间隔，单位为毫秒（ms）。由于 1 秒 = 1000 毫秒，因此 0.5 秒对应的毫秒数为 0.5 × 1000 = 500。 19：以下Case语句含有错误的是（ ）。 A． Case 0 To 10 B．Case Is > 10 C．Case Is > 10 And Is < 50 D．Case 3,5,Is > 10 【答案】C 【解析】Case Is > 10 And Is < 50 错误，Case子句中不能直接使用And连接多个Is条件。 20：将计时器Interval属性应设置为500,Enabled属性设置为True,程序运行到1.1秒时，计时器的Timer事件发生了（ ）次。 A.1 B.2 C.3 D.4 【答案】B 【解析】程序运行到 1.1 秒时，触发Timer事件的时间点分别是：第 0.5 秒（第一次）；第 1.0 秒（第二次）。 二：填空题 1：Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 【答案】滚动条 【解析】在 Visual Basic 中，当列表框（ListBox）中的项目数量较多，超出了列表框的显示区域长度时，系统会自动在列表框的右侧添加一个垂直滚动条。 2：设置计时器控件只能触发______________________事件。 【答案】Timer 【解析】在 Visual Basic 中，计时器控件（Timer）的主要功能是按设定的时间间隔触发事件，而它唯一能触发的事件就是Timer事件。 3：下面程序的输出结果是_______。 X = Int(Rnd) + 3 If X ^ 2 > 8 Then Y = X ^ 2 + 1 If X ^ 2 = 9 Then Y = X ^ 2 - 2 If X ^ 2 < 8 Then Y = X ^ 3 Print Y 【答案】7 【解析】Rnd函数生成一个 0 到 1 之间（不包括 1）的随机数，Int(Rnd)的结果只能是 0。 4：在Select case 结构中应至少包含一个______子句。 【答案】Case 【解析】Select case语句至少需要包含一个Case子句来指定匹配条件及对应执行的语句块。Case Else是可选的，用于处理所有不满足前面Case条件的情况，但即使没有Case Else，也必须至少有一个Case子句才能构成完整的Select Case结构。 5：如果要把复选框的外观设置为图形方式，应修改复选框的__________属性。 【答案】Style 【解析】在 Visual Basic 中，复选框的Style属性用于设置其外观样式。 6：列表框的listindex返回当前选项的索引号，索引号从_______开始。如果没有选项被选中，该属性为_______。 【答案】0；-1 【解析】在 Visual Basic 中，列表框（ListBox）的ListIndex属性用于返回当前选中项的索引号。列表项的索引号从 0 开始（即第一个项目的索引号为 0，第二个为 1，以此类推）。当没有任何项目被选中时，ListIndex属性的值为 - 1。 7：计时器（Timer）的Interval属性的默认单位为_______。 【答案】毫秒 【解析】在 Visual Basic 中，计时器控件（Timer）的Interval属性用于设置时间间隔，其默认单位是毫秒（ms）。 8：如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该等于_______。 【答案】500 【解析】0.5 秒对应的毫秒数为 0.5×1000=500。 9：计时器对象_________响应Click事件。(可以/不可以） 【答案】不可以 【解析】在 Visual Basic 中，计时器控件是一种特殊的控件，它没有可见的界面，其主要功能是按照设定的时间间隔触发Timer事件。计时器控件不会响应Click事件，因为它没有可供用户点击的界面元素。 10：列表框_________属性可以得到列表中任何选项的值，它以数组的方式存在。 【答案】List 【解析】在 Visual Basic 中，列表框（ListBox）的List属性是一个数组，用于存储列表中的所有项目。 三：程序填空题 1：窗体上有4个文本框，名称分别为Text1、Text2、Text3、Text4和一个Command1的命令按钮，表单设计如下图所示。程序实现的功能为：在Text1、Text2、Text3中分别输入年、月、日，然后单击命令按钮，则可以在Text4中显示该天是当年的第几天。根据程序功能将下列代码补充完整。 Private Sub Command1_Click() Dim year%, month%, days% year = Val(Text1) month = Val(Text2) days = Val(Text3) For i = 1 To ____（1）___ Select Case i Case 1, 3, 5, 7, 8, 10: days = days + 31 Case 4, 6, 9, 11: days = days + 30 Case 2: days = days + _________（2）__________ End Select Next i Text4 = days End Sub Function LeapYear(x As Integer) As Integer If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then LeapYear = 1 Else LeapYear = 0 End If End Function 【答案】 (1)month - 1 (2)28 + LeapYear(year) 【解析】2 月的天数在平年为 28 天，闰年为 29 天。LeapYear(year)函数在闰年返回 1，平年返回 0，因此 2 月的天数可表示为28 + LeapYear(year)。 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $