Question

谁能帮我写一下这俩道VB题的程序，我很急用请大家帮忙，谢谢！

一、
打开project1目录下的lx1.vbp文件，在窗体Form1、Form2上分别添加一个命令按钮，如下图所示。
当单击第一个窗体上的按钮时，显示第二个窗体，隐藏第一个窗体；而单击第二个窗体上的按钮时，显示第一个窗体，隐藏第二个窗体。
二、
打开project2目录下的lx2.vbp文件。
单击窗体，在弹出的输入框中输入任意字符，如果输入的字符是数字，如9，则显示“9是一个数字”；如果输入的字符是大写英文字母，如D，则显示“D是一个英文大写字母”；如果输入的字符是小写英文字母，如e，则显示“e是一个英文小写字母”；如果输入的字符不属于以上几种类型，则显示为“其他字符”。

Answer 1

一：
Form1中写：
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub

Form2的代码写：
Private Sub Command1_Click()
Form1.Show
Me.Hide
End Sub

二：
Private Sub Form_Click()
Dim a As String * 1
a = InputBox("请输入字符："胡蔽)
Select Case Asc(a)
Case Asc("0") To Asc("9"): Print a & "是一个数字"
Case Asc("a") To Asc("z"): Print a & "是一个英文小写字母"
Case Asc("A") To Asc("Z"): Print a & "是一个英文败做察大写字母"
Case Else: Print "其察茄他字符"
End Select
End Sub

Answer 2

'========第一个按钮代码
form2.show
unload me
'========第二个按钮腔哪代码
form1.show
unload me
=============================

Private Sub Form_Click()
x = InputBox("输入一个字符")
Select Case Asc(x)
Case Is < 48
Print "其他字符"
Case Is <笑梁 58
Print "数字"
Case Is < 65
Print "其他字符"
Case Is < 91
Print "大写字母"
Case Is < 97
Print "其他字符"
Case Is < 123
Print "小写字母伍升码"
Case Else
Print "其他字符"
End Select
End Sub

Answer 3

“下图”的图在哪？