질문과 답변· ··조회 8,891
구구단1에서욤...
저기 구구단1 강좌에서
제가
Private Sub Cmdguguresult_Click()
Dim intgugu As Integer
Dim inttemp As Integer
Dim strresult As String
lblguguresult.Caption = ""
intgugu = Val(Txtguguinput.Text)
For inttemp = 1 To 9
strresult = Val(intgugu) & "*" & Val(inttemp) & "=" & Val(intgugu * inttemp) & Chr$(13)
lblguguresult.Caption = lblguguresult.Caption + strresult
Next
End Sub
이처럼 프로그래밍하고 실행햇더니 실행화면이
chr$(13) 이 명령처럼
가령
1*2=2
1*3=3
이런식으로가야하잔아요 근데
1*2=2♪1*3=3....이렇게 계산값이 옆으로 퍼져나가네욤..
소스받아서 비교해봣는데 어디서 잘못됐는지 찾을수가없어서욤..
답변좀부탁드립니다..
비베 잘 배우고있습니다 감사합니다 ^^
제가
Private Sub Cmdguguresult_Click()
Dim intgugu As Integer
Dim inttemp As Integer
Dim strresult As String
lblguguresult.Caption = ""
intgugu = Val(Txtguguinput.Text)
For inttemp = 1 To 9
strresult = Val(intgugu) & "*" & Val(inttemp) & "=" & Val(intgugu * inttemp) & Chr$(13)
lblguguresult.Caption = lblguguresult.Caption + strresult
Next
End Sub
이처럼 프로그래밍하고 실행햇더니 실행화면이
chr$(13) 이 명령처럼
가령
1*2=2
1*3=3
이런식으로가야하잔아요 근데
1*2=2♪1*3=3....이렇게 계산값이 옆으로 퍼져나가네욤..
소스받아서 비교해봣는데 어디서 잘못됐는지 찾을수가없어서욤..
답변좀부탁드립니다..
비베 잘 배우고있습니다 감사합니다 ^^
댓글 2
위 소스 그대로 실행해도 잘 보이거든요..
Chr$(13) 뒤에 & Chr$(10)을 추가해 보실래요?
혹시나...
그걸 true로 바꾸고 해보세요.