辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。它是已知最古老的算法之一，其可追溯至3000年前。用辗转相除法来得一个分数的约分后的最简形式的算法如下：第一步：设两数为a、b，且令a&gt;b；第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r&gt;0则a←b，b←r，并返回第二步；...

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2015年高考模拟命题比赛信息技术(1)

辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。它是已知最古老的算法之一，其可追溯至3000年前。用辗转相除法来得一个分数的约分后的最简形式的算法如下：

第一步：设两数为a、b，且令a>b；

第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；
第三步：即为约分后的最简形式。

编写VB程序，程序运行界面如图1所示，请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数

a = Val(Text1.Text)

b = Val(Text2.Text)

If b = 0 Then c = MsgBox("分母不能为0"): Exit Sub

'如果分母为0，则提示“分母不能为0”并退出该过程

r =

Text3.Text = Str(a / r)

Text4.Text = Str(b / r)

End Sub

Function gys(ByVal m As Integer, ByVal n As Integer) As Integer

'gys函数用于求最大公约数

Dim s As Integer

If m < n Then

t = m: m = n: n = t

End If

Do While n <> 0

s = m Mod n

m = n

n = s

Loop

End Function

举一反三

只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。

Function prime（a As Integer） As Boolean

Dim j As Integer

prime = True

j = 2

Do While prime And j <= a \ 2

If a Mod j = 0 Then

prime = False

Exit Do

End If

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

Loop

End Function

Private Sub Command1_Click（）

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a = Val（Text1.Text）

b = Val（Text2.Text）

For i = a To b

If {#blank#}2{#/blank#} = True Then

List1.AddItem Str（i）

count = count + 1

End If

Next i

Label1.Caption = "素数共有" + Str（count） + "个!"

End Sub

下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如右图所示结果。其中，上述界面中“开始处理”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false。

请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。

Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer

Function f(x) As Boolean

f = True

For i = 2 To Sqr(x)

If x Mod i = 0 Then {#blank#}1{#/blank#}

Next i

End Function

Private Sub Command1 Click()

n = {#blank#}2{#/blank#}

For a1 = 2 To n

For a2 = a1 To n

For a3 = a2 To n

If {#blank#}3{#/blank#} And f(a1) And f(a2) And f(a3) Then

List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))

End If

Next a3

Next a2

Next a1

End Sub

有如下自定义函数：

Function f(m,n) as integer

Do while m<>n

Do while m>n

m=m-n

loop

Do while n>m

n=n-m

loop

f=m

end function

则f（24,10）的返回值是（）

问题描述：有n个互不重复的数字，值的范围是[1，n]，分别保存在数组元素a(1)到a(n)中，若数字i保存在a(i)，则认为数字i在正确的位置上。若干个相互占用了位置的数字称为一组，一个在正确位置上的数字单独为一组，比如6个数字2，3，1，4，6，5分别保存在数组元素a(1)到a(6)中，则2、3、1为一组，4为一组，6、5为一组。该程序的功能为输出每组的情况。运行界面如图:

火柴棒等式。用火柴棒可以摆出0-9的数字，摆放规则如下图所示：

有一种火柴棒游戏，将火柴棒摆成形如“A+B=C”的火柴棒等式。用n根火柴棒摆放数学等式的规则约定如下：

⑴A、B都是不大于1000的正整数，若数值非零，则最高位不能是0；

⑵摆放“+”与“=”各使用两根火柴棒；

⑶A+B=C 与B+A=C视为相同的等式；

⑷n根火柴棒必须全部用上。

小明依据上述规则使用VB编写程序，研究“使用n根火柴棒，可以摆放出哪些不同的等式”，代码如下所示。请回答下列问题。

Dim sz(0 To 9) As Integer ‘数组元素sz(i)用于存储数字i所使用的火柴棒的数量

Private Sub Form_Load()

sz(0) = 6 : sz(1) = 2 : sz(2) = 5 : sz(3) = 5 : sz(4) = 4

sz(5) = 5 : sz(6) = 6 : sz(7) = 3 : sz(8) = 7 : sz(9) = 6

End Sub

‘自定义函数hcs用于求解摆放数字x需要使用的火柴棒数量

Function hcs(ByVal x As Integer) As Integer

Dim s As Integer, k as integer

s = 0

Do While ①

k = x Mod 10

s=s+sz(k)

x = x \ 10

Loop

hcs = s + sz(x)

End Function

Private Sub Command1_Click()

Dim n As Integer

Dim a As Integer, b As Integer, c As Integer

n = Val(Text1.Text)

ans = 0

List1.Clear

For a = 0 To 999

For b = ② To 999

c = a + b

If ③ Then

List1.AddItem (Str(a) + "+" + Str(b) + "=" + Str(c))

ans = ans + 1

End If

Next b

Next a

List1.AddItem ("共有" + Str(ans) + "种等式")

End Sub

某医院挂号系统有两种挂号方式：预约挂号(预约就诊时间，需提前一天完成)和直接挂号(当天8:00后在服务台排队挂号)。医生8:00开诊；预约挂号患者在预约的就诊时间到达后，优先就诊；一位患者就诊结束后，下一位患者再开始就诊。

医院为提升服务质量，编写程序模拟就诊顺序。现获取某医生早上就诊患者的数据，分别为姓名、预约或挂号时间、就诊时长(单位：分钟)。预约挂号数据(准时到达人员数据)如图a所示，直接挂号数据如图b所示。运行程序，输出前三位就诊顺序名单，如图c所示。


图 a	图 b	图 c

相关试卷

公司介绍

服务介绍

帮助中心