操作题 0.65 引用1 组卷27
小明设计了一个算法，来实现10个11-99之间随机数字的升序排序，并去掉重复数字。程序设计思想如下：a(1)~a(10) 用于存放原数据，b(1)~b(num) 用于存放排序完成后的结果，对于每个待排数字a(i)，先在b数组中查询是否存在，如不存在，则放入到b数组中。程序运行界面如下图所示。
Const n = 10
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Form_Load()
Private Sub Command1_Click()
根据如上代码，请回答下列问题：
（1）若要清除文本框Text1中的内容，能实现该功能的语句是___________
（单选，填字母：A.Text1.clear / B.Text1.Text=“”/ C.Text1.Caption=“”）
（2）请在划线处填上合适的代码。
__________________
__________________
（3）程序中加框处代码有错，请改正。
改正：___________________
Const n = 10
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Form_Load()
'随机生产10个11-99之间的数字,并依次存储在数组a中,代码略
End SubPrivate Sub Command1_Click()
Dim num As Integer, L As Integer, R As Integer, i As Integer
Dim m As Integer, f As Boolean
num = 1: b(1) = a(1)
For i = 2 To n
b(num + 1) = a(i) + 1
f = False
For j = 1 To num + 1
If a(i) < b(j) Then
Exit For
ElseIf a(i) = b(j) Then
①
End If
Next j
If Not f Then
For k = 
b(k + 1) = b(k)
Next k
②
num = num + 1
End If
Next i
'最终将数组b的排序结果输出到文本框中,代码略
End Sub根据如上代码，请回答下列问题：
（1）若要清除文本框Text1中的内容，能实现该功能的语句是
（单选，填字母：A.Text1.clear / B.Text1.Text=“”/ C.Text1.Caption=“”）
（2）请在划线处填上合适的代码。
（3）程序中加框处代码有错，请改正。
改正：
20-21高二下·浙江绍兴·期末
