题库 高中信息

题干

小明用VB程序编写了一个密码生成器,单击“生成密码”按钮生成一个8位数的密码,该密码必须同时包含数字、大写字母和小写字母,并在文本框Text1中显示。程序界面如下图所示。

(1)在设计程序界面时,要将文本框Text1中的内容清空,应修改该文本框的   属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Const n = 8
Dim s As String
Dim a As Integer, i As Integer
Dim x As Boolean, y As Boolean, z As Boolean
x = False
y = False
z = False
Randomize
Do While ①  
s = ""
For i = 1 To n
a = Int(Rnd() * 62) + 1
If a <= 10 Then
x = True
s = s + Chr(a + Asc("0") - 1)
ElseIf a <= 36 Then
y = True
s = s + Chr(a + Asc("A") - 11)
Else
z = True

End If
Next i
Loop
Text1.Text = ③   
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-04-16 09:09:35

答案(点此获取答案解析)

同类题3

计算机在存储数字字符时,1个字符占1个字节(8位),现在有如下算法可以对数字字符的存储进行压缩:以每2个数字字符为一组,将其组成一个两位的十六进制数(如输入的“41”组成十六进制数41H),再转换为对应的ASCII字符进行存储。(注意:ASCII的最大值为127D,所以2个数字字符为一组时,第1个字符必须小于8,否则不合法)
例如:
输入
输出
414243
ABC
758927
不合法
 
小波用Visual Basic 6. 0软件编写了一个压缩程序,功能如下:在文本框Text1中输入需压缩数据(偶数个字符),单击“压缩”按钮,程序对压缩数据依次进行压缩处理,压缩数据显示在文本框Text2中。程序运行界面如图所示:

(1)结合程序代码,命令按钮“压缩”的对象名是_________________
(2)为实现上述功能,请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String,s2 As String,c1 As String,c2 As String
Dim i As Integer,k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2

c1 = Mid(s1,i,1)

______________

If c1 >= “8” Then

s2 = “不合法”
Exit For  ‘跳出For循环

Else

k = _____________
s2 = s2 + Chr(k) ‘ Chr函数的作用,将ASCII码转换为字符,例Chr(65) = “A”

End If

Next i
Text2. Text = s2
End Sub
(3)若在文本框Text1中输入“61A2”,单击“压缩”按钮后,变量i的值为_________(单选,填字母:
A.3 /B.4 /C.5 /D.程序错误)。