自考本科vb编程的代码

你邮箱是什么？我发给你

第一题：在Change事件中进行判断，主要条件是9位学号，前2位年级，第5位类型 Private Sub Text1_Change() If Len(Text1.Text) = 9 Then '等于9位才进行判断 Select Case Left(Trim(Text1.Text), 2)'取前2位判断年级 Case "01" Text2.Text = "一年级" '01,02,03代表年级 Case "02" Text2.Text = "二年级" Case "03" Text2.Text = "三年级" Case Else Text2.Text = "" Text3.Text = "" '超出范围即无效学号，清空显示 End Select Select Case Mid(Trim(Text1.Text), 5, 1)取第5位判断类型 Case "2" Text3.Text = "博士" '2-博士，3-硕士，4-本科，5-专科 Case "3" Text3.Text = "硕士" Case "4" Text3.Text = "本科" Case "5" Text3.Text = "专科" Case Else Text2.Text = "" Text3.Text = "" '超出范围即无效学号，清空显示 End Select Else Text2.Text = "" Text3.Text = "" End If End Sub 第二题：主要条件是即时转换，对写入及删除产生一个即时效果，大小写及非字字母转换，所以在Change中判断，用ASC、Chrw检测及转换。 Private Sub Text4_Change() Text5.Text = "" '清空显示框 For i = 1 To Len(Text4.Text)'取每一位字符 Select Case Asc(Mid(Text4.Text, i, 1))'对每一位字符判断 Case 65 To 90 '大写字母 Text5.Text = Text5.Text & ChrW(Asc(Mid(Text4.Text, i, 1)) + 32)'转小写 Case 92 To 122 '小写字母 Text5.Text = Text5.Text & ChrW(Asc(Mid(Text4.Text, i, 1)) - 32)'转大写 Case Else Text5.Text = Text5.Text & "*"'转星号 End Select Next End Sub 第三题：由于用复选框作选择，复选框的值为0或1，数值型，问题条件只是0或255固定值，所以直接乘255就可以满足条件。（建议使用三个滑块，效果更好） 在3个复选框的Click事件中写 Private Sub Check1_Click() Form1.BackColor = RGB(Check1.Value * 255, Check2.Value * 255, Check3.Value * 255) End Sub Private Sub Check2_Click() Form1.BackColor = RGB(Check1.Value * 255, Check2.Value * 255, Check3.Value * 255) End Sub Private Sub Check3_Click() Form1.BackColor = RGB(Check1.Value * 255, Check2.Value * 255, Check3.Value * 255) End Sub

1.sub do(numberx as integer)text2="年级：" & left(numberx,2) & vbcrlfselect case mid(numberx,5,1)case 2x="博士"case 3x="硕士"case 4x="本科"case 5x="专科"end selecttext2=text2 & "学生类型：" & xend sub2.Private Sub Text1_KeyPress(KeyAscii As Integer)if KeyAscii>97 And KeyAscii<122 Thentext2=text2 & chrw(KeyAscii-32)elseif KeyAscii>65 And KeyAscii<90 Thentext2=text2 & chrw(KeyAscii+32)endifEnd Sub3.创建3个check空间命名为red1、green1、blue1public red,green,blue as integerPrivate Sub Red1_Click()if red1.value=1 thenred=255elsered=0label1.BackColor=RGB(red,green,blue)End SubPrivate Sub blue1_Click()if blue1.value=1 thenblue=255elseblue=0label1.BackColor=RGB(red,green,blue)End SubPrivate Sub green1_Click()if green1.value=1 thengreen=255elsegreen=0label1.BackColor=RGB(red,green,blue)End Sub

在窗体上放置两个CommandButton，分别为Command1和Command2，代码如下：