n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

……

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

   Dim a,b,c As Integer

   Dim s AS string

   a=9

   b=41

   c=2*(a+b)

   s=str(b+c)

Private Sub Command1_Click()

    Dim x As Integer

    x=Val(Text1．Text)

    Label1．Caption=Str(x) & prime(x，2)

End Sud   

Function prime(n A Integer m A Integer)As String

    If n=m Then

        prime=“是素数。”

    ElseIf n<2 Or n Mod m=0 Then

        prime=“不是素数。”

    Else

    prime=prime(n，m+1)

End If

End Function

在文本框Text1中输入的值是123，并执行程序后，自定义函数prime( )被执行的次数是（  ）

a(i)= Int(Rnd * 20) + 1 Next i

For i= 2 To 5

If i Mod 2 = 1 And a(i-1) < a(i)Then  t=a(i):a(i)=a(i-1):a(i-1)=t

Else

a(i)=a(i)-1 End If

Next i

执行该程序段后，a（1）~ a（5）各元素不可能的值是（  ）

s = "2019Nian12yue3Ri"

For i = Len(s)-1 To 1 step -1

    If Mid(s, i, 1) <= "9" And Mid(s, i + 1, 1) >= "A" Then

        sum= sum+ Val(Mid(s, i, 1))

    End If

Next i

运行程序后，变量sum 的值是（  ）