Тип данных - VB

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kl, sok, vk As Integer
        If ComboBox2.Text = "Добрый" Then
            sok = 25
        End If
        If ComboBox2.Text = "Моя семья" Then
            sok = 29
        End If
        If ComboBox2.Text = "J-7" Then
            sok = 23
        End If
        If ComboBox2.Text = "Витаминос" Then
            sok = 18
        End If
        kl = Val(TextBox3.Text)
        vk = kl * sok
        Label7.Text = Str(vk)
 
        Cell1 = New DataGridViewTextBoxCell()
        Cell2 = New DataGridViewTextBoxCell()
        Cell3 = New DataGridViewTextBoxCell()
        Cell4 = New DataGridViewTextBoxCell()
        Cell5 = New DataGridViewTextBoxCell()
        Cell6 = New DataGridViewTextBoxCell()
        Cell7 = New DataGridViewTextBoxCell()
 
        Cell4 = sok ' <---
        Cell6 = Int(kl) ' <---
        Cell7 = Int(vk) ' <---

        row1 = New DataGridViewRow()
        row1.Cells.Add(Cell1)
        row1.Cells.Add(Cell2)
        row1.Cells.Add(Cell3)
        row1.Cells.Add(Cell4)
        row1.Cells.Add(Cell5)
        row1.Cells.Add(Cell6)
        row1.Cells.Add(Cell7)
 
        From1.DataGridView1.Rows.Add(row1)
    End Sub
End Class