- 二一组卷

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

浙江省2019届高三上学期稽阳10月联考信息技术试卷

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

（1）、要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句（单选,填字母： A . Caption.Command1 ="删数" / B . Command1.Caption ="删数" / C . Caption ="删数"/）

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, ch As String

Dim i As Integer, n As Integer

Dim max1 As Integer, max2 As Integer

s = Text1.Text: n = Len(Text1.Text)

If Mid(s, 1, 1) > Mid(s, 2, 1) Then

max1 = 1: max2 = 2

Else

max1 = 2: max2 = 1

End If

For i = 3 To n

ch = Mid(s, i, 1)

If ch > Mid(s, max1, 1) Then

max1 = i

ElseIf ch >= Mid(s, max2, 1) Then

max2 = i

End If

Next i

For i = 1 To n

If Then Text2.Text = Text2.Text & Mid(s, i, 1)

Next i

End Sub

（3）、若在文本框Text1中输入的内容为“82176736”，单击按钮Command1,文本框Text2中显示的内容是。

举一反三

有序数列3.6,8,11.6,22,24,27,31,36.5,35，46，通过对分查找查找数31，需找（）次

顺序查找算法程序如下，下列说法正确的是（）

Dim d(1 to 10) as Integer

n=10 : count = 0

For i = 1 To n

count = count + 1

If Then

Label1.Caption = “顺序查找在数组的第” & i & “位找到了” & v

Exit For

End If

Next i

If Then

Label1.Caption = “顺序查找没有找到” & v

End If

【加试题】已知一无序数组a中的元素为"90，15，40，72，65，32，81，6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：

当文本框Text1中输入的值为32时，程序运行结束后变量c的值为（）

由数组a生成数组b的方法描述如下：

⑴将数组a中的n个元素依次分割出若干个数据块，每个数据块有m×m个元素，m最大值为8，最小值为2。分割时，按尽可能大的数据块进行分割；

⑵对每个分割出的数据块用“方阵转换法”进行转换，每次转换后得到的数据块依次存储在数据b中；

⑶数组a分割后的剩余元素（个数小于4），直接依序存储到数组b中。

例如n=140时，可依次分割出3个数据块，元素的个数分别为64（8×8）、64（8×8）、9（3×3），剩余元素为3个。

“方阵转换法”过程如下：将数据块中m×m个元素按行序排列成一个数字方阵，从该数字方阵中按列序得到转换后元素的次序。以3×3数据块为例，转换过程如下图所示:

小明依据上述描述设计了如下VB程序。请回答下列问题：

如图所示加密程序：在文本框Text1中输入明文，单击命令按钮“加密”，在文本框Text2中输出密文。加密算法思路如下：1、只针对英文字符和数字进行加密，其余字符不变；2、将原文中的小写字母转换为大写字母；3、根据第2步所得结果，若是英文字符，则逐个后移4位（例如：A->E,Z->D），若是数字，则逐个前移2位（例如：3->1,1->9）。

综上所述：原文为Jim is at room 4！，加密后输出密文为：NMQ MW EX VSSQ 2！

某对分查找算法的VB程序段如下:

i=l:j=9:n=0

key=Val(Text1,Text)

Do While i<=j

n=n+1

m=Fix((i+j) / 2)

If key=d(m) Then Exit Do ‘Exit Do表示退出循环

If key<d(m) Then j=m-1 Else i=m+1

Loop

数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后，n的值为2，则key的值是（）

相关试卷

公司介绍

服务介绍

帮助中心