长江大学
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 -
