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

图1

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

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

A．图①

B．图②

C．图③

D．图④

如下算法的执行结果是（   ）

A．30

B．50

C．20

D．-20

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、b、c，求三角形面积。

B．求用10元、20元和50元三种纸币组合支付360元的不同方案。

C．求2000以内的素数。

D．求所有的水仙花数的总和。

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

A．a=a+1

B．a=a+2

C．a=i^2

D．a=a*2

求满足首尾两个数字相等的所有四位正整数之和。
（1）写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
（2）将下列程序填写完整，求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________

将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？
Dim i，j，k As Integer ′ i，j，k用于记录5元，1元，0.5元的张数
Print“5元    1元    0.5元”
For i＝1 To 20
For j＝1 To 100－i
k＝__①__
If__②__Then
Print i，j，k ′分别输出i，j，k三个变量。
End If
Next j
Next i

小明编写了一个输出十进制与二进制数对应表的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