有如下程序：PrivateSubCommandl_ClickDimsAsString，cAsString，nAsIntegers=”GoogleChrome”：_刷题宝

题干

有如下程序：
Private Sub Command l_Click
Dim s As String， c As String， n As Integer
s=”Google Chrome”：n=0
For i=1 To Len(s)
c=Mid(s，i，l)
If c=”e” Then n=n+1
n=n－1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序，单击命令按钮Command 1后，文本框Text1中显示的内容是（）

A．－11

B．11

C．－9

D．9

上一题下一题 0.99难度选择题更新时间:2019-08-11 04:21:40

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

同类题1

.有如下VB程序段：
x=-3
Do While x<0
x=x+2
Loop
该程序段运行后，变量x的值是：

同类题2

若X=78，则下列程序运行后的运行结果为▁▁。
INPUT X
IF X<60 THEN
PRINT “BuJeGe”
ELSE
IF X<70 THEN
PRINT “JeGe”
ELSE
IF X<85 THEN
PRINT “ZhengDeng”
ELSE
PRINT “YouXiu”
END IF
END IF
END IF

同类题3

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ① ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1）程序中①处填入的代码是：
（2）程序中②处填入的代码是下列哪个选项（）

同类题4

Sub test7()
For i =" 1" To 6
S =" S" + (-1) ^ i *2 ^ i
Next i
MsgBox (S)
End sub
该程序的运行结果是（）

同类题5

有流程图如图所示。

执行该算法，输出变量i的值为（）。

相关知识点