小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出...

题型：综合题题类：常考题难易度：困难

浙江省台州中学2016-2017学年高一下学期信息技术第四次统练试题

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。

用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：

（1）、自摘收费程序所用的算法是（填：解析算法/枚举算法）。

（2）、为实现上述功能，请在划线①和②处填入合适的代码。

Dim m As Integer

Private Sub Command1_Click()

Dim n As Integer, s As Integer

Dim w As Single, f As Single

n = Val(Text1.Text) '输入大人人数n

w = Val(Text2.Text) '输入重量w

f = 20 * n + 10 * w '计算无优惠的费用f

s = 0

For i = 1 To m '计算桔子总数

s = s + i * i

Next i

If s= Then '判断是否拿到优惠计算费用

f = f * 0.5 + s * 0.3'计算优惠后的费用

Label7.Caption = "恭喜你，这是优惠后的费用！"

Else

Label7.Caption = "很遗憾，你没有算对哦！"

End If

Label4.Caption = Str(f) '输出最后的费用f

End Sub

Private Sub Form_Load()

Randomize

m = '随机产生15层及以内的桔子层数不含0

Text3.Text = Str(m)

End Sub

（3）、若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用元。

举一反三

【加试题】数据的有损压缩：对多媒体数据进行有损压缩时，通常是以少量数据丢失作为代价的，比如对某8 bit量化的数据压缩为6bit量化，其算法可简单表示为：逐一删除各个字节的后2 bit，将删除除后的6 bit数据首尾相连，然后重新按照8bit一组构建字节，以十六进制显示。

例如，压缩前的原始数据为：

1111 1100 0101 1010 1011 0000 可表示为十六进制：FC 5A B0

删除每字节的后2 bit：

1111 1100 0101 1010 1011 0000

首尾相连构建新的数据：

11 1111 0101 1010 1100 表示为十六进制：... F5 AC

自此，原数据进行了有损压缩。程序运行界面如下所示：

实现上述算法的VB程序如下，但程序中加框处有误，请改正。

Dim a(1 To 100) As Integer

Const code = "0123456789ABCDEF"

Const n = 100

Private Sub FormLoad()‘ 以随机数模拟读取原始数据

s = ""

Randomize

For i = 1 To n

a(i) = Int(Rnd * 16)

Text1.Text = Text1.Text + ①

Next i

End Sub

Private Sub Command1Click()

For i = 1 To n

t = t + HtoB(a(i))

Next i

For j = 1 To n * 4 Step 8'每8位一组，取前6个字符

s = s + Mid(t, j, 6)

Next j

For i = 1 To 4 * (n - 1) Step 4'每4位一组转为十六进制显示

Text2.Text = Text2.Text + BtoH(Mid(s, i, 4))

Next i

End Sub

Function HtoB(x As Integer) As String'十六进制转为二进制函数

t = ""

m = 0

Do While ②

r = x Mod 2

m = m + 1

t = Trim(r) + t'trim()用于删除前导空格

x = x \ 2

Loop

HtoB = Mid("0000", 1, 4 - m) + t

End Function

Function BtoH(y As String) As String'二进制转为十六进制函数

t1 = Val(Mid(y, 4, 1))

t2 = Val(Mid(y, 3, 1))

t3 = Val(Mid(y, 2, 1))

t4 = Val(Mid(y, 1, 1))

s = t1 + t2 * 2 + t3 * 4 + t4 * 8

BtoH = Mid(code, s + 1, 1)

End Function
① {#blank#}1{#/blank#}② {#blank#}2{#/blank#}

一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框text1中输入的数是否素数，请完善以下三处代码。

Dim i As Integer, m As Integer ,flag as Boolean

m = {#blank#}1{#/blank#}

flag= {#blank#}2{#/blank#}

For i = 2 To int(sqr(m))

If {#blank#}3{#/blank#} Then

flag=false

Exit For

End if

Next i

If flag=true Then

Text2.Text = str(m) +"是素数"

Else

Text2.Text = str(m) +"不是素数"

End if

删除重复字符的VB程序，程序功能如下:在文本框Text1中输入字符串，单击“删除重复字符”按钮，在文本框Text2中输出处理后的结果。程序运行效果如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

x = Text1.Text

n = Len(x)

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

For i = 2 To n

flag =0

For j = 1 To Len(s)

If Then '{#blank#}1{#/blank#}

flag = 1: Exit For

End If

Next j

If Then '{#blank#}2{#/blank#}

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

End If

Next i

Text2.Text = s

End Sub

简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮后，将这几个数字的和输出在标签Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n（n为奇数），单击 “生成”命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为“1 3 …… n-2 n n-2 3 1”。例如n=9时，显示的数字串为“1 3 5 7 9 7 5 3 2 1”。

某工厂有11个男工人，8个女工人，分别以“abcdefghijk”与“12345678”命名，每天依次排一男一女值班，从第一周周日为a1、周二为b2、······依次循环编排。编写VB程序，实现如下功能：在文本框Text1中输入周次，如第8周，则输入8，单击“周值班表”按钮（Command1），在Label2上（男工人左边标签）显示“第8周”，在列表框List1中输出该周从周日开始的7天及对应的男工人、女工人值班表，运行界面如图所示，程序代码如下：

相关试卷

公司介绍

服务介绍

帮助中心