常用计算器及变压器直流电阻计算
PublicsumAsDoublePublickAsStringPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase1Text1.Text=Text1.Text&1Case2Text1.Text=Text1.Text&2Case3Text1.Text=Text1.Text&3Case4Text1.Text=Text1.Text&4Case5Text1.Text=Text1.Text&5Case6Text1.Text=Text1.Text&