# Re: 关于进位问题??拜托高手指点一下!!

Posted by Tim on November 10, 1998 at 10:29:42:

In Reply to: 关于进位问题??拜托高手指点一下!! posted by harry on November 09, 1998 at 02:26:24:

: 学校要交一个"计算机"的程式,(指一般的电子计算机)
: 但是进位的问题一直无法解决,
: 例如按"1"键按三次,应该会显示 111,这个部分正确,
: 但是先按"1"键两次再按"2"键一次,应该要显示 112 ,
: 我的程式却显示 211,反过来了,请问是哪里写错了??
: 作业快来不及交了,请高手们指点一下,谢谢

: 程式码如下:

: Private Sub Command2_Click(): Private Sub Command1_Click()
: N = 1
: sum = sum + N * 10 ^ m
: m = m + 1
: Label1.Caption = sum
: End Sub

: h = 2
: sum = sum + h * 10 ^ m
: m = m + 1
: Label1.Caption = sum
: End Sub

: 程式用vb6.0 ,作业系统win95 OSR2

Private Sub Command1_Click(index as integer )

Label1.Caption = Label1.Caption & trim(str(index))
sum=val(Label1.Caption )

End Sub

Follow Ups: