注册

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

浙江省名校信息技术仿真训练卷（一）

【加试题】找出100到1 000之间满足以下条件的整数：该数和冥半万数合开后组成的数字串中不存在重复的数字。例如209，其平方数为43 681，209和43 681合并后的数字串“20943681”中无重复数字，209就是符合条件的数。运行界面加图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim x As Integer，Y As Long，st

As String

For x=100 To 1 000

y=x^2

st=x&y ‘将数字x和y合并成不含空格的数字串st

If Then ‘①

List1. AddItem Str(x)&" "& Str(y)&" "&st

EndIf

Next x

End Sub

Function judge(s As String)As Boolean

Dim a(1 To 100)As String，i As Integer，j As Integer

judge=False

For i=1 To Len(s)

a(i)=Mid(s，i，1)

Next i

For i=1 To Len(s)-1

For j=i+1 To Len(s)

If Then Exit Function ‘②

Next j

Next i

judge=True

End Function

（1）、①处应改为；

（2）、②处应改为。

举一反三

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如第16题图所示。

程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

Private Sub command1_click()

Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组

Dim i,num as integer

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim strSQL As String

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\student.accdb" '打开到数据库的链接

conn.Open

strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句

Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接

rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中

List1.Clear

num=0

Do while not rs.EOF

①

xh(num)=rs.Fields("xh")

xm(num)=rs.Fields("xm")

rs.MoveNext

loop

rs.Close

conn.close

set rs=nothing

set conn=nothing

For i=1 to num

②

Next i

if num=0 then list1.additem("该课程当前无人报名")

End Sub

编写VB程序，实现如下功能：在文本框Text1中输入某天空气质量指数值，单击“查询”按钮（Command1），在文本框Text2中显示对应的空气质量级别。界面如1图所示。

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

某游戏规则如下：将2*n位队员按2人一组分成n个队(n<10)，地面上有一排格子，共2*n个，每个格子都对应一个小于10的随机正整数。游戏开始后，所有队员都选择站到一个空的格子里，等他们站满格子后，开始为每位队员进行记分。记分规则：每组甲乙两个队员，甲队员的分数是从自己所站的格子开始，按照格子序号递减，将这些格子中的数字一直累加到第1个格子。乙队员的分数是从自己所站的格子开始，按照格子序号递增，一直将格子中的数字累加到第2*n个格子。如果同一队的两名队员得到的分数相同，则该组参赛队获胜。

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

gz(1)	gz(2)	gz(3)	gz(4)	gz(5)	gz(6)	gz(7)	gz(8)
←→
2	1	1	7	9	2	5	6
甲乙

维吉尼亚(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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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程序。请回答下列问题：

有如下程序段：

def cal(n):

if n <= 1:

return 1

if n % 2 == 0:

return 2*cal(n-1)

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

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服