- 二一组卷

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

浙江省临安市昌化中学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

① ②

举一反三

编写VB程序，实现如下功能：在文本框Text1中输入整数n（1≤n≤10），单击“生成矩阵”按钮Command1，生成n²个10到99之间（包含10和99）的随机整数，并以n行、n列矩阵的形式显示在列表框List1中，再单击“对角线”按钮Command2，则在标签Label1中输出该矩阵对角线（左上角到右下角）上的数值，运行界面如图所示，程序代码如下。

【加试题】神性的数学黑洞数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#}

【加试题】在计算机中用一个字节（8位）来存储一个字符的ASCII码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为“0”，在数据传输时该位可用作奇偶校验位。传输时ASCII代码转换成传输码的方法是：若7位ASCII码中有偶数个1，则最高位置为1；有奇数个1，则最高位置为0。例如字母“A”的ASCII码十进制表示为65，二进制表示为1000001。“A”的传输码则为“11000001”，本程序的功能就是把ASCII码转换成这种传输码，运行效果如第17题图所示。

某计算机系统中，只采用ASCII码与GB2312两种编码，现在要统计某句话中有多少个ASCII字符，多少个GB2312字符。为了解决这个问题，某同学设计了一个VB程序，功能如下：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1，则计算机会在标签Label2中输出统计结果。界面如第11题图所示：程序代码如下：

阅读程序，回答问题。

有如下程序段：

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中的值是( )

相关试卷

公司介绍

服务介绍

帮助中心