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

下载本文档

7
0
约7.48千字
约 11页
2016-12-10 发布于重庆
举报
版权申诉

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

1、本文档共11页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

江苏试题-数组分析.

江苏试题-数组分析 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， 75 9904， 78， 76 9905， 100， 90 第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。现有程序如下： Dim a(5, 4) As Integer Private Sub Form_Click() 　　Dim i As Integer, j As Integer 　　Open c:\cj.dat For Input As #1 　　For i = 1 To 5 　　　　For j = 1 To 3 　　　　　　 InPut #1, a(i,j) 　　　　Next j 　　　　 a(i,4) =a(i,2) +a(i,3) 　　Next i 　　　　Sort 　　For i = 1 To 5 　　　　For j = 1 To 4 　　　　　　Print a(i, j), 　　　　Next j 　　　　Print 　　Next i 　　Close #1 End Sub Private Sub Sort() 　　Dim i As Integer, j As Integer, k As Integer, temp As Integer 　　For i = 1 To 4 　　　　For j = i + 1 To 5 　　　　　　If a(i, 4) a(j, 4) Then 　　　　　　For k=1 To （4）　　　　　　　　temp = a(i, k) 　　　　　　　　a(i, k) = a(j, k) 　　　　　　　　a(j, k) = temp 　　　　　　Next k 　　　　　　End If 　　　　Next j 　　Next i End Sub 3. 执行下面的程序，第一行输出结果是___(11 12 13)___，第二行输出结果是___（21 22 23）___(UBound函数返回指定数组维的维上界)。 Private Sub Form_Click() 　　Dim i As Integer, j As Integer 　　Dim m As Integer, n As Integer 　　Dim a() As Integer 　　Call Arry(a) 　　n = UBound(a, 1): m = UBound(a, 2) 　　For i = 1 To m 　　　　For j = 1 To n 　　　　　　Print a(i, j); 　　　　Next j 　　　　Print 　　Next i End Sub Private Sub Arry(b() As Integer) 　　Dim i As Integer, j As Integer, k As Integer 　　ReDim b(3, 3) 　　For i = 1 To 3 　　　　For j = 1 To 3 　　　　　　b(i, j) = i * 10 + j 　　　　Next j 　　Next i End Sub 5. 执行下面的程序，结果是___(12(2)=1100)___，若将A语句替换为x=64,B句替换为r=8,则结果是___（64(8)=100）___。 Dim n As Integer, k As Integer, x As Intege