2012年6月信息技术会考-算法与程序设计试题

浙江省2012年高中信息技术会考-算法与程序设计题(6月卷)

2012年6月高中信息技术会考 算法与程序设计题（第一套）

四、程序设计题（本题共3小题，第1-2小题，每小题3分，第3小题6分，共12分） 1.有如下Visual Basic程序段： x = 2010 y = 2.6

s = Fix(x + y)

该程序段运行后，变量s的值为_________。

2.有如下Visual Basic程序： Private Sub Command1_Click() Dim a As String, i As Integer a = Text1.Text

For i = 1 To Len(a)

If Mid(a, i, 1) = \

Label1.Caption = Mid(a, 1, i - 1) End If Next i End Sub

运行该程序，在文本框Text1中输入chenf@163.com，单击命令按钮Command1，在标签Label1中显示的是__________。

3.校园十佳歌手比赛得分成绩已经出来，为了选出前十名选手，小明编写了如下Visual Basic程序，从所有选手中按得分从高到低选出前十名。选手编号和得分已分别保存在数组a和b中（共23名选手，编号为XS01到XS23），原始数据显示在列表框List1中，运行结果显示在列表框List2中，程序运行界面如图所示。

程序代码如下：

Dim a(1 To 23) As String, b(1 To 23) As Single Private Sub Command1_Click() Dim i As Integer, j As Integer Dim s As String, t As Single

第 1 页 共 17 页

浙江省2012年高中信息技术会考-算法与程序设计题(6月卷)

For i = 1 To 22

For j = 1 To 23 - i

If ① Then

s = a(j): a(j) = a(j + 1): a(j + 1) = s t = b(j): b(j) = b(j + 1): b(j + 1) = t End If Next j Next i

For i = 1 To 10

List2.AddItem a(i) + \② Next i End Sub

Private Sub Form_Load()

'此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略 End Sub

（1）程序中加框部分的算法是 。 （选填：选择排序/冒泡排序） （2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入 。 程序中②划线处应填入 。

2012年6月高中信息技术会考 算法与程序设计题（第二套）

四、程序设计题（本题共3小题，第1-2小题，每小题3分，第3小题6分，共12分） 1.有如下Visual Basic程序段： a = 4 b = 3 c = 1

c = b * b - 4 * a * c s = Abs(c)

该程序段运行后，变量s的值为_________。

2.有如下Visual Basic程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) If a Mod 2 = 0 Then b = a + 1

ElseIf a Mod 3 = 0 Then b = a + 2

ElseIf a Mod 5 = 0 Then b = a + 4 Else b = a End If

第 2 页 共 17 页

浙江省2012年高中信息技术会考-算法与程序设计题(6月卷)

Label1.Caption = Str(b) End Sub

运行该程序，在文本框Text1中输入25，单击命令按钮Command1，在标签Label1中显示的是__________。

3.求完数（完美数）。一个数恰好等于除它本身外的因子之和，这个数就称为完数。例如28除本身之外的因子是1，2，4，7，14，且1 + 2 + 4 + 7 + 14 = 28，则28是完数。下列Visual Basic程序用于查找2～10000中的所有完数，并将结果显示在列表框List1中，程序运行界面如图1所示。函数f用于求一个数除了本身之外各因子的和，流程图如图2所示。

图1

程序代码如下：

Private Sub Command1_Click() Dim i As Integer, t As Integer For i = 2 To 10000 t = f(i)

If t = i Then

List1.AddItem ① End If Next i

End Sub

Private Function f(x As Integer) As Integer Dim i As Integer, s As Integer

图2

s = 0

For i = 1 To x \\ 2 If x Mod i = 0 Then s = ② End If Next i f = s

End Function

（1）程序中加框部分的算法是 。 （选填：解析算法/枚举算法） （2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入 。 程序中②划线处应填入 。

2012年6月高中信息技术会考

第 3 页 共 17 页

浙江省2012年高中信息技术会考-算法与程序设计题(6月卷)

算法与程序设计题（第三套）

四、程序设计题（本题共3小题，第1-2小题，每小题3分，第3小题6分，共12分） 1.有如下Visual Basic程序段： x = 12.6 x = x + 0.5 y = x * 10 s = y \\ 10

该程序段运行后，变量s的值为_________。

2.有如下Visual Basic程序： Private Sub Command1_Click()

Dim i As Integer, s As Integer, n As Integer n = Val(Text1.Text) s = 0

For i = 1 To n s = s + i Mod 3 Next i

Label1.Caption = Str(s) End Sub

运行该程序，在文本框Text1中输入8，单击命令按钮Command1，在标签Label1中显示的是__________。

3. 某企业在第1年初购买一台价值为120万元的设备，该设备的价值在使用过程中逐年减少。从第2年到第6年，每年初的价值比上年初减少10万元；从第7年开始，每年初的价值为上年初的75%。问第n年初该设备的价值是多少？下面的Visual Basic程序用于解决此问题，运行程序，在文本框Text1中输入年数n，单击“计算”按钮Command1，则在标签Label1中显示此年初的价值a。程序运行界面如图1所示，流程图如图2所示。

第 4 页 共 17 页