首页 > 大学专科

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

[单选题]

有如下VB程序段：n = Len（Text1.Text）i = 1Do While i <= na（i） = Mid（Text1.Text, i, 1）i = i + 1LoopDo While n > 1If a（n） >= "0" And a（n） <= "9" Thenj = 1Elsej = 2End Ifb（j） = b（j） + 1n = n - 1LoopText2.Text = Str（b（2））数组元素的初始值都为0，文本框Text1的内容为“七选3，加油！”（无空格），执行程序后，变量b（2）的值为（）

A.3

B.4

C.5

D.6

答案

C、5

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

您可能会需要：

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

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

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

第1题

（浙江省2016年10月选考）对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：n＝Len：c2＝Mid（s，j，1）代码顺序正确的选项是（）

A.①②③

B.②③①

C.③②①

D.②①③

点击查看答案

第2题

有如下VB程序段：s=0Fori=10To1Step－3s=s＋1nextiprints执行结束后s的值是（)。

A.4

B.3

C.0

D.5

点击查看答案

第3题

有如下VB程序段,执行这部分流程后,变量x的值是（）ｙ＝＂１２３４＂ｘ＝Ｌｎ（ｙ）／２

A.2

B.4

C.6

D.8

点击查看答案

第4题

有如下VB程序段：Dim c As String, a As Booleana = FalseIf Not a Then c = Chr（Asc（"A"） + 2） Else c = Chr（Asc（"A"） + 3）该程序段执行后，变量c的值为（）

A.67

B.68

C."C

D."D

点击查看答案

第5题

有如下VB程序段：s ＝ 0For i ＝ 1 To 15s ＝ s ＋ i Mod 2Next iLabel1.Caption ＝ Str（s）该程序运行后，在标签Label1中显示的是（）

A.5

B.7

C.8

D.9

点击查看答案

第6题

有如下VB 程序段:s = 1For i = 2 To 10 Step 3 s = s + iNext i则该程序段执行后,变量s 和i 的值分别是（）

A.16, 11

B.15, 13

C.55, 11

D.25, 13

点击查看答案

第7题

有如下VB程序段:m＝a（1）:s＝0For i＝2 To 5If a（i）＞ m Then s=s+a（i）Next i数组元素a（1）到a（5）的值依次为“1，3，4，2，3”，执行该程序段后，变量s的值为（）

A.7

B.12

C.13

D.15

点击查看答案

第8题

有如下VB程序段：a（1） = 1：a（2） =1：b（1） =1：b（2 ） = 2For i = 3 To 5a（i） = a（i-1） + a（i-2）b（i） = b（i-1） + a（i）Next i执行该程序段后，数组元素b（5）的值为（）

A.4

B.5

C.8

D.12

点击查看答案

第9题

有如下VB程序段： x = Int（Rnd * 9） * 2 + 10 y = 0: s ="" Do While x > 0 y = x Mod 5 s = y & s x = x \ 5 Loop 执行程序段后，变量s的值不可能是（）

A."20

B."31

C."34

D."101

点击查看答案

第10题

有如下VB程序段，其程序结构是（)。i=InputBox（"请输入一个非零数字")Ifi>0ThenPrint"该数是正数"ElsePrint"该数是负数"EndIf

A.顺序结构

B.选择结构

C.循环结构

D.嵌套结构

点击查看答案

第11题

有如下VB程序段:For i= 1 To 49 j=1:a（j）=a（j）+1 Do While a（j）=5 a（j）=0 j = j + 1 a（j） = a（j） + 1 LoopNext i数组a中各元素初始值均为0,该程序执行后,数组a中各元素之和为（）

A.9

B.0

C.3

D.49

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）