修改时间:2024-07-12 浏览次数:218 类型:高考模拟
小明用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
试题篮