某Visual Basic工程的相关视图如下图所示：

从图中信息可知，下列说法不正确的是(  )

A．窗体中有一个按钮对象，名称为Command1

B．该程序中用到了Timer控件

C．当前代码窗口中显示的事件处理过程名为“Command1_Click”

D．该工程的窗体文件名“snow.vbp”

有如下Visual Basic程序段：
a = 9
b = "Command Button"
c = Len(b)
If a > 0 And a < c Then
Label1.Caption =Mid(b,a,6)
Else
Label1.Caption = "error"
End If
该程序段运行后，在标签Label1上显示的是____________

A．error

B．6

C．Button

D．Command

运行如下所示的JavaScript代码，结果是<script language='"JavaScript“>m="10;" n=4;  i= (m-n)/n;  alert (i);</script>

A．在弹出的提示框中显录消息 “1”

B．在弹出的提示框中显录消息“1．5”

C．在弹出的提示框中显示消息“6/4”

D．在弹出的提示框中显示消息“i”

两个富翁试图做一笔换钱生意，换钱规则为：富翁A每天给富翁B 10万元，直到满30天；富翁B第一天给富翁A  1分钱，第二天给2分，第三天给4分……富翁B每天给富翁A的钱是前一天的两倍，直到滿30天。要求设计一个程序，在文本框Text1和Text2中分别输入富翁A和富翁B给予对方的钱的数额（万元）。
小青用VB设计了如下图所示的程序界面：

（1）如上图所示，该窗体内有 个对象，这些对象分为 __________类。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim ma as single
Dim mb as single
Dim s as single
Ma =10*30
Mb = 0.000001
For I =  1  to _______①_____
Mb = ____②______
S=" s" + mb
Next I
Text1.text = str(ma)
Text2.text = str(s)
End sub
① 应填的内容是__________ ，②中应填的内容是__________ 。

数学帝忘记了自己的E-Mail邮箱密码，但她需要接收一封很重要的来信，于是她求助科技达人帮她尽可能找出密码。她零星记得自己密码的相关信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。
科技达人轻松地用VB写了个小程序，帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。

科技达人的程序段如下：
Private Sub Command1_Click()
Dim a As Integer, s As  long, b As Integer, i As Integer
For i =" 0" To 9999    ④
s =" 310000" + i
If s Mod 46 =" 0" Then
⑤
b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务，完成下列题目。
（1）在程序运行界面中出现了三种控件，它们分别属于列表框、命令按钮、标签，请你在序号后写出其对应的控件类型：
① ② ③
（2）在程序运行界面中控件 ①上显示了“帮助找回密码”字样，这是通过改变    属性的值实现的。
（3）解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等，那么从上述程序段看，解决此问题的算法是  。
（4）程序段中出现了“Command1_Click”字样，表示这是一个面向对象的事件，这里的对象是___________________，事件是_______________。
（5）从程序段看，这段程序结构属于三种基本程序结构中的 。
（6）在程序段的变量定义语句中，先后出现了integer和long两种数据类型，他们分别是 型和     型。
（7）请在程序段中④和⑤处填充合适的内容，使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
（8）程序段中的语句 b =" (s" Mod 100) \ 10，目的在于计算s的十位数字，这里“\”实现了____________计算。

已知方程“x^2+sin(x)-1=0”在区间[0,1]之间单调上升且有唯一解，可用对分思想不断缩小正解所在区间，找出其近似解（要求：误差小于0.001，结果截取3位小数）。单击“求解”按钮Command1，方程近似解显示在文本框Text1中。程序运行界面如下所示：

实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ①  '确定合适终值，使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
②    [:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub

条形码是按照一定编码规则排列的图形标识符。如右图所示，条形码下方数字左边12位代表信息，最右边一位是校验码。校验码产生方法如下：

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”；
②从序号2开始把所有偶数序号位上的数相加求和，并乘以3；
③从序号3开始把所有奇数序号上的数相加求和；
④把第②和第③步结果相加求和；
⑤10减去第④步结果的个位数，得出校验码（如果差值为10，则校验码为0）；
如条形码的数字为：977167121601X（X为校验码），则校验码主要产生步骤如下：
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4，此条形码数字为9771671216014。
小何为此编写了VB程序，用以验证条形码输入正确与否。程序运行时，从文本框Text1获取条形码数字部分，单击按钮Command1后，在列表框List1中输出结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b =" Text1.Text" '输入
Lb = Len(b)
s1 =" 0" : s2 = 0
flag = True
res = "输入错误！"
If Lb =" 13" Then
For i =" 1" To 13
c =" Mid(b," Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) =" Val(c)" '输入转换
Else
flag =" False" : Exit For
End If
Next i
If flag Then
For i =" 2" To Lb Step 2
s1 =  s1 + d(i) '参数计算1
s2 =s2 + d(i) '参数计算2    ①
Next i
tmp =" s1" * 3 + s2
If tmp Mod 10    Then res = "输入正确！"  ②
End If
End If
List1.AddItem res
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。

（1）要调整Label1中的字体大小，可选择在属性面板中设置Label1的    。（单选，填字母：A.Caption / B.Font /

A．Height）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, t As String
Dim i As Integer, b As Integer, ans As Long
Dim flag As Boolean
s =    ①
b = Len(s)
flag = True
ans = 0
For i =" 1" To b
c =" Mid(s," i, 1)
If c >= "0" And c <= "9" Then
ans =" ans" * 16 + Asc(c) - Asc("0")
ElseIf c >= "A" And c <= "F" Then
ans =" ans" * 16 +  ②
Else
③   '输入情况有误
Exit For
End If
Next i
If flag Then t =" Str(ans)" Else t ="输入有误!"
List1.AddItem s + "-->" + t
End Sub
（3）由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为 。（单选，填字母：A. d8-->216/ B. d8-->输入有误!）

某算法的部分流程图如图所示，若n输入的值为1，则变量s的值是多少？如将循环体“s=s+n和n=n+2”交换顺序，则s值又是多少？

A．25、26

B．26、25

C．36、36

D．26、36

曲哲同学设计了一个英文字符串的加密算法,其加密的方法如下:
1.从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。
2.将字符的二进制编码反向，得到其逆序二进制码。
3.将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。
4.以此类推，直到所有字符加密完成，得到加密字符串。
具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。
（1）已知字符a的ascii码为97，则字符串idear加密后的字符串为____________________。
（2）阅读整段程序，程序中①画线处应填入
程序中②画线处应填入     。[:学+科+网]

Private Sub Command1_Click()
Dim s As String, ch As String
Dim result As String, chA As String, chB As String
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
s = Text1.Text
n = Len(s)
result = "": c = "0123456789ABCDEF"
For i =" 1" To n
ch =  ①
ch = niXu(ch)
m = 0
For j =" 1" To 4  ' 获取二进制码前4位的值
②
Next
chA =" Mid(c," m + 1, 1)
m = 0
For j =" 5" To Len(ch)
m =" m" * 2 + Val(Mid(ch, j, 1))
Next
chB =" Mid(c," m + 1, 1)
result =" result" + chA + chB
Next
Text2.Text = result
End Sub
' 得到单个字符ch的8位二进制编码
Function D2B(ByVal ch As String) As String
Dim s As String
Dim data As Integer, i As Integer
data = Asc(ch)：s = ""
Do While data > 0
s ="Str(data" Mod 2) + s
data =" data" \ 2
Loop
If Len(s) < 8 Then
For i =" 1" To 8 - Len(s)
s = "0" + s
Next
D2B = s
Else
D2B = s
End If
End Function
' 返回字符串s的逆序
Function niXu(ByVal s As String) As String
Dim i As Integer：Dim r As String
r = ""
For i =" Len(s)" To 1 Step -1
r =" r" + Mid(s, i, 1)
Next
niXu = r
End Function