成绩分布vb代码（vb考试分数分布）[20240424更新]

本篇文章给大家谈谈成绩分布vb代码，以及vb考试分数分布对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,8
• 2、vb做一个成绩统计程序
• 3、VB成绩统计代码 急
• 4、vb编写一个程序,从键盘输入10个学生成绩,统计最高分,最低分和平均值
• 5、求VB编程成绩排序代码

VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,8

Private Sub Command1_Click()

Dim a(20) As Integer

Cls

c1 = 0: c2 = 0: c3 = 0: c4 = 0: c5 = 0: c6 = 0

Randomize

Print "20个成绩："

For i = 1 To 20

  a(i) = Int(Rnd * 101)

  Print a(i);

  If i Mod 10 = 0 Then Print

Next i

For i = 1 To 20

  If a(i) = 100 Then

    c1 = c1 + 1

  Else

    If a(i) 89 Then

      c2 = c2 + 1

    Else

      If a(i) 79 Then

        c3 = c3 + 1

      Else

        If a(i) 69 Then

          c4 = c4 + 1

        Else

          If a(i) 59 Then

            c5 = c5 + 1

          Else

            c6 = c6 + 1

          End If

        End If

      End If

    End If

  End If

Next i

Print: Print "统计结果："

Print "  100分："; c1

Print "90~99分："; c2

Print "80~89分："; c3

Print "70~79分："; c4

Print "60~69分："; c5

Print " 0~59分："; c6

End Sub

或者换一种写法（运行效果完全一样）：

Private Sub Command1_Click()

Dim a(20) As Integer

Dim cj(5 To 10) As Integer

Cls

Randomize

Print "20个成绩："

For i = 1 To 20

  a(i) = Int(Rnd * 101)

  Print a(i);

  t = a(i) \ 10

  If t 5 Then t = 5

  cj(t) = cj(t) + 1

  If i Mod 10 = 0 Then Print

Next i

Print: Print "统计结果："

Print "  100分："; cj(10)

Print "90~99分："; cj(9)

Print "80~89分："; cj(8)

Print "70~79分："; cj(7)

Print "60~69分："; cj(6)

Print " 0~59分："; cj(5)

End Sub

vb做一个成绩统计程序

第一窗体按钮代码：

dim stunum$,stuName$,stuEn%,stuMath%A,stuComputer%

stuNum = text1.text:stuName=text2.text

stuEn=val(text3.text):stuMath=val(text4.text):stuComputer=val(text5.text)

open "d:\score" for append as #1

write #1,stuNum,stuName,stuEn,stuMath,stuComputer

close #1

第二个窗体按钮代码

dim stunum$,stuName$,stuEn%,stuMath%A,stuComputer%,stuTot%,stuAvg!

open "d:\score for input as #1

open "d:\scorecount" for output as #2

do while not eof(1)

inut #1,stuNum,stuName,stuEn,stuMath,stuComputer

stuTot=stuEn+stuMath+stuComputer

stuAvg=stuTot/3

write #2,stuNum,stuName,stuEn,stuMath,stuComputer,stuTot,stuAvg

listbox1.additem stuNum " " stuName " " stuEn _

" " stuComputer " " stuTot " " stuAvg

loop

close

VB成绩统计代码 急

假设总分为100分：

Public w As Integer

Public e As Integer

Public r As Integer

Private Sub Command1_Click()

a = InputBox("请输入学生姓名")

c = InputBox("请输入该学生的成绩")

If c 100 Then

MsgBox ("输入错误，请重新输入")

Else

If 0 = c And c 60 Then

w = w + 1

End If

If 60 = c And c 80 Then

e = e + 1

End If

If 80 = c And c 100 Then

r = r + 1

End If

Select Case c

Case 0 To 59

MsgBox ("该学生成绩为不及格")

Case 60 To 79

MsgBox ("该学生成绩为良")

Case 80 To 100

MsgBox ("该学生成绩为优")

End Select

End If

End Sub

Private Sub Command2_Click()

Print "不及格人数为："; w

Print "良等级人数："; Spc(2); e

Print "优等生人数："; Spc(2); r

End Sub

注：command1的作用是点击就弹出输入框输入学生的姓名和成绩，command2的作用就是现实各个等级的学生人数。

vb编写一个程序,从键盘输入10个学生成绩,统计最高分,最低分和平均值

dim i as integer

dim sum as single

dim Mymax as single

dim Mymin as single

dim MyAvg as single

dim x as single

x=val(inputbox("输入第1个成绩："))

sum=x

Mymax=x

Mymin=x

for i=2 to 10

　x=val(inputbox("输入第" i "个成绩："))

　sum = sum + x

　if xMymax Then Mymax =x

　if xMymin Then Mymin =x

next i

MyAvg = sum /10

print "最高分：";Mymax

print "最低分：";Mymin

print "平均分：";MyAvg

求VB编程成绩排序代码

Dim i, j As Integer

Dim num(5), score(5) As Integer '数组num用于记录学号，数组score用于记录成绩

For i = 1 To 5

nx = "请输入第" + Str(i) + "个学生的学号"

sx = "请输入第" + Str(i) + "个学生的成绩"

num(i) = InputBox(nx, "数据输入框", Default)

score(i) = InputBox(sx, "数据输入框", Default)

Next i

For i = 1 To 4

For j = 1 To 5 - i

If score(j) score(j + 1) Then

temp = score(j)

score(j) = score(j + 1)

score(j + 1) = temp

temp = num(j)

num(j) = num(j + 1)

num(j + 1) = temp

End If

Next j

Next i

For i = 1 To 5

Print "学号："; num(i); Space(5); "成绩："; score(i);

Print

Next i

关于成绩分布vb代码和vb考试分数分布的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。