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

[单选题]

执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是

A.Visual

B.Basic

C.6

D.11

提问人：网友csgogogo 发布时间：2022-01-06

参考答案

查看官方参考答案

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

网友答案

查看全部（）

· 有5位网友选择 B，占比9.8%
· 有5位网友选择 A，占比9.8%
· 有4位网友选择 A，占比7.84%
· 有4位网友选择 C，占比7.84%
· 有4位网友选择 A，占比7.84%
· 有4位网友选择 B，占比7.84%
· 有3位网友选择 D，占比5.88%
· 有3位网友选择 C，占比5.88%
· 有2位网友选择 A，占比3.92%
· 有2位网友选择 D，占比3.92%
· 有2位网友选择 C，占比3.92%
· 有2位网友选择 A，占比3.92%
· 有2位网友选择 B，占比3.92%
· 有2位网友选择 D，占比3.92%
· 有2位网友选择 A，占比3.92%
· 有2位网友选择 B，占比3.92%
· 有1位网友选择 B，占比1.96%
· 有1位网友选择 C，占比1.96%
· 有1位网友选择 B，占比1.96%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“执行语句s=Len（Mid（"VisualBasic",1,…”相关的问题

第1题

执行语句s=Len（Mid（"study hard"，1，5))后，s的值是A．studyB．hardC．5D．10

执行语句s=Len(Mid("study hard"，1，5))后，s的值是

A．study

B．hard

C．5

D．10

点击查看答案

第2题

执行语句s = Len（Mid（"Bei Jing", 1, 7))后，s的值是______。

A."Bei Jing"

B."Bei Jin"

C.7

D.8

点击查看答案

第3题

执行以下语句后，输出的结果是 s＄=“ABCDEFGHI” Print Mid＄（s＄，3，4) Print Len（s＄)A．ABCD 11B．CDEF

执行以下语句后，输出的结果是 s＄=“ABCDEFGHI” Print Mid＄(s＄，3，4) Print Len(s＄)

A．ABCD 11

B．CDEF 11

C．EFGH 11

D．HIJK 11

点击查看答案

第4题

执行以下程序段，在窗体上显示的结果是___A__。PrivateSubForm_Click（）DimSAsString，iAsIntegerS="ab"Fori=Len（S）To1Step-1PrintChr（Asc（Mid（S，i，1））+i）NextIEndSub

A.db

B. cb

C. cc

D. fd

点击查看答案

第5题

执行下面的程序段后，s的值为______。 Dim s As String, i As Integer, flag As Boolean s = "this is a book" flag = True For i = 1 To Len（s) If Mid（s, i, 1) = " " Then flag = True ElseIf flag Then s = Strings.Left（s, i

A.This

B.BOOK

C.this is a book

D.This Is A Book

点击查看答案

第6题

执行下面的程序，输出的结果是 ______ 。Private Sub Command1_Click（)ch $ = "Welcome to China!"

执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub

A．1

B．2

C．8

D．0

点击查看答案

第7题

执行下面的程序，消息框里显示的结果是（)。 Private Sub Form_Click（) Dim Str As String,S As St

执行下面的程序，消息框里显示的结果是()。

Private Sub Form_Click()

Dim Str As String,S As String,k As Integer

S=Str

For k=Len(Str) To 1 Step -1

S=S & (Mid(Str,k,1)

Next k

End Sub

点击查看答案

第8题

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8516则不是降序

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1 Click（） Dim n As Long Dim flag As Boolean n=InputBox("输入一个正整数") S=Trim(Str(n)) For i=2 To Len(s) If Mid(s，i-1，1)＜Mid(S，i，1)Then Exit For Next i If i=Len(S)Then flag=True Else flag=False If flag Then Print n；"是降序数" Else Print n；"不是降序数" End If End Sub 运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。

A.If i=Len(s)+1 Then flag=False Else flag=True

B.If i=Len(s)+1 Then flag=True Else flag=False

C.If i=Len(s)-1 Then flag=False Else flag=True

D.If i=Len(s)-1 Then flag=True Else flag=False

点击查看答案

第9题

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8516则不是降序

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。

Private Sub Command1 Click（）

Dim n As Long

Dim flag As Boolean

n=InputBox("输入一个正整数")

S=Trim(Str(n))

For i=2 To Len(s)

If Mid(s，i-1，1)＜Mid(S，i，1)Then Exit For

Next i

If i=Len(S)Then flag=True Else flag=False

If flag Then

Print n；"是降序数"

Else

Print n；"不是降序数"

End If

End Sub

运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。

A.If i=Len(s)+1 Then flag=False Else flag=True

B.If i=Len(s)+1 Then flag=True Else flag=False

C.If i=Len(s)-1 Then flag=False Else flag=True

D.If i=Len(s)-1 Then flag=True Else flag=False

点击查看答案

第10题

交互式执行下述两条语句，输出结果是什么？ s= "abcdabcdab" len（"*".join（s))

A.10

B.18

C.19

D.20

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信