第一个:Public Xuv Mysub4(x As Integer) x=3*x-1 if x