VB上机实习报告(6)

长江大学

ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)

If b(N) > max Then max = b(N) Loop Close #1

Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)

Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5

Print Tab(1); \人数：\ X1 = max / 2 / N w = X1

For i = 1 To N X2 = X1 + w Y2 = b(i)

Line (X1, 0)-(X2, Y2), QBColor(12), BF CurrentX = X1

CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub

Private Sub Command5_Click() Cls

Dim a$(), b%(), N, max N = 0 max = 0

Open App.Path + \化学.txt\ Do While Not EOF(1) N = N + 1

ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)

If b(N) > max Then max = b(N) Loop Close #1

Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)

Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5 Print Tab(1); \人数：\ X1 = max / 2 / N w = X1

For i = 1 To N

- 26 -

长江大学

X2 = X1 + w Y2 = b(i)

Line (X1, 0)-(X2, Y2), QBColor(14), BF CurrentX = X1

CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub

Private Sub Command6_Click() Cls

Dim a$(), b%(), N, max N = 0 max = 0

Open App.Path + \体育.txt\ Do While Not EOF(1) N = N + 1

ReDim Preserve a(N) ReDim Preserve b(N) Input #1, a(N), b(N)

If b(N) > max Then max = b(N) Loop Close #1

Scale (0, max * 1.5)-(max * 1.5, -max * 0.1)

Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -0.5 Print Tab(1); \人数：\ X1 = max / 2 / N w = X1

For i = 1 To N X2 = X1 + w Y2 = b(i)

Line (X1, 0)-(X2, Y2), QBColor(10), BF CurrentX = X1

CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next i End Sub

Private Sub Command7_Click() Form1.Show Form3.Hide End Sub

- 27 -

长江大学

- 28 -

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库VB上机实习报告(6)在线全文阅读。