如下VB程序段x=Text1.Textp=0Fori=1toLen(x)　IfMid(x,i,1)=“a”Thenp=p+1NextiPrintp若程序运行时,_刷题宝

题干

如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
　If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是(　　)

A．0

B．1

C．2

D．11

上一题下一题 0.99难度选择题更新时间:2017-02-24 09:37:30

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

同类题1

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

同类题2

将双精度浮点数变量x的值四舍五入保留三位小数，赋值给双精度浮点数变量y，y=_______________________________

同类题3

下列给出的赋值语句中正确的是（）

同类题4

在VB中，已知a=3，b=5，运行下列程序段后，a和b的值为（）
a = a * b
b = a / b
a = a / b

A．a=3 b=5	B．a=15 b=3
C．a=5 b=5	D．a=5 b=3

同类题5

执行VB语句s=Mid("abcdefgh",2,3)+chr(66)后，变量s的值为( )

相关知识点