4.1初识面向对象程序设计思想同步练习沪科版信息技术选修1

这是一份教科版 (2019)选修4 人工智能初步本册综合达标测试，共9页。试卷主要包含了选择题，填空题，操作题等内容，欢迎下载使用。
4.1初识面向对象程序设计思想同步练习沪科版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．有如下VB程序段：For i=1 to 6a(i)=int(rnd*10)+1if a(i) mod 2= i mod 2 theni=i-1elseifi mod 2=0 thena(i)=a(i)+a(i-1)end ifnext i执行该程序段后，数组a（1）~a（6）中存储的数据不可能是：（    ）A．4，9，8，15，6，9 B．2，7，8，11，6，9C．4，8，2，7，6，7 D．6，9，4，7，8，132．在VB中，下列程序段执行后，变量m的值是(    )a=10 : b=5If a<b Then m=a*b Else m=a/bPrint mA．2 B．5 C．10 D．503．下列有关VB表达式的描述，正确的是（      ）A．VB的基本表达式包括算术表达式、关系表达式和条件表达式B．VB表达式“Int(3.14159＊1000) / 1000”的值为3.142C．VB表达式“Abs(Int(-20.19)) + Len(Mid(＂20.19＂，2))”的值是25D．VB表达式“20201 \ 10 + Int(Sqr(5))”和“Len(＂2020＂) + 2”的值相等4．下列VB表达式的值最大的是（    ）A．Abs(Int(-2.9))* Val("10") B．Val(Mid("123",2))C．65 Mod 100 \ 2 D．Len("3.14")* Sqr(64)5．某VB程序的部分界面如图所示，下列说法正确的是（   ）A．窗体中共有3个对象B．窗体对象的名称是“求最大公约数”C．当前选择的对象属于Commandbutton类D．该程序的工程文件名为“工程1”6．下列 VB 程序段功能为：通过冒泡排序，最终数组元素 a（x）到 a（y）内的数实现升序排列， x = Val（Text1.Text）y = Val（Text2.Text）For i =     （1）     For j =         （2）        If a（j） > a（j + 1） Thena（j） = a（j） + a（j + 1）：a（j + 1） = a（j） - a（j + 1）：a（j） = a（j） - a（j + 1） End IfNext j Next i上述程序段中横线处可选语句为：则（1）（2）处依次填入的语句组合正确的有（   ）A．①②③④ B．①③ C．②③④ D．①④7．有如下VB 程序段： a = 10: b = 20: a = b:c=a+b 该程序段运行后，变量c 的值为（    ）。A．10 B．20 C．30 D．408．如图所示，显示有“确定”字符的控件是（   ）A．窗体 B．标签 C．文本框 D．命令按钮9．下列各种基本数据类型说明符中表示单精度实型数的是(   )A．Integer B．Boolean C．Single D．String10．某对象的一个事件处理过程代码如下：Private Sub Obj_Click( )s=s+1Text1.Text = Str(s)End Sub下列说法正确的是（     ）A．该过程的过程名为“Obj” B．该对象的对象名为“Obj_Click”C．该事件的事件名为“Click”D． “Text”是“Text1”的方法 二、填空题11．小佳编写了一个统计每个单词出现次数的程序，单词中字母不区分大小写。程序功能如下：程序运行时在文本框 Text1 中输入一段英文文章，单击“统计”按钮 Command1，程序统计每个单词出现的次数，结果输出在列表框 List1 中，按出现次数由多到少显示，当出现次数一样时，按字母顺序从小到大排列。程序运行界面如图所示。（1）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。①处代码为 __________，②处代码为 ______________，③处代码为 ___________________。（2）程序中加框处代码有错，请改正。应改为______________________________Private Sub Command1_Click()Dim dict(1 To 10000) As String ‘存储自建单词字典Dim n(1 To 10000) As Integer  ‘存储单词出现次数Dim w As String, a As String, ch As String, x As String, y As IntegerDim i As Integer, b As Integer, k As Integer, d As Integer, j As Integera = Text1.Text: k = 1For i = 1 To 10000n(i) = 0Next ib = 1For i = 1 To Len(a)ch = Mid(a, i, 1)If  Not (ch >= "A" And ch <= "Z" Or ch >= "a" And ch <= "z") ThenIf  i > b Thenw = ‘取出单词,转为小写,存入 w 中d = 1Do While w <> dict(d) And d < kd = d + 1LoopIf d = k Thendict(k) = w: n(k) = 1: k = k + 1Elsen(d) =    ①    End IfEnd Ifb = i + 1End IfNext iFor i = 1 To k - 2For j = k - 1 To i + 1 Step -1If n(j) > n(j - 1) Or (    ②   ) Thenx = dict(j): dict(j) = dict(j - 1): dict(j - 1) = xy = n(j): n(j) = n(j - 1): n(j - 1) = yEnd IfNext jNext iFor i = 1 To k - 1List1．AddItem dict(i) & " " & n(i)Next iEnd SubFunction LC(s As String) As String ‘单词中字母转为小写Dim i As Integer, c As StringFor i = 1 To Len(s)c = Mid(s, i, 1)If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)     ③        Next iEnd Function12．VB程序设计采用的编程机制是_____________________13．文本框失去焦点触发的事件是(               )14．VB的三种工作模式是_________，__________，______________15．文本框获得焦点的方法是(              ) 三、操作题16．小王设计了一个利用矩阵“翻转法”实现矩阵逆序输出的程序，其功能为：运行程序时，在文本框 Text1 中输入矩阵大小n，点击“产生矩阵”按钮 Command1，在列表框 List1 中显示一个 n×n 的矩阵，该矩阵数据为随机两位正奇数。点击“翻转矩阵”按钮 Command2，该矩阵翻转(水平翻转和垂直翻转均要实现)后显示在列表框 List2 中，再点一次“翻转矩阵”按钮 Command2，列表框 List2 中显示的矩阵被还原为初始状态。程序运行界面如图所示。实现上述功能的 VB 程序如下，请回答下列问题： （1）在上图的程序运行界面基础上，再连续两次单击 Command2 按钮，则列表框 List2 中第一行显示的内容是____________________。 （2）实现此程序的代码如下，请完成程序填空。Dim n As Integer Dim L As StringDim i as IntegerDim j as Integer Dim a(1 To 100) As IntegerDim b(1 To 100) As IntegerPrivate Sub Command1_Click()   n = Val(Text1.Text)   Randomize   For i = 1 To n * n     a(i) =    ①    + 1   Next i   For i = 1 To n     L = ""     For j = 1 To n       L = L + " " + Str(a((i - 1) * n + j))     Next j     List1.AddItem L   Next i End Sub Private Sub Command2_Click()   List2.Clear   For i = 1 To n     L = ""     For j = 1 To n b((i - 1) * n + j) =     ②    L = L + " " + Str(b((i - 1) * n + j))     Next j     List2.AddItem L   Next i   For i = 1 To n * n a(i) =    ③   Next iEnd Sub
参考答案：1．C2．A3．C4．D5．C6．D7．D8．D9．C10．C11．     n(d) + 1     n(j) = n(j - 1) And dict(j) < dict(j - 1)     LC = LC & c  或 LC = LC + c     LC(Mid(a, b, i - b))12．面向对象事件驱动13．LOSTFOCUS14．     设计     运行     BREAK15．SETFOCUS16．（1）99 43 33 49 75     （2） ①int(rnd*45+5)*2       ②a((n-i+1)*n-j+1)         ③b(i)