Private Sub Command1_Click()

 Dim n As Integer, s As Integer

 n = 10

 s = 10 ︿ n

 Text1.Text = Str(s)

End Sub

运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（   ）

Private   Sub  Command1_click ( )

Dim  n  As  Integer , m  As  Integer  , k  As  Integer

n  = Len ( Text1．Text )

m  = Val ( Text2．Text )

k  = Val ( Text3．Text )

If  m + k -1 > n   Then

Text4．Text = Mid ( Text1．Text , 1 , m – 1 )

      Else

       Text4．Text = Mid ( Text1．Text , 1 , m–1 ) + Mid ( Text1．Text , m+k , n–m–k +1 )

      End  If

End  Sub

Private Sub Command1_Click()

 a=Val(Text1.text)

 b=Val(Text2.text)

 Do While a Mod b<>0

r=a Mod b

a=b

  b=r

Loop

Text3.text=str(b)

End Sub

在Text1、Text2中分别输入30、6，则Text3中的值为（  ）