Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（   ）

i=1：n=5

Do while i<=n

   x=Int(Rnd*9)+1

    If x Mod 2=1 Then

        a(i)=x

    Else

        a(n)=x:n=n+1

    End If

   i=i+1 Loop

数组元素的初值均为0，执行该程序段后，a(1)至a(5)的值可能是（ ）

小李根据上述描述，设计了一个统计所有同学信息各题得分率的算法。程序运行后首先在列表框list1显示信息技术各小题得分，单击“计算”按钮“command1”，在列表框list2显示信息各题的题号和得分率，在文本框text1输出所有同学的信息平均分（平均分=各题得分率*各题分值的和）。算法的VB程序如下，回答下列问题。

s = "123456789"

g = ""

For i = 1 To 3

  n = Len(s)

  x = Int(Rnd * n) + 1

  g = g + Mid(s, x, 1)

  s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)

Next i

在程序执行时，若变量x的值依次为3，3，6，则最终变量g的值为（  ）

⑴用车时间在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("输入有误，重新输入：”)