UC知道VB的程序代码，达人来帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/26 09:05:35
利用选择结构语句完成以下程序设计任务：
1.已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。
2.设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换，转换结果显示在另一文本框中。（转换规则为：将其中小写字母转换为大写，大写字母转换为小写，其余非字母字符转换为“*”）。
3.设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色。
1.已知学号由9位数组成，如：032343001，其中前2位表示年级，第5位表示学生类型（类型规定如下：2-博士，3-硕士，4-本科，5-专科）。设计程序，从文本框输入学号，在另外两个文本框中显示该生年级及学生类型。
2.设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换，转换结果显示在另一文本框中。（转换规则为：将其中小写字母转换为大写，大写字母转换为小写，其余非字母字符转换为“*”）。
3.设计程序，利用3个复选框代表红、绿、蓝三颜色值，当选中复选框时表示颜色值为255，不选中为0，把通过RGB函数调配的颜色作为一个标签的背景色。
1.
sub do(numberx as integer)
text2="年级：" & left(numberx,2) & vbcrlf
select case mid(numberx,5,1)
case 2
x="博士"
case 3
x="硕士"
case 4
x="本科"
case 5
x="专科"
end select
text2=text2 & "学生类型：" & x
end sub
2.
Private Sub Text1_KeyPress(KeyAscii As Integer)
if KeyAscii>97 And KeyAscii<122 Then
text2=text2 & chrw(KeyAscii-32)
elseif KeyAscii>65 And KeyAscii<90 Then
text2=text2 & chrw(KeyAscii+32)
endif
End Sub
3.
创建3个check空间命名为red1、green1、blue1
public red,green,blue as integer
Private Sub Red1_Click()
if red1.value=1 then
red=255
else
red=0
label1.BackColor=RGB(red,green,blue)
End Sub
Private Sub blue1_Click()
if blue1.value=1 then
blue=255
else
blue=0
label1.BackColor=RGB(red,green,blue)
End Sub
Private Sub gree