zjy截图

大家好！今天让创意岭的小编来大家介绍下关于zjy截图的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

ChatGPT国内免费在线使用，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等

只需要输入关键词，就能返回你想要的内容，越精准，写出的就越详细，有微信小程序端、在线网页版、PC客户端

官网：https://ai.de1919.com

本文目录:

• 1、少年的梦在远方，少年的路在脚下

• 2、谁有斗破苍穹雅妃，萧玉，萧薰儿，云芝，纳兰嫣然，萧炎等的图啊发

• 3、求一 vb程序 急 跪求

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

一、少年的梦在远方，少年的路在脚下

男老师不愿做女生的思想工作，女老师更不愿做女生的思想工作。总而言之，当遇到有女生问题需要处理时，当老师的，就得做好费力不讨好的准备。

这里所说的女生问题，不是那种“你作业没做啊？去补上来”的问题，当然也不是指那种性格大大咧咧、天塌了都还在笑的女生的问题。

而是那种明知讲不通，还得去讲的问题。就比如，昨天我们班ZJY带手机来校的事情。

周一晚上，我接到家长信息，说ZJY带手机来学校了。（老师好！实在不好意思意思打扰您了，ZJY她爷爷刚打电话告诉我说她今天带手机到学校去了，还得麻烦您帮忙问一下如果带了请代为收回保管，这孩子现在手机隐越来越大，周末在家手机不离手！晚上趟在床上被子里面玩，麻烦您了，感谢！）我有点震惊，她？怎么可能呢！她的成绩一直不差，而且作为整个初三唯一的体育特长生，虽然个子娇小，但绝对是可以凭借飞毛腿冲进重点高中的学生。虽然之前家长也反映过在家玩手机的问题，可这是学校，不至于这么大胆吧！那我周一早上的班会课通报上周五两个男生带手机来校被家长砸了的事情时，她作何感想？

那晚要带娃，我只好等到第二天再来处理。第二天一早，我又接到了ZJY爸爸的消息，也跟我说这个事，希望我查一查。

我喊她到了办公室，压低了声音开门见山便问了，她否认，再后来其中一句话让我起了疑心，“我手机充电器、数据线都在家。”说的不是手机在家，而是配件在家，虽然站在我面前的她面无表情，但我识破了她的心虚。再加上有家长的话，我基本可以断定她带了手机。

问了几句没结果，我只说“一个谎言需要很多个谎言来圆”便让她去上课了。后来我决定去寝室找找看，找到了，有实证，也更好解决问题，没找到，万一万一人家真的没带。

到了寝室，我没想到那么顺利地就从枕头下的床板上找到了手机。我心里思量着该怎么办。

下了课，我又叫她过来，再问，仍然否认，我当时真想把裙子口袋里的手机掏出来摆在她的面前！我再次重申了“谎言论”，我告诉她，想清楚再来跟我说，她答应了。我问她什么时候说，她说周五回家后发信息跟我说。我只得明确告诉她，在今天放学进寝室前就得来找我。她答应了。殊不知，这样的应允，其实等于在告诉我“我带手机了。”

毕竟是十四五的孩子，我猜到她中午会进寝室，特意让保管钥匙的德育主任帮我留意，果然，吃完中饭，她进寝室了。

第三次再找她时，她没办法再否认了，因为铁证如山。这时候她告诉我，不小心夹在书包带来了，她肯定也不知道这样的理由我听过很多次了。上一次说这句话的是学霸JCX，周一早上她把手机递给我说“佘老师，我不小心把手机带来了，您帮我保管到周五好吗？”

如果是不小心，就不至于把手机从关机状态调整到开机状态。

周一晚上，ZJY的妈妈发了很多条信息到她的手机上，我问ZJY看到没，她说没有，于是我把截图拿给她看。如果是其他人，也许会潸然泪下了。ZJY并没有，也许是因为父母长期在外地打工，一年很少回来一次，所以亲情在此刻，显得并没有那么大的触动力。

我听了她的其他理由，怕在家的哥哥动她的手机，开机只是为了看时间，等等等等。

我也相信，在学校可能真没什么时间玩手机，除非大半夜不睡觉，避开宿管和同学。

临了，我告诉她，手机我没收了。但我看她的情绪状态，还是转了念，“这个手机是我保管，还是你给爷爷保管，你自己考虑好再来找我。”结果，一直没有等来她。

到了昨天傍晚，她来了，找我请病假。批请假条的工夫，我问她手机怎么处理，她说“随你啊。”这里我还用的是句号，因为她当时就那么寡淡地说出了这三个字。我瞬间就来火了，初三这个时候了，我处理手机问题，竟觉得我欠了她似的。于是，我批评了一顿，后来立马意识到不该跟一个病人计较，说不定是身体状态不好。这时候，她拿出一张纸条，问我能不能把手机还给她，第二天再带来，想用手机发个信息给妈妈，我注意到她手上被攥得皱巴巴的纸，那是写给妈妈的信。我说用我的手机吧，然后再删除聊天记录，为了让她放心，我还当着她的面把手机里的“已删除”都删了。我猜，应该也不是为了找妈妈吵一架吧。

她走之前，我交代她回家给妈妈打个电话。离开后不久，我先给她的妈妈打了电话，要她妈妈跟孩子好好谈谈，妈妈说了很多，大多都是对孩子的亏欠与担忧，我这才知道周末在家也发生了不愉快。

今天ZJY的妈妈发来一张图，是她让孩子写下的道歉信兼检讨书、保证书，看完，我感觉她的心结仍在。再想起昨天打完电话后，原班主任跟我说，这个孩子以前也因为手机问题叫过家长，结果回了家又打回原形。你赶紧把手机还给她，家长都管不住的事，当老师何必去做无用功。万一学生走极端，还葬送了职业生涯。

这样的孩子到底该不该费心费力去教育呢？今天，我观察了她一天，状态低沉，也不知是身体不舒服还是心情不好。而且她也并没有像妈妈所说的那样，过来交那封信给我。为了让远在东莞的家长放心，我答应她会继续跟进此事，而且如果放弃一个本有希望上重点高中的孩子，特别是女孩子，我会感到很可惜。

为什么我一直强调女孩子，因为我的性别，也因为我的处境，我知道男女平等的不易，我更知道一个女生将来承载的是一个家庭的责任，这不仅关系个人，更关系到下一代，再往大了说，这关系到国家。

少年也好，少女也罢，在走到岔路时，难免出现偏差，这时如果没有人拉一把，很可能就走到了错路上，人生将出现完全不一样的境况。也许现在她没法理解我，但将来的某一天，应该会想起感谢我。我愿意当这个坏人，但我也希望对方能懂我的好心。不拿自己的前程当儿戏，也不要枉顾家长、老师的良苦用心。

最关键的是，学会处理问题，学会处理情绪，沟通，才有可能化解问题，藏在心里，谁也救不了谁。

最后，我希望，她是那个能被唤醒的装睡者。每个人，应当有梦，更应该有为梦想而努力奋斗的定力。

二、谁有斗破苍穹雅妃，萧玉，萧薰儿，云芝，纳兰嫣然，萧炎等的图啊发

你看下面的行不？

别忘了采纳我哟！

三、求一 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$ = "开发者：叶佳敏 学号：09122348"

Title = MsgBox(inventor$, , "开发者信息")

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 个相同图案的方块连接起来，连接线小于等于 3 条直线，就可以成功将2个方块消除。"

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里的游戏是什么游戏

这种是广告。。。你能看得到，但是我们打不开。。。你要截图我才能分析。。因为这个东西有cookie层面的。。。。截图。。我基本上能知道是什么游戏。

以上就是关于zjy截图相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。

推荐阅读：

百度网盘zjy（百度网盘zjy吕总）

zjy链接

zjy截图

纳西元素景观设计（纳西元素画报）

湛江绿化景观设计招聘（湛江绿化景观设计招聘网）