n = 0

m = 0

For i = 1 To 100

  If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

小金仔细分析该程序段后，发现其中缺少了(   )

实现上述功能的VB程序如下，但横线处代码有错，请改正。

Private Sub Command1_Click()

    Dim a As String

    Dim x As Integer, s As Integer, k As Integer

    a = Text1.Text

    x = 1: s = 0: k = 0

    For i = 1 To Len(a)

        '如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

        If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57)  or(Asc(Mid(a,i,1))= 32)  then’{#blank#}1{#/blank#}Label1.Caption = "只能输入数字或空格"

            Exit Sub

        End If

        If Mid(a, i, 1) = " " Then

            s = s + Mid(a,x,i)’{#blank#}2{#/blank#}

            x = i + 1

            k = k + 1

        End If

    Next i

    Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub

s=0

For k =3 To 1 Step-1

    If k <=1 Then x=1

    If k <=2 Then x=2

    If k <=3 Then x=3

    s=s+x

Next k

Text1. Text= Str(s)

该程序段运行后，文本框Text1中显示的内容是（  ）

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

    For j = 1 To i

      temp = s(j * i)

      s(j * i) = j * i

      If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

    Next j

Next i

该程序段运行后，变量C的值为（   ）

浙江省电话区号和地区对应关系如下表：