如下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

有如下VB程序段
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i =" 1" To 20 Step 2
If s < 20 Then
s =" s" + i
End If
Next i
Text1.Text = Str(s)
Text2.Text = Str(i)
End Sub
执行以上程序后，变量s和i的值分别为

同类题2

下列流程图的功能是______。

A．求y的绝对值

B．求y的算术平方根

C．求x的绝对值

D．求x的算术平方根

同类题3

在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是（）

A．software and hardware

同类题4

小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub

产生此错误的语句是( )。

A．For	B．End If
C．Next	D．If

同类题5

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：

其中将能正确地x和y两个变量中的数据进行交换的程序段有几个？

相关知识点