人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被3、5、7除，余数为1的最小的五个正整数。请分析程序回答问题。
Private Sub Command1_Click（）
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ①     Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）

A．integer

B．single

C．double

D．string

（2）这是一段    结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
___________________________________________________________
____________________________________________________________
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的

小明的爸爸在今年初为公司购买一台价值50万的商务汽车，汽车价值在使用过程中逐年减少，从明天到第5年，每年初的价值比上年初减少4万元，从第6年开始，每年初的价值为上年初的85%。爸爸让小明算一下第n年初这辆汽车的价值是多少？小明为此设计了下面Visual Basic程序，运行程序，在文本框Text1中输入年数n，单击“计算”按钮Command1，则在标签Label1中显示此年初的价值a。程序运行界面如图所示：

Private  Sub Command1_click （ ）
Dim n as single, a as single
n="Val" (text1.text）
If n = Int(n） And n >=" 1" Then
If n<="5" then
a=  ① 
Else
a=30*0.85^(n-5）
End if
Label3.caption=“第”+Str(n）+“年初价值”+  ② +“万元”
Else
Label3.caption=“输入的年数不符合要求！”
Else if
End Sub
（1）用计算机编程解决问题，最核心的过程是 。
（2）本程序窗体中使用的控件类型有命令按钮、文本框和 。
（3）流程图是一种直观的、用图形来描述算法的方法。流程图中“选择分支”和“数据输出”分别用 、 图形来表示。
（4）程序中的语句Dim n As single 将变量n的数据类型定义为 。
（5）在设计用户界面时，要使本程序中command1命令按钮上显示文字“计算”，需设置此控件的  属性（选填“caption”、“font”或 “text”）
（6）程序中①处应填入的表达式为
（7）程序中②处应填入   
（8）语句n="Val" (text1.text）中函数Val (text1.text）的作用是
（9）Text1的控件类型是  
（10）用计算机编程解决问题，大致分为五个过程：①设计算法、②调试运行、③编写程序、④检测结果、⑤分析问题    

编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。
程序如下：
Private Sub Command1_Click（）
Dim a as Single, b as Single, c as Single
Dim t as Single, x1 as Single, x2 as Single
a = Val（InputBox（"a=", "数据输入框", 1））
b = Val（InputBox（"b=", "数据输入框", 2））
c = Val（InputBox（"c=", "数据输入框", 1））
If a =" 0" Then
If b =" 0" Then
If c =" 0" Then Print "解得:x有无穷解" Else Print "x无解"
Else
Print "解得:x=" & -c / b
End If
Else
t = ________（1）______________
If t < 0 Then ①
x1 = （-b + Sqr（t）） / （2 * a） ②
x2 = （-b - Sqr（t）） / （2 * a） ③
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = ______（2）__________
If t =" 0" Then Print "解得:x=" & x1
If t > 0 Then    ④
Print "无实根"
End If
End If
End If
End Sub
请认真分析任务和程序段，完成下列题目。
（1）用计算机编程解决问题，一般分为几个过程：①编写程序②分析问题③确定算法④调试程序，正确排序应该是_________（填序号）。
（2）流程图是用图框及流程线来表示算法的，流程图中的“◇”（菱形框）用来表示_______________（选填“选择分支”、“数据输出”、“条件判断”）。
（3）程序段出现的语句“Dim a as Single”是将“a”定义为________________（写汉字）数据类型。
（4）程序中的语句Sqr（t）所表示的含义是____________________。
（5）调试过程中，运行的结果跟预期结果不符，编译过程中语句出现错误，请找出①②③④中选出错误_____________。
（6）程序中所在（1）横线处的表达式是___________________。
（7）依次输入的数据为：4,-2,1后，运行该程序，输出的结构是_________________。
（8）程序中所在（2）横线处的表达式是___________________。
（9）该程序属于__________结构的程序设计。
（10）将设计好的窗体文件保存到磁盘上，窗体文件的扩展名为______________。（选填“exe”、“frm”、“vbp”或“vbw”）

学习了VB之后，小明编写了一个三角形面积计算器的程序，其窗体界面如图1所示，代码部分如图2所示：

图1

图2
(1)在图1中当前选定的对象属于_____________________________________类。
(2)根据图2中的代码，可以确定图1中唯一一个按钮的对象名是________。
(3)图2中①所在位置的代码应该是：_________________________。
(4)程序正常运行时，如果输入三角形的三条边长分别为11、25、12，则点击“计算”后，Label5的Caption值将是： ____________________________。

下列流程图属于双重循环结构的是（    ）。

A．图①

B．图②

C．图③

D．图④

28. 如下程序的运行结果是(  )
s=0
n=1
do while n<10
s=s+n
n=n+3
loop
print s,n

A．12    10

B．12 7

C．22 10

D．22 7

如下程序在调试时出现了如图所示的出错信息，该程序段出错的原因是缺少了（   ）

m=0:n=0
For i=" 1" to 100
If i mod 3="0" then
m=m+1
Else
n=n+1
next i
print m,n

A．For

B．  End if

C．Next

D．If

为使下面两段程序能实现相同的功能，右框内划线处的内容为（   ）
   

A．a=a+1

B．a=a+2

C．a=i^2

D．a=a*2

小明编写了一个输出十进制与二进制数对应表的VB程序。程序运行时，单击“输出”按钮Command1后，在列表框List1中输出运行结果如第16题图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim b(4) As Integer   '数组b按位存储二进制数Private Sub pprint(m As Integer)  '本过程打印输出一行十进制数m和对应的二进制数'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
List1.Clear
List1.AddItem "十进制数 二进制数"
For i =" 1" To 4
b(i) = 0
Next i
For i =" 0" To 15
Call pprint(i) '打印输出一行
j =   1 '(1)
b(j) =" b(j)" + 1
Do While  b(j) =" 0" '(2)
b(j) = 0
j =" j" - 1
b(j) =" b(j)" + 1  
Loop
Next i
End Sub

有一数组a (1 to 6) ，其数值分别为44、38、78、37、96、69想要从小到大排序，编写如下程序代码：
Dim flag As Boolean  'flag值为True表示某一遍加工中发生过交换
i = 1：n=6
flag = True
Do While i <=" n" - 1 And flag = True 
flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop
以上代码在整个排序过程中, 数组中的数据比较次数和交换次数分别是（  ）

A．9次和4次	B．9次和6次
C．12次和6次	D．15次和12次