
我假设你已经会新建窗体项目,你的运算程式只牵涉2个数字与一种运算。
窗体放2个textbox用来输入运算的数字命名为“tb1,tb2”,然后4个button分别为“加减乘除”命名为“b1,b2,b3,b4”,一个label用来显示结果命名为“L1”。
然后代码里面写一个运算指令(具体如下):
private void DoCount(string N1,string N2,string Type)
{
L1.Text = ""
try{
double Num1 = double.parse(N1)
double Num2 = double.parse(N2)
if(Type=="+")
{
L1.Text = (Num1+Num2).ToString()
}else if(Type=="-")
{
L1.Text = (Num1-Num2).ToString()
}else if(Type=="x")//小写字母X
{
L1.Text = (Num1*Num2).ToString()
}else if(Type=="/")//键盘问号键那个符号
{
L1.Text = (Num1/Num2).ToString()
}else
{
MessageBox.Show("不明运算,运算中止!")
}
}catch(exception ex)
{
MessageBox.Show(ex.Message)
return
}
}
然后每个按键的触发里面写(在窗体上双击你拖拉出来的按键):
+号键:
DoCount(tb1.Text,tb2.Text,"+")
-号键:
DoCount(tb1.Text,tb2.Text,"-")
乘号键:
DoCount(tb1.Text,tb2.Text,"x")
除号键:
DoCount(tb1.Text,tb2.Text,"/")
所有异常将以默认错误提示显示,例如非法字符输入,0为被除数等.如果你要自定义错误提示,就要自己写代码分析了.
欢迎百度hi密我跟进问题.
解决方案有两个,楼主可根据具体情况使用:1、采用“复制粘贴”的方式。
(1)“销售量”在B列,选用其他空闲列,假如D列空闲。
(2)在D1单元格输入复制粘贴公式=IF(B1>10000,B1-2000,B1)然后下拉复制填充;
(3)选中D列,点击鼠标右键-〉“复制”-〉选中B列->鼠标右键->"选择性"粘贴;然后删除D列即可;
2、直接在B列将大于10000的数据去掉2000.此时,下面的VBA程序就非常适合。
(1)VBA代码如下:
Sub tty()
Dim i As Long 'i分别是sheet1中行检索计数器
For i = 1 To 65536 '1表示从B列第一行开始,到B列的最大行结束,实际起止行号由使用者根据记录确定
If Sheet1.Cells(i, "B") >10000 Then '凡是大于10000的则减去2000
Cells(i, "B") = Sheet1.Cells(i, "B") - 2000
Cells(i, "B").Interior.ColorIndex = 3 '减去2000后用红色背景显示该数据已修改
End If
Next
End Sub
(2)至于如何把VBA代码放进你的EXECL表里, *** 作步骤:
首先需降低“宏”的安全性。打开你的EXCEL表->选择"工具"->"宏"->"安全性"->选择“中”或“低”。
按“ALT”+“F11”键->双击sheet1->把上面的代码完整的复制到窗体内-->保存并运行即可。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)