三道关于编程的问题，尽快解答

按要求编写下列程序
1、在名称为form1的窗体上画两个标签（名称为label1和lebel2,标题分别为“姓名”和“性别”）、两个文本框（名称分别为text1、text2,text属性均为空白）和一个命令按钮（名称为command1,标题为输入).然后编写命令按钮的click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入姓名和性别，并分别在两个文本框内显示出来。要求：程序中不得使用任何变量。文本框内容不能被修改。
2，名称为form1的窗体上画一个图片框，编写适当的事件过程，在运行时，每单击图片框一次，就在图片框中输出：“A＋B＝C”一次，每单击图片框的窗体一次，就在窗体中输出：“A＋B＝C”一次。要求程序中不得使用变量，每个事件过程只能写一条语句
3、分别用函数和字过程实现：求一维数组A中的最大值，主程序随即产生10个100-200之间的疏，调用函数和字过程，分别显示最大值。
请具体一点把程序编辑出来，就是不会才问的阿

1.
Private Sub Command1_Click()
Text1.Text = InputBox(Text1.Text, "xingming")
Text2.Text = InputBox(Text2.Text, "xingbie")
End Sub

Private Sub Form_Load()
Text1.Locked = True
Text2.Locked = True
End Sub

2.
Private Sub Label1_Click()
Label1.Caption = Label1.Caption & "A+B=C" & vbCrLf
End Sub

3.
Dim a(9) As Integer
Dim mb As Integer

Private Sub Form_Load()
Dim i As Integer

For i = 0 To 9
a(i) = Int(Rnd * (200 - 100 + 1)) + 100
Next

S_GetMax

MsgBox mb

MsgBox F_GetMax
End Sub

Private Sub S_GetMax()
Dim i As Integer
Dim j As Integer

For i = 0 To 9
If j < a(i) Then
j = a(i)
End If
Next

mb = j
End Sub