- 二一组卷

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

浙江省台州市联谊五校2018-2019学年高二下学期信息技术期中考试试卷

【加试题】某程序功能如下：数组a中存放了n*n个两位随机正整数，按n行n列在列表框List1 中显示（即第一行自左向右依次显示a(1)～a(n)，第二行自左向右依次显示a(n+1) ～a(2*n)，……）。按（行号，列号）的形式在文本框Text1 中输入某矩形区域的左上角位置(x1,y1)，在文本框Text2 中输入右下角位置(x2,y2)，单击“水平翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行水平翻转，并将变换后的n*n个数据保存到数组b中，最后在列表框list2 中按照List1的格式显示数组b中的数据。程序运行界面如图所示。

（1）、对于有8*8个元素构成的数组a，如果输入左上角位置是（2，3），右下角位置是（7，5），水平翻转后，则元素a(27)的值在新数组保存在元素b()（填写下标）中。

（2）、依据上述描述设计的VB 程序如下，请在划线处填入合适代码。

Const n = 6

Dim a(1 To n ^ 2) As Integer, b(1 To n ^ 2) As Integer

Private Sub Form_Load()

'产生n*n个两位随机正整数，保存数组a，显示在List1中，代码略。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, xy(1 To 4) As Integer

Dim s As String, tmp As String, c As String

s = Text1.Text + "," + Text2.Text + ","

tmp = "": j = 0

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

tmp = tmp + c

Else

j = j + 1

tmp = ""

End If

Next i

For i = 1 To n

For j = 1 To n

If i>= xy(1) And i<= xy(3) And j >= xy(2) And j <= xy(4) Then

b((i - 1) * n + j) =

Else

b((i - 1) * n + j) = a((i - 1) * n + j)

End If

Next j

Next i

List2.Clear: c = ""

For i = 1 To n * n

c = c + Str(b(i))

If Then

List2.AddItem c

c = ""

End If

Next i

End Sub

举一反三

国内特快专递每200克为一个计费单位，200克以内22元，200克以上每续重200克（不足200克以200克计算）8元，现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题，最合适的算法是（）

【加试题】异或的数学符号为“⊕”，其运算法则相当于不带进位的二进制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符号两侧数值相同时，计算结果为0；数值不同时为1）。

如果要对两个十进制数进行异或运算，可以按以下步骤进行：

① 先将要进行异或运算的两个十进制数分别转换为二进制；

② 对两个二进制数按位进行异或运算；例：(101101)₂⊕(111)₂=(101010)₂

③ 再把步骤②中的运算结果转换为十进制，该十进制数即为运算结果。

小明编写了一个VB程序来模拟上述运算过程，程序功能如下：在文本框Text1和Text2中分别输入要参加异或运算的十进制数，单击计算按钮Command1，程序对输入的两个数进行异或运算，并将运算结果显示在文本框Text3中，程序运行界面如图所示。

在VB的算术运算中，最大的实数类型double有效位数也只有15位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框Text1中输入被除数（正整数），在文本框Text2中输入除数（正整数），在文本框Text3中输入小数位数，单击按钮Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click

Dim x, y As Integer

Dim n As Integer

Dim s As String

x = Val(Text1.Text): y = Val(Text2.Text)

n = Val(Text3.Text)

s = s + Str(x \ y)

s = s + "."

k = x Mod y

For i = 1 To n

‘①

‘②

k = x Mod y

Next i

Label1.Caption = "商为： " + s

End Sub

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

小王编写了一个“学生体能情况分析”程序，其功能是分项计算名次和优秀率（分数90分及以上为优秀）。运行程序时，在列表框List1中显示所有学生的3项体能测试分数，在文本框Text1中输入测试项目代码（1表示游泳，2表示跑步，3表示跳远），单击“计算”按钮Command1后，计算结果分别显示在列表框List2和标签Label2中。程序运行界面如图1所示。

程序设计过程中数据的存储和计算方法如下：

⑴学生体能分数的存储：如图2所示，第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里，第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里，以此类推。

⑵计算名次的算法：先统计每个分数的个数，存入数组a，如图3中a(96)值为9，表示共有9个96分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次存入数组b，分数相同时名次并列，如图3中b(96)值为10，表示96分的名次是（并列）第10名，以此类推。

请回答下列问题：

将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零时停止。

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①

r=x Mod 2

s=Str(r)+s

x=②

Loop

Text2.text=s

End Sub

【加试题】格雷码(Gray code)，又叫循环二进制码。一般的，格雷码可以解码成普通二进制码。某格雷码 G1 G2 G3 …Gn-1 Gn，解码成普通二进制B1 B2 B3 …Bn-1 Bn的方法如下：

⑴把格雷码第1位G1作为解码后二进制码的第1位B1，即：B1= G1；

⑵从第2位起，将格雷码每一位与左边相邻一位的解码值作异或运算，结果作为该位格雷码的解码值，即Bi=Gi⊕Bi-1。例如，某格雷码1101110，可解码成普通二进制码 1001011，如图所示。

异或运算（⊕）规则：如果 a、b 两个值不相同，则 a⊕b 结果为 1；如果 a、b 两个值相同，则 a⊕b 结果为 0，即:0 ⊕ 0 = 0，1 ⊕ 0 = 1，0 ⊕ 1 = 1，1 ⊕ 1 = 0。

小明编写了一个格雷码解码的VB程序，功能如下：在文本框Text1中输入格雷码,单击 “解码”按钮 Command1，程序对输入的格雷码进行转换处理，转换后的二进制码用十六进制表示并显示在文本框 Text2 中。程序运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心