Dim a As Integer, b As Integer

  a = Val(Text1.Text)

  If a Mod 2 = 0 Then

b = a + 1

ElseIf a Mod 3 = 0 Then

b = a + 2

ElseIf a Mod 5 = 0 Then

b = a + 4

  Else

b = a

  End If

  Label1.Caption = Str(b)

运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在标签Label1中显示的是（   ）

下列Visual Basic程序的功能是将K进制(k<=10)数x转换成十进制数。界面如图所示，在文本框Text1中输入数制k，在文本框Text2中输入数x，单击"转换"按钮（Command1）后，在标签Label4中输出转换的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Private Sub Command1_Click()

Dim b As Long, i As Integer, k As Integer, x As Long, t As Integer

b = 0: i = 1

k = Val(Text1.Text)

x = Val(Text2.Text)

t = x Mod 10

    Do While      ①    

        b =       ②     

        x = x \ 10

        t = x Mod 10

        i = i + 1

    Loop

Label4.Caption = Str(k) + "进制数" + Text2.text + "转换成十制数为" + Str(b)

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

min=100：x=0

Do While x < =16

    d1=Sqr(9+(x-4)*(x-4))

    d2=Sqr(36+(16-x)*(16-x))

    If d1+d2<min Then min=d1+d2

    x=x+0.1

Loop

Text1.Text=St(min)

该程序段运行后，文本框Text1中显示的内容是（  ）