通过键盘随机输入三个整数，输出该三个整数的积

窗体上有一个名称为Conunandl的命令按钮，单击该按钮时所实现的功能是产生l0个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：

对于上述事件过程，以下叙述中正确的是

A.本程序实际产生的随机数是0-99

B.若产生的随机数中有相同数，则P是其中最后一个数的位置

C.程序有错，P的初值设置不对

D.程序有错，InputBox函数产生的数据与x的类型不匹配

要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序： Option Base 1 Privare Sub Command1 Click（ ） Dim arr(10)As Integer For i=1To 10循环1 Arr(i)，=Int(Rnd*100) Print arr(i)； Next i x=InputBox("输入1—10的一个整数：") For i=X+1 To 10循环2 arr(i-1)=arr(i) Next i For i=x-1 To 10 循环3 Print arr(i) Next i End Sub 程序运行后发现显示的结果不正确，应该进行的修改是（ ）。

A.产生随机数时不使用Int函数

B.循环2的初值应为i= x

C.数组定义改为Dim a(11)As Integer

D.循环3的循环终值应改为9

要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：

Option Base 1

Privare Sub Command1 Click（ ）

Dim arr(10)As Integer

For i=1To 10循环1

Arr(i)，=Int(Rnd*100)

Print arr(i)；

Next i

x=InputBox("输入1—10的一个整数：")

For i=X+1 To 10循环2

arr(i-1)=arr(i)

Next i

For i=x-1 To 10 循环3

Print arr(i)

Next i

End Sub

程序运行后发现显示的结果不正确，应该进行的修改是（ ）。

A.产生随机数时不使用Int函数

B.循环2的初值应为i= x

C.数组定义改为Dim a(11)As Integer

D.循环3的循环终值应改为9

阅读下列算法说明和算法流程，将应填入(n)处的字句写在对应栏内。

【算法说明】

程序实现了常见的猜数字游戏。游戏开始时由程序自动产生一个1到100的随机数，接收用户输入，并给出提示信息，直至用户猜对。用户猜对后，显示猜测次数，并提供“重新开始”和“退出”功能。

算法采用两层循环实现。外层循环采用do-while循环，由循环条件控制是否重新开始。内层采用for循环，用于判断用户的每次输入。m是随机产生的整数，键盘输入是字符串类型变量，n是整型变量。

【问题1】内循环还需要一个变量，其作用为(1)。

【问题2】请将流程图5.2补充完整。

下列过程的功能是：从键盘输入一个大于2的整数，输出小于该整数的最大质数。（ ）。例如，输入20，则输出l9，输入10，则输出7。

为实现指定功能，程序【】处应填写的语句是（ ）。

A.k—k+1

B.X=X一1

C.X—X／k

D.k—k一1