- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省温州市新力量联盟2018-2019学年高二下学期信息技术期末联考试卷

编写一个统计数组元素a(1)到a(n)中的“升序段”个数s(如图所示的数据序列，其升序段个数为3)的VB程序，部分程序如下:

k=0:s=0

for i=2 to n

If a(i)>a(i-1) then

_______①_________

Else

k=0

End If

if _____②______ then s=s+1

next i

text1.text=str(s)

划线处的正确语句是（）

A、① k=k+1 ② k=1 B、① k=1 ② k>0 C、① k=k+1 ② k>0 D、① k=1 ② k<>0

举一反三

下列程序运行后，变量s的值{#blank#}1{#/blank#} 。

Dim a,b,c As Integer

Dim s AS string

a=9

b=41

c=2*(a+b)

s=str(b+c)

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

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

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

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

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

Private Sub Command1_Click()

Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

Dim jy As Integer

s＝Text1.Text

t＝0：sum＝0

For i＝1 To Len(s)

s1＝Mid(s，i，1)

If s1>＝“0” And s1<＝“9” Then

′①

If t<10 Then

sum＝sum＋Val(s1)*(11－t)

ElseIf t＝10 Then

′②

End If

Next i

sum＝11－sum Mod 11

If Then′③

Text2.Text＝“该校验码中数字不是10位数！”

Else

If jy＝“X” and sum＝10 Then

Text2.Text＝“校验通过”

ElseIf val(jy)＝sum then

Text2.Text＝“校验通过”

Else

Text2.Text＝“校验不通过”

End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

编写VB程序，实现如下功能：单击“生成密文”按钮Command1，在文本框Text2中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text3中输入单词字符串，单击“加密”按钮Command2后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text4中显示对应密文（运行效果如图所示）。

小蓝设计了一个数字字符串的简单加密解密小程序，该程序的加密规则是计算连续升序子串的长度，将该长度字符插入到相应子串后面。例如：

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

原字符串	235		012345678	3
连续升序字符数	3		9	1
密文	235	3	012345678	9	3	1

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。

在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

If a(j) >a(j+1) Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

相关试卷

公司介绍

服务介绍

帮助中心