编写一个“十进制转二进制”的VB程序，功能如下：在文本框Text1中输入0~255之间的整数，单击“转换”按钮Command1后，在Text2上显示对应的二进制数｡程序设计界面和运行界面分别如图a和图b所示｡

（1）要使程序运行时，按钮Command1上显示“转换”，下列方法不可行的是________________（单选，填字母：

A．界面设计时，选中对象Command1，设置Caption属性为“转换”/

B．在From_Load事件处理过程中添加语句Command1.Caption=＂转换＂/

C．在Form_Load事件处理过程中添加语句Command1.Text=＂转换＂）｡

（2）实证上述功能的 VB 程序如下，请在划线处填入合适代码｡
Private Sub Command1_Click()
Dim i As Integer, n As Integer, k As Integer, s
As String
n=Val(Text1. Text)
k=1:s=""
Do While 2^k < n
k=k+1
Loop
Do While n<>0
If n>=2^(k-1) Then
s=s+"1"
①__________
Else
s=s+"0"
End If
k=②_________
Loop

Text2. Text = s
End Sub
（3）若删除加框处的代码，在文本框Text1输入12，单击“转换”按钮，则文本框Text2中显示的内容是________________｡

某“数值提取”程序，实现如下功能：在文本框Text1中输入包含数字和其他非数字字符混合的原始数据，点击“数值提取”按钮Command1，将数据中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下。请回答以下问题：

（1）要使程序运行后，窗体Form1标题立即自动显示为“数字提取”，可在_____（单选，填字母：

A．Form_Load/

B．Form_Click/

C．Command1_Click）事件过程中添加语句Form1. Caption="数值提取"。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click ()
Dim s As String, ch As String
Dim flag As Boolean
Dim tmp As String
dim ans As String
s = Text1. Text
s = s+ "."
tmp = ""   '存储每一组检测到的数字
ans =""    '存储最后的输出结果
flag =False
For i =1 To Len(s)
ch =Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then

tmp =①_________ 

flag =True

ElseIf flag = True Then

ans= ans +tmp+ "，"

tmps = ""

②_________

End If
Next i
Text2. Text = ans
End Sub
（3）如图，若删除程序中的语句s=s+ "."，输入不变，则提取后的数字信息为_____。

给定区间[a1，a2]和[b1，b2]，若a2≥b1，则认为这两个区间是有重叠的，可进行合并｡如区间[1，3]和[2，6]可合并为[1，6]；区间[1，6]，[2，5]可合并为[1，6]；区间[1，4]和[4，5]可合并为[1，5]｡
编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间[1，2]，[3，5]，[4，6]，[9，12]，[10，11]，合并后的区间分别为[1，2]，[3，6]，[9，12]｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=①  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>"," Then
②
Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+","+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 ③
Loop
result=result+"("+Str(L)+","+Str(R)+"),"
Text2. Text=result
End Sub
（1）码中①②③划线处代码补充完整｡
①__________
②__________
③__________
（2）程序代码中的加框处代码有误，请改正｡
_____________________
（3）运行该程序，输入数据如图所示，程序执行完毕时，变量k 为________________｡

某算法流程图如图所示，若输入m和n的值分别为189和161，执行这部分流程后，变量m的值为（   ）

A．1

B．7

C．23

D．27

某算法的部分流程图如图所示。
   
执行这部分流程，输入11，变量i和f的值分别是（   ）

A．10，True

B．10，False

C．11，True

D．11，False

下列结果为True的逻辑表达式是（    ）。

A．Not(3<8)

B．(3<8)And(5>10)

C．(3<8)And(5<10)

D．(3>8)Or(5>10)

以下属于输入函数的是（  ）。

A．inputBox

B．Print

C．MsgBox

D．Aate

在VB中，以下语句错误的是：（   ）。

A．S="信息技术"

B．S="VB"&6

C．X=4X

D．X=X+1

分析完善程序。
“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1，2，3，而6=1+2+3，因此6就是完数。再如28的因子为1，2，4，7，14，而28=1+2+4+7+14，因而28也是完数。
问题：输入一个正整数n，判断该正整数是否为完数。
要判断一个正整数n是否为完数，最简单的方法是：求出1到n-1之间的所有因子和为Sum，如果Sum的值和n的值相同，则n就是完数。
以下代码是判断n是否为完数的程序片段，请你补全代码：
Dim  n  As  Long
Dim  Sum  As  Long   ' Sum用来记录n的因子和
n = InputBox(“n=”)
For i = 1 To n-1     ' 求n的因子和Sum
If  n Mod i = 0  Then  Sum =_________
Next  i
If _____________  Then
Print   n  &  “是完数”
Else
Print   n  &  “不是完数”
End If

进入2016年7月份以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件。小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如图所示。
 
Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer '记录最大连续天数
Dim nend as Integer '记录最大连续天数时的结束日期的下标 
Dim ncount as Integer   '统计连续天数
Dim tjqw as Integer '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub