n = 0

m = 0

For i = 1 To 100

  If Rnd > 0．5 Then

     n = n + 1

  Else

     m = m + 1

Next i

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

Private Sub command1_click()

 Dim n As Integer，x As Integer

n=Val(Text1.Text)

x=n Mod 10

n=x*1000+n\10

Text1.Text=Str(n)

End Sub

Private Sub command1_click()

   a=val(text1.text)

b=val(text2.text)

if a=b then

   text3.text=str(a)

   exit sub

end if

do while b<>0

   r=a mod b

   a=b

   b=r

loop

text3.text=str(a)

 End Sub

在text1、text2中输入30、6，则text3中的值为（  ）