用VB编写的简单汉诺塔程序 Private Sub cmdStart_Click() n = Int(Text1.Text) ReDim Data(1 To n, 1 To 3) For i = 1 To n For j = 1 To 3 Data(i, j) = 0 Next j Next i For i = 1 To n Data(i, 1) = i Next i ColNow = 1 SelNum = 0 Call ShowPic End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp If SelNum = 0 Then SelNum = Data(1, ColNow): Call Pop Case vbKeyDown If SelNum <> 0 Then If Push = True Then SelNum = 0 If Data(n, 3) = n Then Call ShowPic: MsgBox "恭喜你通过!", vbOKOnly, "Pass" End If Case vbKeyLeft ColNow = ColNow - 1 If ColNow < 1 Then ColNow = 1 Case vbKeyRight ColNow = ColNow + 1 If ColNow > 3 Then ColNow = 3 End Select Call ShowPic End Sub
2022-09-28 12:44:11 11KB vb 汉诺塔
1
简单的正三角 倒三角 图形 生成程序
2022-09-28 11:43:13 13KB vb 简单正三角 倒三角 程序
1
内容索引:VB源码,文件操作,Excel  这个源代码个人感觉比较不错,可以比对两个Excel表格内容的差异性,虽然我们不经常用到这种功能,但经常从事表格制作、数据录入、数据转换的朋友来说,这个还是挺实用的,它以直观的方式显示出不同表段、不同表格内容的差异性,有两个选项:显示结果、忽略错误。同时也可以学习一下VB是如何是操作Excel文件的。
2022-09-26 12:42:34 13KB VB源代码 文件操作
1
ASP.NET 4高级编程:涵盖C#和VB.NET(第7版) 仅供学术交流,禁止贩卖盈利。
2022-09-26 06:41:48 190.46MB ASP.NET 4 VB.NET
1
基于Pyhton和VB的图书管理软件:通过ISBN批量查询书籍信息 包含源码 基于易源数据API接口
2022-09-25 18:04:38 6.44MB 图书管理
1
基于vb.net的在线考试系统 基于vb.net的在线考试系统 基于vb.net的在线考试系统基于vb.net的在线考试系统
2022-09-24 20:42:18 1.45MB 在线 考试 vb
1
vb.net 设计的考试系统。可以实现教师、学生和管理员三种权限的登录使用。希望其中的设计思想和方法能够对大家有所帮助。
2022-09-24 18:18:54 9.91MB 考试系统 vb.net
1
本书以Visual Basic.NET为编程语言,全面介绍 Web服务的相关概念和技术内幕,并具体介绍创建 Web服务框架的核心内容以及部署、发布和使用 Web服务的方法。
2022-09-24 17:19:32 1.09MB vb.net
1
本书以Visual Basic.NET为编程语言,全面介绍 Web服务的相关概念和技术内幕,并具体介绍创建 Web服务框架的核心内容以及部署、发布和使用 Web服务的方法。
2022-09-24 17:17:59 5MB vb.net
1
本书以Visual Basic.NET为编程语言,全面介绍 Web服务的相关概念和技术内幕,并具体介绍创建 Web服务框架的核心内容以及部署、发布和使用 Web服务的方法。
2022-09-24 17:16:37 5MB vb.net
1