100万的车有哪些:我用VB编写计算器时遇到的问题

来源:百度文库 编辑:神马品牌网 时间:2024/05/06 20:00:40
1、怎么让数字从右边显示?
2、当已开始输入“0”的时候,怎么让他不能输入?

1,
Text1.Alignment = 1 '0是左,1是右,2是中
2,
'你可以判断当前入一个数字之后,其值是否为零,如果为零则不显示。如
Dim dblDisplayValue,dblCurrentValue As Double
Dim intInputValue as Interger
Dim blHavePoint as Boolean '记录是否输入了小数点
dblDisplayValue=val(Trim(txtDisplay.Text))
intInpuValue=Index '这是设输入是按钮控件,索引值代表对应输入值
If (Not blHavePoint) Then '没有输入小数点时
if(dblDispalyValue=0 And intInputValue=0) Then '输入为零时
TxtDisplay.Text="0."
dblCurrentValue=CDbl(txtDisplay.Text) '记录当前值
Else '当输入不为零时,输入数插入到小数点左边
txtDisplay.Text=CStr(Fix(dblCurrentValue)) & CStr(intInputValue) & "."
dblCurrentValue=CDbl(txtDispaly.Text)
End If
Else '已经输入小数点,输入连在后面
TxtDisplay.Text=TxtDisplay.Text & CStr(InputValue)
dblCurrentValue=Val(TxtDisplay.Text)
End If

呵呵。你刚开始编吧。后边还有很多问题你。
实在不是一句话可以解决的。你可能应该再把基本原来学习一下,更扎实些。把编程的概念和逻辑再弄清些。
做好能问问高手。

计算器的源代码很多地方都可以免费下载一个。

1。是让数字在文本框里从右边显示?

修改文本框的Aligment属性为1-right就可以了

2。用个判断语句,如果输入为零时,不赋值给文本框就可以了。