有10个数据23，15，51，36，78，47，39，9，88，96依次存放在数组a的a(1)到a(10)中，使用如下程序段能找出大于80的数，并将找到的数在列表框List1中输出，同时，将大于80的数的个数显示在文本框Text1中。
n＝0
m＝80
For i＝1 To 10
If _________ Then
List1.AddItem a(i)
n＝n+1
End If
Next i
Text1.Text＝Str(n)
程序中划线处的内容为 （ ）| A．a(i)＞n | B．a(i)＜n | C．a(i)＞m | D．a(i)＜m |
更新时间：2020-07-24 17:51:56
|
【知识点】 VB程序的调试
相似题推荐
选择题
|
适中
(0.65)
名校
【推荐1】有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13...要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：
Dim i As Integer, a As Integer, b As Integer, c As Integer
Dim s As String
a = 0: b = 1: c = 0: i = 2
s = Str(a) + Str(b)
Do While c <= 10000 And i < 100
a = b: b = c
c = a + b
s = s + Str(c)
i = i + 1
Loop
Text1.Text = s
运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是
Dim i As Integer, a As Integer, b As Integer, c As Integer
Dim s As String
a = 0: b = 1: c = 0: i = 2
s = Str(a) + Str(b)
Do While c <= 10000 And i < 100
a = b: b = c
c = a + b
s = s + Str(c)
i = i + 1
Loop
Text1.Text = s
运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是
| A．把c<=10000改为 c>10000 | B．把i<100改成i<=100 |
| C．把i=i＋1移到Do While c<=10000 and i<100下面 | D．把语句c=a+b移到a=b：b=c的上面 |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐2】模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（ ）
| A．INT（RND（3）+1） |
| B．INT（RND*2+1） |
| C．INT（RND（2）+1） |
| D．INT（RND*3+1） |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐3】【加试题】“猴子吃桃”问题：一天，一只猴子从树上摘下若干个桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天这只猴子接着吃剩下的一半，还觉得不过瘾，又吃了一个。以后它每天都吃前一天剩下的一半再多吃一个。到第四天，猴子按规则吃完桃子后，只剩一个桃子。问猴子第一天摘了多少个桃子。下图所示是根据分析所画出的部分流程图。采用倒推法，其中设定M 的初始值为1（第四天吃完后剩下的桃子数），D 为天数（初始值为5）。流程图中相应空缺位置①②处应分别填写（ ）
| A．M=M*2+1 D=1 | B．M=M*2+1 D<1 |
| C．M=2*(M+1) D=1 | D．M=2*(M+1) D<1 |
您最近一年使用：0次
