tattyan39
@tattyan39

Are you sure you want to delete the question?

If your question is resolved, you may close it.

Leaving a resolved question undeleted may help others!

We hope you find it useful!

何のプログラムか当てられる?

ゲームを組んでいるのだか、社長になれない。

+1 がエラーにならなければなぁ。

Public Class Form1
    Dim you_clss_leveler As Integer = 0
    Dim hexsa_1 As Int128 = &H0FFFF_FFFF_FFFF_FFFF
    Dim hexsa_1a As Int128 = &H1000_0000_0000_0000
    Dim hexsa_2 As Int64 = &H0FFFF_FFFF
    Dim hexsa_2a As Int64 = &H1000_0000
    Dim hexsa_3 As Int32 = &HFFFF
    Dim hexsa_3a As Int32 = &H1000
    Dim hexsa_4 As Int16 = &HFF
    Dim hexsa_4a As Int16 = &H10
    Dim yuo_chanse As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label2.Text = "Hello World. fast level FFFF_FFFF_FFFF_FFFF Challenge."
        Label3.Text = "Success up money. Hex1000_0000_0000_0000 Challenge.You UP Dollar."
        you_clss_leveler = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If you_clss_leveler = 0 Then

            '  Label3.Text = "Success up money. " & Hex(hexsa_1a) & " Challenge."
            Label3.Text = "Success up money. Challenge. Do yuo commentout look it.CENT Out."
            Dim secce_1 As Int128 = 0
            secce_1 = &H8000_0000_0000_0000
            secce_1 = secce_1 And 0
            For i = 0 To 15
                secce_1 = secce_1 + hexsa_1a
                If secce_1 = -1 And i < 15 Then
                    MessageBox.Show("You are not a President.")
                    Label2.Text = "Daun Manager " & Hex(hexsa_2) & " Challenge."
                    you_clss_leveler = 1
                    Exit For
                End If
            Next

        ElseIf you_clss_leveler = 1 Then
            you_clss_leveler = 1
            Label3.Text = "Success up money. " & Hex(hexsa_2a) & " Challenge."
            Dim secce_2 As Int64 = &H0
            For i = 0 To 15
                secce_2 = secce_2 + hexsa_2a
                If secce_2 = -1 And i < 15 Then
                    MessageBox.Show("You are not a Manager.")
                    Label2.Text = "Daun Section Manager " & Hex(hexsa_3) & " Challenge."
                    you_clss_leveler = 2
                    Exit For
                End If
            Next

        ElseIf you_clss_leveler = 2 Then
            you_clss_leveler = 2
            Label3.Text = "Success up money. " & Hex(hexsa_3a) & " Challenge."
            Dim secce_3 As Int32 = &H0
            For i = 0 To 15
                secce_3 = secce_3 + hexsa_3a
                If secce_3 = -1 And i < 15 Then
                    MessageBox.Show("You are not a Section Manager.")
                    Label2.Text = "Daun BIT employee  " & Hex(hexsa_4) & " Challenge."
                    you_clss_leveler = 3
                    Exit For
                End If
            Next

        ElseIf you_clss_leveler = 3 Or you_clss_leveler = 4 Then

            yuo_chanse = yuo_chanse + 1
            Label3.Text = "Success up money. " & Hex(hexsa_4a) & " Challenge."
            Dim secce_4 As Int16 = &H0
            For i = 0 To 15
                secce_4 = secce_4 + hexsa_4a
                If secce_4 = -1 And i < 15 Then
                    If yuo_chanse < 4 Then
                        MessageBox.Show("You are not a BIT employee.")
                        Label2.Text = "Daun BAIT   " & Hex(hexsa_4) & " Challenge."
                        you_clss_leveler = 4
                        Exit For
                    End If
                Else
                    MessageBox.Show("You're fired! Start as a baby.")
                    Label2.Text = "Child support."
                    you_clss_leveler = 5
                    Exit For
                End If
            Next

        ElseIf you_clss_leveler = 5 Then
            'last chance.
            ' -2147483648 +1 = -2147483647 である。-1までは、遠いし。
            MessageBox.Show("You are not a BIT employee.")
            Label2.Text = "Daun BAIT   " & Hex(hexsa_4) & " Challenge."
            Dim secce5 As Integer = &H0
            secce5 = &H8000_0000
            Label1.Text = secce5
            Dim secce6 As Integer = &H7FFF_FFFF
            Dim dialogResult1 = MessageBox.Show("It " & secce5 & " " & Hex(secce6))

            MessageBox.Show("+1 " & Hex(secce6) & "+1 " & secce5)
            secce5 = &H7FFF_FFFF '2倍に入れ物上げようとしたってそうは行かん。64bitの2倍が128になったってその2倍がないやろ? 
            secce5 += 1
            If secce5 = -1 Then
                MessageBox.Show("You're fired! Start as a baby.")
                Label1.Text = "Child support."
                you_clss_leveler = 0

            End If
        End If
    End Sub
End Class

論理上何も問題がありませんが。

該当するソースコード

vb.net
x += 1

自分で試したこと

大した能力はない。高卒しか、学歴はない。

1

Your answer might help someone💌