小明用VB设计了计算个税的程序，程序运行时界面如图所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。
图1
Private Sub Command1_Click()
Dim x As Single, p As Single
x ＝ Val(Text1.Text)
If x >＝ 20000 Then
p ＝ 0.1 * x
Else If x >＝ 10000 Then
p ＝ 0.05 * x
Else If x >＝ 5000 Then
p ＝ 0.02 * x
Else
P ＝ 0
End If
＝ Str(p)
End Sub
在①处填
在②处填
模块名：主交互界面 | 类别编号：1 |
| |
进入方式： 在片头播放界面中单击“进入”按钮，进入该界面 呈现方式： ① 五个模块按钮陆续出现。 ② 单击 ③ 单击各模块按钮后，跳转到对应子模块。 ④ 单击 | 呈现顺序说明： ①背景图出现，播放背景音乐的同时6个按钮陆续出现。 ②6个按钮按从上到下，从左到右的次序，依次间隔2秒出现。 |
①据以上描述，“按钮2”图层应在第帧插入关键帧。
②要设置“退出”按钮的动作效果，正确的作法是在该按钮上输入动作脚本
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i=1 To 10
j=Int(Rnd*6)+1
a(j)=a(j)+1
Next i
For i=1 To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )
①number＝0 ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是( )
现要求编写VB程序（运行界面图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。
① ②
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a = x \ 100
b = (x \ 10) \ 10 ' ①
c = x mod 10
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = c: c = b: b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str()
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
“主交互界面”效果图：
：控制背景音乐播放。
后：关闭播放窗口