在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

题型：综合题题类：常考题难易度：普通

浙江省台州中学2016-2017学年高一下学期信息技术第四次统练试题

（1）、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。

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

Private Sub Command1_Click()

Dim n As Long, m As Integer

Dim a(0 To 9) As Integer

n = Val(Text1.Text)

List1.Clear

For i = 0 To 9

a(i) = 0

Next i

Do While n > 0

t = n Mod 10

a(t) = a(t) + 1

Loop

m = a(0)

For i = 1 To 9

If a(i) > m Then m = a(i): k = i

List1.AddItem Str(i) & "：" & Str(a(i)) & "个"

Label2.Caption = "出现最多的数字是：" +

End Sub

举一反三

已知单调函数 $\text{[math]}$ 在[0，1]区间存在一个 $\text{[math]}$ ，使 $\text{[math]}$ 。现用对分查找法搜索 $\text{[math]}$ 的值，开始搜索区间为[0，1]，若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为（）

【加试题】小林和小王合作编写一个查询英语单词的VB程序：小林编写一个过程，单击“读取数据库”按钮Command1，从一个数据库中读取英语单词和中文含义，分别保存在a数组和b数组中。并显示在List1中；小王编写另一个过程，在文本框Text1中输入要查询的单词，单击“查询”按钮Command2，将查询单词的中文含义显示在Text2中，程序界面如图所示。

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

i=1 : j=8 : t=0

key=Int(Rnd()*7)+14

Do While i<=j

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

t=t+1

if a(m)=key Then

Exit Do else

If a(m)>key Then j=m-1

Else

i=m+1

End if

End if Loop

数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量t的最大值可能是（）

【加试题】小方同学使用VB编程研究素数问题，程序运行界面如图所示。他发现1～100之内的素数一共有25个，并且将这些素数全部保存到数组a中，在列表框List1中显示所有素数（按大小从低到高排列）。在文本框Text1中输入需要查找的数据，单击“查找”按钮Command2，在标签框Label3中显示查找结果。

幻方是一种将数字安排在正方形格子中，使每行、列和对角线上的数字和都相等的方法。n阶幻方是由1~n²之间的自然数组成的一个n阶方阵，其各行、各列及对角线所含的数字之和均相等。例如3阶幻方(如图1)，幻和为15。

奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：

⑴将1放在第一行中间一列；(如图2)

⑵从2开始直到n*n为止，各数按下列规则存放：

假设当前要存放的数为k，则k存放在k-1)数的右上方并按照规则

①若(k-1)放在第1行且不是最后一列，则将k存放在n行，(k-1)所在列右侧；(如图3)

②若(k-1)放在第n列且不是第一行，则将k存放在第1列，k-1)的上1行；(如图4)

③若(k-1)即不在第1行也不在最后1列：

若(k-1)右上方有数，则将k放在(k-1)的下1行的同一列。(如图5)

若(k-1)右上方没有数，则将k放在(k-1)的右上方；(如图6)

④若(k-1)在第1行第n列，将k填在(k-1)的正下方(如图7)

a(1)=2:a(2)=4:a(3)=5:a(4)=6:a(5)=8:a(6)=10:a(7)=11:a(8)=12

n=0

Key=int(Rnd*7)+2

L=1: R=8

Do While L<=R

m=(L+R)\2

if Key=a(m) Then

Exit Do

Elseif a(m)<Key Then

L=m+1

n=n+1

Else

R=m-1

n=n-1

Loop

print Str(n)

则程序运行后，输出的结果不可能是（）

相关试卷

公司介绍

服务介绍

帮助中心