有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，以下程序执行后，i的值是（）Dima(1To5)AsIntegerDim_刷题宝

题干

有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，以下程序执行后，i的值是（）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i

A．6

B．3

C．4

D．5

上一题下一题 0.99难度选择题更新时间:2019-04-23 04:18:44

答案(点此获取答案解析）

同类题1

定义一个数组如下:
Dim a(10 to 20) as integer
则此数组中元素的个数为_____________。

同类题2

在Visual Basic中，下列能产生一个1，100之间随机正整数的表达式是（）

A．Rnd*100	B．1+Rnd*99
C．Int(Rnd*100)	D．1+Int(Rnd*100)

同类题3

甲乙双方进行一场球类比赛，一局计分的规则是：赢1球得1分，用“1”表示；输1球失1分，用“0”表示。当任一方得分大于等于6分，且领先对方2分及以上，领先方赢一局。如甲选手一局比赛数据为“101110101”，表示甲选手得6分失3分，局比分

。
小王用一个字符串记录了甲选手多局比赛数据，其中有一处错误，位于连续多个“0”的最后一个。为了找出错误，小王的处理方法如图a所示，对示例中疑似错误位置6和20分别修改数据，并统计每局比分。他编写了VB程序，功能如下：在窗体Form l的文本框Text l中输入记录数据，单击“分析”按钮Command 1，在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
（1）下列对象中有Text属性的是________（单选，填字母：

C．Text 1）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。

图a 图b
Private Sub Command 1_Click（）
Dim sp As String，s As String s s存储甲选手多局比赛的记录数据，长度小于50
Dim a（1 To 50）As Integer，e（1 To 20）As Integer
Dim I As Integer，j As Integer，k As Integer，n As Integer，m As Integer
Dim fl As Integer，f2 As Integer

（ ① ）
Next i

找出疑似错误位置

Loop
If ② Then

对每个疑似错误位置分别修改数据，并统计每局比分

List 1.AddItem sp
③
Next i
End Sub

同类题4

某校5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009，
若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（）

原始数据	1201	2120	1009	1987	2009
第一趟	2120	1201	1009	1987	2009
第二趟
第三趟	2120	2009	1987	1009	1201
第四趟	2120	2009	1987	1201	1009

A．2120 2009 1009 1987 1201

B．2120 2009 1009 1201 1987

C．1009 1201 2120 1987 2009

D．1009 1201 2009 2120 1987

同类题5

下列关系或逻辑表达式的结果为“True”的是

A．2*2< 2+2	B．"123"+45<178
C．Not(6<>11)	D．（5 > 0) And (4 < 3)

相关知识点