Vb 숙제는 VB 마스터가 절실히 필요합니다! ! ! ! ! ! ! ! ! ! ! ! ! 1

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

★★★ ★ 양식1.frm

버전? 5.00

시작? VB 입니다. 형식? 폼1?

제목? = "폼1"

클라이언트 높이 =3090

클라이언트 왼쪽? =60

ClientTop=450

ClientWidth? =3690

LinkTopic="Form 1 "

ScaleHeight? =3090

ScaleWidth? =3690

StartUpPosition? =3? 창 기본값

시작? VB 입니다. 프레임? 프레임 2?

제목? = "당첨번호"

키? =735

왼쪽 = 240

TabIndex=8

탑? = 1680

폭 =30 15

시작? VB 입니다. 텍스트 상자? Txt2?

키? =270

지수 =4

왼쪽 =2400

TabIndex= 13

Text="0 "

탑? =240

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt2?

키? =270

지수 =3

왼쪽 = 1800

TabIndex= 12

Text="0 "

탑? =240

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt2?

키? =270

지수 =2

왼쪽 = 1320

TabIndex= 1 1

Text="0 "

탑? =240

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt2?

키? =270

지수 = 1

왼쪽 =840

TabIndex= 10

Text="0 "

탑? =240

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt2?

키? =270

지수 =0

왼쪽 = 240

TabIndex=9

Text="0 "

탑? =240

폭 =375

끝

끝

시작? VB 입니다. 프레임? 프레임1?

제목? = "숫자 선택"

키? =855

왼쪽 = 120

TabIndex= 1

탑? = 120

폭 =3375

시작? VB 입니다. 텍스트 상자? Txt 1?

키? =270

지수 =4

왼쪽 =2880

TabIndex=7

Text="0 "

탑? =360

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt 1?

키? =270

지수 =3

왼쪽 =2400

TabIndex=6

Text="0 "

탑? =360

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt 1?

키? =270

지수 =2

왼쪽 =1920

TabIndex=5

Text="0 "

탑? =360

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt 1?

키? =270

지수 = 1

왼쪽 = 1440

TabIndex=4

Text="0 "

탑? =360

폭 =375

끝

시작? VB 입니다. 텍스트 상자? Txt 1?

키? =270

지수 =0

왼쪽 =960 도

TabIndex=3

Text="0 "

탑? =360

폭 =375

끝

시작? VB 입니다. CommandButton? Cmd 1?

제목? = "기계 선택"

키? =375

왼쪽 = 120

TabIndex=2

탑? =240

폭 =735

끝

끝

시작? VB 입니다. CommandButton? Cmd2?

제목? = "추첨"

키? =375

왼쪽 =840

TabIndex=0

탑? = 1200

폭 = 18 15

끝

시작? VB 입니다. 라벨? Lbl?

제목? = "승리의 국면"

키? =255

왼쪽 = 240

TabIndex= 14

탑? =2640

폭 =30 15

끝

끝

속성? VB_Name? =? "양식 1"

속성? VB_GlobalNameSpace? =? 잘못된

속성? VB_Creatable? =? 잘못된

속성? VB_PredeclaredId? =? 진짜

속성? VB_Exposed? =? 잘못된

기능? 선언 (d ()? 로? Integer' 는 5 개의 난수를 생성합니다.

열어? 잘못? 이력서? 그리고 나서

암담한가? 답 (4)? 로? 정수

회신:

T? =? 0

하다

D(t)? =? ((30? *? Rnd ()? \? 1)? +? 1)

T? =? T? +? 1

순환? 까지? T? & gt? 4.5

뭐 때문에? 나? =? 0? 어디 가? 사

갑 (나)? =? D (a)

그리고 나서

뭐 때문에? 나? =? 0? 어디 가? 사

뭐 때문에? J? =? 0? 어디 가? 사

만약? A(j)? & gt? 갑 (나)? 그리고 나서

Q? =? 답 (1)

갑 (나)? =? 아 (j)

A(j)? =? Q

끝? 만약

그리고 나서

그리고 나서

뭐 때문에? 나? =? 0? 어디 가? 셋；삼；3

만약? 갑 (나)? =? 나? +? 1)? 그리고는요? 고토? 여기

그리고 나서

끝? 기능

개인? Sub? Cmd 1_Click ()

암담한가? F(4)? 로? 정수

법사? F ()

뭐 때문에? 나? =? 0? 어디 가? 사

Txt 1(i). 문자? =? F (a)

그리고 나서

끝? 잠수함

개인? Sub? Cmd2_Click ()

열어? 잘못? 이력서? 그리고 나서

Q? =? 0

뭐 때문에? 나? =? 0? 어디 가? 사

뭐 때문에? X? =? 0? 어디 가? 사

만약? X? & lt& gt? 나? 그리고는요. Val(txt 1(x))? =? Val(txt 1(i))? 그리고는요? Q? =? 1:? 종료? 을 위해

그리고 나서

그리고 나서

만약? Q? =? 1? 그리고는요? MsgBox? "번호는 중복됩니다. 번호':? 종료? 잠수함

암담한가? 답 (4)? 로? 정수

법사? 답 ()

T? =? 0

뭐 때문에? 나? =? 0? 어디 가? 사

Txt2(i). 문자? =? 답 (1)

뭐 때문에? J? =? 0? 어디 가? 사

만약? 갑 (나)? =? Int(Val(txt 1(j)). 본문)? 그리고는요? T? =? T? +? 1

그리고 나서

그리고 나서

선택? 사건? T

사건? 0

Lbl. 제목? =? \ "죄송합니다! 상을 받지 못했다 "

사건? 1

Lbl. 제목? =? "축하합니다! 너는 5 등상에 당첨되었다. "

사건? 2

Lbl. 제목? =? "축하합니다! 너는 4 등상에 당첨되었다. "

사건? 셋；삼；3

Lbl. 제목? =? "축하합니다! 너는 3 등상에 당첨되었다. "

사건? 사

Lbl. 제목? =? "축하합니다! 너는 2 등상에 당첨되었다. "

사건? 다섯；오；5

Lbl. 제목? =? "축하합니다! ! ! 너는 일등상에 당첨되었다. "

끝? 고르다

끝? 잠수함

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

★★★★MSSCCPRJ. 싱글 소켓 조정기 (single-channel controller)

[SCC]

SCC = 이거? 그래요? 대답? 출처? 코드? 제어? 문서

[프로젝트1.vbp]

SCC_Project_Name=this? 프로젝트? 그래요? 그렇지 않나요? 아래? 출처? 코드? 통제

SCC _ Aux _ Path =< 이것? 그래요? 앤? 비어 있습니까? 문자열? 뭐 때문에? 저거요? Mssccprj.scc? 파일>

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

★★★★ Project 1.vbp

Type=Exe

Form=Form 1.frm

Reference = * \ g {00020430-0000-0000-0000000046} # 2.0 # 0 # c: \ windows \ sysssy 자동화

Startup="Form 1 "

Command32= ""

Name = "프로젝트1"

HelpContextID="0 "

CompatibleMode="0 "

MajorVer= 1

MinorVer = 0

RevisionVer=0

자동 increment ver = 0

ServerSupportFiles=0

버전 회사 이름 = "-"

컴파일 유형 =0

OptimizationType=0

FavorPentiumPro(tm)=0

CodeViewDebugInfo=0

NoAliasing=0

BoundsCheck=0

오버플로우 검사 =0

FlPointCheck=0

FDIVCheck=0

UnroundedFP = 0

StartMode=0

무인 =0

예약됨 =0

ThreadPerObject=0

MaxNumberOfThreads= 1

[MS? 거래? 서버]

자동 새로 고침 = 1

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

***3 개의 문서