UC知道会VB的朋友帮帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/22 22:10:04
编写一个计算机某学生体育课总评成绩的多窗体程序。
在达标项目（2项,各占20％）窗体输入达标项目成绩；
在考试项目（2项,各占30％）窗体输入考试项目成绩；
在总评成绩窗体显示总评成绩；
在标准模块定义全局变量及建立判断是否达标的子程序。
要求：
输入的数据和计算结果必须能显示于界面
达标标准：40分以下不达标；40－60达标；60分以上合格。
写出各事件的源程序
写出程序的运行结果
会的朋友请把代码发给我ybsshs@sina.com
在达标项目（2项,各占20％）窗体输入达标项目成绩；
在考试项目（2项,各占30％）窗体输入考试项目成绩；
在总评成绩窗体显示总评成绩；
在标准模块定义全局变量及建立判断是否达标的子程序。
要求：
输入的数据和计算结果必须能显示于界面
达标标准：40分以下不达标；40－60达标；60分以上合格。
写出各事件的源程序
写出程序的运行结果
会的朋友请把代码发给我ybsshs@sina.com
七个标签..分别为 1.学生姓名 2.输入考试成绩 3.课程1成绩
4.课程2成绩 5.课程3成绩.....7课程5成绩.
六个文本控件 ,其中 "输入成绩标签没有文本,其余都要."还有两个命令按扭,
分别为 计算并退出,另一个为 退出.
还要一个图片框控件.
代码如下..
Private Sub Command1_Click()
Dim s, s1, s2, s3, s4, s5 As Single
Dim cont, cont1, cont2, cont3 As Boolean
s1 = Val(Text2.Text)
s2 = Val(Text3.Text)
s3 = Val(Text4.Text)
s4 = Val(Text5.Text)
s5 = Val(Text6.Text)
s5 = Val(Text6.Text)
s = s1 + s2 + s3 + s4 + s5
cont1 = s > 450
cont2 = s1 >= 88 And s2 >= 88 And s3 >= 88 And s4 >= 88 And s5 >= 88
cont3 = s1 >= 95 And s2 >= 95 And s3 >= 95 And s4 >= 80 And s5 >= 80
cont = cont1 Or cont2 Or cont3
Picture1.Cls
If cont Then
Picture1.Print "学生"; Text1.Text; "的成绩优秀"
Else
Picture1.Print "学生"; Text1.Text; "的成绩不是优秀"
End If
End Sub
Private Sub Command2_Click(