您现在的位置是： 首页 > 教育分析 教育分析

vb高考知识点,高考vb总结

tamoadmin 2024-05-20 人已围观

简介Private Sub Form_Load() Dim 高考日期 As Date Me.AutoRedraw = True 高考日期 = CDate("2009-6-30") Me.Print "距高考还有 " & DateDiff("y", Now, 高考日期) & " 天"End SubPrivate?Sub?Main() Dim?Scores(1?To?10)?As

vb高考知识点,高考vb总结

Private Sub Form_Load()

Dim 高考日期 As Date

Me.AutoRedraw = True

高考日期 = CDate("2009-6-30")

Me.Print "距高考还有 " & DateDiff("y", Now, 高考日期) & " 天"

End Sub

Private?Sub?Main()

Dim?Scores(1?To?10)?As?Single

Call?InputScore(Scores)

Call?PrintScore(Scores)

Call?AboveAverage(Scores)

Call?ScoreSort(Scores)

Call?PrintScore(Scores)

Call?FindMaxMin(Scores)

End?Sub

Private?Sub?InputScore(sngScores()?As?Single)

Dim?i?As?Single

For?i?=?LBound(sngScores)?To?UBound(sngScores)

sngScores(i)?=?InputBox("请输入第"?&?i?&?"名学生高考成绩：",?"高考成绩管理系统",?600)

Next?i

End?Sub

Private?Sub?PrintScore(sngScores()?As?Single)

Dim?i?As?Integer

Load?Form1

Form1.Show

For?i?=?LBound(sngScores)?To?UBound(sngScores)

Form1.Print?sngScores(i);

Next?i

Form1.Print

End?Sub

Private?Sub?ScoreSort(sngScores()?As?Single)

Dim?i?As?Integer,?j?As?Integer,?t?As?Single

For?i?=?LBound(sngScores)?To?UBound(sngScores)?-?1

For?j?=?i?+?1?To?UBound(sngScores)

If?sngScores(j)?>?sngScores(i)?Then

t?=?sngScores(i)

sngScores(i)?=?sngScores(j)

sngScores(j)?=?t

End?If

Next?j

Next?i

End?Sub

Private?Sub?AboveAverage(sngScores()?As?Single)

Dim?i?As?Integer,?k?As?Integer,?sngSum?As?Single,?sngAverage?As?Single

For?i?=?LBound(sngScores)?To?UBound(sngScores)

sngSum?=?sngSum?+?sngScores(i)

Next?i

sngAverage?=?sngSum?/?UBound(sngScores)

For?i?=?LBound(sngScores)?To?UBound(sngScores)

If?sngScores(i)?>?sngAverage?Then

k?=?k?+?1

End?If

Next?i

Form1.Print?"平均值为：";?sngAverage,

Form1.Print?"高于平均值的人数为：";?k

End?Sub

Private?Sub?FindMaxMin(sngScores()?As?Single)

Dim?i?As?Integer,?sngMax?As?Single,?sngMin?As?Single

sngMax?=?sngScores(LBound(sngScores))

sngMin?=?sngScores(LBound(sngScores))

For?i?=?LBound(sngScores)?+?1?To?UBound(sngScores)

If?sngScores(i)?>?sngMax?Then?sngMax?=?sngScores(i)

If?sngScores(i)?<?sngMin?Then?sngMin?=?sngScores(i)

Next?i

Form1.Print?"最高分为：";?sngMax,?"最低分为：";?sngMin

End?Sub

文章标签： # sngScores # As # Sub

上一篇：福建录取信息查询系统,福建录取信息查询系统官网

下一篇：2020年最小高考生_2017高考最小考生

点击排行

随机内容