浙江省金华一中2017-2018学年高二信息技术上学期第二次段考试卷.docVIP

金华一中2017—2018学年第一学期第二次段考试卷 高二 技术 一、选择题（本大题共有10题，每题2分，共20分。选出各题中一个符合题意的正确选项，不选、漏选、多选、错选均不给分） 若要在列表框lst_MC中显示文本“金华一中”，下列语句正确的是（ ） A. list1.additem = “金华一中” B. list1.additem(“金华一中”) C. lst_MC.additem = “金华一中” D. lst_MC.additem “金华一中” 能正确判断三个整数型变量a、b、c值相等的VB表达式是（ ） A. a = b = c B. a = b And a = c C. a = c Or b = c Or a = b D. a – b - c = 0 下列Visual Basic表达式中，能产生80到100之间（包括80和100）随机整数的是（ ） A．Rnd() * 100 B．Rnd() * 100 - 20 C．Int(Rnd() * 20) + 80 D．Int(Rnd()*21)+80 VB程序中表达式 33 mod 17\3*2的值为（ ） A.10 B.1 C.2 D.3 某算法的部分流程如图所示，执行这部分流程，结束时n的值为（ ） A. 1 B. 2 C. 3 D. 4 有如下VB程序段： Dim a(l To 5) As Integer, i As Integer, c As Integer a(1) = 2 : a(2) = 4 : a(3) = 6 : a(4)=36 : a(5) = 72 s=0 For i = 2 To 5 If a(i - 1) ^2 = a(i) Then s = s + a(i) Next i Text1.Text = Str(s) 该程序段运行后，文本框Text1中显示的内容是( ) A.4 B. 6 C. 8 D. 40 有如下程序段： For i = 5 To 4 step -1 For j = 1 To i-1 If a(j) a(i) Then t = a(j): a(j) = a(i): a(i) = t End If Next j Next i 数组元素a(1)到a(5)的值依次为“3，1，4, 2 ,5”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( ) A. 1,2,3,4,5 B. 2,1,3,4,5 C. 3,1,2,4,5 D. 1,3,2,4,5 某VB程序使用了递归函数，代码如下： Private Sub Command1_Click() N= val(Text1.Text) Text2.Text = f(n) End Sub Function f(x As Integer) As String Dim t as integer If x = 1 Then t = 1 Else t = val(f(x - 1)) + 2 f=str(t) End Function 在文本框Text1中输入3，运行程序并点击按钮Command1后，文本框Text2中显示的内容是（ ） A．1 B．5 C．135 D． 531 有如下程序段： tail = 6：i = 1：r = Val(Text1.Text) Do While i r For j = tail To i + 1 Step -1 If a(j) a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t End If Next j i = i + 1 For j = i To tail - 1 If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j tail = tail - 1 Loop 数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为 A. 73,61,56,92,44,28 B. 92,73,56,61,44,28 C. 92,73,