下列选项中，属于计算机程序设计语言的是

A．Flash

B．Visual Basic

C．Excel

D．Word

下列叙述正确的是

A．自然语言只能描述顺序结构问题的算法

B．同一个问题，算法唯一

C．用流程图可以描述循环结构算法

D．伪代码就是计算机中直接执行的程序设计语言

有一个程序段的功能是画一个圆。如果调用该程序段画50个圆，则适合采用的算法结构是

A．顺序结构

B．选择结构

C．循环结构

D．树型结构

下列选项中不属于程序设计语言的是

A．机器语言

B．汇编语言

C．高级语言

D．自然语言

下列选项中，不属于计算机程序设计语言的是

A．C++

B．VB

C．Pascal

D．Excel

在用流程图描述算法时，表示判断的图形符号是

A．

B．

C．

D．

数学老师布置了一道题目“求1*2*3*……*100”，如果让你用计算机编程的方法求解，我们应该选择的程序结构是

A．顺序结构

B．选择结构

C．循环结构

D．流程图

编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图所示）。实现上述功能的VB代码如下：

Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer,t As Integer
Randomize
num = 1
Text3.Text = " "
For i =" 1" To 26
flag(i) = False
Next i
Do While num <= 26
x =" Int(Rnd" * 26) + 97
  ①
If  flag(t) =" False" Then
m2 =" m2" + Chr(x)
num =" num" + 1
② 
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String， m As String， result As String
Dim k As String， c As Integer
s = Text1.Text
m = "abcdefghijklmnopqrstuvwxyz"
For i =" 1" To Len(s)
k =" Mid(s," i, 1)
If  k >= "A" And k <= "Z"  Then
k =" Chr(Asc(k)" + 32)
End If
c =" 1:" continue = True
Do While③  
If k =" Mid(m," c, 1) Then
continue = False
End If
c =" c" + 1
Loop
④ 
Next i
Text2.Text = result
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是
程序④处的代码是   

小王编写了一个VB程序，功能为：在文本框Text1中输入三位自然数，单击“交换”按钮Command1，在文本框Text2中输出由该三位数各位数字重组后的最小数，运行界面如图所示。

（1）若要将按钮上显示的“Command1”改为“交换”，应设置Command1的________________属性。（2）小王编写的按钮事件过程代码如下：
Dim n As Integer, max As Integer
Dim a As Integer, b As Integer, c As Integer
Dim t As Integer，m As Iinteger
x = Val(Text1.Text)
a =" x" \ 100
b = ________①_______________
c =" x" Mod 10
If a >b Then t =" a:" a =" b:" b = t
If a > c Then t =" a:" a =" c:" c = t
If b > c Then t =" c:" c =" b:" b = t
___________②________________
Text2.Text = str(m)
为了实现上述功能，在程序划线处填入合适的代码。[:Zxxk.Com]
①划线处代码：_____________________________________。
②划线处代码：_____________________________________。

字符串删除与插入:给定一个长度不超过100位的字符串S，现有以下两种操作指令：
指令1（删除）：给出一个字符串S1，在字符串S中找到最左边的一个字符串S1，将其删除，若在S中不存在字符串S1，则字符串S不变。
例如：S=“China is a big family,it is big”   S1=“big”
则执行指令1后，S=“China is a family,it is big”
若S1=“small”，则S不变。
指令2（插入）：给出一个字符串S2，和一个整数w，将S2插入到S中以w开始的位置。
例如：S=“a big family”   S2=“very ”   w=3
则执行指令2后，S=“a very big family”
注意S中“a”后有一个空格，S2中“y”后有一个空格
实现上述功能的VB程序如下。请在划线处填入合适代码。
Dim S As String
Private Sub Command1_Click()  ’单击Command1实现删除指令
Dim S1 As String
S = Text1.Text
S1 =" Text2." Text
S = del(S1)
Text5.Text = S
End Sub
Private Sub Command2_Click()  ’单击Command2实现插入指令
Dim S2 As String, W As Integer
S = Text1.Text
S2 = Text2.Text
W = Val(Text4.Text)
S =     (1) ’调用函数，实现插入指令
Text5.Text = S
End Sub
Function del(S1 As String) As String  ’在字符串S中查找并删除S1
Dim S3 As String
For i =" 1" To Len(S) - Len(S1) + 1
S3 = ""   ’S3表示从位置i开始，取出长度和S1相同的字符串
For j =" i" To i + Len(S1) - 1
S3 =" S3" + Mid(S, j, 1)
Next j
If     (2)  Then   ’如果找到S1，则将S1删除
S =" Mid(S," 1, i - 1) + Mid(S, i + Len(S1), Len(S) - Len(S1) - i+ 2)
del = S
Exit Function    ’删除左边的第一个S1后，退出函数，以保证只删除一次
End If
Next i
End Function
Function add(S2 As String, W As Integer) As String
S =  Mid(S, 1, W - 1) + S2 + (3)       ’将S2插入W开始的位置
add = S
End Function