- 二一组卷

只能被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

【加试题】小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断输入不同的加数，待所有需要相加的数输入完毕后，单击“求和”按钮Command1后，在标签label1中显示加数的个数以及总和。(数字0和空格的ASCII码分别为48、32)

实现上述功能的VB程序如下，但横线处代码有错，请改正。

Private Sub Command1_Click()

Dim a As String

Dim x As Integer, s As Integer, k As Integer

a = Text1.Text

x = 1: s = 0: k = 0

For i = 1 To Len(a)

'如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57) or(Asc(Mid(a,i,1))= 32) then’{#blank#}1{#/blank#}Label1.Caption = "只能输入数字或空格"

Exit Sub

End If

If Mid(a, i, 1) = " " Then

s = s + Mid(a,x,i)’{#blank#}2{#/blank#}

x = i + 1

k = k + 1

End If

Next i

Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub

【加试题】小方同学使用VB编程研究素数问题，程序运行界面如图所示。他发现1～100之内的素数一共有25个，并且将这些素数全部保存到数组a中，在列表框List1中显示所有素数（按大小从低到高排列）。在文本框Text1中输入需要查找的数据，单击“查找”按钮Command2，在标签框Label3中显示查找结果。

编写VB程序，实现如下功能：在文本框Text1中输入二进制数，单击“转换”命令按钮Command1，在文本框Text2中输出对应的十六进制数。程序运行界面如图所示，请回答下列问题：

维吉尼亚(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程序。请回答下列问题：

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

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


图 a	图 b	图 c

相关试卷

公司介绍

服务介绍

帮助中心