王林设计了一个数字图形的程序，其功能是在文本框Text1中输入n 的值（10>n>1），单击“输出”按钮Command1，在列表框List1中输出数字图形；单击“退出”按钮Command2，结束并退出程序。文本框中输入8时程序运行界面如下所示，程序代码如下：

Dim n,i,j As Integer
Dim s As String
n=Val(Text1.Text)
List1.Clear
For i=" 1" To n
s=""
For j=" 1" To①
s=②
Next j
List1.AddItem=s ‘③
Next i
(1)代码“List1.Clear”中的Clear是
（单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．方法名）

（2）为了实现上述功能，请在划线处填入合适代码
①
②
（3）程序运行时单击“输出”按钮Command1，出现下图所示的错误，为了使程序正常运行，则程序中③处的语句或表达式应更正为        

某通信部门规定：拨打市话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.22元；如果通话时间超过3分钟，则超过部分以每分钟0.11元收取通话费（计费时只计算整数分钟）。下面是根据给出的通话整数分钟计算话费的流程图和程序。
程序段：
Private Sub Command1_Click()
Dim xas integer，y as single
x = Val(Text1.Text)
If  x<=3  Then
y=0.22    
Else
y = ②
End If
Text2.text=str(y)
End Sub

请分析任务，完成如下问题。
（1）流程图中菱形表示 （选填A.数据处理/B.选择分支） 。流程图中①处应填写  。
（2）程序段中②处应填写的内容是 。
（3）在程序段中出现了Text1和Text2控件，它们同属于 类型的控件(选填A.文本框/B.列表框/

A．标签）。

求结果

（1）输入356，输出结果： Dim x as Integer x=inputbox(“输入x的值”) a="x" mod 10 b="int(x/10)" mod 10 c=x\100 s=a+b+c print s	（2）输入a=1，b=2，输出结果：
（3）输出结果：	（4）输入8，输出结果：

流程图的符号中，平行四边形一般作为（  ）。

A．处理框

B．输入输出框

C．判断框

D．起止框

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ①  ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1） 程序中①处填入的代码是：  
（2） 程序中②处填入的代码是下列哪个选项（ ）

A．t

B．t-max

C．t-max+1

D．t-max-1

王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击 "帮助找回密码"按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer, s As  long, b As Integer, i As Integer
For i =" 0" To 9999
s = ①
If s Mod 46 =" 0" and s mod 16="0" Then
a="s" mod 10
b = ②
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（1） 解决此问题的主要算法是________________。（选填：枚举算法 或 解析算法）
（2） 窗口上的“找密码”是对form1对象的 属性设置的
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（3）程序中①划线处应填入__________________。
（4）程序中②划线处应填入__________________。

有如下程序段：
s=2:k=1
If Not k="s" Then s=s+k
该程序运行后，S的值是：

A．3

B．2

C．1

D．0

算法的三种基本结构分别是：顺序结构、选择结构、   。

两个富翁试图做一笔换钱生意，换钱规则为：富翁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
① 应填的内容是__________ ，②中应填的内容是__________ 。

编制计算机程序解决问题时,一般分为五个过程:分析问题、设计算法、编写程序、（  ）及检测结果。

A．调试运行	B．编制程序框图
C．编译程序	D．选择程序设计语言