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

题型：综合题题类：模拟题难易度：普通

浙江省杭州市2015年高考信息技术模拟卷10

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

小明用VB设计了计算个税的程序，程序运行时界面如图所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

图1

（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

举一反三

编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按钮Command1，在标签Label1中显示将n转换为八进制的数值，程序代码如下。

Private Sub Command1Click()

Dim y As Integer '用于存储输入的十进制自然数

Dim s As String '用于存储转换后的结果

Dim r As Integer

n = Val(Text1.Text)

s = ""

Do While n <> 0

r = ① '采用除八取余法

s = Str(r) + s '将余数添加到结果s中

n = n \ 8

Loop

Label1.caption=s

End Sub

请根据题意将程序补充完整。

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：{#blank#}1{#/blank#} 。

Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

有如下程序段：

s = 0

For i = 1 To 30

If i Mod 5 = 0 Then

s = s + i

i = i + 6

End If

Next i

运行后，变量s的值是（）

若单选按钮被选中，其VALUE属性的值是（）

某算法的部分流程图如图所示，执行这部分流程后，下列说法不不正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心