Private Sub Command1_Click()

 Dim n As Integer, s As Integer

 n = 10

 s = 10 ︿ n

 Text1.Text = Str(s)

End Sub

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

那么能得到任意三位数X个位数的表达式是： {#blank#}3{#/blank#}

实现上述功能的VB程序如下，但横线处代码有错，请改正。

Private Sub Command1_Click()

    Dim a As String

    Dim x As Integer, s As Integer, k As Integer

    a = Text1.Text

    x = 1: s = 0: k = 0

    For i = 1 To Len(a)

        '如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

        If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57)  or(Asc(Mid(a,i,1))= 32)  then’{#blank#}1{#/blank#}Label1.Caption = "只能输入数字或空格"

            Exit Sub

        End If

        If Mid(a, i, 1) = " " Then

            s = s + Mid(a,x,i)’{#blank#}2{#/blank#}

            x = i + 1

            k = k + 1

        End If

    Next i

    Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

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

⑴用车时间在0.5小时内(包含0.5 小时)，收费为起步价15元。

⑵用车时间超过0.5小时，超出部分按0.5元/分钟收费。

下列程序实现了“输入使用时间，输出收费”功能，打开“共享汽车计费.py”程序，按要求操作：

hour=eval(input("请输入使用时间："))

if hour>0 and hour<=0.5:

    print("本次租车花费15元)

elif           

    cost=15+(hour-0.5)*30

    print("本次租车花费", cost, "元")

else:

    print("输入有误，重新输入：”)