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 s1 As String，s2 As String   

  Dim ch As String，ch2 As String   

  Dim max As Double   

  Dim n As Integer，page As Integer  

  Dim i As Integer，j As Integer

  s1=Text1．Text：s2=””

  n=Len(s1)

  i=1：max=0

  Do While i<=n

    ch=Mid(s1，i，1)

    If ch>=“0”And ch<=“9”Then

        j=i

        ch2=Mid(s1，i，1)

        Do While ch2>=“0”And ch2<=“9”

           j=j+1

           ch2=Mid(s1，j, 1)

        Loop

        s2=    ’(1)

        If   Then    ’(2)

            max=Val(s2)

            page=i*10+j-1

            Text2．Text=Str(page)

            Text3．Text=Str(max Mod l00)

        End If

        i=j

      End If

      i=i+1

    Loop

  End Sub

程序描述：计算两个浮点数a和b的相除的余数，a和b都是正数。这里余数（r）的定义是：a = k * b + r，其中 k是整数， 0 <= r < b。代码如下：

a=    ①     (input("请输入："))

b=    ①     (input("请输入："))

k=   ② 

r=   ③ 

print(r)