浙江省武义第三中学2019_2020学年高二信息技术10月月考试题（无答案）.docx

浙江省武义第三中学2019-2020学年高二信息技术10月月考试题（无答案）共50分 考试时间30分钟1、 选择题（每题4分，共40分）1、对10个数据进行冒泡排序，需要比较的次数是( )A90 B110 C45 D552、篮球联赛中，有5个班级的比赛积分依次为14，11，13，8，9。若采用冒泡排序算法对其进行从小到大排序，则完成第二遍时的结果是( )A8，11，13，14，9 B8，9，13，14，11C8，9，14，11，13 D14，13，11，9，8 3、有如下Visual Basic程序段：ma(1)i2Do While i10If ma(i) Then ma(i)ii1Loop该程序段执行后，变量m中存储的是( )Aa(1)至a(10)中的最大值Ba(1)至a(10)中的最小值Ca(2)至a(10)中的最大值Da(2)至a(10)中的最小值4、有如下VB程序段：Dim i As Integer，c As String，s As String，t As Strings“China2014IT”：t“”For i1 To Len(s)cMid(s，i，1)If c“a” And c“z” Then ttcNext iLabel1.Captiont该程序段运行后，标签Label1中显示的内容是( )A2014 BChinaIT China DCIT5、下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。Function lsc(x，y) As IntegerIf xy ThenlscxyElselscyxEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim a1 As Integer，a2 As Integera1Val(Text1.Text)a2Val(Text2.Text)Label1.Caption_End Sub要实现上述功能，程序画线处应填入的语句为( )Alsc(x，y)Blsc(Text1.Text，Text2.Text)ClscDlsc(a1，a2)6、小明在VB中定义了以下函数，功能是求a和b的最大公约数。Function gcd(a As Integer，b As Integer) As IntegerDo While b0ca Mod babbcLoopEnd Function调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是( )A函数名有错B变量c没有定义C函数没有返回值Db0应该改为b07、字符串变量a的值为“Hello,world！”，下列Visual Basic表达式的值是“world”的是( )ALen(a，6，5) BMid(a，6，5)CMid(a，7，4) DMid(a，7，5)8、运行如下VB程序：Private Sub Command1_Click( )Dim x As IntegerDim y As StringxVal(Text1.Text)If x95 Theny“非常满意”ElseIf x80 Theny“满意”ElseIf x60 Theny“基本满意”Elsey“不满意”End IfLabel1.CaptionyEnd Sub在文本框Text1中输入50，单击命令按钮Command1后，在标签Label1中显示( )A非常满意 B满意C基本满意 D不满意9、窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是( )ACommand1_Click BForm_KeypressCForm_Load DForm_DblClick10、有如下VB程序：Dim i As Integer，j As Integer，k As String，n As Integern3List1.ClearFor i1 To nk“”For j1 To ikk“*”Next jList1.AddItem kNext i该程序运行中，在列表框List1中显示的是( )二、填空题（每空5分，共10）11、下面VB程序的功能是求100999间被3除余2，被5除余3的所有整数，并统计符合条件的数的个数。Private Sub Command1_Click( )Dim i As Integer，P As Integerp0For i100 To 999If _ _ Then List1.AddIte