执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是
A.Visual
B.Basic
C.6
D.11
![](https://lstatic.shangxueba.com/sxbcn/h5/images/tips_org.png)
A.Visual
B.Basic
C.6
D.11
第1题
执行语句s=Len(Mid(“VisualBasic”,1,6))后,s的值是,
A.Visual
B.Basic
C.6
D.11
第2题
执行语句s=Len(Mid(\"VisualBasic\",1,6))后,s的值是()。
A.Visual
B.Basic
C.6
D.11
第3题
执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是()。
A.Visual.
B.Basic
C.6
D.11
第4题
执行语句s=Len(Mid("study hard",1,5))后,s的值是
A.study
B.hard
C.5
D.10
第5题
执行语句s=Len(Mid("Visual Basic",1,6))后,s的值是
A.Visual
B.Basic
C.6
D.11
第6题
执行以下语句后,输出的结果是 s$=“ABCDEFGHI” Print Mid$(s$,3,4) Print Len(s$)
A.ABCD 11
B.CDEF 11
C.EFGH 11
D.HIJK 11
第8题
执行下面的程序,输出的结果是 ______ 。 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
第9题
如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如: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
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!