代码如下：Dimt,t1AsIntegerDimx,yAsDoublePublicSubcom()x=Val(l1.Caption)SelectCaset1CaseIs=1:y=y+xCaseIs=2:y=y-xCaseIs=3:y=y*xCase...

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。我们现在要把command拉出四个...

1、创建控件组的方法首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选...

dim操作asstringprivatesub加减乘除(byvalsenderasobject,byvaleaseventargs)handles加.click,减.click,乘.click,除.click上一个数=cdbl(输入框.text)'存储当前输入的数值输入框.text...

1、打开VB新建一个EXE。2、如图画上4个按钮控件表示加减乘除，再画上3个文本控件表示两个数与和数，再画一个标签控件加入“=”号。当然，界面可以自己发挥。3、画好之后，就可以把控件进行命名，注意是属性栏的Caption项...

1、在电脑桌面打开软件“VisualBasic”，新建一个文件2、放置3个“Text”部件和4个“Command”部件，调整好位置；3、对这7个小部件进行修饰，更改command部件的名称为“+、-、*、/”方便识别，清除“Test”部件里的内容...

控件名称Caption控件名称Caption\x0d\x0a窗体Form1计算器\x0d\x0a按钮Command1（0）～Command1（9）Caption0～9\x0d\x0a按钮Command6（0）+\x0d\x0a按钮Command6（1）...

很简单的：窗口放入四个COMMAND控件（Caption属性分别为+、－、X、÷），三个TEXT控件，再放入三个Label控件（Caption属性分别为：操作数1、操作数2和计算结果），窗口的Caption属性改为“四则运算”代码如下：PrivateSub...

添加1个Command控件数组(4个符号)用作加减乘除按钮，name=cmdArithmetic，index=0~3好了，然后复制以下代码运行即可成功啦：'PrivatestrCalculateTypeAsString'存放运算类型PrivateblnCalFlagAsBoolean'标记是否已经...

/"IfOp2=0ThenMsgBox"除数不能为0",48,"计算器"ElseOp1=CDbl(Op1)/CDbl(Op2)EndIfCase"="Op1=CDbl(Op2)Case"%"Op1=CDbl(Op1)*CDbl(Op2)...