【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图1所示，Command1鼠标单击事件过程的流程图如图2所示。图1 图2 程序代码如下： Private Sub Command1_Click() Dim...

题型：综合题题类：模拟题难易度：普通

浙江省杭州市2016年信息技术高考模拟卷二

【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图1所示，Command1鼠标单击事件过程的流程图如图2所示。

图1
图2

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And ② Then

List1.AddItem Str(i) + " 和 " + Str(i + 2)

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '自定义函数f,返回值为逻辑型

Dim j As Integer

f = True

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

If x Mod j = 0 Then

f = ③ '函数返回值

Exit For '跳出For循环

End If

Next j

End Function

（1）、程序中加框部分的算法是（选填：解析算法/枚举算法）

（2）、在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入

程序中②划线处应填入

程序中③划线处应填入

举一反三

大约1500年前,《孙子算经》中记载了"鸡兔同笼"问题.原文大意是:如果若干只鸡和兔在同一个笼子里，从上面数有35个头，从下面数有94只脚，求笼中鸡和兔子各有几只？
现在我们用VB6.0软件设计一个程序，可以解答上述问题，通过界面输入鸡和兔头数和，鸡、兔脚数和。在输入数据合理的情况下，求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。

程序运行界面图                      输出结果界面图
程序代码如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer   ’x是鸡的数量，y是兔的数量
Dim a As Integer, b As Integer   ’a是鸡兔的头数，b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then   ’对数据合理性做出判断
MsgBox "您的输入数据不合理，请重新输入！", , "错误提示"
Text1.Text = ""
Text2.Text = ""
   ①
x = 0
Do While x     ②   a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有：" & x & "只   兔有：" & y & "只", , "运行结果"
End If
   ③
Loop
End Sub
Private Sub Command2_Click( )
Text1.Text = ""
Text2.Text = ""
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程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。

实现上述功能的VB代码如下，请在划线处填入合适代码。

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

Private Sub Form_Load()

‘本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, k as Integer

Dim t As Long, ans As Long

k=0 : ans = 32767 ‘ans初始化为最大的Integer数据

For i = 1 To n

t = 0

For j = 0 To n - 1

w={#blank#}1{#/blank#}

If w = 0 Then w = n

t={#blank#}2{#/blank#}

Next j

If t < ans Then

k= i

ans = t

End If

Next i

Text1.Text = Str (k) ‘起始房间编号

Text2.Text ={#blank#}3{#/blank#}

End Sub

在n个连续的方格内填字母A或B，但相邻两格都不能填B，求所有可能方案。可以用枚举算法解决，此题可以采用进制转换来解决。考虑到只包含了A与B两个字母，我们可以用二进制的0和1来代替。

程序部分代码如下：

Private Sub Command1_Click()

Dim n, m, s, i, j, count As Long

Dim flag As Boolean

Dim a(1 To 100) As Integer

n = Val(Text1.Text)

count = 0

①

For i = 0 to s-1

m = i

For j = 1 To n

a(j) = m Mod 2

m = m \ 2

Next j

flag = True

For j = 1 To n - 1

If ② Then flag = false: exit For

Next j

If flag = True Then ③

Next i

Label1.Caption =“可行方案共”+ Str(count) + “种”

End Sub

若一个正整数从左向右读与从右向左读都一样，我们就将其称之为回文数。如11、121均是回文数。请你编写程序，输出10至n之间的所有回文数。程序运行界面如图所示，在文本框Text1中输入一个正整数n，单击“查找”按钮Command1，在列表框List1中显示10–n之间的所有回文数，并且在标签Label1中输出查找到回文数的总数。

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

Private Sub Command1_Click()

Dim n as long , sum as long , i As Long Dim x as long , y as long

List1.Clear

n = Val(Text1.Text) sum = 0

For i = 10 To n

x = ‘①

y = 0

Do While x > 0

y = ‘②

x = x \ 10

Loop

If y = i Then

List1.additem Str(i)

sum = sum+1

End if

Next i

Label1.caption = “共有”& Str(sum) & “个回文数” End Sub

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

一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s As Integer, t As Integer, k As Integer

s = 0

For i = 1 To 1000

n = i

t = 0

k = 0

Do While n > 0

If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

{#blank#}1{#/blank#}

Loop

If {#blank#}2{#/blank#}Then s = s + 1

Next i

Text1.Text = Str(s)

End Sub

相关试卷

公司介绍

服务介绍

帮助中心