Write a vb program to find the data type || vb program for find simple interest

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

 

Add a Comment

Your email address will not be published. Required fields are marked *

eight − 4 =