李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的_刷题宝

题干

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；
（2）每个字母变为数字后会加上一个“—”用来分割数字；
（3）其他空格和标点字符都按原来的表示。
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

（1）根据描述，若密文为“1905-1442-”，则表示的是：_______________
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①____________
If t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②________________
Else
yw = yw + t
End If
Next i
Text2.Text = yw
End Sub

上一题下一题 0.99难度填空题更新时间:2019-04-21 10:37:18

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

同类题1

小王编写了一个统计多选题分数的VB程序。得分规则是：多选题共有6个候选项（A、B、C、D、E、F），全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案（输入时必须按字母从小到大顺序输入）。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如题图所示：
（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是______（单选，填字母）

A．将窗体的Text属性改为“评分”

B．在Form_Load()事件中输入代码
Form1.Caption="评分"

C．在Form1_Load()事件中输入代码

Form．Name="评分"
（2）实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是________。

同类题2

在Visual Basic中，表达式1234 Mod 10的值是( )

同类题3

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（）

同类题4

产生一个在-10，10中随机整数的VB表达式是（）

A．Int(Rnd * 11) -11

B．Int(Rnd * 20)-10

C．Int(Rnd * 21) -11

D．Int(Rnd * 21)-10

同类题5

（加试题）某同学编写一个VB程序模拟音乐播放器的“随机排序”功能。单击“随机排序”按钮Command1，随机生成15个“歌曲名”（歌曲名由3-6个大写英文字母组成），在列表框list1输出原播放顺序，在列表框list2输出随机排序后的顺序。运行界面如下：

实现上述功能的VB代码如下，其中加框处代码有错，请改正。
(1)________________________;
(2)________________________;
Private Sub Command1_Click()
Dim a(1 To 15) As String, b(1 To 15) As Boolean, c(1 To 15) As String
'数组a和数组c分别代表排序前后的文件名
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 15 ‘生成各文件名，存放在数组a
k =Int(Rnd*5)+2 （1）
a(i) = ""
For j = 1 To k
a(i) = a(i) + Chr(65 + Int(Rnd() * 26))
Next j
List1.AddItem Str(i) + " " + a(i)
Next i
For i = 1 To 15
b(i) = False
Next i
For i = 1 To 15
k = Int(Rnd() * 15) + 1
Do While b(k) = True
k = Int(Rnd() * 15) + 1
Loop
b(k) = True
c(i) = a(k) + " " + "原位置" + Str(k)
Next i
For i = 1 To 15
List2.AddItem Str(i) + " " +str(a(i)) （2）
Next i
End Sub

相关知识点