不会做的两道VB题

来源：百度知道 编辑：UC知道 时间：2024/09/28 08:26:37
1.已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。

2.设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色。

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim A As String
Dim B As String
Dim C As String
Dim D As String
If KeyAscii <> 8 Then
If Len(Text1.Text) >= 2 Then
A = Left(Text1.Text, 2)
Select Case A
Case "01"
B = "一年级"
Case "02"
B = "二年级"
Case "03"
B = "三年级"
Case "04"
B = "四年级"
Case Else
B = "对不起，没有此年级！"
End Select
End If
If Len(Text1.Text) >= 5 Then
C = Mid(Text1.Text, 5, 1)
Select Case C
Case "2"
C = "博士"