- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省普通高校招生信息技术选考模拟卷（五）

【加试题】火柴棍可以拼成数字0~9，拼法如图1 所示。

图1

输入火柴棍的数量n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：

① 加号与等号各自需要两根火柴棍。

② A、B、C为非负的整数，且该数非零时，最高位不能是0。

③ 如果A≠B，则A+B=C 与B+A=C 视为不同的等式。

④ n 根火柴棍必须全部用上。

小明发现，数字1用的火柴棍最少，24根火柴棍全部用上的话，能拼出最大的整数A或B不超过1111，C不超过2222。他编写了一个VB 程序，在文本框Text1中输入火柴棍的数量，单击“统计”按钮Command1，在文本框Text2中输出“A+B=C”的方案数，程序界面如图2所示。

图2

实现上述功能的VB程序如下，请回答下列问题：

（1）、请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(0 To 2222) As Integer '存储每个整数需用的火柴棍数

Dim n As Integer, ans As Integer

Dim i As Integer, j As Integer

n = Val(Text1.Text)

For i = 0 To 2222

a(i) = 0

Next i

'得到0~9 中每个数字需用的火柴棍数

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

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

n = '去掉等号与加号后，剩余的火柴棍数量

For i = 10 To 2222 '计算出10~n 中每个数字需用的火柴棍数

a(i) = a() + a(i Mod 10)

Next i

ans = 0

'枚举0~n 中任意两个数,判断~否符合A+B=C 的火柴棍数量

For i = 0 To 1111

For j = 0 To 1111

If a(i) + a(j) + a() = n Then

ans = ans + 1

End If

Next j

Next i

Text2.Text = Str(ans)

End Sub

（2）、输入的火柴棍的数量为14 时，方案数为。

举一反三

下列程序的功能是在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 ①

Next i

End Function

Private Sub Command1_Click()

n = ②

For a1 = 2 To n

For a2 = a1 To n

For a3 = a2 To n

If ③ 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

其中①处填入{#blank#}1{#/blank#}；②处填入{#blank#}2{#/blank#}；③处填入{#blank#}3{#/blank#}

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：

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

k=0:j=n

For i=1 to n/2

Next i

If k=0 Then Label1.Caption="对称" Else Label1.Caption="不对称"

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

①j=j-1

②If c1 <> c2 Then k = k+1

③c1=Mid(s,i,1) : c2=Mid(s,j,1)

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

有如下VB程序段:

Dim a(1 to 5) as Integer, i as Integer, c as Integer

a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5

c = 0

For I = 3 to 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Text1.Text = Str(c)

该程序运行后，文本框text1中显示的内容是（）

现有n根棍子，第i根棍子的长度为a_i 。想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0。如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5。当n=4，a={4，5，10，20}时，无法组成三角形，输出0。加框处代码有误，请改正。

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

‘确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max(x As Integer, y As Integer) As Integer

If x > y Then

max=x

Else

max=y

End If

End Function

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim ans As Integer , c As Integer , longest As Integer , rest As Integer

ans=0

‘让 i<j<k,保证棍子不会重复选中

For i=1 To n

For j=i+1 To n

For k=j+1 To n

c=a(i)+a(j)+a(k)

longest= ‘①

rest=c-longest ‘rest 保存最短的两条边的和

If Then ‘②

ans=max(ans , c)

End If

Next k

Next j

Next i

Print ans

End Sub

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

在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

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心