' 功能:本程序用于实现:从键盘接收一数字,判断其是否在数组中,如果在数组中则将其删除,否则显示该数字不在数组中。 '------------------------------------------------------- Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x = InputBox(" 请输入要删除的整数 ") For i = 1 To 10 '**********SPACE********** If a(i) = x Then 【 ? 】 Next i '**********SPACE********** If 【 ? 】 Then For k = i To 9 '**********SPACE********** 【 ? 】 Next k Print " 删除后的数组 :" For i = 1 To 9 Print a(i); Next i Else Print " 该数字不在数组中 " End If End Sub Exit for