- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省金华市江南中学2020届高三下学期信息技术4月初测试卷

某对分查找算法的VB程序段如下：

i = 1: j = 8: s = ""

key =Text1.Text

Do While i <= j

m =(i + j) \ 2

If key = a(m) Then

s = s + "M"

Exit Do

ElseIf key > a(m) Then

j = m - 1: s = s + "L"

Else

i = m + 1: s = s + "R"

End If

Loop

Text1.Text = s

数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”，该程序段执行后，文本框Text1中显示的内容不可能是（）

A、M B、LR C、RM D、LM

举一反三

有如下VB程序段

a=12

b=54

a=b

b=a

该程序段运行后，a，b的值分别为{#blank#}1{#/blank#}、{#blank#}2{#/blank#}，该程序结构属于{#blank#}3{#/blank#}结构（选填：顺序、选择、循环）。

在VB中，已知整数n≥100，下列与语句b = n \ 10 Mod 10功能相同的是（）

如果一个数大于等于4，它的平方根肯定不会超过它自己，且一个数的平方根最多不会超过它的一半，例如求8的平方根，8的一半是4，4^2=16>8，如果这个数越大越是如此。小王利用这一规律使用对分查找思想计算某数的算数平方根，编写了一个VB程序，功能如下：单击“产生”按钮Command1，产生一个大于等于0且小于100的随机整数，并显示在文本框Text1中；单击“计算”按钮Command2，在文本框Text1中显示随机整数的平方根，且结果只保留整数部分，小数部分舍去。程序运行界面如图所示：

有如下VB程序段：

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 2

For j = 1 To 5 - i

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j

Text1.text=a(j)

Next i

执行该程序段后，文本框Text1显示的内容为（）

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd，随机生成两个［0，1）之间的随机数，由此构成一个投点坐标（x，y），然后根据x²+y²≤1判断投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆（第1象限）内的点数为s，则4s/n即为所求PI的近似值程序界面图所示，在Text1中输入投点的个数，单击“计算”按钮，PI的近似值结果显示在Text2文本框中。

某二分查找算法的VB程序段如下：

key=Va 1(Text 1．Text)

i=1

j=9

Text 2.Text=""

Do While i<=j

If key=a(m) Then Exit Do

If key<a(m) Then i=m+1 Else j=m-1

Text 2.Text=Text 2.Text+“”+Str(a(m) )

Loop

数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，文本框Text 1中输入的值是58，执行该程序段，文本框Text 2中显示的是61，50，55，则方框处的代码应为（）

相关试卷

公司介绍

服务介绍

帮助中心