江苏试题-数组分析

1、江苏试题-数组分析9. 本程序从键盘读入n个整数 X1,X2,Xn,若这些整数满足如下条件之一：(1) X1X2Xn;(2) X1X2Xj+1Xj+2Xn,其中 1jX2Xn.则输出“符合条件！”，否则，输出“不符合条件！”。Private Sub FormClick()Dim a() As IntegerDim i As Integer, j As Integer, n As Integern = InputBox(输入数据个数)（ReDim a(n)）For i = 1 To na(i) = InputBox(输入数据)Next iFor i = 1 To n - 1If a(i) a(i

2、 + 1) Then Exit ForNext iFor j = i To n - 1If (a(j) a(j + 1) Then Exit ForNext jIf (j = n) ThenPrint 符合条件！ElsePrint 不符合条件！End IfEnd Sub10. 在C盘根目录下有一数据文件（cj.dat），内容如下：9901，56，789902，97，899903，67，759904，78，769905，100，90第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下：Dim a(5, 4)

3、 As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerOpen c:cj.dat For Input As #1For i = 1 To 5For j = 1 To 3 InPut #1, a(i,j) Next j a(i,4) =a(i,2) +a(i,3)Next iSortFor i = 1 To 5For j = 1 To 4Print a(i, j),Next jPrintNext iClose #1End SubPrivate Sub Sort()Dim i As Integer, j As Intege

4、r, k As Integer, temp As IntegerFor i = 1 To 4For j = i + 1 To 5If a(i, 4) a(j, 4) ThenFor k=1 To （4）temp = a(i, k)a(i, k) = a(j, k)a(j, k) = tempNext kEnd IfNext jNext iEnd Sub3. 执行下面的程序，第一行输出结果是_(11 12 13)_，第二行输出结果是_（21 22 23）_(UBound函数返回指定数组维的维上界)。Private Sub Form_Click()Dim i As Integer, j As In

5、tegerDim m As Integer, n As IntegerDim a() As IntegerCall Arry(a)n = UBound(a, 1): m = UBound(a, 2)For i = 1 To mFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd SubPrivate Sub Arry(b() As Integer)Dim i As Integer, j As Integer, k As IntegerReDim b(3, 3)For i = 1 To 3For j = 1 To 3b(i, j) = i * 10 +

6、 jNext jNext iEnd Sub5. 执行下面的程序，结果是_(12(2)=1100)_，若将A语句替换为x=64,B句替换为r=8,则结果是_（64(8)=100）_。Dim n As Integer, k As Integer, x As Integer, r As IntegerDim a(8) As IntegerPrivate Sub Conv(d As Integer, r, i)i = 0Do While d 0i = i + 1a(i) = d Mod r: d = d rLoopEnd SubPrivate Sub Form_Click()x = 12 A语句r =

7、 2 B语句Print Str(x); (; Str(r); )=;If x = 0 ThenPrint 0ElseCall Conv(x, r, n)For k = n To 1 Step -1Print a(k);Next kPrintEnd IfEnd Sub9. 本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件data.txt中读取。Private Sub Form_Click()Dim a(3, 3) As Integer, i As Integer, j As IntegerDi

8、m maxvr As Integer, col As Integer, flg As IntegerOpen data.txt For Input As #1For i = 1 To 3从文件中读入数据，并打印出来For j = 1 To 3Input #1, a(i, j)Print a(i, j);Next jPrintNext iFor i = 1 To 3maxvr = a(i, 1) col = 1For j = 2 To 3If maxvr a(j,col) Then Exit For Next jIf j 3 ThenPrint a(; i; ,; col; )=; a(i, c

9、ol)flg = 1End IfIf Then Print 鞍点元素不存在flg = 0Next iEnd Sub4. 执行下面程序后，A（1，3）的值是_(4)_，A（2，2）的值是_(5)_，A（3，1）的值是_(6)_。Option ExplicitPrivate Sub Form_Click()Dim A(3, 3) As Integer, i As IntegerDim j As Integer, k As Integer, n As IntegerFor k = 1 To 5If k = 3 ThenFor I = 1 To 6 - KA(K - 3 + I, I) = NN =

10、N - 1Next IElseFor I = 1 To KA(K - I + 1, 3 - I + 1) = NN = N - 1Next IEnd IfNext KFor K = 1 To 3For I = 1 To 3Print A(K, I);Next IPrintNext KEnd Subkink - 3 + ik - i + 13-i+1A5195-3+1=30 0 00 0 09 0 04184-3+1=20 0 08 0 09 0 0274-3+2=30 0 08 0 09 7 03163-3+1=16 0 08 0 09 7 0253-3+2=26 0 08 5 09 7 03

11、43-3+3=36 0 08 5 09 7 42132-1+1=23-1+1=36 0 08 5 39 7 4222-2+1=13-2+1=26 2 08 5 39 7 41111-1+1=13-1+1=36 2 18 5 39 7 46. 下面程序的功能是统计当前盘当前文件夹中的顺序文件dta.txt中共有多少个英文单词，约定连续出现的英文字母定义为一个单词。Option ExplicitPrivate Sub Form_Click()Dim Char() As String, St As String, Tem As StringDim Idx As Integer, Js As Long

12、, Flen As LongDim F As Boolean, W As String * 1Open data.txt For Input As #10Flen = LOF(10)Flen文件长度St = Input(Flen, #10)St整个文件内容Js = 1Js字符的个数Do While Js = A And W = a And W = z ThenTem = Tem + WTem连接字符的临时变量F = TrueElseIf F = True ThenIdx = Idx + 1Idx单词的个数ReDim Preserve Char(Idx)Char(Idx) = TemTem =

13、F = FalseEnd Ifjs=js+1LoopPrint 共有; Idx; 个单词For Js = 1 To IdxPrint Char(Js)Next JsEnd Sub7. 下面程序的功能是当循环次数一定时，统计生成互不相同的1100之间的随机整数的个数。Option ExplicitOption Base 1Private Sub Form_Click()Dim Data() As Integer, i As Integer, Idx As IntegerDim n As Integer, Temp As Integer, Flg As Booleann = InputBox(输入

14、循环次数)ReDim Data(1)Idx = 1Data(1) = Int(100 * Rnd(1) + 1For i = 1 To nTemp = Int(100 * Rnd(1) + 1_Flg=False Call Compare(Data, Temp, Flg)If Flg = True ThenIdx = Idx + 1 ReDim PreServe Data(Idx) Data(Idx) = TempEnd IfNext iPrint 生成; Idx; 个不相同的整数For i = 1 To IdxPrint Data(i)If i Mod 10 = 0 Then PrintNe

15、xt iEnd SubPrivate Sub Compare(Arry() As Integer, K As Integer, Logic As Boolean)Dim Ub As Integer, i As Integer Ub=UBound(arry) For i = 1 To UbIf Arry(i) = K Then Exit Sub End IfNext iLogic = TrueEnd Sub8. 下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。Option ExplicitOption Base 1Private Sub Form_Click()Dim I As Integer, J As Integer, K As IntegerDim A() As Integer, T As Integer, M As IntegerOpen c:my documents2000testdata.txt For Input As #1Do While Not Eof(1) I = I + 1ReDim