- 二一组卷

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

浙江省杭州市第二中学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

举一反三

【加试题】小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n = 0

m = 0

For i = 1 To 100

If Rnd > 0．5 Then

n = n + 1

Else

m = m + 1

Next i

……

小金仔细分析该程序段后，发现其中缺少了( )

在Visual Basic中，表达式1234 Mod 10的值是（）

参数是字符型的函数有（）。

计算机在存储数字字符时，1个字符占1个字节（8位），现在有如下算法可以对数字字符的存储进行压缩：以每2个数字字符为一组，将其组成一个两位数当作十六进制数，再转换为对应的ASCII字符进行存储。（注意：ASCII的最大值为127D，所以2个数字字符为一组时，第1个字符必须小于8否则不合法。）例如：

414243	ABC
758927	不合法

小明编写了一个压缩的VB程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮Command1，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：

小王用VB编写了一个能自动识别浙江省固定电话号码所属地区的程序，在文本框Text1中输入固定电话全号（“0”+区号+电话号码）单击命令按钮 Command1，程序自动在标签 Label2中输出电话号码所属地区浙江省地市），程序运行界面如图所示。

浙江省电话区号和地区对应关系如下表：

地区	衢州	杭州	湖州	嘉兴	宁波	绍兴	台州	温州	丽水	金华	舟山
电话区号	570	571	572	573	574	575	576	577	578	579	580

下列Visual Basic表达式的值等于56的是（）

相关试卷

公司介绍

服务介绍

帮助中心