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

资源ID：55049197 资源大小：549.17KB 全文页数：17页
资源格式： PDF 下载积分：4.3金币

快捷下载

会员登录下载

微信登录下载

三方登录下载：

微信扫一扫登录

下载资源需要4.3金币

邮箱/手机：
温馨提示：	快捷下载时，用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）。如填写123，账号就是123，密码也是123。
支付方式：
验证码：	换一换

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

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

第 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 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 Integer,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文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 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()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_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 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 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 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 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码: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(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 文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码: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 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文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码: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 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=Text1&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文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 ZX6B8K5V3W2文档编码:CN9Z10J9O3F9 HO5B7A5J5U3 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

注意事项

本文（(完整word版)江苏省高等院校计算机等级考试vb书后习题答案.pdf）为本站会员（Q****o）主动上传，淘文阁 - 分享文档赚钱的网站仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知淘文阁 - 分享文档赚钱的网站（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。