vb简单的计算机源代码

1、.vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。private sub command1_click()form1.caption = 欢迎使用智能计算器 载入默认正常显示if check1.value = 0 then 1类分歧elseif text1.text = or text2.text = then 2类分歧form1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text

2、2.text = then 2类分歧form1.caption = xataliq kurulditext3.text = 运算数值不能为空else 2类分歧dim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a + btext3.text = ctext1.text = text2.text = end ifif check1.value = 1 then 1类分歧elseif text1.text = or text2.text = then 2类分歧form1.caption = xataliq kuruldite

3、xt3.text = 运算数值不能为空elseif text1.text = and text2.text = then 2类分歧form1.caption = xataliq kurulditext3.text = 运算数值不能为空else 2类分歧dim d, e, f as doubled = val(text1.text)e = val(text2.text)f = d + etext3.text = fend ifend subprivate sub command2_click()form1.caption = 欢迎使用智能计算器if check1.value = 1 thenel

4、seif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = then精品.form1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim d, e, f as doubled = val(text1.text)e = val(text2.text)f = d - etext3.text = fend ifif check1.value = 0 th

5、enelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a - btext3.text = ctext1.text = text2.text = e

6、nd ifend subprivate sub command3_click()form1.caption = 欢迎使用智能计算器if check1.value = 1 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim d, e, f as doubled

7、 = val(text1.text)e = val(text2.text)f = d * etext3.text = fend if精品.if check1.value = 0 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim a, b, c as dou

8、blea = val(text1.text)b = val(text2.text)c = a * btext3.text = ctext1.text = text2.text = end ifend subprivate sub command4_click()form1.caption = 欢迎使用智能计算器if check1.value = 0 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text

9、2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif val(text2.text) = 0 thenform1.caption = xataliq kurulditext3.text = 分数的分子不能为零elsedim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a / btext3.text = ctext1.text = text2.text = end ifif check1.value = 1 thenelseif te

10、xt1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空精品.elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif val(text2.text) = 0 thenform1.caption = xataliq kurulditext3.text = 分数的分子不能为零elsedim d, e, f as doubled = val(text

11、1.text)e = val(text2.text)f = d / etext3.text = fend ifend subprivate sub command5_click()form1.caption = 欢迎使用智能计算器text1.text = text2.text = text3.text = end subprivate sub command6_click()form1.caption = 欢迎使用智能计算器form1.hideform3.showend subprivate sub command7_click()endend subprivate sub command8_

12、click()form1.caption = 欢迎使用智能计算器if text3.text thentext1.text = text3.texttext2.text = text3.text = elseform1.caption = xataliq kurulditext3.text = 没有结果无法继续精品.end ifend subprivate sub text2_change()end subprivate sub 乘_click()form1.caption = 欢迎使用智能计算器if check1.value = 1 thenelseif text1.text = or tex

13、t2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim d, e, f as doubled = val(text1.text)e = val(text2.text)f = d * etext3.text = fend ifif check1.value = 0 thenelseif text1.text = or te

14、xt2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a * btext3.text = ctext1.text = text2.text = end ifend subprivate sub 除_c

15、lick()form1.caption = 欢迎使用智能计算器精品.if check1.value = 0 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif val(text2.text) = 0 thenform1.caption = xataliq ku

16、rulditext3.text = 分数的分子不能为零elsedim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a / btext3.text = ctext1.text = text2.text = end ifif check1.value = 1 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = th

17、enform1.caption = 错误text3.text = 运算数值不能为空elseif val(text2.text) = 0 thenform1.caption = 错误text3.text = 分数的分子不能为零elsedim d, e, f as doubled = val(text1.text)e = val(text2.text)f = d / etext3.text = fend ifend subprivate sub munasiwetlik_click()form1.caption = 欢迎使用智能计算器form1.hideform3.showend sub精品.pr

18、ivate sub 继续_click()form1.caption = 欢迎使用智能计算器if text3.text thentext1.text = text3.texttext2.text = text3.text = elseform1.caption = xataliqtext3.text = 没有结果无法继续end ifend subprivate sub 加_click()form1.caption = 欢迎使用智能计算器if check1.value = 0 thenelseif text1.text = or text2.text = thenform1.caption = x

19、ataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = 错误text3.text = 运算数值不能为空elsedim a, b, c as doublea = val(text1.text)b = val(text2.text)c = a + btext3.text = ctext1.text = text2.text = end ifif check1.value = 1 thenelseif text1.text = or text2.text = thenfor

20、m1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elsedim d, e, f as doubled = val(text1.text)e = val(text2.text)f = d + etext3.text = f精品.end ifend subprivate sub 减_click()form1.caption = 欢迎使用智能计算器if check1.value = 1 thenelseif text1.text = or text2.text = thenform1.caption = xataliq kurulditext3.text = 运算数值不能为空elseif text1.text = and text2.text = the