- 二一组卷

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

浙江省临安市昌化中学2019届高三上学期信息技术期末模拟试卷

【加试题】小柯编写了一个多位数乘法的VB程序，运行界面如图所示。在文本框Text1中输入一个小于等于1000位的被乘数，在文本框Text2中输入1位乘数，点击“开始计算”按钮Command1后，在文本框Text3中显示计算结果。

实现上述功能的VB程序如下，但加框代码有错，请改正。

Private Sub Command1_Click()

Dim d(1 To 1001) As Integer

Dim str1 As String, str2 As String

Dim i As Integer, n As Integer, k As Integer, s As Integer

str1 = Text1.Text

n = Len(str1)

For i = 1 To n

D(i) = Val(Mid(str1, i, 1))

Next i

s = 0

k = Val(Text2.Text)

For i = n To 1 Step -1

①

s = d(i) \ 10

D(i) = d(i) Mod 10

Next i

If s <> 0 Then str2 = CStr(s) Else str2 = "" 'CStr()不会在返回的字串前加1个空格。

For i = 1 To n

②

Next i

Text3.Text = str2

End Sub

① ②

举一反三

自定义函数f的功能是计算自然数n的阶乘值，即f=n！。下面VB程序通过调用函数来计算S=1!+2!+3!+4!+5!+6!:

Function f(n as integer) as long

Dim j As Integer

f=1

For j=1 to n

f=f*j

Next j

End Function

Private Sub Command1_Click()

Dim s As Long, AS Integer

S=0

For i=1 to 6

Next i

Text1.text=str(s)

End Sub

方框中正确的语句是（）

【加试题】神性的数学黑洞数6174。一个任意的四位正整数（四位数字完全相同除外），将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。如取四位数5462，按以上方法作运算如下：

①6542-2456=4086 ②8640-0468=8172 ③8721-1278=7443 ④7443-3447=3996

⑤9963-3699=6264 ⑥6642-2466=4176 ⑦7641-1467=6174

编写程序实现实现上述功能。从文本框Text1中输入一个任意的数字不完全相同的四位正整数，在文本框Text2中输出掉进黑洞的步数。实现上述功能的VB代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

Dim a(1 To 4) As Integer, c As Integer, t As Integer

Dim x As Integer, y As Integer, i As Integer, j As Integer

x = Val(Text1.Text)

c = 0

Do While x <> 6174

For i = 1 To 4 '把四位正整数x的每一位数字取出并存放到数组a中

a(i) = x Mod 10

' （1）

Next i

For i = 1 To 3

For j = i + 1 To 4

If Then ' （2）

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

x = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4)

y = a(1) + a(2) * 10 + a(3) * 100 + a(4) * 1000

x = x - y

c = c + 1

Loop

Text2.Text = Str(c)

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

异或（xor）是一个数学逻辑运算符，如:x xor y，其运算具体方法描述如下：

⑴分别将十进制数x,y转换为二进制,并将转换的每位二进制数存储到数组a,b中；如果两个二进制位数不相等，则位数较少的前面用“0”补足，使之a,b数组元素个数一致；

⑵取出数组a,b中下标相同的数组元素进行运算，若值相同，则结果为0，否则为1；

根据上述运算方法,示例如表所示。

变量	十进制	二进制
x	19	1	0	0	1	1
数组a		a(1)	a(2)	a(3)	a(4)	a(5)
y	9	0	1	0	0	1
数组b		b(1)	b(2)	b(3)	b(4)	b(5)
x xor y		1	1	0	1	0

小明编写了一个VB程序，功能如下：在文本框Text1、Text2中分别输入x、y的值，单击“异或”按钮Command1，程序对数据进行异或运算，并将结果显示在列表框List1中。

小王和小李在学习二进制数时发明了一种“二进制骰子”的游戏：游戏双方轮流掷骰子，每人按顺序掷4次，点数是奇数时代表0，偶数时代表1，四次骰子点数依次从低位到高位组成一个4位的二进制数，其十进制的值就是最后的成绩，成绩高的胜出，相等则平局。如图a所示，四次掷出的骰子点数依次是3-1-4-2，则代表二进制数1100，最后的成绩就是12。

图a

图b

程序运行界面如图b所示，请回答以下问题。

有如下 VB 程序段：

Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Val(Text1.Text)

t = 0

For q = p+ 1 To 2 * p

s = (p * q) Mod (q - p)

If s = 0 Then

t = t+ 1

End If

Next q

Label1.Caption = Str(t)

该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（）

【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个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

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

相关试卷

公司介绍

服务介绍

帮助中心