vb计算器编程详解

vb计算器编程的详细过程部分代码如下用到控件有一个按钮控件数组command10-16共17个一个frame一个label一个文本框代码如下：PrivateSubCommand1_Click(IndexAsInteger)Dimjia,jian,cheng,chuAsDoubleDimqian,houAsStringIfIndex=0ThenIfjisuan=1ThenText1.Text=7EndIfText1.Text=Text1.Text&7jisuan=0ElseIfIndex=1ThenText1.Text=Text1.Te