书签分享收藏举报版权申诉 / 17

立即下载

当前位置：首页 > 教育专区 > 高考资料 > (完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf

(完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf

上传人：Q****o

文档编号：55049197

上传时间：2022-10-29

格式：PDF

页数：17

大小：549.17KB

( 4.5 )

《(完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf》由会员分享，可在线阅读，更多相关《(完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 6 章数组习题参考答案6-1 请同学上机运行代码。6-2 Option Explicit Option Base 1 Private Sub Command1_Click()Dim i As Integer,t As Integer Dim a(15)As Integer Randomize For i=1 To 15 a(i)=Int(100*Rnd)Text1=Text1&Str(a(i)Next i For i=1 To 7 t=a(i)a(i)=a(16-i)a(16-i)=t Next i For i=1 To 15 Text2=Text2&Str(a(i)Next i End

2、 Sub Private Sub Command2_Click()Text1=Text2=End Sub Private Sub Command3_Click()End End Sub 6-3 Option Explicit Dim a(20)As Integer Private Sub Command1_Click()Dim i As Integer Randomize For i=1 To 20 a(i)=Int(90*Rnd)+10 Text1=Text1&Str(a(i)Next i End Sub Private Sub Command2_Click()Dim i As Intege

3、r,j As Integer,f As Boolean Dim n As Integer For i=1 To 20 f=True For j=i+1 To 20 If a(i)=a(j)Then f=False Next j If f=True Then n=n+1 Next i Text2=n End Sub Private Sub Command3_Click()Text1=End Sub Private Sub Command4_Click()End End Sub 6-4 文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3

4、F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U

5、3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2

6、文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9

7、O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J

8、5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3

9、W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10

10、J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2Option Explicit Dim a(20)As Integer Private Sub Command1_Click()Dim i As Integer Randomize For i=1 To 20 a(i)=Int(90*Rnd)+10 Text1=Text1&Str(a(i)Next i End Sub Private Sub Command2_Click()

11、Dim i As Integer,j As Integer,max As Integer Dim n As Integer,w As Integer,p As Integer For i=1 To 20 n=0:p=i For j=1 To 4 If i 20 Then p=p-20 n=n+a(p)Next j If n max Then max=n w=i End If Next i Text2=max Picture1.Print w&-&w+4 End Sub Private Sub Command3_Click()Text1=End Sub Private Sub Command4_

12、Click()End End Sub 6-5 文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 Z

13、X6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编

14、码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F

15、9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3

16、 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文

17、档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O

18、3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2Dim a(5,5)As Integer Private Sub Command1_Click()For i=1 To 4 For j=1 To 5 a(i,j)=Int(9*Rnd)+1 Picture1.Print

19、 a(i,j);Next j Picture1.Print Next i End Sub Private Sub Command2_Click()For j=1 To 5 s=0 For i=1 To 4 s=s+a(i,j)Next i Text1=Text1&Str(s)Next j End Sub Private Sub Command3_Click()For i=1 To 4 s=0 For j=1 To 5 s=s+a(i,j)Next j Text2=Text2&Str(s)&Chr(13)&Chr(10)文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V

20、3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z1

21、0J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7

22、A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K

23、5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9

24、Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5

25、B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B

26、8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2Next i End Sub Private Sub Command4_Click()Text1=Text2=Picture1.Cls End Sub Private Sub Command5_Click()End End Sub 6-6 Option Explicit Private Sub Command1_Click()Dim a(

27、5,5),i As Integer,j As Integer Dim n As Integer,m As Integer,t As Integer Randomize For i=1 To 5 For j=1 To 5-1 a(i,j)=Int(40*Rnd)*2+10 Next j Next i For i=1 To 5 For j=5 To 6-i Step-1 a(i,j)=Int(40*Rnd)*2+11 Next j Next i For i=1 To 5 For j=1 To 5 Text1=Text1&Str(a(i,j)Next j Text1=Text1&vbCrLf 文档编

28、码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F

29、9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3

30、 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文

31、档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O

32、3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5

33、U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W

34、2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2Next i End Sub 6-7 同 6-4 6-8 Dim a(5,5)As Integer Private Sub Command1_Click()Randomize For i=1 To 5 For j=1 To 5 a(i,j)=Int(100*Rnd)+1

35、 Picture1.Print Right(&a(i,j),4);Next j Picture1.Print Next i End Sub Private Sub Command2_Click()For i=1 To 5 For j=1 To 5 s=s+a(i,j)Next j Next i Text1=Str(s)End Sub Private Sub Command3_Click()For i=1 To 5 For j=1 To 5 If i=1 Or j=1 Or i=5 Or j=5 Then 文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码

36、:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9

37、 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3

38、ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档

39、编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3

40、F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U

41、3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2

42、文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2s=s+a(i,j)End If Next j Next i Text2=Str(s)End Sub Private Sub Command4_Click()For i=1 To 5 For j=1 To 5 If i=j Or j=6-i Then s=s+a(i,j)End If Next j Next i Text3=Str(s)End Sub

43、6-9 Option Explicit Private Sub Command1_Click()Dim a()As Integer,i As Integer,j As Integer Dim max As Integer,k As Integer,f As Boolean Dim n As Integer,m As Integer,t As Integer n=InputBox(输入矩阵的行数：)m=InputBox(输入矩阵的列数：)ReDim a(n,m)Randomize For i=1 To n For j=1 To m a(i,j)=Int(90*Rnd)+10 Text1=Text

44、1&Str(a(i,j)文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文

45、档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O

46、3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5

47、U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W

48、2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J

49、9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5

50、J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2Next j Text1=Text1&vbCrLf Next i For i=1 To n max=0 For j=1 To m If a(i,j)max Then max=a(i,j)t=j End If Next j For k=1 T

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

4.3 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 完整 word 江苏省高等院校计算机等级考试 vb 书后习题答案

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：(完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf
链接地址：https://www.taowenge.com/p-55049197.html