快来帮忙啦！！！！

按照条件。写出相应的条件语句： （用vb编程）
1.当C字符变量中第三个字符是"C"时，利用MsgBox显示“yes”，否则显示"no".
3.利用If语句,Select Case语句两种方法求三个数 x , y,z中的最大值，并将其放入Max变量中
2.利用If语句，Select Case语句两种方法计算分段函数： 快一点 谢谢了

1. 用VB提供的取子字符串函数

2. '找出x与y中的大者放入max中
if x > y then max = x else max = y
'如果z比max大,那么把z放入max中,否则不作处理
if max < z then max = z
此时max中存放的是x, y, z中的大者

3. 设函数为y = f(x)
if x < a then y = f1(x)
if x >=a and x < b then y = f2(x) else y = f3(x)

1、
Private Sub form_Click()
c = InputBox("请输入一个字符串")
If Mid(c, 3, 1) = "C" Then
MsgBox ("yes")
Else: MsgBox ("no")
End If
End Sub
2、Private Sub form_Click()
Dim x As Single, y As Single, t As Single
x = InputBox("请输入一个数值")
If x < 0 Then
y = 3 / x
ElseIf x = 0 Then
y = 2
Else:
y = 5 / x
End If
t = Round(y, 2)
Print t
End Sub
或
Private Sub form_Click()
Dim x As Single, y As Single, t As Single
x = InputBox("请输入一个数值")
Select Case x
Case Is < 0
y = 3 / x