VB 실험! ! ! 도와주세요! ! ! 전문가 여러분, 아래 코드 작성을 도와주세요! ! ! 매우 감사합니다! ! !

1.

Private Sub Form_Load()

'상품 교환 번호를 입력하는 데 사용되는 텍스트 상자 텍스트1

'A label1, text1 앞에 배치된 텍스트 상자의 목적을 설명하는 데 사용됩니다.

'6개의 label2는 먼저 label2를 그린 다음 마우스 오른쪽 버튼을 클릭하여 복사한 다음 붙여넣고 선택합니다. 배열 컨트롤이 생성되고 디스플레이는 6자리 복권 번호로 표시됩니다.

Text1.Text = ""

Label1.Caption = "복권 번호를 입력하세요."

Command1.Caption = "복권"

For i = 0 ~ 5

Label2(i) = "0"

다음

End Sub

Private Sub Command1_Click()

Dim s As String

Dim z As Integer

그렇지 않은 경우 IsNumeric(Text1.Text) Then Exit Sub 'text1은 숫자가 아닙니다. If Len(CStr(Fix(Val(Text1.Text))))) lt gt; 숫자 정수 및 종료

Randomize '난수 생성기 초기화

If Command1.Caption = "Lottery" Then

Command1.Caption = "Stop"

Command1.Caption = "Stop" 동안 수행

For i = 0 To 5

Label2(i).Caption = Int(Rnd * 10)

다음

DoEvents

루프

Else

Command1.Caption = "복권"

For i = 0 To 5

s = Mid(Text1.Text, i 1, 1)

If s = Label2(i).Caption Then z = z 1

p>

다음

If z = 0 Then

MsgBox "숫자가 하나도 나오지 않았습니다! ", vbOKOnly, "상품을 받으세요"

ElseIf z gt; 0 And z lt; 6 Then

MsgBox "당첨을 축하합니다" amp; z amp; "number! ", vbOKOnly, "Win"

Else

MsgBox "대박 당첨을 축하합니다. 모든 숫자가 올바르게 선택되었습니다! ", vbOKOnly, "Win"

End If

End If

End Sub

2.

개인 하위 Command2_Click

()

Dim s As Variant, fz As Variant 's는 계산 결과, fz는 계산식의 분자입니다.

Dim n As Variant, fm As Variant 'n은 계산 공식 n과 fm은 계산 공식의 분모입니다.

Dim i As Variant 'i는 순환 값입니다.

fm = 1

fz = 1

s = 0

n = InputBox("n의 값을 입력해주세요. n이 클수록 계산 시간이 길어집니다.", "Input", "10" ) 'n의 값을 입력하세요

If Not IsNumeric(n) Then Exit Sub '입력이 숫자가 아니면 종료

If InStr(1, n, "." ) lt;gt; 0 Then Exit Sub 'If 입력 n에 소수가 포함된 경우 종료

For i = 2 To n

fz = fz i

fm = fm * i

s = s fz / fm

다음

MsgBox "n=" amp; "언제" vbCrLf amp; ; _

"s =(1 2)/(1×2) …… (1 2 3 …… n)/(1×2×3×……×n)의 값은 " amp; vbCrLf amp; _

s, vbOKOnly, "계산 결과"

End Sub

귀하의 것은 VB6이 아닙니다