下列能计算Sum =" 1+2/3" +3/5 + …… + 50/99的Visual Basic程序段是

A．Sum = 1 For i =" 1" To 49 Sum =" Sum" + i / (2 * i - 1) Next i

B．Sum = 0 For i =" 1" To 99 Sum =" i" / (2 * i - 1) Next i

C．Sum= 0 i = 1 Do While i <= 50 Sum =" Sum" + i / (2 * i - 1) i =" i" + 1 Loop

D．Sum= 0

i = 1
Do While i <= 50
Sum =" Sum" + i / (2 * i - 1)
Loop

下列关于“控件”属性的说法正确的是( )

A．控件的每一个属性都具有同样的默认值；

B．所有对象都具有同样的属性；

C．控件的属性只能在设计时设置，不能在运行时修改；

D．单击窗体中某控件，在属性窗口中的属性列表框中找到要设置的属性，即可设置其属性值；

下列选项中，适合用计算机编程来解决的是(    )

A．统计学生半期考分数

B．截取视频

C．求两个数的最大公约数

D．制作电子小报

有如下VB程序段：
Dim a(l To 5) As Integer, i As Integer, c As Integer
a(1) = 2 : a(2) = 4 : a(3) = 6 : a(4)=36 : a(5) = 72
s=0
For i = 2 To 5
If a(i - 1) ^2 = a(i) Then s = s + a(i)
Next i
Text1.Text = Str(s)
该程序段运行后，文本框Text1中显示的内容是(   )

A．4

B．6

C．8

D．40

编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如下图所示。

(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将___________属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①___________
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
②________
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
③________
Loop
Text3.Text = ④______
（3）如图所示，在文本框Text3中的ASCII码是Text2中第____个字符的ASCII码。