- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省杭州市第二中学2020届高三上学期信息技术第一次月考试卷

编写VB程序，在文本框Text1中输入需要产生的密码个数n，单击“确定”按钮confirm，生成n个长度为6的由大小写字母和数字0~9组成的密码，并在列表框中显示。程序运行时界面如下图所示。

为实现上述功能请在划线处填上合适代码

Private Sub confirm_Click()

Dim i As Integer, j As Integer

Dim n As Integer, m As Integer Dim k As Integer, s As String Const length=6

n=Val(Text1.Text)i=1

List1.Clear

s=""

For j=1Tolength

k=Int(Rnd()*3)+1

If k=1Then

m=Int(Rnd()*26)+1

s=s+Chr(Asc("a")+m-1)

ElseIf k=2Then

m=Int(Rnd()*26)+1

s=s+Chr(Asc("A")+m-1)

Else

m=⑴

s=s+Chr(Asc("0")+m-1)

EndIf

Next j

List1.AddItemStr(i)+""+s

⑵

Loop

End Sub

举一反三

如图是一个加密小程序，在①处输入一个3位数的密钥，在②处输出加密后结果。加密原理是密钥数字反向排列得到加密结果，如327加密后为723，下列程序段正确的是（）

下列运算结果中，值最大的是（）

有如下VB程序段：

a＝2

b＝1

Do While b<＝4

a＝a＋b

b＝a＋b

Loop

Text1.Text＝Str(a＋b)

则运行该程序段后，文本框Text1上显示（）

写一个字符串压缩程序：对于2～9个相同字符组成的字符串，用两个字符来编码：第一个字符表示这个字符串的长度值（即2-9）；第二个字符表示相同字符的值。如字符串“AAAAA”可以压缩为“5A”，“AA”可以压缩为“2A”。如果存在某个字符串，其中没有一个字符连续重复出现，就表示成：以数字1开始，后面跟着这一字符串，再以数字1结尾。如字符串“BCE”可以表示成“1BCE1”，“A”可以表示成“1A1”。又如“XXXXXXXXABCYYYZ”的压缩结果是“8X1ABC13Y1Z1”。假设被压缩字符串中只会出现字母，连续相同字母不会超过9个。程序在Text1中输入被压缩的字符串，Text2中输出了压缩的结果，请在划线处填入合适的代码。

数组元素值a(1)=2 : a(2)=8 : a(3)=3 : a(4)=4 : a(5)=5 :a(6)=6 : a(7)=1 : a(8)=7 : a(9)=9。

m =1: k = 1

For i = 2 To 9

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

k = k + 1

If k > m Then m = k

Else

k = 1

End If

Next i

Text1.Text = Str(m)

该程序段运行后，文本框Text1中显示的内容是（）

有如下程序段

Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer

Dim a(1 To 10) As String, t As String, key As String n = 6

a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

key = Text1.Text

left = 1: right = n

Do While left <= right

m = (left + right) \ 2

If a(m) = key Then Exit Do

If a(m) < key Then right = m - 1 Else left = m + 1

Loop

若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（）

相关试卷

公司介绍

服务介绍

帮助中心