微信小程序 > 微信公开课 > vb  小程序 计算器 【急！】
微信小程序，微信公开课，vb  小程序 计算器 【急！】

vb  小程序 计算器 【急！】

2019-03-12 17:02:19

微信公开课小程序热门讨论「vb  小程序 计算器 【急！】」最新回复-你很幸运,找到了以前的一个小程序PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click,Button2.Click,Button3.Click,Button4.Click,Button5.Click,Button6.Click,Button7.Click,Button8.Click,Button9.Click,Button10.Click,Button11.Click,Button12.Click,Button13.Click,Button14.Click,Button15.Click,Button16.Click,Button17.Click,Button18.ClickStaticnum,sum,flag,sflagAsIntegernum当前输入的数sum当前的结果flag取值中0代表空,1代表+,2代表,3代表*,4代表/,5代表=sflag0代表继续输入,1代表结束输入SelectCaseDirectCast(sender,Button).NameCaseButton1.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(1)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(1)num=1EndIfsflag=0CaseButton2.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(2)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(2)num=2EndIfsflag=0CaseButton3.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(3)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(3)num=3EndIfsflag=0CaseButton4.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(4)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(4)num=4EndIfsflag=0CaseButton5.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(5)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(5)num=5EndIfsflag=0CaseButton6.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(6)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(6)num=6EndIfsflag=0CaseButton7.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(7)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(7)num=7EndIfsflag=0CaseButton8.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(8)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(8)num=8EndIfsflag=0CaseButton9.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(9)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(9)num=9EndIfsflag=0CaseButton10.NameIfsflag=0ThenTextBox1.Text=TextBox1.Text&CStr(0)num=CInt(TextBox1.Text)ElseTextBox1.Text=CStr(0)num=0EndIfsflag=0上面是数字的取得CaseButton11.Name+TextBox1.Text=CStr(sum)flag=1sflag=1CaseButton12.NameTextBox1.Text=CStr(sum)flag=2sflag=1CaseButton13.Name*TextBox1.Text=CStr(sum)flag=3sflag=1CaseButton14.Name/TextBox1.Text=CStr(sum)flag=4sflag=1CaseButton15.Name进行+/*各种运算Ifflag=1Thensum=sum+numTextBox1.Text=CStr(sum)ElseIfflag=2Thensum=sumnumTextBox1.Text=CStr(sum)ElseIfflag=3Thensum=sum*numTextBox1.Text=CStr(sum)ElseIfflag=4Andnum0Thensum=sum/numTextBox1.Text=CStr(sum)ElseIfflag=5Thensum=sumTextBox1.Text=CStr(sum)EndIfflag=0sflag=1CaseButton16.NameCE清除num=0sum=0flag=0sflag=0TextBox1.Text=CaseButton17.Name删除num=0CaseButton18.Name退出EndEndSelectEndSub不过有点小bug,就是第一次运算会不成功.
我做好了，放在我的网盘里http://ys-b.ys168.com/?jsq.exe_50c2bsp0d6ejkisp0cp5bsqjt1bktrrm7b5bsqjksp2bu01f20f01z 更多有关「vb  小程序 计算器 【急！】」的疑问请扫码关注微信公开课+小程序！
标签：微信公开课,小程序
微信小程序，微信公开课，vb  小程序 计算器 【急！】

「vb  小程序 计算器 【急！】」热议话题订阅

方法1：微信扫描微信公开课小程序码即可订阅热议话题「vb  小程序 计算器 【急！】」

方法2：微信搜索微信公开课小程序名称进入，即可订阅热议话题「vb  小程序 计算器 【急！】」

方法3：微信网页访问即速商店，长按识别微信公开课小程序码即可订阅热议话题「vb  小程序 计算器 【急！】」

微信公开课小程序热议话题「vb  小程序 计算器 【急！】」由微信公开课原创摘录于微信小程序商店shop.jisuapp.cn，转载请注明出处。

微信公开课热议话题「vb  小程序 计算器 【急！】」由微信公开课开发者向微信用户提供，并对本服务内容、数据资料及其运营行为等真实性、合法性及有效性承担全部责任。

微信公开课小程序

更新时间：2019-03-12 17:02:19

一键制作小程序 全国代理小程序 订阅微信公开课