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

Posted by Windows NT user on November 09, 1998 at 17:13:51:

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

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

: 程式码如下:
: Private Sub Command1_Click()
: N = 1
: sum = sum + N * 10 ^ m
: m = m + 1
: Label1.Caption = sum
: End Sub

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

: 程式用vb6.0 ,作业系统win95 OSR2
首先,我想计算机的按键应用控件阵列写成,如index=0指定为按键0,index=1指定为1等.
那么程式码应如下:
dim sum as long
dim m as integer
private sub command1_click(index as integer)
dim i as integer
for i = 0 to 9
if i = index then
sum = sun * 10^m + i
m=m+1
end if
next i
label1.caption=sum
end sub

Follow Ups: