图1

图2

当n的值为10时，关于该两段程序，下列说法不正确的是(  )

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

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中的值为（  ）