- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
小明编写了一个字符串加密程序，运行界面如图所示。功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥（密钥值在1到25之间），单击“加密”按钮Command1后，在标签Label1中输出密文。加密算法如下：
（1）若是字母，则将其变为按字母顺序往后数密钥个数的字母，若字母超过“Z”或“z”，则将其顺延到“A”或“a”后，大小写保持不变；若为其他字符，则保持不变，例如：
（2）在步骤（1）的基础上，奇数位置的字符保持不变，偶数位置的字符逆序排列。
实现上述功能的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
（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
在求解“一元二次方程实数根”的算法中，如果方程不存在实数解，也要求输出结果“无实数根”。此要求主要体现了算法特征中的（ ）
| A．有穷性 | B．有输出 | C．确定性 | D．可行性 |
在 VB 中，对于按钮对象 Command1，执行语句 Command1.Caption="计算"后可能引起的变化是（）
| A．Command1 对象的名称改变 |
| B．Command1 对象的高度改变 |
| C．Command1 对象的显示文字改变 |
| D．Command1 对象的背景颜色改变 |
完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。
在 VB 中，在窗体 From1 标题中显示"云富高中"，应改变的属性是（）
| A．Font | B．Text | C．Caption | D．Backcolor |
在 VB 中，在文本框 Text6 中显示"云富高中"，应改变的属性是（）
| A．Font | B．Text | C．Width | D．Backcolor |
产生[10,37]之间的随机整数的 Visual Basic 表达式是 ( )
| A．Int(Rnd()*27)+10 | B．Int(Rnd()*28)+10 |
| C．Int(Rnd()*27)+11 | D．Int(Rnd()*28)+11 |
在 VB 中，若使用变量 t 存储表达式 3*A> 5 Or B + 8<0 的值，则变量 t 的数据类型应定义为（ ）
| A．String | B．Integer | C．Single | D．Boolean |