小李编写了一个程序，用以实现下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制（小于等于16），点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示：

    

（1）根据题目意思，应该在编辑界面将对象“command2”的______________属性改为“退出”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do  while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub

   编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入体重（单位：Kg）和身高（单位：m），单击命令按钮Command1，计算BMI指数（BMI指数=体重÷身高的平方），如果BMI <18.5，则在标签Label5中显示“体重过轻！”；如果18.5≤BMI≤25，则在标签Label5中显示“正常！”；如果BMI>25，则在标签Label5中显示“体重过重！”。运行效果如左图所示。

（1）若要删除标签Label5中显示的内容“Label5”，可在其属性窗口（如上边右图）中将___________属性的属性值删除。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private  Sub  Command1_Click()
Dim  gao  as  single, zhong  as  single, bmi  As  Single
Dim  x  As  String
zhong = val(text1.Text)
gao =val(text2.text)
bmi = _____________① 
If  bmi < 18.5  Then
x = "体重过轻！"
Else
If  bmi<=25  Then  x = "正常！"  Else  x = "体重过重！"
End If
______________②
End Sub
（3）若某同学的身高为160cm，体重为120斤，则运行结果为___________

利用格里高利公式 求 ，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
Dim Pi As Single, t  As Single
Dim n As Integer, s As Integer
Pi = 0
t = 1: n = 1:s =1
Do While Abs(t) >= 0.0001
Pi = Pi + s * 1 / n
n =①___________
s= ②___________
t = s / n
Loop
Text2.Text =③___________
End Sub

   随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H，如图所示，请在划线处填入合适代码。  

Sub command1_Click( )
Const N = 14
Dim a(1 to n) As Char, c As Char   ‘数组a用于存储随机产生字母
Dim count, i, k, j as integer
Label1.caption = ""
For i = 0 To N
a(i) = ________
Label1.caption = a(i) & " "
Next i
For i = 0 To N - 1
k = i
For j = i + 1 To N
If a(j) > a(k) Then_________  
Next j
c = a(i) : ___________: a(k) = c
Next i
For i = 0 To N '输出排序的结果
Label1.caption = a(i) & " "
Next i
i = 0
Do While i <= N '压缩显示相同元素   
count = 1
If i < N Then j = i + 1
Do While a(i) = a(j)
If i <> j Then count = ____________
If j < N Then j = j + 1 Else Exit Do
Loop
If count = 1 Then
Label1.caption = a(i) & " "
Else
Label1.caption = ___________  
End If
i = i + count
Loop
End Sub

   （加试题）n个数从小到大选择排序需要经过n-1遍加工，每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后，编写了一个VB程序，功能如下：运行程序时首先在列表框List1中显示10个不小于10且不大于99的随机自然数，单击“排序”按钮Command1后，在列表框List2中显示这些数据按从小到大排序后的结果，运行结果如图所示。

实现上述功能的VB代码如下，但划线处有错，请改正。
Dim a(1 To 10) As Integer '定义数组a
Private Sub Form_Load()
Randomize
For i = 1 To 10  '产生10个不小于10且不大于99的随机自然数，并依次存放在数组a中
a(i) = Int(Rnd * 100) '①
List1.AddItem Str(a(i))
Next i
End Sub
'Find_min函数寻找与当前元素a(x)需要交换的数组元素下标
Function Find_min(x As Integer)
Dim k As Integer, j As Integer
k = x
For j = x + 1 To 10
If a(j) < a(k) Then k = j
Next j
Find_min = k
End Function
Private Sub Command1_Click()
Dim i As Integer, k As Integer, t As Integer
For i = 1 To 9
k = Find_min(i+1)     '②
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
（1）加框处①有错，应改为__________________________。
（2）加框处②有错，应改为__________________________。

（加试题）十进制a转换为b进制（2~16）的vb程序如下
Function tran(a as integer, b as integer) as string
Dim strd as string, n as integer
Do while a<>0
n=a mod b
a=a\b
If n>9 then
strd= &strd
Else
strd=str(n)&strd
Endif
Loop
Tran=strd
End function
Private sub command1_click()
m=val(text1.text)
n=val(text2.text)
Label1.caption=tran(a,b)
End sub
下列说法不正确的是

A．划线处的代码可以为：chr(55+n)

B．划线处的代码可以为：mid(“ABCDEF”,n-9,1)

C．若在划线处填上正确的代码之后，运行程序，在text1内输入123，text2内输入10，label1显示的结果为123

D．若需要转换为十七进制，划线处的代码可以使用mid(“ABCDEF”,n-9,1)

   编写一个VB程序，功能如下：在文本框Text1中输入十六进制数（取值范围21至7E）, 单击按钮Command1进行转换，并将其对应的ASCII字符显示在文本框Text2中。程序运行界面如图所示。

（1）在设计程序界面时，要使按钮Command1上显示的文本为“转换”，应修改该按钮的______________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, d As Integer
   
Dim ch As String, h As String
d = 0
___________
For i = 1 To Len(h)
ch = Mid(h, i, 1)
If ch >= "A" And ch <= "F" Then
n = Asc(ch) - Asc("A") + 10
Else
n = ____________
End If
d = d + n * 16 ^ (Len(h) - i)
Next i
Text2.Text = Chr(d)
End Sub
（3）运行该程序，在文本框Text1中输入3F，单击“转换”按钮，则变量d的值是_______。

   数字频率统计：小王编写 VB 程序，实现如下功能：在文本框中输入一串任意字符串（含数字），单击“统计”按钮 Command1，在列表框 List1 中统计并输出数字 0~9 出现的次数。运行界面如图所示，VB 程序代码如下。

 

（1）根据代码可知，文本框对象的名称为________________________。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(0 To 9) As Integer, s As String Dim k As String, i As Integer
s = Tabc.Text
List1.Clear
For i = 1 To Len(s)
_____①
If k >= "0" And k <= "9" Then
_____②
S=k+s
End If
Next i
For i = 0 To 9
List1.AddItem Str(i) & "出现了:" & a(i) & "次"
Next i
End Sub
（3）如果输入的是“hello 8102!” ,执行完以上程序后，变量S的值为________

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如下图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Visual Basic程序如下，
（1）观察程序设计界面，共有_______类对象具有Caption属性。

（2）实现上述功能的VB程序如下在①、②、③划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text2.Text)
①___________________
If ch = "+" Then
Text4.Text = Str(a + b)
ElseIf ch = "*" Then
Text4.Text = Str(a * b)
ElseIf ch = "-" Then
Text4.Text = Str(a - b)
ElseIf ch = "/" Then
If ②_____________Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零"
Else
③________________
End If
End Sub

十进制数转换为二进制数。小林用VB编写了一个程序，把输入的十进制数转换为二进制数，并判断二进制数中的“0”和“1”的个数是否相等。程序运行界面如图所示，在文本框Text1中输入要转换的十进制数，单击命令按钮Command1后，在文本框Text2中输出其对应的二进制数，在标签Label3中显示“相等”或“不相等”。

(1)程序运行界面中使用的对象个数为_________，要使命令按钮Command1上的文字显示为“转换”，应修改的属性名为_____________。
(2)为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim x, y, c0, c1 As Integer
st = "": c0 = 0: c1 = 0
x =_____________
Do While x <> 0
y = _____________
If y = 0 Then
c0 = c0 + 1: st = y & st
Else
c1 = c1 + 1: st = y & st
End If
x = x \ 2
Loop
Text2.Text = st
If ____________ Then
Label3.Caption = "相等"
Else
Label3.Caption = "不相等"
End If
End Sub