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( )被执行的次数是（  ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 100) As Integer

Sub sort(left As Integer,right As Integer)

Dim i As Integer,j As Integer,t As Integer

For i=1 To right-left

For j= 　'{#blank#}1{#/blank#}

If a(j)>a(j+1) Then

   t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim p As Integer,q As Integer

Dim i As Integer,j As Integer,n As Integer,x As Integer

Randomize

n=Val(Text1.Text):Text2.Text=″ ″:Text3.Text=″ ″

p=0

　'{#blank#}2{#/blank#}

For i=1 To n

x=Int(Rnd*100)

Text2.Text=Text2.Text+Str(x)

If x Mod 2=0 Then

   p=p+1

   a(p)=x

Else

   q=q-1

   a(q)=x

End If

Next i

Call sort(1,p)

Call sort(p+1,n)

For i=1 To n

Text3.Text=Text3.Text+Str(a(i))

Next i

End Sub

代码如下：

Private Sub Command1_Click()

Dim a(1 To 13) As Integer, i As Integer, j As Integer, n As Integer

For i=1 To 13

  a(i)=0

Next i

i=1:n=0:j=1

Do While i<=13

Do While True

If j>13 Then {#blank#}1{#/blank#}

If a(j)=0 Then n=n+1

If n=i Then

{#blank#}2{#/blank#}

n=0

Exit Do

End If

j=j+1

Loop

{#blank#}3{#/blank#}

Loop

Label1.Caption="原来牌的顺序是："

For k=1 To 13

   Label2.Caption ={#blank#}4{#/blank#}

End Sub

利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p＝（a＋b＋c）/2，计算此三角形面积s的海伦公式为：S＝。

def hl（a, b, c）：   #定义求三角形面积的函数

    p＝{#blank#}1{#/blank#}

    s＝{#blank#}2{#/blank#}   #计算三角形面积

    return {#blank#}3{#/blank#}   #返回面积的值

a, b, c＝3, 4, 5   #边长依次赋值

print（"此三角形的面积S为：", hl（a, b, c））