Private Sub Command1_Click ( ) Dim x As Integer Dim y As Integer Dim z As Integer x=Val(Text1.Text) y=5:z=10 If x-y>5 Then z=z-y Else z=y-z End If End Sub |
Private Sub Command2_Click ( ) Dim x As String,y As String,ans As String x=Text1.Text For i=Len(x) To 1 Step-2 ans=ans+Mid(x,i,1) Next i
Text2.Text=ans End Sub |