Dim selSht As Variant
    Dim i As Long
    ReDim selSht(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        selSht(i) = Sheets(i).Name
    Next i
    Sheets(selSht).Select

s = 'A'
s_code = ord(s)

<ListView.ItemContainerStyle>
     <Style TargetType = "ListViewItem">
         <Setter Property = "HorizontalContentAlignment" Value = "Stretch" />
     </ Style>
</ ListView.I

		Dim x As Double
		Dim Degrees As Double
		Degrees = 23.45
		x = Math.Sin((Math.PI / 180.0) * Degrees)

			int h_div, h_rm, m_div, m_rm, i = 0;
			while(minutes < 0){
				minutes = minutes + 60;
				i++;
			}
			hours = hours - i;
			while(hours < 0) hours = hours + 24;
			m_div = Math.DivRem(minutes, 60, out m_rm);
			h_div = Math.DivRem(hours + m_div, 24, out h_rm);
			Console.WriteLine(String.Format("{0:D2}:{1:D2}",

		Dim i As integer
		textBox2.Text = ""
		Dim arr1() As String = System.Text.RegularExpressions.Regex.Split(textBox1.text, "\s")
		For i = 0 to UBound(arr1) - 1
			textBox2.text = textBox2.text & StrReverse(arr1(i)) & " "
		Next i
		textBox2.text = textBox2.text & StrReverse(arr1(i))

namespace Assignment1
{
	public partial class frmTaskB : Form
    {
        public frmTaskB()
        {
            InitializeComponent();
        }
        
        System.Drawing.Color FColor;
        System.Drawing.Color BColor;

        private void btnExit_Click(object

TextBox2.Text = StrReverse(reverse_text)

import re
txt = 'hello,world hello/world hello+world hello-world'
new_word = []
for word in re.split('[ ,+-/]',txt):
    new_word = word[0].upper() + word[1:len(word)-1] + word[len(word)-1].upper()
    print (new_word)

Option Explicit
Dim myTb() As Class1
Private Sub UserForm_Initialize()
    Dim i As Long
    ReDim myTb(1 To 9)
    For i = 1 To 9
        Set myTb(i) = New Class1
        Set myTb(i).Tb = Me.Controls("TextBox" & CStr(i))
    Next
End Sub

Option Explicit

peoplesinfo = soup.find('div', class_='peoples-info')
for element in peoplesinfo.find_all("li"):
    el = element.find_all("strong")
    print(element.text.replace(el[0].text, ''))

vi -x [file name]