有哪些信誉好的足球投注网站- 1、本文档共11页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
信 息 工 程 学 院
程序设计基础(VB) 实习报告
学院: 班级 姓名 学号: 成绩: 实习四、数组与自定义数据类型
实验目的：掌握数组与自定义类型的使用方法
实验过程
例题05-11 输出文件中的10名学生3门考试成绩，要求按照分数由高到低排列，并输出姓名，各科分数，平均分
例题05-12在窗体上建立一个由100个命令按钮组成的10行10列控件数组。
例题05-13 输入两个数，根据不同的运算符计算相应的运算结果。
习题1
代码：
Option Base 1
Private Sub Command1_Click()
Dim a%(1 To 8), b%(1 To 8), c%(1 To 8), i%, j%÷
Picture1.Print 数组3中的数据为：
Open F:\马鸿雁VB\实验4\XT1-1.txt For Input As #1
Open F:\马鸿雁VB\实验4\XT1-2.txt For Input As #2
For i = 1 To 8
Input #1, a(i)
Input #2, b(i)
c(i) = a(i) + b(i)
Picture1.Print c(i);
Next i
Close
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Picture1.FontSize = 16
End Sub
习题2
代码
Option Base 1
Private Sub Command1_Click()
Dim a%(), max As Integer, i%, j%, k%
n = 4: m = 3: k = 1
ReDim a(1 To n, 1 To m)
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd * 10)
k = k + 1
Picture1.Print Tab(4 * ((k - 2) Mod 3) + 2); a(i, j);
max = a(1, 1): x = 1: y = 1
Next j, i
For i = 2 To n
For j = 2 To m
If max a(i, j) Then max = a(i, j): x = i: y = j
Next j, i
Picture1.Print
Picture1.Print 最大的数是： max Chr(10) 它在第 x 行 ，第 y 列
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.FontSize = 18
Picture1.FontSize = 18
End Sub
习题3
代码
Option Base 1
Dim a(10), b(10), i%
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox(请输入一个元素：)
k = k + 1
Picture1.Print Tab(3 * ((k - 1) Mod 10) + 2); a(i);
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 10
b(i) = a(i)
Next i
For i = 1 To 5
t = b(i)
b(i) = b(11 - i)
b(11 - i) = t
Next i
For i = 1 To 10
k = k + 1
Picture2.Print Tab(3 * ((k - 1) Mod 10) + 2); b(i);
Next i
End Sub
Private Sub Command3_Click()
End
En
文档评论（0）