何のプログラムか当てられる?
ゲームを組んでいるのだか、社長になれない。
+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