Partial Class Problem1
    Inherits System.Web.UI.Page
    Protected Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim selectedLang As String = ListBox1.SelectedItem.Text

        ' Dictionary with basic statements
        Dim introDict As New Dictionary(Of String, String) From {
            {"Java", "Java is a high-level, object-oriented programming language."},
            {"JavaScript", "JavaScript is used to make web pages interactive."},
            {"C#", "C# is a modern programming language by Microsoft for .NET development."},
            {"C++", "C++ is an extension of C with object-oriented features."},
            {"C", "C is a powerful general-purpose programming language."},
            {"Python", "Python is a beginner-friendly, high-level scripting language."},
            {"SQL", "SQL is used to manage and query databases."},
            {"HTML", "HTML is used to structure web pages."},
            {"CSS", "CSS is used to style and layout web pages."},
            {"PHP", "PHP is a server-side scripting language for web development."}
        }

        ' Show intro if found
        If introDict.ContainsKey(selectedLang) Then
            Label1.Text = introDict(selectedLang)
        Else
            Label1.Text = "No description available."
        End If
    End Sub
End Class




Partial Class Problem2
    Inherits System.Web.UI.Page
    Protected Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click
        Dim x As Integer = Integer.Parse(ddlRows.SelectedItem.Text)
        Dim y As Integer = Integer.Parse(ddlCols.SelectedItem.Text)

        Dim table As New Table()
        table.BorderColor = Drawing.Color.Red
        table.BorderWidth = Unit.Pixel(2)

        For i As Integer = 1 To x
            Dim row As New TableRow()

            For j As Integer = 1 To y
                Dim cell As New TableCell()

                If i = x Then
                    ' Last row: radio button list
                    Dim rbl As New RadioButtonList()
                    rbl.Items.Add("1")
                    rbl.Items.Add("2")
                    rbl.Items.Add("3")
                    rbl.Items.Add("4")
                    rbl.RepeatDirection = RepeatDirection.Horizontal
                    cell.Controls.Add(rbl)
                    cell.BackColor = Drawing.Color.LightGray
                ElseIf j = 1 Then
                    ' First column: language dropdown
                    Dim ddl As New DropDownList()
                    ddl.Items.Add("Urdu")
                    ddl.Items.Add("English")
                    ddl.Items.Add("Arabic")
                    ddl.Items.Add("Chinese")
                    cell.Controls.Add(ddl)
                Else
                    ' Other cells: show {i, j}
                    cell.Text = "{" & i & ", " & j & "}"
                End If

                row.Cells.Add(cell)
            Next

            table.Rows.Add(row)
        Next

        TablePlaceholder.Controls.Clear()
        TablePlaceholder.Controls.Add(table)
    End Sub
End Class