小明编写了一个字符串加密程序，运行界面如图所示。功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥（密钥值在1到25之间），单击“加密”按钮C_刷题宝

题干

小明编写了一个字符串加密程序，运行界面如图所示。功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥（密钥值在1到25之间），单击“加密”按钮Command1后，在标签Label1中输出密文。加密算法如下：

（1）若是字母，则将其变为按字母顺序往后数密钥个数的字母，若字母超过“Z”或“z”，则将其顺延到“A”或“a”后，大小写保持不变；若为其他字符，则保持不变，例如：

明文	Z	h	e	n	_	H	a	i
密钥	3
密文	C	k	h	q	_	K	d	l

（2）在步骤（1）的基础上，奇数位置的字符保持不变，偶数位置的字符逆序排列。

密文

C

l

h

K

_

q

d

k

实现上述功能的VB程序如下，加框处有错误，请改正。
Private Sub Command1_Click()
Dim a(1 To 100) As String
Dim s As String, i As Integer
Dim j As Integer, n As Integer
Label4.Caption = ""
s = Text1.Text
n = Val(Text2.Text)
i = 1
Do While i <= Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
a(i) = Chr((Asc(c) - Asc("A") + n) Mod 26 + Asc("A"))
ElseIf c >= "a" And c <= "z" Then
a(i) = Chr((Asc(c) - Asc("a") + n) Mod 26 + Asc("a"))
Else
a(i) = c
End If
i = i + 1
Loop
j = Len

(s) ‘①
For i = 2 To Len(s) \ 2 Step 2
t = a(i): a(i) = a(j): a(j) = t
j = j – 1 ‘②
Next i
For i = 1 To Len(s)
Label4.Caption = Label4.Caption + a(i)
Next i
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-15 10:47:04

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

同类题1

过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了使所有人在最短时间内过桥，设计算法如下：
（Ⅰ）如果只有1人过桥，时间为个人过桥时间。
（Ⅱ）如果有2人一起过桥，时间以慢的人为准。
（Ⅲ）如果有3个人a、b、c，时T_a<T_b<T_c，过桥方案为让a和b起过桥，a拿手电筒回来，然后与c一起过桥。
（Ⅳ）如果存在多于3个人过桥，如a、b、…y、z需要过桥，耗时T_a<T_b<…<T_y<T_x，这时有两种可选方案，选择其中用时少的，直至剩余人数少于4人。
①最快的1个将最慢的2个分别送过桥。
a拿手电筒与z过桥，然后a拿手电筒回来与y一起过桥，a再拿手电筒回来与b一起过桥。
②最快的2个先将最慢的2个送过桥。
让a、b拿手电筒先过桥，a拿手电筒回来，让y、z拿手电筒过桥，然后b拿手电筒回来与a一起过桥。
为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮 Command1，在文本框Text1中输入最短耗时，界面如下图所示。

（1）VB程序代码如下,请在划线处填入合适的代码。
Dim n As Integer ‘存放过河人数
Dim t (1 To 100) As Integer ‘存放每个人单独过桥时间
Private Sub Form _ load()

‘从数据库中读取每个人的过桥时间,显示在列表框List1中,并统计总人数n,代码略

End Sub
Private Sub Command1_Click()

Dim i As Integer, k As Integer, j As Integer, temp As Integer

Dim sum1 As Integer, sum2 As Integer, tsum As Integer

sum1 = 0:sum2 = 0:tsum=0

For i = 1 To n – 1 ‘对每个人的过桥耗时进行升序排序

k = i

For j = i + 1 To n

If ______ Then k = j

Next j

If k <> i Then
temp t(i):t(i) = t(k):t(k) = temp
End if
Next i
i=n
do while i>3
sum1=2*t(1)+t(i-1)+t(i) ‘方案①
sum2=t(1)+2*t(2)+t(i) ‘方案②
if sum1<sum2 then
tsum=tsum+sum2
end if
i=_____
Loop
If n = 1 Then ‘剩下1个人
tsum = tsum + t(1)
ElseIf n = 2 Then ‘剩下2个人
tsum = tsum + t(2)
Else ‘剩下3个人
tsum = _____
End If
Text1. Text = Srt(tsum)
End Sub
（2）如有5个人，他们单独过桥耗时（单位：s）如下图所示，则程序运行后文本框Text2中显示的最短耗时：_________(s)。

同类题2

（加试题）有如下VB程序段：
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
EIse
a(i)=a(i)/2
End If
Next i
执行程序后，a数组各元素可能是

A．1 3 4 6 7 9

B．1 2 0 3 5 6

C．1 2 3 4 5 4

D．1 3 4 5 1 1

同类题3

有如下的程序段：
x=5:y=9
If Not(x>y) then
x= x+y
else
x=x-y
End if
执行结束后，变量x的值为（）

同类题4

一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了分别是( )

A．对象，属性，事件，方法

B．对象，属性，方法，事件

C．属性，对象，方法，事件

D．属性，对象，事件，方法

同类题5

用Visual Basic随机函数产生10~99的幸运号码，下列符合要求的表达式是（）

A．Int(Rnd() * 9) + 90	B．Int(Rnd() * 90) + 10
C．Int(Rnd() * 89) + 10	D．Int(Rnd() * 99) + 1

相关知识点