计算三角形面积的算法如下：
①输入三角形三边长a，b，c
②计算半周长p＝(a＋b＋c)/2
③计算三角形面积s＝Sqr(p*(p－a)*(p－b)*(p－c))
④输出面积s
上述算法属于(  )

A．排序算法	B．解析算法
C．枚举算法	D．查找算法

编“数字按序组合输出十进制数”程序，实现如下功能：在文本框 Text1 中输入包含数字的字符串，单击“生成”按钮 Command1,程序将输入的字符串中所有数字按序组合成一个十进制数，最后将该十进制数在文本框 Text2 中显示。程序运行界面如下图所示。
(1) 要使程序运行时，窗体 Form1 标题显示“数字按序组合输出十进制数”，可在 Form_Load 事件过程屮添加语句_________(单选，填字母:

A．Form1 = "数字按序组合输出十进制数" /

B．Forml.Text="数字按序组合输出十进制数"/

C．Form1.Caption= "数字按序组合输出十进制数"）。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click() Dim s As String , ch As String Dim x As Integer , i As Integer s = Text1.Text
x = 0 i = 1
For i = 1 To Len(s)
①_____________
If ch >= "0" And ch <= "9" Then
②_________
End If
Next i
Text2.Text = Str(x)
End Sub
（3）若文本框 Text1 中输人的内容为“My3day65New”，单击“生成”按钮后，则文本框 Text2 中显示的内容是_____。

对称字符串的特征是从左到右读和从右往左读是完全一样的。如“abba”是对称的，”abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n = Len(s)  's是判断的字符串

  k = 0: j = n

  For i = 1 To n \ 2

  Next i

  If k = 0 Then Label1.Caption = "对称" Else Label1.Caption = "不对称"

方框中的代码由以下三部分组成：
①j = j - 1
②If c1< >c2 Then k = k + 1
③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)
代码顺序正确的是（    ）

A．①③②	B．②③①
C．②①③	D．③②①

   （加试题）计算整数t的近似算数平方根算法如下：

先取,然后根据公式计算,再由计算，……直到,则为解。

小李编写了一个VB程序实现上述功能：运行程序时，在text1中输入一个正整数，单击命令按钮command1，文本框text2显示该数的算数平方根。

程序代码如下，请阅读完成以下两小题。
Function fun(x As Integer, x0 As Double) As Double
Dim x1 As Double
x1 = (x0 + x / x0) / 2
If Abs(x1 - x0) < 0.00001 Then
fun = x1
Else
fun = （1）    
End If
End Function
Private Sub Command1_Click()
Dim t As Integer
Dim k As Double
t = Val(Text1.Text)
k = fun(t, 1)
k = （2）        '保留两位小数的四舍五入
Text2.Text = Str(k)
End Sub
(1)题中函数fun主要采用的算法思想是___________
(2)程序中（1）划线处应填写的代码是_____________
程序中（2）划线处应填写的代码是___________

   小李编写了一个程序，用以实现下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制（小于等于16），点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示：

    

（1）根据题目意思，应该在编辑界面将对象“command2”的______________属性改为“退出”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do  while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub