비주얼베이직을 통한 1-100까지 파일만들기

소개글

비주얼베이직을 통해서 1-100까지 프린트 되게 하는 프로그램입니다..

목차

1.문제
2.소스
3.화면

본문내용

1. 문제

1에서 100까지 숫자를 각각 다음의 형식으로 text. txt에 저장하는 프로그램을 작성하시오.

1 2 3 4 5
6 7 8 9 10
..............100

2. 소스

Private Sub Command1_Click()

dim i as integer
open "c:\Documents and Settings\user\바탕 화면\test.txt" for output as #1
for i= 1 to 100
print #1,i,
if((i mod 5)=0) then
print #1
next
close #1
print "file save ok"

End Sub

참고 자료

없음