Write a Visual Basic program to find the data type
Private Sub Command1_Click() Dim i As Integer Dim str As String str = Text1.Text i = IsNumeric(str) If i = 0 Then Text2.Text = "string data" Else: Text2.Text = "numeric data" End If End Sub
Write a vb (visual basic ) program for find simple interest
Private Sub Command1_Click() Dim P As Integer, R As Integer, T As Integer, SI As Variant P = Text1.Text R = Text2.Text T = Text3.Text SI = P * R * T / 100 Text4.Text = SI Text5.Text = P - SI End Sub Private Sub Command2_Click() End End Sub