VB程序设计实验报告

《VB程序设计》实验单元

实验报告

专业班级：新闻班姓名：学号：指导教师：完成时间：2013.5

、实验题目

数组和自定义类型

、实验环境

Visual Basic6.0 程序软件

、实验目的

1.掌握数组的声明、数组元素的引用。

2.掌握固定长度数组和动态数组的使用差别。

3.掌握数组常用的操作和常用算法。

4.掌握列表框和组合框的使用。

5.掌握自定义类型及数组的使用。

四、实验内容

1.随机产生30—100 （包括30、100）的10个正整数，求最大值、

最小值、平均值，并显示整个数组的只和结果。

2.随机产生20个学生成绩，统计各分数段人数。即0~59、60-69、

70~79、80~89、90-100,并显示结果。

五、实验步骤

1.打开VB界面，建立工程

2.在窗体窗口设置界面

3.属性窗口控件对象属性设置

4.编写程序代码

5.运行程序及调试

6.程序建立，保存工程文件

六、实验结果

第1题:

0 Foi rnl

70 53 57 最大值81 4 41 86 最大值96 52 76 5 最大值76 82 82 58 最大值98 28 30 77

最小值1 79 37 96 最小值4 59 46 29 最小值5

98 91 22 最小值22 87 62 69 10 76 81 平均值

5 94

平均值 64 26 平均值 70 54,

3 36 56・

98 24 53 平均值67.7

79 28 4 99 1 平均值36. 5 29 38 30 94 97 40 27 16 16 64

最大值97 最小值 16

平均值45. 1

41 41 71 32 63 20 18 58 8 45

Q Forml L

70 53 57 28~~77 1 76 81~70

最大值81 最小值1 平均值54, 3

最小值 平均值39. 7 8 最大值71

Private Sub ConfDandl_Cli

To 10

a(i) = Int(Rnd * 100)

Next i mina 二 naxa = a avera 兰

For i -：

If a(i)

If aCi) avera - Next i

For i *

Me. Font Size = 17

Me.ForeCol or = vbBlack Print a(iX Hext i Print

Me.ForeColor 二 vbBlue

Print "最大值"：max a,"最小値"，loin 邑，"平均值"，aver a / 10 End Sub

aCl) (1) (1)

To 10

max a Then max a = mina Then mi na = +

a(i)

a

2 > <

1 To 10

aver a

第2题:

G For ml

15 3 2 R s n f e ^

5

7 a

7

T X 4

3

19

7 7 7产生弄S 示数

II

Private Sub CohJiiandl.Cl (>

P ar i = 0 To 19

a GJ = Int (Rnd + 101)

If 1 Tlod 4 - lOi Then FictureU Ft Lnt

Pleturel. FontSize - 16

PictLcrel. Print aCi) ; •:

Neit i

End Sub _____________________________

Private Sub Ccniti andZ_Cl i0 Bin s(5 To 9)

For 1 = 0 To 19

k = ati) \ 10 Seiect Case k Case 0 To 5 s(5)二s(5/ + 1

Case 9 T& IQ sC9) = sC^) + 1

Case 6 To 3 £(k) = sCk) + 1

End Select

Hext i

For i = 5 To g If

£(i) <> 0 Then

Pictures, Print

Neil L End Sub

匕、实验体会

1.VB编程虽然有些复杂，但是在一步步的学习探索中我也找到了其中的乐趣，看着自己一点点地在进步，真的很兴奋很激动。

2.在这次实验课题中，我在学习、参考书中的案例的同时，还上

网查询了一些小的课外知识，例如：如何改变Print之后的字体颜色、

字号、位置等并加以尝试、应用。在我实验成功时，内心真的是抑制

不住地开心。

3.当然，实验的过程，并不是一帆风顺的，然而，只要静下心来,

仔细思考，问题总能解决的。“世上无难事，只怕有心人”，在今后的

学习中，我也要敢于面对困难、着力解决，把困难看成挑战，努力超

越自我。

4.数组很奇妙，我想更进一步地了解它、用VB使用它，掌握常用的操作和算法。