首页 > 高职专科

题目内容（请给出正确答案）

[单选题]

有如下 VB 程序段：m = Val（Text1.Text）Do While m <> 0x = m Mod 8m = m \ 8a（x） = a（x） + 1If a（x） = 1 Then n = n + 1Loop数组a各元素的初始值都为0，在文本框Text1中输入“529”，执行程序后，变量n的值为（）

A.1

B.2

C.3

D.4

答案

C、3

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“有如下 VB 程序段：m = Val（Text1.Text）…”相关的问题

第1题

有如下VB程序段:c = 0 :i = 1Do While i <=6 k = i For j = i + 1 To 7 If a（j）<= a（k） Then k = j Next j If a（i） <> a（k） Then t = a（i）: a（i） = a（k）: a（k） = t c = c + 1 End If i = i + 1Loop数组元素a（1）到a（7）的值依次为“9,9,8,16,45,9,78”。该程序段执行后,变量c的值是（）

A.0

B.3

C.4

D.6

点击查看答案

第2题

有如下VB程序段:a（1） = 1: a（2） = 2: a（3） = 4: a（4） = 5: a（5） = 6: a（6） = 7: a（7） = 8i = 1: j = 7Do While i < j m = （i + j） \ 2 If a（m） > m Then j = m Else i = m + 1 End IfLoopLabel1.Caption = Str（i）该代码运行后,标签对象Label1中输出的值为（）

A.2

B.3

C.4

D.5

点击查看答案

第3题

有如下VB程序段：L = 0: R = 7: i = 1Do While i < R If a（i） = 0 Then L = L + 1 t = a（i）: a（i） = a（L）: a（L） = t i = i + 1 ElseIf a（i） = 2 Then R = R - 1 t = a（i）: a（i） = a（R）: a（R） = t Else i = i + 1 End IfLoop数组元素 a（1）到 a（6）的值依次为“2，0，2，1，1，0”。执行该程序段后，下列说法不正确的是（）

A.变量 L 的值为 2

B.变量 R 的值为 5

C.变量 i 的值为 4

D.数组元素值依次为0，0，1，1，2，2

点击查看答案

第4题

某二分查找程序，其VB代码如下：m ＝ Int（Rnd*20）＋ 1s ＝ 1∶t ＝ 10∶str1＝＂＂Do While s < t If a（s）＋ a（t）＝ m Thenleft ＝ a（s）right ＝ a（t）s ＝ s ＋ 1t ＝ t － 1 ElseIf a（s）＋ a（t） < m Thens ＝ s ＋ 1∶str1 ＝ str1 ＋＂R＂ Elset ＝ t － 1∶str1 ＝ str1 ＋＂ L ＂ End IfLoop数组元素a（1）到a（10）的值依次为“1,4,4,5,5,6,7,8,8,9”，则str1的值不可能是（）

A.LLLLLLLLLL

B.LLR

C.RLLLR

D.RRRRRRRRR

点击查看答案

第5题

有如下VB程序段：a = 3b = 2If a**2> b**3 Thena = b + 3End If该程序段运行后，变量a的值为（）

A.2

B.3

C.5

D.6

点击查看答案

第6题

某 VB 程序段如下：i = 1Do While i <= 3k = ij = i + 1Do While j <= 5If a（j） < a（k） Then k = jj = j + 1LoopIf i <> k Then t = a（i）a（i） = a（k）a（k） = tEnd Ifi = i + 1Loop数组元素a（1）到a（5）的值依次为“17,87,36,22,45”,则该程序段运行后,数组元素a（1）到a（5）的数据依次是（）

A.87, 45, 36, 17, 22

B.17, 22, 36, 45, 87

C.17, 22, 36, 87, 45

D.87, 45, 17, 36, 22

点击查看答案

第7题

有如下VB程序段：s=0For i=1 To 5S=s+1Next i该程序段执行后,i和s的值分别为（）

A.1 2

B.5 5

C.6 5

D.6 6

点击查看答案