趣味数学题。小明使用VB编写程序解一道有趣的数学题:将1到9这九个数字分成三个三位数，不能有重复，三个数字之间比例满足1∶2∶3，求所有三位数组合。程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。程序代码如下，请在划线处填上合适的代码。 Dim a(0 To 9) As Integer Private Sub Command1_Click() Dim i, n, m As Integer For i = 123 To 333 For n = 1 To 9 a(n) = 0 Next n s = 0 call fenjie (i) ‘使用call调用自定义过程,下同 call fenjie (2 *i) call fenjie (3 *i) For m = 1 To 9 s = Next m If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i Next i End Sub Sub fenjie(x As Integer) ‘自定义过程,将3位数分解并修改对应下标元素的值 a(x Mod 10) = 1 a(x \ 100) = 1 End Sub

1. 在过程调用中，参数的传递可分为传递和传递两种方式。

填空题容易

2. VB中的变量如果没有显示声明其数据类型，则默认为。

填空题容易

1. 有如下VB程序段：

Private Sub Command1_Click（）

Dim x As Integer，y As Integer，t As Integer

x=2：y=3

t=x

x=y

y=t

t=x^y

Text1.Text=Str（t）

End Sub

该程序段运行后，标签Text1上显示的内容是。

填空题普通

2. 表达式10+16/4*7 Mod 9的值为

填空题普通

3. 表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。

填空题普通

1. 有如下程序段：

def cal(n):

if n <= 1:

return 1

if n % 2 == 0:

return 2*cal(n-1)

return 1+cal(n-1)

执行语句k=cal(5)，则k的值为（）

A. 6 B. 7 C. 10 D. 11

单选题普通

2. 某VB应用程序的代码如下：

Function res（x As Integer，y As Integer，z As Integer）As Integer

Dim temp As Integer

If x>y Then temp=y Else temp=x

If temp>z Then temp=z

res=temp

End Function

Private Sub Command1_Click（）

Dim a As Integer，b As Integer，c As Integer

a=5：b=3：c=7

Text1.Text=Str（res（a，b，c））

End Sub

程序运行时，单击命令按钮Command1后，在文本框Text1中显示的内容是（）

A. 0 B. 3 C. 5 D. 7

单选题普通

3. 下列属于Visual Basic逻辑常量的是（）

A. "BASIC" B. 2012 C. False D. 3.1415926

单选题容易

1. （贪心算法）最大整数问题：设有n个随机生成的正整数，将它们连接成一排，组成一个最大的多位整数。其求解思想是：先把整数转换成字符串，然后再比较ab和ba，如果ab≥ba，就把a排在b的前面，反之则把a排在b的后面。例如：n=3时，3个整数13，312，343，连成的最大整数为34331213。

小王同学编写了一个VB程序，功能如下：在列表框List1中随机生成n个1~1000之间的整数，单击“运行”按钮Command1后进行处理，最大整数结果输出在文本框Text1中。当n=5时，程序运行界面如图所示。

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

(1) 要将按钮Command1的高度修改为800，以下赋值语句正确的是（单选，填字母：A .Command1_Height=800/B .Command1.Height=800/C .Height=800）。

(2) 当n=3时，生成3个数：618，681，68，由这三个数组成的最大整数为。

(3) 请在画线处填入合适的代码。

Const n=5

Dim a（1 To 10）As Integer

Private Sub Command1_Click( )

Dim i, j, t As Integer

For i=1 Ton-1

For j=n To i+1 Step-1

If ① Then

t=a（j-1）：a（j-1）=a（j）：a（j）=t

End If

Next j

Next i

For i=1 To n

Text2. Text=Text2. Text+Str（a（i））

Next i

End Sub

Private Sub Form_Load( )

Randomize

For i=1 To n

a（i）= ②

Text1. Text=Text1. Text +Str（a（i））

Next i

End Sub

Function cmp（a As Integer,b As Integer） As Boolean

If Str（a）+Str（b）<Str（b）+Str（a） Then

cmp=True

Else

cmp=False

End If

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。

综合题困难

2. 给定一字符串(全部由小写字母组成)，有n个字符(1≤n≤100)，将每个字符存入到数组a中，有以下两种操作：

操作1：在文本框中分别输入L，R，T(1≤L≤R≤n)，对数组下标为L到R之内(包含L和R)的字符做相应的字符加密操作(1≤T≤100)。

操作2：在文本框中输入M(1≤M≤n)，在标签中输出a(M)的值。

为了提高算法的效率，小明设计了如下算法，以n=10为例，将n个元素依次分成 $\text{[math]}$ 段( $\text{[math]}$ 表示对 $\text{[math]}$ 向下取整)，每段的元素个数为 $\text{[math]}$ ，若最后有不足 $\text{[math]}$ 个元素，则自成一段。给每段设置一个标记，如下表所示。

①对于操作1，若输入的L，R属于同一段，则直接对a(L to R)的每个元素的ASCII码进行后移T位的操作。如输入4，6，3，则第2段中的每个字符变为k，r，q，操作后如下表所示。

②对于操作1，若输入的L，R不属于同一段，则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个字符的ASCII码做后移T位的操作，并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个字符的ASCII码做后移T位的操作，对a(L)元素所在段的下一段开始到a(R)元素所在段的上一段为止的每个段标记值增加T，这些段中的元素值保持不变。如在上表的基础_上再输入1，8，2，则第1段的3个字符和第3段中的前2个数都做相应的字符后移2位的操作，第2段的段标记值增加2，如下表所示。

③对于操作2，若输入M的值为4，则输出a(4)的值，若a(M)所在的段标记为奇数，a(M)的值为该数组元素的值，否则输出a(M)对应的大写字母的值，如a(4)=H。程序运行如下。请回答下列问题：

(1) 若数组元素为“p，y，t，h，o，n，j，a，v，a”，依次进行以下3次操作后a(6)的值为。

操作1：在文本框Text1，Text2，Text3中依次输入1，8，3后，点击按钮Command1

操作1：在文本框Text1，Text2，Text3中依次输入7，9，2后，点击按钮Command1

操作2：在文本框Text4中输入6后，点击按钮Command2

(2) 请在划线处填入合适的代码。

Const n=10

Dim a(1 To n)As String

Dim dbj(1 To n)As Integer ‘依次表示每段的标记值

Dim bk As Integer ‘表示每段的元素个数.

Private Sub Form_Lond()

bk = Int(Sqr(n))

‘读取数据，并存储到数组a中，代码略

‘读取数据，并存储到数组dbj中，代码略

End Sub

Function bl(x As Integer)As Integer ‘bl函数返回数组元素a(x)的段编号

bl=

End Function

Private Sub Command1_Click()

Dim L Ax Integer, R As Integer, t As Integer

L= Val(Text1.Text)

R= Val(Text2.Text)

t= Val(Text3.Texr)

If bl(L)= bl(R) Then

For i =L To R

a(i)= Chr((Ase(a(i))- Ase("a")+t) Mod 26+97)

Next i

Else

For i=L To bl(L)*bk

a(i) = Chr((Ase(a(i))- Ase("a")+1) Mod 26+97)

Next i

For i= bl(L)+ 1 To bl(R)-1

dbj(i) = dbj(i) + t

Next i

For i =

a(i) = Chr((Ase(a(i))-Ase("a") + 1) Mod 26 + 97)

Next i

End If

List1. AddItem Str(L) +"," + Str(R) + "," + Str(t) +“加密完成!”

End Sub

Private Sub Command2_Click( )

Dim M As Integer

Dim jg As Suring

M= Val(Text4. Tex1)

If dbj(bl(M)) Mod2 = 0 Then

Jg=

Else

jg= a(M)

End If

Labell. Caption =“经过一系列操作后. a(” + Str(M) +“)的值为:“+ ig

End Sub

综合题困难

3. 维吉尼亚(Vigenere)密码。如下图所示，分别用行和列表示待加密的字符(明文)和当前字符的密钥，行和列的交叉点的字符即为加密后的结果(密文)。在加密时，密文与明文的字母大小写形式保持一致，如，明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

O

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

P

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

Q

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

R

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

S

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

T

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

U

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

V

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

W

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

X

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

Y

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Z

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

依据上述算法描述设计了如下VB程序。请回答下列问题：

(1) 若明文是Jia，密钥是Pass，则输出的密文是：。

(2) 请在横线处填上合适的代码。

Const MIN_ASC = 65 ′字母“A”的ASCII值

Function X2D(x As String) As String ′字符串小写转成大写

Dim s As String, zf As String, i As Integer

s = “”

For i = 1 To Len(x)

zf = Mid(x, i, 1)

If zf >= “a” And zf <= “z” Then

s = s +

Else

      s = s + zf
          End If
    Next i
    X2D = s

End Function

Private Sub Command1_Click()

Dim M As String, K As String, C As String, flag As Boolean

Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer

M = Text1.Text ′明文

K = Text2.Text ′密钥

t = Len(K)

K = X2D(K) ′将密钥全部转成大写

C = “ ” ′加密后的结果

For i = 1 To Len(M)

ch = Asc(Mid(M, i, 1))

flag = False

If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True

pos = ′密钥的字符位置值

If pos = 0 Then pos = t

j = Asc(Mid(K, pos, 1)) ′密钥字符的ASCII值

ch = ch - MIN_ASC

j = j - MIN_ASC

ch =

ch = ch + MIN_ASC

If flag Then ch = ch + 32 ′设置字母的大小写形式

C = C & Chr(ch)

Next i

Text3.Text = C

End Sub

综合题困难