> 问题详情
求VB制作的小游戏,比如贪吃蛇等,要有工程与代码,最好加上注视
悬赏：90&***豆
提问人：匿名网友
发布时间：
求VB制作的小游戏,比如贪吃蛇等,要有工程与代码,最好加上注视
***提供：
查看此***需要花费 90&个***豆
网友回答（共3条）
匿名网友&&&&lv1&&&&提问收益：0.00&***豆
Windows编程就像是一场由来不久并正在进行着的革命，尽管游戏程序员曾一度拒绝为Windows平台开发，然而正如Brog种族生物所说的那样：抵抗都是徒劳的……。本次内容将带领朋友们开始一段VC游戏开发之旅。 VC作为一个主流的开发平台一直深受编程爱好者的喜爱，但是很多人却对它的入门感到难于上青
&&&&lv3&&&&提问收益：13.20&***豆
给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：
VERSION&5.00
Begin&VB.Form&Form1&
&&&BorderStyle&&&&&=&&&1&&'Fixed&Single
&&&Caption&&&&&&&&&=&&&&Form1&
&&&ClientHeight&&&&=&&&7680
&&&ClientLeft&&&&&&=&&&45
&&&ClientTop&&&&&&&=&&&435
&&&ClientWidth&&&&&=&&&7170
&&&LinkTopic&&&&&&&=&&&&Form1&
&&&MaxButton&&&&&&&=&&&0&&&'False
&&&MinButton&&&&&&&=&&&0&&&'False
&&&ScaleHeight&&&&&=&&&7680
&&&ScaleWidth&&&&&&=&&&7170
&&&StartUpPosition&=&&&3&&'窗口缺省
&&&Begin&VB.Timer&Timer1&
&&&&&&Left&&&&&&&&&&&&=&&&6720
&&&&&&Top&&&&&&&&&&&&&=&&&2880
&&&Begin&boBox&dengji&
&&&&&&Height&&&&&&&&&&=&&&300
&&&&&&Left&&&&&&&&&&&&=&&&4680
&&&&&&Style&&&&&&&&&&&=&&&2&&'Dropdown&List
&&&&&&TabIndex&&&&&&&&=&&&6
&&&&&&Top&&&&&&&&&&&&&=&&&720
&&&&&&Width&&&&&&&&&&&=&&&1935
&&&Begin&mandButton&Jieshu&
&&&&&&Caption&&&&&&&&&=&&&&结束游戏&
&&&&&&Height&&&&&&&&&&=&&&495
&&&&&&Left&&&&&&&&&&&&=&&&1800
&&&&&&TabIndex&&&&&&&&=&&&5
&&&&&&Top&&&&&&&&&&&&&=&&&600
&&&&&&Width&&&&&&&&&&&=&&&1215
&&&Begin&VB.PictureBox&P1&
&&&&&&Appearance&&&&&&=&&&0&&'Flat
&&&&&&BackColor&&&&&&&=&&&&H&
&&&&&&ForeColor&&&&&&&=&&&&H&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&ScaleHeight&&&&&=&&&225
&&&&&&ScaleWidth&&&&&&=&&&6585
&&&&&&TabIndex&&&&&&&&=&&&4
&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&Width&&&&&&&&&&&=&&&6615
&&&Begin&VB.PictureBox&p0&
&&&&&&Appearance&&&&&&=&&&0&&'Flat
&&&&&&BackColor&&&&&&&=&&&&H&
&&&&&&ForeColor&&&&&&&=&&&&H&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&ScaleHeight&&&&&=&&&225
&&&&&&ScaleWidth&&&&&&=&&&6585
&&&&&&TabIndex&&&&&&&&=&&&3
&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&Width&&&&&&&&&&&=&&&6615
&&&Begin&VB.Frame&Frame1&
&&&&&&Height&&&&&&&&&&=&&&6255
&&&&&&Left&&&&&&&&&&&&=&&&360
&&&&&&TabIndex&&&&&&&&=&&&1
&&&&&&Top&&&&&&&&&&&&&=&&&1200
&&&&&&Width&&&&&&&&&&&=&&&6255
&&&&&&Begin&VB.PictureBox&nPic&
&&&&&&&&&BackColor&&&&&&&=&&&&H008080FF&
&&&&&&&&&BorderStyle&&&&&=&&&0&&'None
&&&&&&&&&Height&&&&&&&&&&=&&&615
&&&&&&&&&Index&&&&&&&&&&&=&&&0
&&&&&&&&&Left&&&&&&&&&&&&=&&&360
&&&&&&&&&ScaleHeight&&&&&=&&&615
&&&&&&&&&ScaleWidth&&&&&&=&&&105
&&&&&&&&&TabIndex&&&&&&&&=&&&2
&&&&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&&&&Visible&&&&&&&&&=&&&0&&&'False
&&&&&&&&&Width&&&&&&&&&&&=&&&100
&&&Begin&mandButton&kaishi&
&&&&&&Caption&&&&&&&&&=&&&&开始游戏&
&&&&&&Height&&&&&&&&&&=&&&495
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&TabIndex&&&&&&&&=&&&0
&&&&&&Top&&&&&&&&&&&&&=&&&600
&&&&&&Width&&&&&&&&&&&=&&&1335
&&&Begin&VB.Label&Label1&
&&&&&&Caption&&&&&&&&&=&&&&难度等级&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&3720
&&&&&&TabIndex&&&&&&&&=&&&7
&&&&&&Top&&&&&&&&&&&&&=&&&720
&&&&&&Width&&&&&&&&&&&=&&&855
Attribute&VB_Name&=&&Form1&
Attribute&VB_GlobalNameSpace&=&False
Attribute&VB_Creatable&=&False
Attribute&VB_PredeclaredId&=&True
Attribute&VB_Exposed&=&False
Dim&tmp()&As&Integer&'假设有10种类别的图片，本数组用以记录每组图片加载的次数
Dim&pic(10)&As&ColorConstants
Dim&tCnt&As&Integer
Dim&Fhit&As&ColorConstants
Dim&FhitIndex&As&Long
Private&Sub&Command1_Click()
Private&Sub&jieshu_Click()
&&&&Timer1.Enabled&=&False
&&&&dengji.Enabled&=&True
&&&&P1.Width&=&p0.Width
&&&&Jieshu.Enabled&=&False
&&&&kaishi.Enabled&=&True
Private&Sub&Form_Initialize()
&&&&Dim&i&As&Integer
&&&&For&i&=&1&To&10
&&&&&&&&pic(i)&=&RGB(Int(Rnd&*&255),&Int(Rnd&*&255),&Int(Rnd&*&255))
&&&&Next&i
&&&&dengji.Clear
&&&&For&i&=&3&To&1&Step&-1
&&&&&&&&dengji.AddItem&i&&&&分钟&
&&&&Next&i
&&&&dengji.ListIndex&=&0
&&&&Timer1.Interval&=&1000
&&&&Timer1.Enabled&=&False
&&&&Jieshu.Enabled&=&False
Private&Sub&Form_Load()
&&&&'IntPic
'初始化控件数组
Private&Sub&IntPic()
&&&&Dim&i&As&Integer
&&&&ReDim&tmp(10)&As&Integer
&&&&nPic(0).Move&200,&200,&500,&500
&&&&nPic(0).Visible&=&False
&&&&For&i&=&1&To&100
&&&&&&&&If&ExistPic(nPic(i))&Then&Unload&nPic(i)
&&&&&&&&Load&nPic(i)
&&&&&&&&nPic(i).Visible&=&True
&&&&&&&&nPic(i).Width&=&500
&&&&&&&&nPic(i).BackColor&=&pic(LoadPic)
&&&&&&&&nPic(i).Top&=&(i&Mod&10)&*&(500&+&100)&+&200
&&&&&&&&nPic(i).Left&=&((i&-&1)&\&10)&*&(500&+&100)&+&200
&&&&&&&&nPic(i).Visible&=&True
&&&&Next&i
'判断控件是否存在
Function&ExistPic(obj&As&PictureBox)&As&Boolean
&&&&On&Error&GoTo&errobj
&&&&obj.Move&obj.Left
&&&&ExistPic&=&True
&&&&Exit&Function
&&&&ExistPic&=&False
End&Function
'随机赋予控件颜色，可更改为指定的图片
Private&Function&LoadPic()
&&&&Dim&ntmp&As&Integer
&&&&&&&&ntmp&=&Int(Rnd&*&10)&+&1
&&&&&&&&If&tmp(ntmp)&$<$10&Then
&&&&&&&&&&&&LoadPic&=&ntmp
&&&&&&&&&&&&tmp(ntmp)&=&tmp(ntmp)&+&1
&&&&&&&&&&&&Exit&Do
&&&&&&&&End&If
End&Function
Private&Sub&kaishi_Click()
&&&&tCnt&=&0
&&&&IntPic
&&&&Timer1.Enabled&=&True
&&&&dengji.Enabled&=&False
&&&&kaishi.Enabled&=&False
&&&&Jieshu.Enabled&=&True
Private&Sub&nPic_Click(Index&As&Integer)
&&&&If&Fhit&=&0&Then
&&&&&&&&Fhit&=&nPic(Index).BackColor
&&&&&&&&FhitIndex&=&Index
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&ElseIf&Fhit&=&nPic(Index).BackColor&And&Index&$$FhitIndex&Then
&&&&&&&&nPic(FhitIndex).Visible&=&False
&&&&&&&&nPic(Index).Visible&=&False
&&&&&&&&FhitIndex&=&0
&&&&&&&&Fhit&=&0
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&&&&&nPic(FhitIndex).BorderStyle&=&0
&&&&&&&&Fhit&=&nPic(Index).BackColor
&&&&&&&&nPic(FhitIndex).BorderStyle&=&0
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&&&&&FhitIndex&=&Index
&&&&End&If
&&&&Debug.Print&Fhit
Private&Sub&Timer1_Timer()
&&&&If&tCnt&$>$Val(dengji.Text)&*&60&Then
&&&&&&&&MsgBox&&游戏结束&
&&&&&&&&Timer1.Enabled&=&False
&&&&&&&&Exit&Sub
&&&&End&If
&&&&tCnt&=&tCnt&+&1
&&&&P1.Width&=&p0.Width&*&(1&-&Format((tCnt&/&(Val(dengji.Text)&*&60)),&&0.000&))
&&&&lv1&&&&提问收益：0.00&***豆
给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：
VERSION&5.00
Begin&VB.Form&Form1&
&&&BorderStyle&&&&&=&&&1&&'Fixed&Single
&&&Caption&&&&&&&&&=&&&&Form1&
&&&ClientHeight&&&&=&&&7680
&&&ClientLeft&&&&&&=&&&45
&&&ClientTop&&&&&&&=&&&435
&&&ClientWidth&&&&&=&&&7170
&&&LinkTopic&&&&&&&=&&&&Form1&
&&&MaxButton&&&&&&&=&&&0&&&'False
&&&MinButton&&&&&&&=&&&0&&&'False
&&&ScaleHeight&&&&&=&&&7680
&&&ScaleWidth&&&&&&=&&&7170
&&&StartUpPosition&=&&&3&&'窗口缺省
&&&Begin&VB.Timer&Timer1&
&&&&&&Left&&&&&&&&&&&&=&&&6720
&&&&&&Top&&&&&&&&&&&&&=&&&2880
&&&Begin&boBox&dengji&
&&&&&&Height&&&&&&&&&&=&&&300
&&&&&&Left&&&&&&&&&&&&=&&&4680
&&&&&&Style&&&&&&&&&&&=&&&2&&'Dropdown&List
&&&&&&TabIndex&&&&&&&&=&&&6
&&&&&&Top&&&&&&&&&&&&&=&&&720
&&&&&&Width&&&&&&&&&&&=&&&1935
&&&Begin&mandButton&Jieshu&
&&&&&&Caption&&&&&&&&&=&&&&结束游戏&
&&&&&&Height&&&&&&&&&&=&&&495
&&&&&&Left&&&&&&&&&&&&=&&&1800
&&&&&&TabIndex&&&&&&&&=&&&5
&&&&&&Top&&&&&&&&&&&&&=&&&600
&&&&&&Width&&&&&&&&&&&=&&&1215
&&&Begin&VB.PictureBox&P1&
&&&&&&Appearance&&&&&&=&&&0&&'Flat
&&&&&&BackColor&&&&&&&=&&&&H&
&&&&&&ForeColor&&&&&&&=&&&&H&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&ScaleHeight&&&&&=&&&225
&&&&&&ScaleWidth&&&&&&=&&&6585
&&&&&&TabIndex&&&&&&&&=&&&4
&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&Width&&&&&&&&&&&=&&&6615
&&&Begin&VB.PictureBox&p0&
&&&&&&Appearance&&&&&&=&&&0&&'Flat
&&&&&&BackColor&&&&&&&=&&&&H&
&&&&&&ForeColor&&&&&&&=&&&&H&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&ScaleHeight&&&&&=&&&225
&&&&&&ScaleWidth&&&&&&=&&&6585
&&&&&&TabIndex&&&&&&&&=&&&3
&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&Width&&&&&&&&&&&=&&&6615
&&&Begin&VB.Frame&Frame1&
&&&&&&Height&&&&&&&&&&=&&&6255
&&&&&&Left&&&&&&&&&&&&=&&&360
&&&&&&TabIndex&&&&&&&&=&&&1
&&&&&&Top&&&&&&&&&&&&&=&&&1200
&&&&&&Width&&&&&&&&&&&=&&&6255
&&&&&&Begin&VB.PictureBox&nPic&
&&&&&&&&&BackColor&&&&&&&=&&&&H008080FF&
&&&&&&&&&BorderStyle&&&&&=&&&0&&'None
&&&&&&&&&Height&&&&&&&&&&=&&&615
&&&&&&&&&Index&&&&&&&&&&&=&&&0
&&&&&&&&&Left&&&&&&&&&&&&=&&&360
&&&&&&&&&ScaleHeight&&&&&=&&&615
&&&&&&&&&ScaleWidth&&&&&&=&&&105
&&&&&&&&&TabIndex&&&&&&&&=&&&2
&&&&&&&&&Top&&&&&&&&&&&&&=&&&240
&&&&&&&&&Visible&&&&&&&&&=&&&0&&&'False
&&&&&&&&&Width&&&&&&&&&&&=&&&100
&&&Begin&mandButton&kaishi&
&&&&&&Caption&&&&&&&&&=&&&&开始游戏&
&&&&&&Height&&&&&&&&&&=&&&495
&&&&&&Left&&&&&&&&&&&&=&&&240
&&&&&&TabIndex&&&&&&&&=&&&0
&&&&&&Top&&&&&&&&&&&&&=&&&600
&&&&&&Width&&&&&&&&&&&=&&&1335
&&&Begin&VB.Label&Label1&
&&&&&&Caption&&&&&&&&&=&&&&难度等级&
&&&&&&Height&&&&&&&&&&=&&&255
&&&&&&Left&&&&&&&&&&&&=&&&3720
&&&&&&TabIndex&&&&&&&&=&&&7
&&&&&&Top&&&&&&&&&&&&&=&&&720
&&&&&&Width&&&&&&&&&&&=&&&855
Attribute&VB_Name&=&&Form1&
Attribute&VB_GlobalNameSpace&=&False
Attribute&VB_Creatable&=&False
Attribute&VB_PredeclaredId&=&True
Attribute&VB_Exposed&=&False
Dim&tmp()&As&Integer&'假设有10种类别的图片，本数组用以记录每组图片加载的次数
Dim&pic(10)&As&ColorConstants
Dim&tCnt&As&Integer
Dim&Fhit&As&ColorConstants
Dim&FhitIndex&As&Long
Private&Sub&Command1_Click()
Private&Sub&jieshu_Click()
&&&&Timer1.Enabled&=&False
&&&&dengji.Enabled&=&True
&&&&P1.Width&=&p0.Width
&&&&Jieshu.Enabled&=&False
&&&&kaishi.Enabled&=&True
Private&Sub&Form_Initialize()
&&&&Dim&i&As&Integer
&&&&For&i&=&1&To&10
&&&&&&&&pic(i)&=&RGB(Int(Rnd&*&255),&Int(Rnd&*&255),&Int(Rnd&*&255))
&&&&Next&i
&&&&dengji.Clear
&&&&For&i&=&3&To&1&Step&-1
&&&&&&&&dengji.AddItem&i&&&&分钟&
&&&&Next&i
&&&&dengji.ListIndex&=&0
&&&&Timer1.Interval&=&1000
&&&&Timer1.Enabled&=&False
&&&&Jieshu.Enabled&=&False
Private&Sub&Form_Load()
&&&&'IntPic
'初始化控件数组
Private&Sub&IntPic()
&&&&Dim&i&As&Integer
&&&&ReDim&tmp(10)&As&Integer
&&&&nPic(0).Move&200,&200,&500,&500
&&&&nPic(0).Visible&=&False
&&&&For&i&=&1&To&100
&&&&&&&&If&ExistPic(nPic(i))&Then&Unload&nPic(i)
&&&&&&&&Load&nPic(i)
&&&&&&&&nPic(i).Visible&=&True
&&&&&&&&nPic(i).Width&=&500
&&&&&&&&nPic(i).BackColor&=&pic(LoadPic)
&&&&&&&&nPic(i).Top&=&(i&Mod&10)&*&(500&+&100)&+&200
&&&&&&&&nPic(i).Left&=&((i&-&1)&\&10)&*&(500&+&100)&+&200
&&&&&&&&nPic(i).Visible&=&True
&&&&Next&i
'判断控件是否存在
Function&ExistPic(obj&As&PictureBox)&As&Boolean
&&&&On&Error&GoTo&errobj
&&&&obj.Move&obj.Left
&&&&ExistPic&=&True
&&&&Exit&Function
&&&&ExistPic&=&False
End&Function
'随机赋予控件颜色，可更改为指定的图片
Private&Function&LoadPic()
&&&&Dim&ntmp&As&Integer
&&&&&&&&ntmp&=&Int(Rnd&*&10)&+&1
&&&&&&&&If&tmp(ntmp)&$<$10&Then
&&&&&&&&&&&&LoadPic&=&ntmp
&&&&&&&&&&&&tmp(ntmp)&=&tmp(ntmp)&+&1
&&&&&&&&&&&&Exit&Do
&&&&&&&&End&If
End&Function
Private&Sub&kaishi_Click()
&&&&tCnt&=&0
&&&&IntPic
&&&&Timer1.Enabled&=&True
&&&&dengji.Enabled&=&False
&&&&kaishi.Enabled&=&False
&&&&Jieshu.Enabled&=&True
Private&Sub&nPic_Click(Index&As&Integer)
&&&&If&Fhit&=&0&Then
&&&&&&&&Fhit&=&nPic(Index).BackColor
&&&&&&&&FhitIndex&=&Index
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&ElseIf&Fhit&=&nPic(Index).BackColor&And&Index&$$FhitIndex&Then
&&&&&&&&nPic(FhitIndex).Visible&=&False
&&&&&&&&nPic(Index).Visible&=&False
&&&&&&&&FhitIndex&=&0
&&&&&&&&Fhit&=&0
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&&&&&nPic(FhitIndex).BorderStyle&=&0
&&&&&&&&Fhit&=&nPic(Index).BackColor
&&&&&&&&nPic(FhitIndex).BorderStyle&=&0
&&&&&&&&nPic(Index).BorderStyle&=&1
&&&&&&&&FhitIndex&=&Index
&&&&End&If
&&&&Debug.Print&Fhit
Private&Sub&Timer1_Timer()
&&&&If&tCnt&$>$Val(dengji.Text)&*&60&Then
&&&&&&&&MsgBox&&游戏结束&
&&&&&&&&Timer1.Enabled&=&False
&&&&&&&&Exit&Sub
&&&&End&If
&&&&tCnt&=&tCnt&+&1
&&&&P1.Width&=&p0.Width&*&(1&-&Format((tCnt&/&(Val(dengji.Text)&*&60)),&&0.000&))
我有更好的***
请先输入下方的验证码查看最佳***
图形验证：
手机号码：
验证码提交中……vb小游戏集下载_游戏编程类源码_VB
当前位置 &
vb小游戏集
运行环境：Windows/Linux
软件大小：752KB
发布日期：.10743
人气浏览：34875
vb打字软件王
俄罗斯方块2000
三子棋游戏
贪吃蛇游戏
上海网通FTP下载
上海电信HTTP下载
下载此源码的会员还关注过：
大型商业学分统计系统原代码首次公开 ..跟windows自带的扫雷游戏很相似 ..使用windows api演示动画的例子..设置屏幕分辨率..如何在vb中调用i /o口的例子..
站长工具：
实用工具：
Copyright &
all rights reserved小木虫 --- 500万硕博科研人员喜爱的学术科研平台
&&查看话题
【分享】由经纬度坐标求距离的VB程序（附源代码）
经纬度坐标的地图中求距离的VB6.0程序，距离单位为M，利用大地正反算白塞尔公式编制而成。
研究生必备与500万研究生在线互动！
扫描下载送金币Private Title As String
Private Content As String
Private IntArray(9) As Integer
Private ImgArray(10) As Bitmap '这里我的想法是每张纸作为一个图片，但感觉不好，有没有简单的实现办法
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Title = &测试用例&
Content = &今天是日&
Dim x As Integer
For x = 0 To 9
IntArray(x) = x
'其中title和content打在一页上，IntArray作为页码打在每页上，即一共要打9页
'另外怎样转换像素和毫米单位，例如页码我想打印到每张a4纸的（10mm，20mm）位置
'字体怎么设置呢？？例如：Title = &测试用例&想设置成小三加粗
'这里要怎样实现预览呢？？求大大们贴点代码，包括上下翻页和直接转到指定页
当点击开始打印按钮时VB.NET code
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
PrintDocument1.Print()
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim x As Integer
For x = 0 To ImgArray.Length - 1 '打印每张图
e.Graphics.DrawImage(ImgArray(x), 0, 0)
'这里怎么写？？我这样必须连接打印机才能看出效果，我想直接先生成xps文件（打印预览文件是这个后缀吧，记不清了）这样方便调试
------解决方案--------------------
预览加printPreviewDialog &Try
Me.PrintPreviewDialog1.Document = Me.PrintDocument1
Dim pkCustomSize1 = New PaperSize
pkCustomSize1.Width = 793.8
pkCustomSize1.Height = 1122.6
Dim bakc = New Color
bakc = Color.Gainsboro
PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
Me.PrintPreviewDialog1.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try坚打 &Dim StrF As New StringFormat
StrF.FormatFlags = StringFormatFlags.DirectionVertical
e.Graphics.DrawString(jsd, New Font(&宋体&, 10), mypen, New Point(20, 100), StrF)
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有