Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（   ）

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

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

k = Val(Text1．Text)

left1 = 1: right1 = 10

Do While (left1 <= right1)

  mid1 = (left1 + right1) \ 2

  If a(mid1) <=k Then

       left1 = mid1 + 1

  Else

       right1 = mid1-1

  End If

Loop

Text2．text=str(right1)

已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10．程序运行时，在文本框text1中输入5，文本框text2显示的内容是（   ）

Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

  s = Str(n Mod 7) + s

  n = n \ 7

Loop

执行该程序段后，变量s的值是（  ）

图1

图2

i=0

sum=0

while i<10:

    if i%2==0:

        sum+=i

        i+=1

    print(‘sum=’，sum)