全国两会中有代表又提到了个人税金问题。代表提议将个税作以如下的调整：月收入在2万及以上的收10%，月收入在1万（含）至2万的收5%，月收入在5千（含）至1万的收_刷题宝

题干

全国两会中有代表又提到了个人税金问题。代表提议将个税作以如下的调整：月收入在2万及以上的收10%，月收入在1万（含）至2万的收5%，月收入在5千（含）至1万的收2%，月收入少于5千的免收。
小明用VB设计了计算个税的程序，程序运行时界面如图1所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

（1）为应用程序界面添加“开始计算”按钮，应使用图2中的____________（填写相应编号），并将图3所示中的“属性窗口”中，将________属性设置成“开始计算”。

（2）根据题意，将下列程序空格处补充完整。
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

上一题下一题 0.99难度 None 更新时间:2015-08-19 03:12:25

答案(点此获取答案解析）

同类题1

某VB程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i =" 1" To 10
a(i) =" i" * 2
Next i
Text1.Text = Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出右图所示的出错提示，引起该错误的语句是（）

A．Dim a(1 To 10) As Integer	B．a(i) =" i" * 2
C．Text1.Text = Str(a(i))	D．For i =" 1" To 10

同类题2

下列四段程序中，主要控制结构属于循环结构的是（）

A．A= 5
B= A
A=" A" + B

B．IF X > K THEN
PRINT "Big"
END IF

C．S="0"
DO WHILE I<=10
J =" I" * I
S="S" + J
I="I" + 1
LOOP

D．IF INT(X/2) = X/2 THEN

PRINT "偶数"
ELSE
PRINT "奇数"
END IF

同类题3

甲乙双方进行一场球类比赛，一局计分的规则是：赢1球得1分，用“1”表示；输1球失1分，用“0”表示。当任一方得分大于等于6分，且领先对方2分及以上，领先方赢一局。如甲选手一局比赛数据为“101110101”，表示甲选手得6分失3分，局比分

。
小王用一个字符串记录了甲选手多局比赛数据，其中有一处错误，位于连续多个“0”的最后一个。为了找出错误，小王的处理方法如图a所示，对示例中疑似错误位置6和20分别修改数据，并统计每局比分。他编写了VB程序，功能如下：在窗体Form l的文本框Text l中输入记录数据，单击“分析”按钮Command 1，在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
（1）下列对象中有Text属性的是________（单选，填字母：

C．Text 1）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。

图a 图b
Private Sub Command 1_Click（）
Dim sp As String，s As String s s存储甲选手多局比赛的记录数据，长度小于50
Dim a（1 To 50）As Integer，e（1 To 20）As Integer
Dim I As Integer，j As Integer，k As Integer，n As Integer，m As Integer
Dim fl As Integer，f2 As Integer

（ ① ）
Next i

找出疑似错误位置

Loop
If ② Then

对每个疑似错误位置分别修改数据，并统计每局比分

List 1.AddItem sp
③
Next i
End Sub

同类题4

已知 a=10,b=20,c=40，下列表达式中值为 True 的是（）

B．a<b And b>c

同类题5

表达式25 mod 3+23\5*2的值是 ( )。

相关知识点