江苏试题-数组分析..docVIP

江苏试题-数组分析 9. 本程序从键盘读入n个整数 X1,X2,…,Xn,若这些整数满足如下条件之一： (1) X1X2…Xn; (2) X1X2…Xj且 XjXj+1Xj+2…Xn,其中 1jn; (3) X1X2…Xn. 则输出“符合条件！”，否则，输出“不符合条件！”。 Private Sub FormClick() 　　Dim a() As Integer 　　Dim i As Integer, j As Integer, n As Integer 　　n = InputBox(输入数据个数) 　　（ReDim a(n)） 　　For i = 1 To n 　　　　a(i) = InputBox(输入数据) 　　Next i 　　For i = 1 To n - 1 　　　　If a(i) a(i + 1) Then Exit For 　　Next i 　　For j = i To n - 1 　　　　If (a(j) a(j + 1)) Then Exit For 　　Next j 　　If (j = n) Then 　　　　Print 符合条件！ 　　Else 　　　　Print 不符合条件！ 　　End If End Sub 10. 在C盘根目录下有一数据文件（cj.dat），内容如下： 9901， 56， 78 9902， 97， 89 9903， 67，