高中信息技术算法与程序设计 专项测试一 程序设计基础

登录二一教育在线组卷平台 助您教考全无忧 高中信息技术算法与程序设计 专项测试一 程序设计基础 一、选择题 1．下列问题不能用算法描述的是(　　) A．求所有自然数之和 B．将四位十进制数转换为对应的二进制数 C．将100个实数按升序排列 D．求100个整数中的最大值和最小值 2．下列可作为VB变量名的是(　　) A．3D B．X_Y C．X＋Y D．And 3．有10个数据23、15、51、36、78、47、39、9、88、96依次存放在数组a(1 to 10)中，使用如下程序段找出最大值： max＝a(1) For i＝2 to 10 Next i 当方框内的语句执行完6次后(此时循环变量i的值为7)，变量max的值是(　　) A．23 B．39 C．78 D．96 4．有如下VB程序段： a＝12 b＝54 a＝a＋b b＝a－b a＝a－b 该程序段执行后，变量a，b的值分别是(　　) A．12，54 B．54，12 C．12，12 D．54，54 5．变量c中存储着一个字符，能够正确判断出该字符为数字字符“0”～“9”的VB表达式是(　　) A．c>＝“0” And c<＝“9” B．c>＝“0” Or c<＝“9” C．Asc(c)>＝0 And Asc(c)<＝9 D．Asc(c)>＝0 Or Asc(c)<＝9 6．字符串变量a、b的值分别为“12”、“34”，则表达式a＋b的值是(　　) A．“12＋34” B．“1234” C．46 D．“46” 7．字符串变量s的值为“ZheJiangHangZhou”，下列VB表达式的值是“Hang”的是(　　) A．Mid(s，8，4) B．Mid(s，4，8) C．Mid(s，9，4) D．Mid(s，4，9) 8．将数学表达式 (x≠1，y≠1)写成VB表达式是(　　) A．x－1/1/y－1 B．y－1/x－1 C．(y－1)/(x－1) D．1/(x－1)/(y－1) 9．有如下VB程序段： x ＝ 0 For i ＝ 0 To 20 Step 2 If i Mod 3 ＝ 0 Then x ＝ x ＋ i Next i 该程序段执行后，变量x的值是(　　) A．12 B．18 C．36 D．60 10．小明编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如下图所示的错误信息： n ＝ 0 m ＝ 0 For i ＝ 1 To 100 If Rnd > 0.5 Then n ＝ n ＋ 1 Else m ＝ m ＋ 1 Next i …… 小明仔细分析该程序段后，发现其中缺少的语句是(　　) A．For B．End If C．Next D．If 11．有如下VB程序段： Dim k As Integer, s As Integer k ＝ 0: s ＝ 0 Do While k >＝ 10 k ＝ k ＋ 1 s ＝ s ＋ k Loop 该程序段执行后，变量s的值是(　　) A．0 B．1 C．10 D．11 12．小明在设计VB程序时所使用单选框对象的属性窗口如下图所示，他想编写该单选框单击事件的处理过程，则该事件处理过程名是(　　) A．OptionButton_Click B．男_Click C．Option1_Click D．单选框_Click 13．某算法的部分流程图如下图所示，执行这部分流程后，输出b，s的值分别是(　　) A．72，138 B．72，210 C．87，210 D．87，297 二、非选择题 14．下列VB程序运行时，单击命令按钮Command1后，语句①被执行了　 　次，文本框Text1中显示的内容是　 　。 Private Sub Command1_Click() Dim a(1 To 5) As Integer.i As Integer a(1)＝1 a(2)＝1 For i＝3 To 5 a(i)＝2*a(i－1)＋a(i－2) ′语句① Next i Text1.Text＝Str(a(5)) End Sub 15．下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是　 　，文本框Text2中显示的内容是　 　。 Private Sub Command1_Click() Dim a(1 To 3) As Integer, k As Integer, t As Integer, s As Integer a(1) ＝ 12: a(2) ＝ 41: a(3) ＝ 2 s ＝ 0 For k ＝ 2 To 3 If a(k) > a(1) Then t ＝ a(1): a(1) ＝ a(k): a(k) ＝ t s ＝ s ＋ 1 End If Next k Text1.Text ＝ Str(a(1)) Text2.Text ＝ Str(s) End Sub 16．编“求最大数最小数”程序，实现如下功能：在文本框Text1中输入一个正整数n，单击“分析”按钮Command1后，程序将生成n个随机整数，显示在列表框List1中；并计算这n个随机整数中 ... ...