zjy截圖

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于zjy截圖的問題，以下是小編對(duì)此問題的歸納整理，讓我們一起來看看吧。

ChatGPT國內(nèi)免費(fèi)在線使用，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，越精準(zhǔn)，寫出的就越詳細(xì)，有微信小程序端、在線網(wǎng)頁版、PC客戶端

官網(wǎng)：https://ai.de1919.com

本文目錄:

• 1、少年的夢(mèng)在遠(yuǎn)方，少年的路在腳下

• 2、誰有斗破蒼穹雅妃，蕭玉，蕭薰兒，云芝，納蘭嫣然，蕭炎等的圖啊發(fā)

• 3、求一 vb程序 急 跪求

• 4、http://click.bes.baidu.com/adx.php?c=cz03ZjY3NzFjNWE0ZDUwZWY4AHQ9MTQxNjk2OTg里的游戲是什么游戲

一、少年的夢(mèng)在遠(yuǎn)方，少年的路在腳下

男老師不愿做女生的思想工作，女老師更不愿做女生的思想工作。總而言之，當(dāng)遇到有女生問題需要處理時(shí)，當(dāng)老師的，就得做好費(fèi)力不討好的準(zhǔn)備。

這里所說的女生問題，不是那種“你作業(yè)沒做?。咳パa(bǔ)上來”的問題，當(dāng)然也不是指那種性格大大咧咧、天塌了都還在笑的女生的問題。

而是那種明知講不通，還得去講的問題。就比如，昨天我們班ZJY帶手機(jī)來校的事情。

周一晚上，我接到家長(zhǎng)信息，說ZJY帶手機(jī)來學(xué)校了。（老師好！實(shí)在不好意思意思打擾您了，ZJY她爺爺剛打電話告訴我說她今天帶手機(jī)到學(xué)校去了，還得麻煩您幫忙問一下如果帶了請(qǐng)代為收回保管，這孩子現(xiàn)在手機(jī)隱越來越大，周末在家手機(jī)不離手！晚上趟在床上被子里面玩，麻煩您了，感謝?。┪矣悬c(diǎn)震驚，她？怎么可能呢！她的成績(jī)一直不差，而且作為整個(gè)初三唯一的體育特長(zhǎng)生，雖然個(gè)子?jì)尚?，但絕對(duì)是可以憑借飛毛腿沖進(jìn)重點(diǎn)高中的學(xué)生。雖然之前家長(zhǎng)也反映過在家玩手機(jī)的問題，可這是學(xué)校，不至于這么大膽吧！那我周一早上的班會(huì)課通報(bào)上周五兩個(gè)男生帶手機(jī)來校被家長(zhǎng)砸了的事情時(shí)，她作何感想？

那晚要帶娃，我只好等到第二天再來處理。第二天一早，我又接到了ZJY爸爸的消息，也跟我說這個(gè)事，希望我查一查。

我喊她到了辦公室，壓低了聲音開門見山便問了，她否認(rèn)，再后來其中一句話讓我起了疑心，“我手機(jī)充電器、數(shù)據(jù)線都在家?！闭f的不是手機(jī)在家，而是配件在家，雖然站在我面前的她面無表情，但我識(shí)破了她的心虛。再加上有家長(zhǎng)的話，我基本可以斷定她帶了手機(jī)。

問了幾句沒結(jié)果，我只說“一個(gè)謊言需要很多個(gè)謊言來圓”便讓她去上課了。后來我決定去寢室找找看，找到了，有實(shí)證，也更好解決問題，沒找到，萬一萬一人家真的沒帶。

到了寢室，我沒想到那么順利地就從枕頭下的床板上找到了手機(jī)。我心里思量著該怎么辦。

下了課，我又叫她過來，再問，仍然否認(rèn)，我當(dāng)時(shí)真想把裙子口袋里的手機(jī)掏出來擺在她的面前！我再次重申了“謊言論”，我告訴她，想清楚再來跟我說，她答應(yīng)了。我問她什么時(shí)候說，她說周五回家后發(fā)信息跟我說。我只得明確告訴她，在今天放學(xué)進(jìn)寢室前就得來找我。她答應(yīng)了。殊不知，這樣的應(yīng)允，其實(shí)等于在告訴我“我?guī)謾C(jī)了?！?/p>

畢竟是十四五的孩子，我猜到她中午會(huì)進(jìn)寢室，特意讓保管鑰匙的德育主任幫我留意，果然，吃完中飯，她進(jìn)寢室了。

第三次再找她時(shí)，她沒辦法再否認(rèn)了，因?yàn)殍F證如山。這時(shí)候她告訴我，不小心夾在書包帶來了，她肯定也不知道這樣的理由我聽過很多次了。上一次說這句話的是學(xué)霸JCX，周一早上她把手機(jī)遞給我說“佘老師，我不小心把手機(jī)帶來了，您幫我保管到周五好嗎？”

如果是不小心，就不至于把手機(jī)從關(guān)機(jī)狀態(tài)調(diào)整到開機(jī)狀態(tài)。

周一晚上，ZJY的媽媽發(fā)了很多條信息到她的手機(jī)上，我問ZJY看到?jīng)]，她說沒有，于是我把截圖拿給她看。如果是其他人，也許會(huì)潸然淚下了。ZJY并沒有，也許是因?yàn)楦改搁L(zhǎng)期在外地打工，一年很少回來一次，所以親情在此刻，顯得并沒有那么大的觸動(dòng)力。

我聽了她的其他理由，怕在家的哥哥動(dòng)她的手機(jī)，開機(jī)只是為了看時(shí)間，等等等等。

我也相信，在學(xué)?？赡苷鏇]什么時(shí)間玩手機(jī)，除非大半夜不睡覺，避開宿管和同學(xué)。

臨了，我告訴她，手機(jī)我沒收了。但我看她的情緒狀態(tài)，還是轉(zhuǎn)了念，“這個(gè)手機(jī)是我保管，還是你給爺爺保管，你自己考慮好再來找我?！苯Y(jié)果，一直沒有等來她。

到了昨天傍晚，她來了，找我請(qǐng)病假。批請(qǐng)假條的工夫，我問她手機(jī)怎么處理，她說“隨你啊?！边@里我還用的是句號(hào)，因?yàn)樗?dāng)時(shí)就那么寡淡地說出了這三個(gè)字。我瞬間就來火了，初三這個(gè)時(shí)候了，我處理手機(jī)問題，竟覺得我欠了她似的。于是，我批評(píng)了一頓，后來立馬意識(shí)到不該跟一個(gè)病人計(jì)較，說不定是身體狀態(tài)不好。這時(shí)候，她拿出一張紙條，問我能不能把手機(jī)還給她，第二天再帶來，想用手機(jī)發(fā)個(gè)信息給媽媽，我注意到她手上被攥得皺巴巴的紙，那是寫給媽媽的信。我說用我的手機(jī)吧，然后再刪除聊天記錄，為了讓她放心，我還當(dāng)著她的面把手機(jī)里的“已刪除”都刪了。我猜，應(yīng)該也不是為了找媽媽吵一架吧。

她走之前，我交代她回家給媽媽打個(gè)電話。離開后不久，我先給她的媽媽打了電話，要她媽媽跟孩子好好談?wù)?，媽媽說了很多，大多都是對(duì)孩子的虧欠與擔(dān)憂，我這才知道周末在家也發(fā)生了不愉快。

今天ZJY的媽媽發(fā)來一張圖，是她讓孩子寫下的道歉信兼檢討書、保證書，看完，我感覺她的心結(jié)仍在。再想起昨天打完電話后，原班主任跟我說，這個(gè)孩子以前也因?yàn)槭謾C(jī)問題叫過家長(zhǎng)，結(jié)果回了家又打回原形。你趕緊把手機(jī)還給她，家長(zhǎng)都管不住的事，當(dāng)老師何必去做無用功。萬一學(xué)生走極端，還葬送了職業(yè)生涯。

這樣的孩子到底該不該費(fèi)心費(fèi)力去教育呢？今天，我觀察了她一天，狀態(tài)低沉，也不知是身體不舒服還是心情不好。而且她也并沒有像媽媽所說的那樣，過來交那封信給我。為了讓遠(yuǎn)在東莞的家長(zhǎng)放心，我答應(yīng)她會(huì)繼續(xù)跟進(jìn)此事，而且如果放棄一個(gè)本有希望上重點(diǎn)高中的孩子，特別是女孩子，我會(huì)感到很可惜。

為什么我一直強(qiáng)調(diào)女孩子，因?yàn)槲业男詣e，也因?yàn)槲业奶幘常抑滥信降鹊牟灰?，我更知道一個(gè)女生將來承載的是一個(gè)家庭的責(zé)任，這不僅關(guān)系個(gè)人，更關(guān)系到下一代，再往大了說，這關(guān)系到國家。

少年也好，少女也罷，在走到岔路時(shí)，難免出現(xiàn)偏差，這時(shí)如果沒有人拉一把，很可能就走到了錯(cuò)路上，人生將出現(xiàn)完全不一樣的境況。也許現(xiàn)在她沒法理解我，但將來的某一天，應(yīng)該會(huì)想起感謝我。我愿意當(dāng)這個(gè)壞人，但我也希望對(duì)方能懂我的好心。不拿自己的前程當(dāng)兒戲，也不要枉顧家長(zhǎng)、老師的良苦用心。

最關(guān)鍵的是，學(xué)會(huì)處理問題，學(xué)會(huì)處理情緒，溝通，才有可能化解問題，藏在心里，誰也救不了誰。

最后，我希望，她是那個(gè)能被喚醒的裝睡者。每個(gè)人，應(yīng)當(dāng)有夢(mèng)，更應(yīng)該有為夢(mèng)想而努力奮斗的定力。

二、誰有斗破蒼穹雅妃，蕭玉，蕭薰兒，云芝，納蘭嫣然，蕭炎等的圖啊發(fā)

你看下面的行不？

別忘了采納我喲！

三、求一 vb程序 急 跪求

Dim img(96) As Integer

Const imgMax = 19

Const imgWidth = 650

Const imgHeigth = 650

Dim z As Integer

Dim N As Integer

Dim i As Integer

Dim Stack(192) As Integer

Dim StackPoint As Integer

Dim a(192) As Integer

Dim b() As Integer

Dim imgArray(8, 12) As Integer

Dim samed As Boolean

Dim m1, score As Integer

Dim max, Value, L

Dim p As Integer

Dim maxmark As Integer

Private Sub author_Click()

inventor$ = "開發(fā)者：葉佳敏 學(xué)號(hào)：09122348"

Title = MsgBox(inventor$, , "開發(fā)者信息")

End Sub

Private Sub Command1_Click()

Label1.Visible = False

Value = 0: p = 0

Picture2.Move 2520, 240, 0

gettime

start

End Sub

Private Sub continue_Click()

Timer1.Enabled = True

End Sub

Private Sub currentmark_Click()

mark = MsgBox(score, , "score")

End Sub

Private Sub end_Click()

End

End Sub

Private Sub Form_Load()

Picture2.Appearance = 0

Picture2.Height = Picture1.Height

Timer1.Enabled = False

Timer1.Interval = 2500

Picture2.Move 2520, 240, 0

N = -1

For i = 0 To 95

img(i) = -1

Next i

For i = 0 To 95

Stack(i) = 0

Next

StackPoint = -1

End Sub

Private Sub highest_Click()

result = MsgBox(maxmark, , "maxscore")

End Sub

Private Sub run_Click()

start

Command1.Visible = True

End Sub

Private Sub stop_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

gettime

End Sub

Private Sub help_Click()

helps$ = "將 2 個(gè)相同圖案的方塊連接起來，連接線小于等于 3 條直線，就可以成功將2個(gè)方塊消除。"

Sentence = MsgBox(helps$, , "幫助")

End Sub

Sub Dislocate()

ReDim b(imgMax)

For i = 0 To imgMax

b(i) = i

Next

Randomize

Dim tmp1 As Integer, tmp2 As Integer

For i = 0 To imgMax

tmp1 = Int(Rnd * imgMax)

tmp2 = Int(Rnd * imgMax)

swap b(tmp1), b(tmp2)

Next

For i = 0 To 95

a(i) = i

Next

For i = 0 To 95

tmp1 = Int(Rnd * 95)

tmp2 = Int(Rnd * 95)

swap a(tmp1), a(tmp2)

Next

End Sub

Sub swap(t1 As Integer, t2 As Integer)

Dim tmp As Integer

tmp = t1

t1 = t2

t2 = tmp

End Sub

Private Sub Image1_Click(Index As Integer)

If Image1(Index).Visible = True Then

If N = -1 Then

Image1(Index).Picture = LoadPicture(App.Path & "\圖片\" & img(Index) & ".jpg")

N = Index

Else

If N = Index Then

Image1(Index).Picture = LoadPicture(App.Path & "\圖片\" & img(Index) & ".jpg")

N = -1

Else

If img(Index) = img(N) Then

If CheckOK(Index, N) Then

Image1(Index).Visible = False

Image1(N).Visible = False

Else

Image1(Index).Picture = LoadPicture(App.Path & "\圖片\" & img(Index) & ".jpg")

Image1(N).Picture = LoadPicture(App.Path & "\圖片\" & img(N) & ".jpg")

End If

N = -1

Else

Image1(N).Picture = LoadPicture(App.Path & "\圖片\" & img(N) & ".jpg")

N = -1

End If

End If

End If

End If

Dim a, q As Integer

a = 0

q = 120 / 96

For i = 0 To 95

If Image1(i).Visible = False Then

a = a + 1

m1 = a * q / 2

End If

Next i

score = m1 + 40 - 40 / 2500 * Value

If a = 95 Then

Timer1.Enabled = False

Label1.Visible = True

mark = MsgBox(score, , "score")

End If

End Sub

Function CheckOK(t1 As Integer, t2 As Integer) As Boolean

Dim pic1_Line As Integer, pic1_Row As Integer

Dim pic2_Line As Integer, pic2_Row As Integer

Dim tmp1 As Integer, tmp2 As Integer

pic1_Line = Fix(t1 / 12)

pic1_Row = t1 Mod 12

pic2_Line = Fix(t2 / 12)

pic2_Row = t2 Mod 12

samed = False

If pic1_Line = pic2_Line Then

If (pic1_Line = 9) Or (pic1_Line = 0) Or Abs(pic1_Row - pic2_Row) = 1 Then

samed = True

GoTo L1

End If

End If

If (pic1_Row = pic2_Row) Then

If (pic1_Row = 0) Or (pic1_Row = 14) Or Abs(pic1_Line - pic2_Line) = 1 Then

samed = True

GoTo L1

End If

End If

If pic1_Line <= pic2_Line Then

If pic1_Row <= pic2_Row Then

samed = CheckOK_1(pic1_Line, pic1_Row, pic2_Line, pic2_Row)

Else

samed = CheckOK_2(pic1_Line, pic1_Row, pic2_Line, pic2_Row)

End If

If samed = True Then GoTo L1

End If

If pic1_Line > pic2_Line Then

If pic1_Row <= pic2_Row Then

samed = CheckOK_2(pic2_Line, pic2_Row, pic1_Line, pic1_Row)

Else

samed = CheckOK_1(pic2_Line, pic2_Row, pic1_Line, pic1_Row)

End If

If samed = True Then GoTo L1

End If

L1:

If samed = True Then

imgArray(pic1_Line, pic1_Row) = 0

imgArray(pic2_Line, pic2_Row) = 0

End If

CheckOK = samed

End Function

Function upNull(Line1 As Integer, Row1 As Integer) As Boolean

If Line1 <= 0 Then

upNull = True

Else

If imgArray(Line1 - 1, Row1) = 0 Then

upNull = True

Else

upNull = False

End If

End If

End Function

Function downNull(Line1 As Integer, Row1 As Integer) As Boolean

If Line1 >= 9 Then

downNull = True

Else

If imgArray(Line1 + 1, Row1) = 0 Then

downNull = True

Else

downNull = False

End If

End If

End Function

Function leftNull(Line1 As Integer, Row1 As Integer) As Boolean

If Row1 <= 0 Then

leftNull = True

Else

If imgArray(Line1, Row1 - 1) = 0 Then

leftNull = True

Else

leftNull = False

End If

End If

End Function

Function rightNull(Line1 As Integer, Row1 As Integer) As Boolean

If Row1 >= 14 Then

rightNull = True

Else

If imgArray(Line1, Row1 + 1) = 0 Then

rightNull = True

Else

rightNull = False

End If

End If

End Function

Function CheckNull(L1 As Integer, R1 As Integer, L2 As Integer, R2 As Integer) As Boolean

If L1 = L2 And R1 = R2 Then

CheckNull = True

Exit Function

End If

If L1 < 0 Or L1 > 8 Or R1 < 0 Or R1 > 12 Then

CheckNull = True

Exit Function

Else

If imgArray(L1, R1) = 0 Then

CheckNull = True

Else

CheckNull = False

End If

End If

End Function

Function goLine(Line1 As Integer, t1 As Integer, t2 As Integer) As Boolean

Dim tMax As Integer, tMin As Integer

tMax = t1

tMin = t2

If tMax < tMin Then swap tMax, tMin

If Line1 < 0 Or Line1 > 7 Or tMax - tMin <= 1 Then

goLine = True

Exit Function

End If

tMin = tMin + 1

While tMin < tMax

If imgArray(Line1, tMin) <> 0 Then

goLine = False

Exit Function

End If

tMin = tMin + 1

Wend

goLine = True

End Function

Function goRow(Row1 As Integer, t1 As Integer, t2 As Integer) As Boolean

Dim tMax As Integer, tMin As Integer

tMax = t1

tMin = t2

If tMax < tMin Then swap tMax, tMin

If Row1 < 0 Or Row1 > 11 Or tMax - tMin <= 1 Then

goRow = True

Exit Function

End If

tMin = tMin + 1

While tMin < tMax

If imgArray(tMin, Row1) <> 0 Then

goRow = False

Exit Function

End If

tMin = tMin + 1

Wend

goRow = True

End Function

Function CheckOK_1(L1 As Integer, R1 As Integer, L2 As Integer, R2 As Integer) As Boolean

Dim i As Integer

If downNull(L1, R1) Then

For i = L1 To 8

If goRow(R1, i, L1) And CheckNull(i, R1, L1, R1) And goLine(i, R1, R2) And CheckNull(i, R2, L2, R2) And goRow(R2, i, L2) Then

CheckOK_1 = True

Exit Function

End If

Next

End If

If rightNull(L1, R1) Then

For i = R1 To 12

If goLine(L1, i, R1) And CheckNull(L1, i, L1, R1) And goRow(i, L1, L2) And CheckNull(L2, i, L2, R2) And goLine(L2, i, R2) Then

CheckOK_1 = True

Exit Function

End If

Next

End If

If upNull(L1, R1) Then

For i = L1 To -1 Step -1

If goRow(R1, L1, i) And CheckNull(i, R1, L1, R1) And goLine(i, R1, R2) And CheckNull(i, R2, L2, R2) And goRow(R2, i, L2) Then

CheckOK_1 = True

Exit Function

End If

Next

End If

If leftNull(L1, R1) Then

For i = R1 To -1 Step -1

If goLine(L1, R1, i) And CheckNull(L1, i, L1, R1) And goRow(i, L1, L2) And CheckNull(L2, i, L2, R2) And goLine(L2, i, R2) Then

CheckOK_1 = True

Exit Function

End If

Next

End If

CheckOK_1 = False

End Function

Function CheckOK_2(L1 As Integer, R1 As Integer, L2 As Integer, R2 As Integer) As Boolean

Dim i As Integer

If downNull(L1, R1) Then

For i = L1 To 8

If goRow(R1, i, L1) And CheckNull(i, R1, L1, R1) And goLine(i, R1, R2) And CheckNull(i, R2, L2, R2) And goRow(R2, i, L2) Then

CheckOK_2 = True

Exit Function

End If

Next

End If

If rightNull(L1, R1) Then

For i = R1 To 12

If goLine(L1, i, 11) And CheckNull(L1, i, L1, R1) And goRow(i, L1, L2) And CheckNull(L2, i, L2, R2) And goLine(L2, i, R2) Then

CheckOK_2 = True

Exit Function

End If

Next

End If

If upNull(L1, R1) Then

For i = L1 To -1 Step -1

If goRow(R1, L1, i) And CheckNull(i, R1, L1, R1) And goLine(i, R1, R2) And CheckNull(i, R2, L2, R2) And goRow(R2, i, L2) Then

CheckOK_2 = True

Exit Function

End If

Next

End If

If leftNull(L1, R1) Then

For i = R1 To -1 Step -1

If goLine(L1, R1, i) And CheckNull(L1, i, L1, R1) And goRow(i, L1, L2) And CheckNull(L2, i, L2, R2) And goLine(L2, i, R2) Then

CheckOK_2 = True

Exit Function

End If

Next

End If

CheckOK_2 = False

End Function

Sub start()

Timer1.Enabled = True

Static Count As Integer

Dislocate

Randomize

If Count = 0 Then

Dim i As Integer, picTop As Integer, picLeft As Integer

Dim picIndex As Integer

Image1(0).Width = imgWidth

Image1(0).Height = imgHeigth

picTop = Image1(0).Top

picLeft = Image1(0).Left + Image1(0).Width

picIndex = Int(Rnd * imgMax)

img(0) = picIndex

For i = 1 To 95

Load Image1(i)

If i Mod 12 = 0 Then

picTop = picTop + Image1(0).Height

picLeft = Image1(0).Left

End If

Image1(i).Width = imgWidth

Image1(i).Height = imgHeigth

Image1(i).Left = picLeft

Image1(i).Top = picTop

picLeft = picLeft + Image1(0).Width

Image1(i).Visible = True

Next i

Count = Count + 1

End If

Dim tmp As Integer

Dim indexFull As Boolean

Dim j As Integer

j = 0

For i = 0 To 95

picIndex = b(j)

img(a(i)) = picIndex

img(a(95 - i)) = picIndex

Image1(a(i)).Picture = LoadPicture(App.Path & "\圖片\" & picIndex & ".jpg")

Image1(a(95 - i)).Picture = LoadPicture(App.Path & "\圖片\" & picIndex & ".jpg")

Image1(a(i)).Visible = True

Image1(a(95 - i)).Visible = True

j = j + 1

If j > imgMax Then j = 0

Next

For i = 0 To 95

imgArray(Fix(i / 12), i Mod 12) = 1

Next

End Sub

Sub gettime()

max = Picture1.Width

p = p + 1

L = 100

Value = max * p / L

If p = L Then

MsgBox "Game Over!"

Timer1.Enabled = False

mark = MsgBox(score, , "score")

End

Else

Picture2.Move 2520, 240, Value

End If

If score > maxmark Then

maxmark = score

End If

End Sub

四、http://click.bes.baidu.com/adx.php?c=cz03ZjY3NzFjNWE0ZDUwZWY4AHQ9MTQxNjk2OTg里的游戲是什么游戲

這種是廣告。。。你能看得到，但是我們打不開。。。你要截圖我才能分析。。因?yàn)檫@個(gè)東西有cookie層面的。。。。截圖。。我基本上能知道是什么游戲。

以上就是關(guān)于zjy截圖相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進(jìn)行咨詢，客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。

推薦閱讀：

百度網(wǎng)盤zjy（百度網(wǎng)盤zjy呂總）

zjy鏈接

zjy截圖

納西元素景觀設(shè)計(jì)（納西元素畫報(bào)）

湛江綠化景觀設(shè)計(jì)招聘（湛江綠化景觀設(shè)計(jì)招聘網(wǎng)）