- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列VB程序段功能为：根据数组a中各元素的大小关系，计算各元素升序排列的序号，并将序号保行值效组b中。如数组a各元素为20、40、10、30，b(1)～b(4)各元素的值分别为"1、2、3、4"，程序运行后b(1)～b(4)各元素的值分别为"2，4，1，3"。
上述程序段3个方框处的代码分别为
上述程序段3个方框处的代码分别为
| A．(1)b(i)=1 (2)a(j)<a(k) (3)t=a(k)：a(k)=a(i)：a(i)=t |
| B．(1)b(i)=1 (2)a(b(j))<a(b(k)) (3)t=a(k)：a(k)=a(i)：a(i)=t |
| C．(1)b(i)=i (2)a(j)<a(k) (3)t=b(k)：b(k)=b(i)：b(i)=t |
| D．(1)b(i)=i (2)a(b(j))<a(b(k)) (3)t=b(k)：b(k)=b(i)：b(i)=t |
有如下VB程序段：
For i=1 To 100
a(j)=a(j)+1
End If
Text1.Text=Str(a(50))
数组各元素初值为0，执行上述程序段后，文本框Textl中输出
For i=1 To 100
For j=i To 100
If j Mod i=0 Thena(j)=a(j)+1
End If
Next j
Next iText1.Text=Str(a(50))
数组各元素初值为0，执行上述程序段后，文本框Textl中输出
| A．5 | B．6 | C．9 | D．50 |
（加试题）数组a中存储的n个正整数满足如下条件：奇数位上的数降序有序，偶数位上的数升序有序，且所有奇数位上的数都大于偶数位上的数，如下表所示：
读取一组正整数，按照上述规则存入数组a中，代码略。
改错：（1）______________ （2）______________
| a(1) | a(2) | a(3) | a(4) | a(5) | a(6) | a(7) | a(8) | a(9) | a(10) |
| 100 | 10 | 90 | 20 | 80 | 30 | 70 | 40 | 60 | 50 |
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
读取一组正整数，按照上述规则存入数组a中，代码略。
改错：（1）______________ （2）______________
获取字符串中指定范围内的元素，可以通过字符编号来实现，字符编号有正向编号和反向编号。如字符串"ABCDEF"，字符A的正向编号为1、反向编号为-6，如下表：
(1)用户单击命令按钮Command1时调用的事件处理过程为__________。(单选，填字母：
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String， ans As String
Dim a As Integer，b As Integer， n As Integer
s=Textl.Text：n= Len(s)： ans=""
a=Val(Text2.Text)： b = Val(Text3.Text)
If Abs(a)>n Or Abs(b)>nOra *b=0 Then
ans="输入范围有误"
Ifb<OThenb= ①_______
Ifa<=b Then
ans= ②_______
ans=ans+Mid(s，i，1)
Next i
End Sub
(3)若文本框Textl中输入的内容为"123456789"，文本框Text2和Text3中输入的内容分别为-3和5，单击"获取”按钮，标签框Labell中显示的内容是____________。
"2：4"表示获取正编号"2"到"4”的字符串，即"BCD"，-5：-3、2：3、-5：4这三种编号范围也表示的是字符串"BCD"。
小王根据上述算法设计如下程序，在文本框Textl输入字符串，在文本框Text2和Text3中输入字符编号，单击"获取"按钮，在标签Labell中显示指定范围的字符串。当Text2中的编号位置在Text3中的编号位置之前，则输出正向字符串，反之输出逆向字符串。程序运行界面如图所示。
(1)用户单击命令按钮Command1时调用的事件处理过程为__________。(单选，填字母：
| A．Command1/ | ||
| B．Caption/ | C．Click/ | D．Commandl_Click)。 |
Private Sub Command1_Click()
Dim s As String， ans As String
Dim a As Integer，b As Integer， n As Integer
s=Textl.Text：n= Len(s)： ans=""
a=Val(Text2.Text)： b = Val(Text3.Text)
If Abs(a)>n Or Abs(b)>nOra *b=0 Then
ans="输入范围有误"
Else
If a<0 Thena=a+n+ =1Ifb<OThenb= ①_______
Ifa<=b Then
ans= ②_______
Else
Fori=a To b Step-1ans=ans+Mid(s，i，1)
Next i
End If
End If
Label1.Caption=ansEnd Sub
(3)若文本框Textl中输入的内容为"123456789"，文本框Text2和Text3中输入的内容分别为-3和5，单击"获取”按钮，标签框Labell中显示的内容是____________。
有如下VB程序段:
Dim a(1 To 10) As Integer
Pos= -1
i=1
Do While i<=10
If i Mod 2=0 Then a(i)=i*2 Else a(i)=i
i=i+1
Loop
i=10
Do While i>=1
If a(i)=12 Then Pos=i
i = i-1
Loop
该程序段运行后,变量Pos值是( )
Dim a(1 To 10) As Integer
Pos= -1
i=1
Do While i<=10
If i Mod 2=0 Then a(i)=i*2 Else a(i)=i
i=i+1
Loop
i=10
Do While i>=1
If a(i)=12 Then Pos=i
i = i-1
Loop
该程序段运行后,变量Pos值是( )
| A．1 | B．2 | C．6 | D．10 |
下列程序执行后变量c的值为（ ）
c=0
For i=1 to 10
If i mod 2=0 or i mod 3 =1 then
c=c+1
End If
Next i
c=0
For i=1 to 10
If i mod 2=0 or i mod 3 =1 then
c=c+1
End If
Next i
| A．4 | B．5 | C．6 | D．7 |
下列VB表达式中，值最大的是（ ）
| A．Abs(-8)+Len("Taizhou") |
| B．Val(Mid("Zhe2017Jiang", 6,2)) |
| C．Int(2*Sqr(49)+7.5)/3 |
| D．10^2 Mod 25\2^2 |
观察下图，下列说法正确的是（ ）
| A．“第一个 VB 小程序”是窗体的 Name 属性值 |
| B．“Label4”是当前选中对象的名称 |
| C．“VB01.vbp”是工程文件名 |
| D．该窗体中共有 3 个对象 |
某算法的部分流程图如图所示。以下说法正确的是（ ）
| A．该流程图属于选择结构 |
| B．执行这部分流程后，c ← c + 2执行的次数为2次 |
| C．执行这部分流程后，c的值是22 |
D．执行这部分流程后， 执行的次数为10次 |
在 VB 中，窗体加载的事件处理过程名为（ ）
| A．Form_Click | B．Form_DblClick |
| C．Form_Load | D．Form_Change |