mtwm.net
当前位置:首页 >> 计算器清除的vB代码 >>

计算器清除的vB代码

Vb中计算器清空只需对输出结果也即输入的文本框的Text 属性赋值为0.Private Sub Cmdcls_Click() Text1.Text = 0 End SubText 属性

如果计算结果是打印在屏幕上的 就用cls 如果是在文本框中输出的话就直接输出一个空串就行 这样 “”

这个不难我把答案给你..现做的.. 这个一看初学者就懂 Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) '第三个文本框中的值等于第一个文本框的值加上第二个文本框的值End Sub Private Sub Command2_Click()

文本框名称1.txt=""文本框名称2.txt=""文本框名称3.txt=""以此类推如果不懂.加我QQ 575658638

=:先将字符转化成数值,然后运算就好运算法用if语名句至于具体的代码我就不写了,告诉你编写方法应该就可以了

计算机?是计算器吧?清除只要把显示的哪个text清空 然后变量也清空就可以了啊

控件:text,com1,com2三种 属性设置:无 命令如下:通用命令 Option Explicit Dim v As Boolean Dim s As Integer Dim x As Double Dim y As Double 按钮一的命令 Private Sub Command1_Click(Index As Integer) If Form1.Tag = "s" Then If Index

设置按钮command1 Private Sub Command1_Click() Text1 = "0" End Sub 如果还不对 ,那请你把问题写明白点

dim a as integer,b%,c% Private Sub Form_Load()form1.caption="计算器"command1.caption="加"command2.caption="减"command3.caption="乘"command4.caption="除"end sub Private Sub Command1_Click() a=val(text1.text)

Dim a As Integer, b As Double, c As Double Private Sub Command1_Click(Index As Integer) Select Case Index Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 Text1.Text = Text1.Text & Index Case 10 If InStr(Text1.Text, ".") = flase Then Text1.Text = Text1.

网站首页 | 网站地图
All rights reserved Powered by www.mtwm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com