本文目录一览

1，怎样用VBNET制作计算器

简单的说拖出一些控件，设置相应的caption和属性等等，双击每个button控件，进行相应的处理，即可
在text_keydown事件中，弄几个临时变量，符号前的存一块，符号后的存一块，如果按下=那么把计算结果放上面

怎样用VBNET制作计算器

2，用 VB NET制作计算器

Private Sub button1_Click() If InStr(Textbox1.Text, ".") Then Exit Sub Else Text1.Text = Text1.Text & "." End If End Sub

用 VB NET制作计算器

3，用VBNET做一个简单的计算器当然是做的越高级越好不要生成的

明天教吗？我今晚熬夜帮你做个，记得分啊。
计算机光要加减乘除的那种吗？　　先在窗口添加一个textbox文本框名字是textbox1，再添加一个标签，属性text：（为一个空格）名字是label1，再加一个textbox文本框，名字是textbox2，加标签，名字是label2，属性text：“=”（引号不算），在后面加一个文本框，名字为textbox3.下一行添加五个按钮，名字分别是Button1（属性text：加），Button2（属性text：减）.……最后一个是，清空，按钮　　双击Button1，输入代码：dim a,b,c as single(回车!)a=textbox1.text(!)b=textbox2.text（!）a+b=c(!),textbox3=c(!)　　后面分别点击不同的按钮，把“+”改成“-”，“*”“/”行了　　双击最后按钮输入textbox1=""(!)textbox2=""(!)textbox3=""就ok了，累死我了呵呵（！）表示回车昂

用VBNET做一个简单的计算器当然是做的越高级越好不要生成的

4，如何用VBNET编写计算器

简单的说拖出一些控件，设置相应的caption和属性等等，双击每个button控件，进行相应的处理，即可
主要的代码如下： private sub form_load() label1.caption = " 第一个数" label1.alignment = 2 label2.caption = "第二个数" label2.alignment = 2 label3.caption = "计算结果" label3.alignment = 2 label4.backcolor = rgb(255, 255, 255) label4.borderstyle = 1 label4.caption = "" text1.text = "" text2.text = "" end sub private sub plus_click() x = val(text1.text) + val(text2.text) label4.caption = format(str$(x), "0.000") end sub private sub minus_click() x = val(text1.text) - val(text2.text) label4.caption = format(str$(x), "0.000") end sub private sub multiply_click() x = val(text1.text) * val(text2.text) label4.caption = format(str$(x), "0.000") end sub private sub divide_click() if text2.text = 0 then msgbox "除数不能为0！", 16, " 系统提示" text2.text = "" label4.caption = "" else x = val(text1.text) / val(text2.text) label4.caption = format(str$(x), "0.000") end if end sub private sub clean_click() text1.text = "" text2.text = "" label4.caption = "" text1.setfocus end sub

5，怎么用VBNET编写计算器

Public Class Form1 Private Sub tijiao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tijiao.Click Dim a, b, c As String a = TextBox1.Text b = TextBox2.Text If aa(a, b) Then End If If Me.jia.Checked Then MessageBox.Show("结果等于" & Val(a) + Val(b), "提示") End If If Me.jian.Checked Then MessageBox.Show("结果等于" & Val(a) - Val(b), "提示") End If If Me.cheng.Checked Then MessageBox.Show("结果等于" & Val(a) * Val(b), "提示") End If If Me.chu.Checked Then MessageBox.Show("结果等于" & Val(a) / Val(b), "提示") End If End Sub Private Function aa(ByVal bb As String, ByVal cc As String) As Boolean If bb = "" Then MessageBox.Show("请输入", " 提示") aa = False ElseIf Not IsNumeric(cc) Then MessageBox.Show("请输入数字", "警告") aa = False Else aa = True End If End FunctionEnd Class
什么样的，是很多按钮的嘛？

文章TAG：net怎么制作计算器net  怎么  制作  
下一篇