- 二一组卷

题型：填空题题类：常考题难易度：困难

浙江省名校协作体2019届高三上学期信息技术9月联考试卷

【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。

实现上述功能的VB程序如下，但划线部分代码有错，请改正。

Private Sub Command1_Click()

Dim x(1 To 100) As Single， y(1 To 100) As Single

Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single

Dim i As Integer， j As Integer， k As Integer

Randomize

List1.Clear

k = Val(Text1.Text)

For i = 1 To k

x(i) = Int(Rnd * 90) / 10 + 1

y(i) = Int(Rnd * 90) / 10 + 1

List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))

Next i

For i = 1 To k - 1

For j = 1 To k - i

If x(j) > x(j + 1) Then

x(i)=x(i) + x(j)

x(j) = x(i) - x(j)

x(j) = x(i) + x(j) ‘①

tmp = y(j)

y(j) = y(j + 1)

y(j + 1) = tmp

End If

Next j

Next i

sum = 0： length = 0

For i = 1 To k - 1

x1 = (x(i) - x(1)) ^ 2 ‘②

'变量y1计算方法同x1，代码略

length = Sqr(x1 + y1)

sum = sum + length

Next i

Text2.Text = Str(Int(sum * 10) / 10)

End Sub

① ②

举一反三

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如第14题图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click（）

Dim a As Single, b As Single, ch As String

a = Val(Text1.Text)

b = Val(Text2.Text)

①

If ch = "+" Then

Text4.Text = Str(a + b)

ElseIf ch = "*" Then

Text4.Text = Str(a * b)

ElseIf ch = "-" Then

Text4.Text = Str(a - b)

ElseIf ch = "/" Then

If ② Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"

Else

③

End If

End Sub

编写VB程序，实现如下功能:在文本框Text1中输入一个正整数，单击“求数根”按钮Command1，在Text2中输出该正整数的树根（数根：若一个正整数X的各位数字之和是一位数，那么这个数就是X的数根，否则再把这个数的各位数字相加，如此反复直到得到一位数为止。例如156的各位数字相加1+5+6=12，12的各位数字相加1+2=3，则156的数根是3）。程序运行界面如图1所示。

图1

图2

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

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

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

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

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

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

编写VB程序，实现如下功能：在文本框Text1中输入投资金额，Text2中输入投资的目标金额，Text3中输入投资的年收益率，单击按钮Command1，在文本框Text4中输出达成预期投资目标至少需要的年数。投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×（1+5%），2年后的本息为10000×（1+5%）²。程序运行界面如图所示。

【加试题】格雷码(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 中。程序运行界面如图所示。

有如下程序段：

For i = 2 To 6

For j = 1 To i - 1

If a(j) <= a(i) And d(j) >= d(i) Then

d(i) =d(j)+1 : pre(i) = j

End If

Next j

Next i

max = 0 : k = 0

For i = 1 To 6

If d(i)>max Then max = d(i) : k = i

Next i

Do While k <> 0

st = a(k) & ","& st

k=pre(k)

Loop

Text1.Text = Mid(st, 1, Len(st) - 1)

数组元素a（1）到a(6)的值依次为“2，6，5，9，8，8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是( )

相关试卷

公司介绍

服务介绍

帮助中心