【加试题】求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列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）、在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入

程序中②划线处应填入

程序中③划线处应填入

举一反三

下列问题中适合使用枚举算法解决的是（）

王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：

①密码是六位数字，前面两位为31；

②最后两位数字相同；

③能被16和46整除。

程序界面如下图所示，单击 "帮助找回密码"按钮（Command1），可能的密码显示在列表框List1中。

解决此问题的相应程序如下：

Private Sub Command1_Click()

Dim a As Integer, s As long, b As Integer, i As Integer

For i = 0 To ①

s = 310000 + i

If s Mod 46 = 0 And s Mod 16 = 0 Then

②

b = (s Mod 100) \ 10

If a = b Then

List1.AddItem Str(s)

End If

Next i

End Sub

【加试题】《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，VB程序段如下：Private Sub Command1_Click( )

k = 0 '用来计数

Max = 600 '指定范围600以内

n = 9

Do While n <= Max

Loop

Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

End Sub

方框中的代码由以下五部分组成：

① n=n+7

② k = k + 1

③ List1.AddItem Str(n)

④ End If

⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then

代码顺序正确的选项是（）

某校举办竞赛，共有15个试题，每做对一题得8分，做错一题倒扣4分，没有未做的题目，小明共得了8分，则他做对了几题。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出答对的题数，在文本框Text2中输出做错的题数，程序代码如下：

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：

Private Sub Command1_Click()

i＝1

j＝7

Do While ____①____

i＝____②____

j＝____③____

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

则下列说法正确的是（）

有趣的进制数：编写VB程序找出符合条件的十进制自然数，该自然数的七进制与九进制都是三位数，且七进制与九进制的三位数码顺序正好相反，输出这个十进制数与对应的七进制和九进制数。程序运行界面如图所示。

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

Private Sub Command1_Click（）

Dim i As Integer, d As Integer, r As integer

Dim rs As string, ans1 As Integer, ans2 As Integer

For i=81 To 342

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

rs=“”

Do While d ＜>0

r = d Mod 9

rs= str(r)+rs

②{#blank#}2{#/blank#}

Loop

ans1= Val(rs)

‘求出相应的七进制数，存储在变量ans2中，代码略

If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

Text1. Text=④{#blank#}4{#/blank#}

Text2 Text= Str(ans1)

Text3. Text= Str(ans2)

End If

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心