- 二一组卷

题型：填空题题类：常考题难易度：普通

高中信息技术综合库——枚举算法3

哥德巴赫1742年给欧拉的信中哥德巴赫提出了以下猜想：任一大于2的偶数都可写成两个质数之和。下列程序的功能即验证哥德巴赫猜想。程序运行时，在文本框Text1中输入一个大于2的偶数，单击“证明”按钮Command1后，在列表框List1中输出所有符合猜想的组合，在标签Label2中输出共有多少个组合。程序运行效果如下图所示。

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

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer, c As Integer

n = Val(Text1.Text)

List1.Clear

c = 0

If n Mod 2 = 0 Then

For ①

If Then ②

List1.AddItem n & "=" & i & "+" & n - i

c = c + 1

End If

Next i

Label2.Caption = "共有" & c & "种组合"

Else

Label2.Caption = "请输入一个大于 2 的偶数"

End If

End Sub

Function is Prime(x As Integer) As Boolean

Dim i As Integer

Is Prime = True

For i = 2 To Int(Sqr(x))

If x Mod i = 0 Then

Is Prime = False

Exit For

End If

Next i

End Function

① ②

举一反三

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下,请完善以下两处代码

s=Text1.Text

n=Len(s) 's是待判断的字符串

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j={#blank#}1{#/blank#}

Next i

If {#blank#}2{#/blank#} Then Label1.Caption="对称" Else Label1.Caption="不对称"

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

Dim i As Integer, m As Integer, n As Integer

Label1.Caption = "1000以内的完全数如下："

For i = 1 To 1000

n = 0

For m = 1 To i \ 2

If i Mod m = 0 Then n = n + m

If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

End Sub

该过程采用的算法是（）

平面上有n(3<=n<=100）个房间围成一圈，编号分别为 1～n，相邻的两个房间之间均有一扇门，第i个房间最多居住人数为a(i)。初始时选择一个房间，将所有人都聚集在该房间，接着每个人都可以顺时针方向走到相邻的房间，直到找到居住的房间。最后每个房间刚好住满。一个人每经过一扇门花费1的能量，请确定初始房间及每个人找房间的方案，使得所有人花费的能量的和最小。

例如：n = 5,a(1)= 4,a(2)= 7 ,a(3)= 8,a(4)= 6,a(5)= 4。

最佳方案为初始时所有人聚集在2号房间花费的最小能量为7*0+8*1+6*2+4*3+4*4=48。

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

Dim a( 1 To 100) As Integer '依次存储编号为 1 到 100 的房间的最多居住人数

Private Sub Form_Load()

'产生N的值

'本过程从数据库中依次读取编号为1到 N的房间的最多居住人数，并存储在数组a中

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer

Dim t As Long, ans As Long

ans = 32767

For i=1 To n

t = 0

For j=0 To n-1

‘（1）

If w=0 Then w=n

‘（2）

Next j

If t < ans Then ans = t

Next i

Text2.Text = Str(ans)

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

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

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Label1上输出结果，如图所示。

有如下所示VB程序段：

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

t = Int(Rnd*10) + 1

If t Mod 2 = i Mod 2 Then

t = t + 1

Else

t = t + 2

End If

s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框List1中可能显示的内容是( )

相关试卷

公司介绍

服务介绍

帮助中心