- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省嘉兴市第一中学2017-2018学年高二下学期信息技术期中考试试卷

【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

Do While i <= 9 And p p= False

For j = 10 To i + 1 Step -1

If Then '①

k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

End If

Next j

i = i + 1

Loop

For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize '初始化随机函数 Rnd

For i = 1 To 10

a(i) = '②

List1.AddItem

Str(a(i))

Next i

End Sub

① ②

举一反三

下列Visual Basic程序用于计算10¹⁰的值：

Private Sub Command1_Click()

Dim n As Integer, s As Integer

n = 10

s = 10 ︿ n

Text1.Text = Str(s)

End Sub

运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（）

关系式X<= - 5或X>= 5所对应的布尔表达式是：{#blank#}1{#/blank#}

有10个数据：88，36，44，66，15，16，46，80，12，21 依次存放在数组a(1)到a(10)中，部分VB程序段如下：

n = Val(Text1.Text)

k = a(1)

For i = 2 To n

If a(i) < k Then k = a(i)

Next i

Text2.Text = Str(k)

假设在文本框Text1中输入“8”，则文本框Text2中输出的值是（）

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

例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

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

在Visual Basic中，能表示整数x是完全平方数(如9=3*3，9是完全平方数)的表达式是（）

某日期加密授权码生成方法描述如下：

⑴授权码由10位字符组成，前8位为日期的密文，后2位为验证码；

⑵取日期的第1位字符，若该字符第一次出现，则直接取其对应加密字符，否则取下一个不重复的加密字符。按此操作，依次取出该日期余下各位对应的加密字符；

⑶求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为“X”。取出验证码重复时，处理规则与(2)相同。加密(验证码)字符对应表如下:

值

(十进制)

加密

(验证码)

字符

小明设计了一个生成8位日期(YYYYMMDD格式)授权码的VB程序。程序功能如下:在文本框Text1中输入一个8位有效日期，单击“生成授权码”按钮Command1，在标签Label2中显示出该日期的授权码。运行效果如图所示。实现上述功能的VB程序段如下：

相关试卷

公司介绍

服务介绍

帮助中心