①用指纹锁功能打开手机
②使用OCR软件将报纸扫描识别为文本
③使用手机拍照功能获取图像
④微信语音不方便接听，转化为文字
⑤使用钉钉直播课程
Dim i As Integer, s As Integer
i=0：s=1
Do While i <= 10
If （ ）Then
s=s*2
End If
i=i+1
Loop
执行该程序后，输出s的值为64，则括号处应填入（ ）
i = 1
Do While i < = 6
a（i） = Int（Rnd* 10） + 1
If a（i）Mod 2 = I Mod 2 Then
i=i-1
Else If I Mod 2 = 0 Then
a（i） =a（i - 1） + a（i）
End If
i=i+1
Loop
执行该程序后，a（1）-a（6）各元素不可能的值是( )
Dim n As Integer, L As Integer, R As Integer, sum As Long, i As Integer
List1. Clear
n= Int（Rnd*3+11）*2+1
L=1：sum= 0
For R=1 To n\2+1
Sum = sum+ R
Do While sum > n
Sum = sum - L
L=L+1
Loop
If sum = n Then
List1. AddItem Str（L） +””+ Str（R）
Exit For
End If
Next R
执行该程序段后，列表框List1中的值不可能为( )
s1 = Text1.Text
s2=””
n = Len（s1）
i = 1：m = 1
Do While i <= n
For j = 1 To n
If Then
m=m+1
Else
s2=s2+ Trim(Str(m)+ Trim(Mid(s1, i, 1)) ‘Trim( )为清除前后的空格
m=1
Exit For
End If
Next j
Loop
Text2.Text = s2
横线处填入正确的内容是（ ）
Dim a（1 To 10） As Integer
Randomize
Key = Int（Rnd * 32）* 3 + 3
a（1）= 4：a（2）= 7：a（3）= 9：a（4）= 15：a（5）= 24
a（6） = 32：a（7） = 37： a（8）= 54： a（9） = 75： a（10） = 90
s=0：i = 1：j = 10
Do While i <= j
m =（i + j）\ 2
If Key = a（m） Then Exit Do
If Key > a（m） Then
i = m + 1：s = 3 * s + 2
Else
j = m - 1：s = 3 * s
End If
Loop
执行该程序段后，s的值不可能为( )
|
场景：main |
类别序号：2 |
进入方式：由“load”场景单击“播放”按钮进入 |
|
呈现方式： ⒈“笔”和“墨!”的动画类型为“动画补间”，“纸”和“砚”的动画类型为“形状补间"。 ⒉“纸”位于“笔”的下方。 ⒊“退出”按钮位于“桌子”的右下角，单击按钮，关闭动画。 ⒋其他动画略。 |
呈现顺序说明： ⒈一开始出现“背景”动画，再依次出现“笔”、“墨”“纸”和“砚"的动画及相应动画的文字说明。 ⒉动画播放5秒后出现“退出"按钮，并在最后一帧停止播放。 |
|
编辑界面如下图所示，请回答下列问题：
往池中倒入一定的水量V （每1单位水量刚好填充一个格子， 格子大小为1×1），现要求倒入水后，每一列水位高度一致。
如图b所示，往池中倒入V=11的水量，则水位高度为3.5（解释：第一层没有空白单位，首先填满第2层的3个单位，然后填满第3层的5个单位，此时还剩氽11-3-5-3个单位的水量，第4层有6个单位的空白，不足以填满，此时3/6=0.5，故总填充高度为3+0.5=3.5）。
为了解决该问题，小吴设计了二分算法：通过枚举水位高度，计算所儒的水量与实际输入水量比较，如果所需水量大于实际水量（精确到0.01），则需降低水位高度，否则增加水位高度，直到得到正确结果。程序功能：运行程序时，在文本框Text1中输入倒入的水量V，在文本框Text2中输出能达到的水位高度（保留1位小数输出）。程序运行界面如图c所示。
程序代码如下：
Dim V As Double
Dim a（1 To 100）As Integer， n As Integer
Private Sub Form_Load() ‘初始化池底
n=8
a（1） = 2：a（2） = 1： a（3） = 4： a（4） = 2
a（5）= 1：a（6） = 3： a（7） = 1： a（8） = 4
End Sub
Function check（g As Double） As Boolean
Dim sum As Double ‘变量sum用于计算水位高度为g时所儒水量
Sum = 0
For i = 1 To n
If g > a（i） Then 【sum = sum + g】
Next i
If sum < V Then check = True Else check = False
End Function
Private Sub Command1_ Click()
Dim L AS Double, R As Double, mid As Double
L= 0：R = 32767
V = Val（Text1.Text）
Do While L + 0.001 < R
mid=（L + R）/ 2
If Then
R= mid
Else
L =
End If
Loop
Text2.Text = “高度为：”+ Str（Int（R * 100 + 0.5） / 100）
End Sub
图a为初始状态，操作圈中的灯，则该灯与对面的两盏灯都会切换“开/关”状态，如图b所示。假设这些灯的编号为0到6号，“开/关”状态随机产生，并输出到列表框List1中，接着需要从中选出数盏灯进行操作，使得最后所有灯都打开（已证明方案-一定存在且唯一）， 并在列表框List2中输出灯的编号。
程序采用枚举策略，一一尝试对每盏灯状态进行“切换”操作，“1”表示对当前灯进行切换，“0”表示不操作。
程序运行界面如图c所示。
Dim a（0 To 6）As Integer，b（0 To 6） As Integer
Private Sub Command1_Click()
Dim i As Integer, x As Integer, pos As Integer
Dim flag As Boolean
List2.Clear
For i = 0 To
x = i：pos = 0：flag = True
For j = 0 To 6
b（j）= a（j）
Next j
Do While x > 0
If x Mod 2 = 1 Then
b（pos）= 1 - b（pos）
b（（pos + 3） Mod 7） = 1 – b（（pos + 3） Mod 7）
End If
pos = pos + 1
x = x \ 2
Loop
For j = 0 To 6
IfThen flag = False：Exit For
Next j
If flag Then
pos = 0
Do While i > 0
If i Mod 2 = 1 Then List2.AddItem “第” + CStr（pos）+ “号”
i = i \ 2
pos = pos + 1
Loop
Exit For
End If
Next i
End Sub
Private Sub Form_Load() ‘随机生成初始数据
Dim i As Integer
Randomize
List1.Clear
For i = 0 To 6
a（i）= Int（Rnd * 2）
If a（i）= 1 Then
List1.AddItem “第” + CStr（i） + “号：”+ “开”
Else
List1.AddItem “第” + CStr（i） + “号：” + “关”
End If
Next i
End Sub
