vb做成绩单
Ⅰ 用VB编程评定学生的成绩等。在文本框(text1)中输入某一成绩单机命令按钮(commond1)后在标签上(label1)成A
我就用SELECT CASE 吧
Private Sub Command1_Click()
Select Case Val(Text1)
Case Is < 60
Label1.Caption = "不合格"
Case Is < 80
Label1.Caption = "合格"
Case Is < 90
Label1.Caption = "良好"
Case Is >= 90
Label1.Caption = "优秀"
End Select
End Sub
Ⅱ VB显示成绩单
Ⅲ 求vb大神帮忙写三个代码，很简单的，非常感谢！（2）某门课n个学生中，将高于平均分的成绩输出 （3
for i=1 to n
if s(i)>avg then print s(i)
next
for i=0 to 9
a(i)=mid(s,i+1,1)
next
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
for i=1 to UBound(MyArray)print myweek(i)
next
Ⅳ 设计一简单VB，根据用户输入的成绩分数（百分制），判定成绩等级。判定按钮实现等级的判定， 【接下行】
'加入3个command、2个label、1个text控件，位置自己调整一下
Option Explicit
Private Sub Command1_Click()
If IsNumeric(Text1) Then '是否为数字
If Val(Text1) >= 0 And Val(Text1) <= 100 Then '分数范围0-100
If Val(Text1) < 60 Then
Label2 = "结果：" & "不及格"
ElseIf Val(Text1) < 75 Then
Label2 = "结果：" & "及格"
ElseIf Val(Text1) < 90 Then
Label2 = "结果：" & "良好"
Else
Label2 = "结果：" & "优秀"
End If
Else
Label2 = "结果：" & "无效的分数"
End If
Else
Label2 = "结果：" & "无效的数字"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Label2 = "结果："
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Label1 = "分数："
Text1 = ""
Label2 = "结果："
Command1.Caption = "判定"
Command2.Caption = "清除"
Command3.Caption = "退出"
End Sub
Ⅳ 简单VB代码求总成绩
Private Sub Command1_Click()
Text4.Text = CInt(Val(Text1.Text) * 0.15 + Val(Text2.Text) * 0.25 + Val(Text3.Text) * 0.6)
End Sub
Ⅵ vb简单考试系统怎么写计算成绩代码
要学会使用模块（虽然这里可以不）
新建一个标准模块
Public a & '定义一个整形变量
这样无论在哪个窗体都可以调用这个变量
当满足答对条件后 a=a+1
Ⅶ VB编程题目急求！ 有一个20名学生的成绩单，包含每个学生的姓名和5门课的成绩。姓名依次记作A~
窗体上加一个按钮，完整代码如下：
Option Explicit
Private Type Record
MyName As String * 1
MyAve As Single
End Type
Private Sub Command1_Click()
Dim d(20, 5) As Integer
Dim x As Integer
Dim i As Integer
Dim j As Integer
Dim EvrAve(20) As Single
Dim MySum As Integer
Dim MyName(20) As String
Dim T As Single
Dim Ts As String
'产生姓名
For i = 1 To 20
MyName(i) = Chr(64 + i)
Next i
'随机生成分数，保存到数组
Randomize
For i = 1 To 20
For j = 1 To 5
d(i, j) = Int(Rnd * 51 + 50)
Debug.Print d(i, j),
Next j
Debug.Print
Next i
'统计平均成绩
For i = 1 To 20
MySum = 0
For j = 1 To 5
MySum = MySum + d(i, j)
Next j
EvrAve(i) = MySum / 5
Debug.Print EvrAve(i)
Next i
'排序
For i = 1 To 19
For j = i + 1 To 20
If EvrAve(i) < EvrAve(j) Then
T = EvrAve(i)
EvrAve(i) = EvrAve(j)
EvrAve(j) = T
Ts = MyName(i)
MyName(i) = MyName(j)
MyName(j) = Ts
End If
Next j
Next i
For i = 1 To 20
Debug.Print MyName(i), EvrAve(i)
Next i
'写文件file5.txt
Open "c:\file5.txt" For Output As #1
For i = 1 To 20
Print #1, MyName(i), EvrAve(i)
Next i
Close #1
Dim MyRecord As Record
'写文件file6.txt
Open "c:\file6.txt" For Random As #1
For i = 1 To 20
MyRecord.MyName = MyName(i)
MyRecord.MyAve = EvrAve(i)
Put #1, i, MyRecord
Next i
Close #1
End Sub
Ⅷ 成绩管理系统VB制作单机版升级为网络版，技术上如何实现
换成 B/S架构的 还是只要能在局域网能用就行？
换成B/S的要重写代码
局域网的只要数据库支持就可以
Ⅸ vb，如何将录入的文本信息保存在另一个窗体中 作业。我编写了一个高考成绩录入系统，前面都是简单的姓名
Dim a()
Dim n As Long
Private Sub Command1_Click()
b = InputBox("请输入要查询同学姓名")
For i = 1 To UBound(a)
If InStr(1, a(i), b) <> 0 Then
MsgBox a(i)
jf = True
Exit For
End If
Next
If jf = False Then MsgBox b & Space(1) & "无该生信息"
jf = False
End Sub
Private Sub Command2_Click()
c = InputBox("请输入 姓名，班级，学号。之间 以 一个空格为分界")
ReDim Preserve a(n + 1)
a(n + 1) = c
n = n + 1
MsgBox "已保存"
End Sub
Private Sub Form_Load()
Open "d:\j.txt" For Input As #1
Do Until EOF(1)
n = n + 1
ReDim Preserve a(n)
Line Input #1, a(n)
Loop
Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "d:\j.txt" For Output As #1
For i = 1 To n
Print #1, a(i)
Next
Close
End Sub
Ⅹ 谁有access+vb做的学生成绩管理系统，简单一点就好！！
我有access+vb做的学生成绩管理系统