求vb小游戏编程代码。跪求，急求！_百度知道
求vb小游戏编程代码。跪求，急求！
要用到的控件：Text Label CommandButton PictureBox Image Timer要求有图像、窗体的ICON要修改、某些控件能动（随机动或在某个操作下会动）、控件隐藏消失、有逻辑。
提问者采纳
datawindow.accepttext()//接受所有修改if datawindow.updated()
=-1 then//保存//提示messagebox('','') else//提示messagebox('','')
其他类似问题
为您推荐：
小游戏的相关知识
其他2条回答
要，也给个邮箱先啊。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求个VB编程小游戏.要有源代码.不要过于简单.有的留下联系方式..急~~
求个VB编程小游戏.要有源代码.不要过于简单.有的留下联系方式..急~~
补充：要成品
补充：&我要的成品文件..不是给代码我自己做
我做的是21点。对于我来说简单了点。不过里面的判断算很多了。有源文件。你加我Q发你吧。Q：六
其他回答 (2)
下面着个网站有很多VB编的游戏源代码.
这个是VB编程游戏大全代码
太大发不过去
邮箱不行吗？QQ：
VERSION 5.00Begin VB.Form Form1&&& Caption & & & & = & "Form1"&& ClientHeight & &= & 5985&& ClientLeft & & &= & 60&& ClientTop & & & = & 345&& ClientWidth & & = & 7155&& LinkTopic & & & = & "Form1"&& ScaleHeight & & = & 5985&& ScaleWidth & & &= & 7155&& StartUpPosition = & 3 &'窗口缺省&& Begin VB.Timer Timer1&&& & &Enabled & & & & = & 0 & 'False&& & &Interval & & & &= & 1000&& & &Left & & & & & &= & 480&& & &Top & & & & & & = & 360&& End&& Begin VB.ListBox lstInput&&& & &Height & & & & &= & 2580&& & &Left & & & & & &= & 3840&& & &TabIndex & & & &= & 3&& & &Top & & & & & & = & 240&& & &Width & & & & & = & 2415&& End&& mandButton cmdStart&&& & &Caption & & & & = & "开始"&& & &Height & & & & &= & 495&& & &Left & & & & & &= & 120&& & &TabIndex & & & &= & 2&& & &Top & & & & & & = & 2520&& & &Width & & & & & = & 975&& End&& Begin VB.TextBox txtInput&&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 3840&& & &MaxLength & & & = & 4&& & &TabIndex & & & &= & 1&& & &Top & & & & & & = & 2880&& & &Width & & & & & = & 2415&& End&& mandButton cmdNext&&& & &Caption & & & & = & "next"&& & &Enabled & & & & = & 0 & 'False&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 3960&& & &TabIndex & & & &= & 0&& & &Top & & & & & & = & 3600&& & &Width & & & & & = & 1215&& End&& Begin VB.Label lblTime&&& & &Caption & & & & = & "150"&& & &Height & & & & &= & 375&& & &Left & & & & & &= & 1560&& & &TabIndex & & & &= & 4&& & &Top & & & & & & = & 360&& & &Width & & & & & = & 1575&& EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitDim x(1 To 4) As StringDim xCount As IntegerDim scr As IntegerDim blRun As BooleanDim timeLeft As Integer&Private Sub GameStart()&& &NewNumber&& &scr = 100&& &xCount = 0&& &blRun = True&& &timeLeft = 150&& &lblTime.Caption = timeLeft&& &Timer1.Enabled = True&& &txtInput.Text = ""&& &cmdStart.Caption = "结束"End SubPrivate Sub GameStop()&& &blRun = False&& &cmdNext.Enabled = False&& &Timer1.Enabled = False&& &cmdStart.Caption = "开始"&& &lblTime.Caption = x(1) & x(2) & x(3) & x(4)End SubPrivate Sub NewNumber()&& &Dim c As New Collection&& &Dim n As Integer&& &On Error Resume Next&& &Randomize&& &&& &Do Until c.Count = 4&& & & &n = Int(Rnd() * 10)&& & & &c.Add n, "K" & n&& & & &&& &Loop&& &&& &For n = 1 To 4&& & & &x(n) = c(n)&& & & &Debug.Print x(n),&& &Next&& &Debug.PrintEnd SubPrivate Function GetResult(ByVal InputString As String) As String&& &Dim i As Integer, j As Integer&& &Dim tmp As String&& &Dim A As Integer&& &Dim B As Integer&& &For i = 1 To 4&& & & &tmp = Mid(InputString, i, 1)&& & & &If tmp = x(i) Then A = A + 1&& & & &For j = 1 To 4&& & & & & &If tmp = x(j) Then B = B + 1&& & & &Next&& &Next&& &GetResult = A & "A" & B & "B"&& &End Function&Private Sub cmdNext_Click()&& &xCount = xCount + 1&&&&& &Dim s As String&& &Dim rtn As String&& &&& &rtn = GetResult(txtInput.Text)&& &s = xCount & vbTab & txtInput.Text & vbTab & rtn&& &lstInput.AddItem s&& &If rtn = "4A4B" Then&& & & &MsgBox "成功" & scr & "分", vbInformation, "成功"&& & & &GameStop&& &Else&& & & &If xCount = 10 Then&& & & & & &MsgBox "失败", vbCritical, "失败"&& & & & & &GameStop&& & & &End If&& & & &scr = scr - 10&& &End If&& &txtInput.Text = ""End Sub&Private Sub cmdStart_Click()&& &If Not blRun Then&& & & &GameStart&& & & &&& &Else&& & & &GameStop&& & & &&& &End If&& &End SubPrivate Sub Timer1_Timer()&& &timeLeft = timeLeft - 1&& &lblTime.Caption = timeLeft&& &If timeLeft &= 0 Then&& & & &GameStop&& & & &MsgBox "时间到", vbCritical, "失败"&& & & &&& &End If&& &End SubPrivate Sub txtInput_Change()&& &cmdNext.Enabled = (Len(txtInput.Text) = 4) And blRunEnd Sub
成品啊..你给这个我没用.我不会做.我要你做好了发给我
以下代码用记事本保存为VBS文件，双击文件运行Dim infoinfo = "4位数字，不重复，你猜吧！150秒"Dim x(4)Dim B(9)Dim iDim starttime&& &If MsgBox(info, vbOKCancel, "游戏") = vbOK Then&& & & &info = ""&& & & &starttime = Timer&& & & &NewNumber&& & & &trytry&& &End IfSub NewNumber()&& &Randomize&& &&& &For i = 0 To 9&& & & &B(i) = i&& &Next&& &&& &Dim n&& &For i = 1 To 4&& &Do&& &n = Int(Rnd() * 10)&& &Loop Until B(n) && -1&& &x(i) = B(n)&& &B(n) = -1&& &NextEnd SubSub trytry()&& &&& &Dim DaAn, Ts, Inpt, Rtn&& &&& &Ts = vbCrLf & "输入一个4位数：" & vbCrLf&& &&& &&& &DaAn = x(1) & x(2) & x(3) & x(4)&& &&& &For i = 1 To 10&& &&& & & &Do&& & & & & &Inpt = InputBox(info & vbCrLf & Ts, "剩余时间：" & Int(150 - Timer + starttime) )&& & & & & &&& & & & & &If Inpt = "" Then Exit For&& & & & & &If Len(Inpt) = 4 And IsNumeric(Inpt) Then&& & & & & & & &Exit Do&& & & & & &Else&& & & & & & & &MsgBox "请输入一个合法的4位数"&& & & & & &End If&& & & &Loop&& & & &&& & & &Rtn = GetResult(Inpt)&& & & &&& & & &If Inpt = "4A4B" Then&& & & & & &MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "恭喜你成功了！"&& & & & & &Exit For&& & & &Else&& & & & & &info = info & i & vbTab & Inpt & vbTab & Rtn & vbCrLf & vbCrLf&& & & &&& & & & & &If Timer - starttime - 150 & 0 Then&& & & & & & & &MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "对不起，时间到了！"&& & & & & & & &Exit ForEnd If&& & & &&& & & &End If&& & & &&& &&& &Next&& &&& &If Rtn && "4A4B" Then MsgBox info & vbCrLf & "答案: " & DaAn & vbCrLf & vcbrlf & "游戏结束！"&& &End Sub&Function GetResult(InputString)&& &Dim i, j&& &Dim tmp&& &Dim A&& &Dim B&& &A = 0&& &B = 0&& &tmp = ""&& &For i = 1 To 4&& & & &tmp = Mid(InputString, i, 1)&& & & &If CInt(tmp) = x(i) Then A = A + 1&& & & &For j = 1 To 4&& & & & & &If CInt(tmp) = x(j) Then B = B + 1&& & & &Next&& &Next&& &GetResult = A & "A" & B & "B"&& &End Function&&你把我发给你的图和代码复制在一齐看
你可以把你这个程序的 Form1.frm
工程1.vbp这三个文件发到我邮箱吗？
不行,你自已能吧
输入///code/sort0191/sort0196/list1961.html或///view/721cdb75aa8e37.html
相关知识等待您来回答
小游戏领域专家
& &SOGOU - 京ICP证050897号VB扫雷游戏源代码，急求可加载文件_百度知道
VB扫雷游戏源代码，急求可加载文件
最好是有初始界面空间属性，并且源代码有注释，重点是各控件名称在代码里能表现出来。邮箱
提问者采纳
我传你一个，可能没注释请查收
提问者评价
太感谢了，真心有用
来自团队：
其他类似问题
为您推荐：
扫雷游戏的相关知识
其他1条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁行业解决方案
开发者中心
两层应用程序简化了页中的代码，增强了可读性并将用户界面(UI)逻辑与系统功能分开。三层应用程序扩展了两层模型，使 UI 开发人员能够处理更高级的抽象化。中间业务组件通常强制业务规则并确保遵守数据库的关系和主键...
以下为可能带有可执行病毒...vbs VB脚本文件 hlp Microsoft帮助文件 pif Microsoft程序信息文件 reg Microsoft注册表文件 scr Microsoft屏幕捕获二进制文件 shs shell自动代码 wsf Microsoft脚本文件 sea MAC自释放文件
6、（以VB编写asp.net为例）aspx,.aspx.resx,.aspx.vb是一个窗体，资源，代码一体的程序，aspx是窗体的设计，aspx.resx是窗体的参数，aspx.vb是窗体的事件处理代码和对象生成代码。Web.config是系统设置文件，只要...
在传统CGI中，如果有N个并发的对同一CGI程序的请求，则该CGI程序的代码在内存中重复装载了N次；而对于Servlet，处理请求的是N个线程，只需要一份Servlet类代码。在性能优化方面，Servlet也比CGI有着更多的选择，比如...
DefaultView 属性表示 DataSet 中表的当前状态，包括应用程序代码所做的任何更改（例如，行删除或值更改）。设置了 DataSource 属性后，调用 DataBind()填充控件。MyDataGrid.DataSource=ds.Tables["Authors"]....
如果你仔细看过WinsockTerminal示例程序的源代码，你就会发现这一点。现在让我们用这个示例程序来向自己发一封电子邮件吧。运行示例程序，单击"Connect"按钮，在"Connectto."对话框中输入你的电子邮件服务器的地址，...
事实上，MMIT包含了很多仿真程序，它们使用了真正为这类设备编写的ROM代码，所以在你的应用程序投入使用之前，可以首先测试其用于此类设备时的性能。6．代码管理 Net管理用户的代码，从很多方面看，这一点都是很重要...
Internet 正在向下一代 Web 站点快速演进，今天的 Web 站点仅能为浏览器提供用户界面，而下一代可编程 Web 站点直接将企业、应用程序、服务和设备彼此链接。这些可编程 Web 站点将不只是被动访问的站点，而将成为可...
本节小结%&%&%&%&%&%now&%&%&%&%&%& 除了三处例外，ASP.NET 与传统的 ASP 在 API 方面完全兼容。API 的变化是：Request()、Request.QueryString()和 Request.Form()现在都返回个别的字符串而不是字符串数组。ASP....
CreateChildControls 方法创建一个事件处理程序的实例，该实例引用上述方法并将事件处理程序附加到 TextBox 实例的 TextChanged 事件。protected override void CreateChildControls(){.TextBox box=new TextBox();...
本节小结 ASP.NET 声明性数据绑定语法使用 表示法。可以绑定到数据源、页或其他控件的属性、集合、表达式以及从方法调用返回的结果。列表控件可以绑定到支持 ICollection、IEnumerable 或 IListSource 接口的集合，...
然后，在用于Global.asax文件的代码隐藏类中，可覆盖GetVaryByCustomString方法，如以下VB.NET代码所示： Public Overrides Function GetVaryByCustomString(_ ByVal context As System.Web.HttpContext,_ ByVal ...
Web 是一个灵活的用户界面环境，不同 Web 站点的外观差别极大。...Windows系统虚拟主机程序迁移后报加密错误的解决方法 web 窗体 服务器控件窗体验证 web 窗体服务器端数据访问 创作自定义控件 ASP.NET定义主题和外观
VB"runat="server"& Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand sub page_load(sender as Object,e as EventArgs) \'1.连接数据库 dim dbname as string dbname=server....
如过你用VB编写文件上传的组件的话，那么用JAVA编写文件上传的JAVABEAN十分容易。下面的例子只是一个简版 import java.io.*;import java.util.*;import javax.servlet.*;import javax.servlet....
VB"runat="server"& sub page_load(sender as Object,e as EventArgs) Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim ds as DataSet '1.connect to sql server myConnection=...
它是一种包含了使用VB Script或Jscript脚本程序代码的网页。当浏览器浏览ASP网页时,Web服务器就会根据请求生成相应的HTML代码然后再返回给浏览器,这样浏览器端看到的 就是动态生成的网页。ASP是微软公司开发的代替...
http://www.xn--vhq70z1vb<// 是中文域名的 杭州1核 1G 3M带宽。图片异步加载大家试试 怎么样？几秒看到首屏？随便浏览一下 可以给点建议哦[s:117]
Import NameSpace="System.Data.OleDb"%&&script laguage="VB"runat="server"&Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand sub page_load(sender as ...
未解决问题？到论坛提问试试吧!
服务与支持
售前咨询：400-118-）
账号与支付
关注阿里云求适用于vb2010的小游戏源代码！麻烦整个文件压缩！急需！！！！_百度知道
求适用于vb2010的小游戏源代码！麻烦整个文件压缩！急需！！！！
不用很复杂，基础的几行代码就行，什么猜数字啊数独啊bingo啊等等都行！请各路大神救救苦逼的学生党，麻烦整个文件压缩！好人有好报
您的回答被采纳后将获得：
系统奖励20（财富值+经验值）+难题奖励30（财富值+经验值）
我有更好的答案
其他类似问题
为您推荐：
文件压缩的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁