- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- + 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
（加试题）有如下VB程序段：
i = 1
Do While i<= 3
数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2，则该程序段运行后，数组元素a(1)到 a(6)的值依次是
i = 1
Do While i<= 3
min = i
j = i + 1
Do While j <= 6
If a(j) < a(min) Then min = j
j = j + 1
Loop
If i<>min Then tmp = a(i): a(i) = a(min): a(min) = tmp
i = i + 1
Loop数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2，则该程序段运行后，数组元素a(1)到 a(6)的值依次是
| A．9,8,7,3,6,2 |
| B．2,3,6,7,8,9 |
| C．2,3,6,9,8,7 |
| D．9,8,7,6,3,2 |
（加试题）有如下VB程序段：
i = 1: j = 10：x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then Exit Do
If x <f(m) Then j = m - 1 Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为： 2,7,8,10,12,13,16,18,19,20，该程序段运行后，下列表达式值为True的是
i = 1: j = 10：x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then Exit Do
If x <f(m) Then j = m - 1 Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为： 2,7,8,10,12,13,16,18,19,20，该程序段运行后，下列表达式值为True的是
| A．i=m+1 |
| B．j=m-1 |
| C．j>m+1 |
| D．i>m-1 |
下图为登入某平台的部分算法流程，若密码连续输错3次，则账号将被冻结2小时后方可操作，若密码输入正确则进入平台。要实现此功能，空白处应填入________。
机器人灭火：下图为着火点搜索范围和机器人的智能程序。黑色区域表示障碍区，不能通行；红色星状图为着火点。机器人用箭头表示，箭头方向为机器人的前进方向，机器人会按智能程序要求进行搜索，直至完成灭火任务。完成灭火任务后，输出的i值为_______________ 。
程序改错
现有VB程序，可以看到一个加密的文件内容显示在窗体上的第一个文本框内。程序要求按指定的规则取出其中的有效内容写到第二个文本框内。
解码的规则是：
第①步 从字符串末端向始端反向读取
第②步 先取2个有效字，然后跳过21个干扰字符取4个有效字符，
再跳过21个干扰字符取6个有效字符，
再跳过21个干扰字符取8个有效字符……以此类推，直至读完加密文本。
现有代码如下：
程序执行结果如下图：
请修改提供程序中仅存在的一个错误（错误仅存在于代码框中(1)~(6)语句中）。
问：错误的语句编号是________，应改为________
现有VB程序，可以看到一个加密的文件内容显示在窗体上的第一个文本框内。程序要求按指定的规则取出其中的有效内容写到第二个文本框内。
解码的规则是：
第①步 从字符串末端向始端反向读取
第②步 先取2个有效字，然后跳过21个干扰字符取4个有效字符，
再跳过21个干扰字符取6个有效字符，
再跳过21个干扰字符取8个有效字符……以此类推，直至读完加密文本。
现有代码如下：
程序执行结果如下图：
请修改提供程序中仅存在的一个错误（错误仅存在于代码框中(1)~(6)语句中）。
问：错误的语句编号是________，应改为________
用VB编写“拆红包”程序，界面如图所示。在Text1中输入红包金额（元），在Text2中输入人数，点击“Command1”命令按钮，在列表框List1中显示分到的红包情况。
（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
k = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。
（1）把命令按钮Command1上显示的文字改成“拆红包”，应修改Command1按钮的__________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer '存储红包的个数
Dim money As Single '存储红包的剩余金额
Dim k As Single '存储每次分到的红包金额
money = Val(Text1.Text)
num = Val(Text2.Text)
For i = ①________ To 1 Step -1
If i = 1 Thenk = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)
Next i
End Sub
（3）执行该程序，（选填：有 / 没有）________可能产生金额为0元的红包。
某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足: ai = ai-3 + ai-1 （i>3，i,i-3,i-1为a的小标）。如果用数组a存储该数列的前20项，下面程序段划线处应填入
a(1)=2 : a(2)=3 : a(3)=4
For i=______ To 20
a(i) = a(i - 3) + a(i - 1)
Next i
a(1)=2 : a(2)=3 : a(3)=4
For i=______ To 20
a(i) = a(i - 3) + a(i - 1)
Next i
| A．6 |
| B．9 |
| C．13 |
| D．4 |
以下算法的功能是：键盘输入6个数，输出其中负数的和。请使用给出的框图填入左边的算法流程图中，使之能实现上述功能。以下选项正确的是
| A．⑷ ⑿ ⑹ ⑴ ⑺ ⑼ |
| B．⑶ ⑿ ⑹ ⑴ ⑻ ⑼ |
| C．⑶ ⑾ ⑸ ⑴ ⑻ ⑼ |
| D．⑷ ⑿ ⑸ ⑴ ⑻ ⑼ |