189 8069 5689
Private Sub Form_Click()
成都创新互联公司拥有网站维护技术和项目管理团队，建立的售前、实施和售后服务体系，为客户提供定制化的成都网站建设、成都网站制作、网站维护、西云机房解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城建设、政府网站等各类型客户群体，为全球成百上千家企业提供全方位网站维护、服务器维护解决方案。
Dim x(10, 10)
For k = 2 To 4
For j = 4 To 5
x(k, j) = k * j
Next j
Next k
Print x(2, 5) + x(3, 4) + x(4, 5)
End Sub
Wrox红皮的《Visual Basic 2010 入门经典》还是不错的，毕竟是比较权威的书。不过这个还是要靠兴趣和编程量的。我觉得作为教材的书基础一点就可以了，有深度的可以作为课下资料或者上网查。个人觉得多编一些实际一点的有意思的程序比较好吧
沈阳理工大学 机械工程 学院
VB程序设计训练任务书
学生姓名 班级
学号
设计题目 指针时钟
具体内容
一.目的和要求
1. 目的：
培养学生利用VB6.0语言进行程序设计的能力，主要培养学生使用提供的彼岸准函数，熟练使用相关的控件和方法进行程序设计。VB设计训练是学习完《VB程序设计》课程后进行的一次全面的综合性上机实验。其目的在于为学生提供了一个既动手又动脑，独立实践的机会，将课本上的理论知识和实际有机的结合起来，锻炼学生的分析解决实际问题的能力。提高学生适应实际，实践编程的能力。
2. 基本要求
①要求使用VB对象的思想来完成程序的设计。
②在设计程序的过程中，要求使用按钮、文本框、标签、形状等基本控件的属性、方法和相关事件。使用Line方法画线模拟指针。
③在设计中使用系统提供的方法显示三个指针并区分其颜色可以随时间进度移动，指示正确当前时间。
二.设计要求
使用指针方式时钟显示当前时间，具有圆形的钟面,。新建立一个工程，在默认的窗体上添加以下三个LINE控件和一个TIMER控件分别用三条线表示时针、分针，秒针。
制作一个提取系统时间并正确走时的时钟，该时钟有时针、分针和秒针，并且可以走动，如果系统时间正确，则它的时间也准确。
控件名称 属性 属性值
Picture AutoSize True
AutoRedraw True
Timer Enabled True
Interval 1000
Label1 Caption 指针效果
Font 黑体、粗体
二. 技术要求
1. 按照给定题目独立设计程序，上机调试通过。
2. 写出设计报告
分为两部分，一，Resize调整外形，二，Timer设置时间。
使用了LINE控件用来表示指针，根据粗细不同，分别为时、分、秒针，每个LINE都有2个点的坐标，一个点是原点，也就是表盘的最中心点，另一个点根据当前的时间计算从而决定。然后通过TIMER控件，每隔1秒计算一次进行刷新，即可以实现。
①Resize部分
Dim xx1%,yy1%
‘宣告变量xx1,yy1为整型
Private Sub Form_Resize()
‘Me当前窗体, Me.Cls清屏
Me.Cls
Me.AutoRedraw = True
‘AutoRedraw自动绘制图形
xx1 = Me.Width \ 2
‘计算圆心的x轴的xx1
yy1 = (Me.Height - 405) \ 2
‘计算圆心的y轴的yy1
‘设置三条线的坐标，将三根针的起点x1,y1全定位在圆心上
Line1.X1 = xx1: Line1.Y1 = yy1
Line2.X1 = xx1: Line2.Y1 = yy1
Line3.X1 = xx1: Line3.Y1 = yy1
Me.Line (xx1 - 950, yy1)-(xx1 - 850, yy1)
Me.Line (xx1 + 850, yy1)-(xx1 + 950, yy1)
Me.Line (xx1, yy1 - 950)-(xx1, yy1 - 850)
Me.Line (xx1, yy1 + 850)-(xx1, yy1 + 950)
Me.DrawWidth = 5
Me.Circle (xx1, yy1), 950
‘设置三条线的颜色与宽度
Line2.BorderWidth = 1
Line2.BorderColor = QBColor(12)
Line1.BorderWidth = 2
Line1.BorderColor = QBColor(14)
Line3.BorderWidth = 3
Line3.BorderColor = QBColor(10)
Timer1.Interval = 500
End Sub
②Timer部分
Private Sub Timer1_Timer()
Me.Caption = Time
‘标题栏显示时间
Second Hand
‘画秒针
sdeg = Second(Time) * 6
‘计算秒针的角度，每一秒是360度除以60秒=6度，所以乘以6
srad = (3.14 / 180) * sdeg
‘VB是以弧度单位来计算，所以角度弧度是3.14/180,秒针跑了N度就乘以N
Line2.X2 = Line2.X1 + (900 * Sin(srad))
‘900是秒针的长度，以圆心（line2的x1,y1）为准，计算出在这个弧度时line2.x2位置
Line2.Y2 = Line2.Y1 - (900 * Cos(srad))
‘900是秒针的长度，以圆心（line2的x1,y1）为准，计算出在这个弧度时line2.y2位置
Minute Hand
‘画分针
Mdeg = Minute(Time) * 6 + (sdeg * 1 / 60)
‘计算分针的角度，每一分是360度除以60秒=6度，所以乘以6，秒针动分针也要动，所以要加上秒针移动所产生的分针移动。秒针转了一圈360度，分针才进了1分钟就是6度，比例为1/60.
mrad = (3.14 / 180) * Mdeg
‘VB是以弧度单位来计算，所以角度弧度是3.14/180,分针跑了N度就乘以N
Line1.X2 = (750 * Sin(mrad)) + Line1.X1
‘750是分针的长度，以圆心（line2的x1,y1）为准，计算出在这个弧度时line2.x2位置
Line1.Y2 = Line1.Y1 - (750 * Cos(mrad))
‘750是分针的长度，以圆心（line2的x1,y1）为准，计算出在这个弧度时line2.y2位置
Hour Hand
‘画时针
hdeg = Hour(Time) * 30 + (Mdeg / 12)
‘计算时针的角度，每一小时是30度，所以乘以6，分针动时针也要动，所以要加上分针移动所产生的分针移动。秒针转了一圈360度，分针才进了1刻就是30度，比例为1/12
hrad = (3.14 / 180) * hdeg
‘VB是以弧度单位来计算，所以角度弧度是3.14/180,时针跑了N度就乘以N
Line3.X2 = (500 * Sin(hrad)) + Line3.X1
‘500是时针的长度，以圆心（line3的x1,y1）为准，计算出在这个弧度时line3.x2位置
Line3.Y2 = Line3.Y1 - (500 * Cos(hrad))
‘500是时针的长度，以圆心（line3的x1,y1）为准，计算出在这个弧度时line3.y2位置
End Sub
③窗体布局截图
一个Timer控件，三条Line控件。
④程序运行后的截图
三．结束语
这个时钟程序花了不少时间，倒不是因为不去努力什么的，只是因为以前从没有做过VB编程的东西，刚开始连完全不知道那些函数是干什么的，因为和以前很多东西不一样，很多知识要重新开始学，于是去图书馆借了不少书，于是对时钟设计有了不少认识，可是在实际操作的时候还是遇到了很多麻烦，不过还好，虽然问题多多，最后也终于做出了这个程序，很简单的一个时钟程序，不过依然很高兴，毕竟是自己用VB做出的第一个程序，而且通过这次编程实习，我对VB编程知识也有了不少的了解，课程设计让我们学习与实践相结合，提高了我们对书本知识的理解和运用能力。锻炼了我的学习能力。在今后的学习中，还要继续加强自主学习与实践的能力。我相信对以后的工作之路也会有莫大的帮助,非常感谢能有这个锻炼的机会。
四.参考文献
1. 龚沛曾.《VB程序设计简明教程（第二版）》，高等教育出版社，2002.8
2.
3. 《Visual Basic 课程设计案例精编》中国水利水电出版社 张勇等编
4. 《Visual Basic使用大全》
5. MSDN 帮助库
指导教师___________（签字）
教研室主任__________（签字）
《Visual Basic 程序设计简明教程》
（第二版）
龚沛曾 著
高等教育出版社
《Visual Basic 实验指导与测试》
（第二版）（配盘）
龚沛曾 陆慰民 杨志强 著
高等教育出版社
很正规的教材
谭浩强的。清华出版社 VB程序设计简明教程 高等教育出版社 这本书编写的相当好！！！！ Visual Basic程序设计简明教程（第二版） ISBN：7-04-011549，P334 龚沛曾等，已出版，定价：25.60元 本书是为将Visual Basic作为程序设计第一语言课程的学校编写的。在第一版的基础上，本书针对初学者的特点，在内容编排、叙述严谨、实验题选择等方面做了进一步修改，力图便于教与学。 本书分为教学篇和实验篇。教学篇从两个方面即程序设计语言和可视化界面设计进行介绍，重点在第一方面。对程序设计的基本知识、基本语法、编程方法和常用算法进行了较为系统、详细的介绍，让学生学会分析问题、掌握简单问题编程的能力；而可视化界面设计是实际应用当中不可缺少的。本书将两者有机地结合，既可提高学生学习积极性又可提高编程效率和教学效果，真正达到学以致用的目的。 实验篇根据教学篇的布局，安排了相应的十一个实验，每个实验有若干个题目。根据教学规律和读者的建议，凡奇数号的实验给出了解答，偶数号实验答案则在配套的《Visual Basic实验指导与测试》（第二版）一书中给出，以培养学生独立解题的能力。返回 作者介绍： 龚沛曾（GONG PEIZENG），女，1953年8月生，1969年1月参加工作，1982年1月毕业于华东理工大学。现任同济大学计算机系教授，基础学科组主任，全国高校计算机教育研究会常务理事，上海市计算机基础教育协会秘书长。 长期从事计算机基础教学和科研工作。主讲《高级程序设计语言（C、VB、FORTRAN、PASCAL、COBOL）》、《计算机文化》、《实用软件技术》、《数据结构》、《Web技术》等课程。研究方向计算机辅助教育。 主编教材10余本、发表论文20余篇。主要教材有：《计算机文化基础》、《Visual Basic程序设计教程》、《Visual Basic计算机绘图》、《C语言程序设计》等系列教材；发表的主要论文有："通用学分制智能教务管理系统的研究与实践"、"研究集教学、实验、考试于一体化的CAI课件的有效途径"、"多媒体CAI课件开发的技术和方法"等。承担了教育部《基于网络环境的计算机基础教学改革与实践》等教改项目。 主要成果有：负责的《面向21世纪计算机基础教学改革与实践》项目2001年获国家级教学成果二等奖、上海市教学成果一等奖；主编的《计算机文化基础》、《Visual Basic程序设计教程》教材2000年分别获上海市优秀教材二、三等奖，其中《计算机文化基础》教材列入国家十五规划教材，《Visual Basic程序设计教程》列入教育部面向21世纪教材；参加的国家七?五攻关项目"城市环境噪声防治系统"1992年获上海市科技进步三等奖；承担的《通用学分制智能智能教务管理系统》、《计算机文化CAI课件》两项目1997年分别获教育部、全国工科协作组优秀CAI软件三等奖。返回 专家书评： 探索 创新 实用--评《Visual Basic程序设计简明教程》 同济大学 吴启迪 由龚沛曾编著的《Visual Basic程序设计简明教程》已由高等教育出版社出版。从一些使用高校反馈的信息看，这是一本适用于计算机第二层次教学的优秀教材，它有以下特色。 一、 体现时代特征，选材超前 教育部关于计算机基础教育三个层次的课程体系中的第一层次--计算机文化教育的重要性，已成为广大教育工作者的共识。探索改革第二层次中程序设计语言课程教学，体现21世纪的时代特征，是深入教育改革的研究内容。为此，作者提出了将传统的程序设计语言教学转向反映21世纪潮流的面向对象的程序设计技术，并以VB为环境进行实施。VB不仅具有面向对象、可视化、事件驱动等特点，而且继承了 Basic简单易学的优点，尤其适合于非计算机专业学生的学习。教材的出版对探索和推广面向21世纪的程序设计语言教学改革有着重要的意义。 二、 结构合理，层次清楚，适用性强 该书兼顾到读者的不同程度，从打好基础和培养学生应用计算机的能力角度出发，分为基础篇、提高篇和实验篇。 基础篇分为8章。针对程序设计的初学者，注重VB的基础知识。对VB的程序设计语言基础做了较详细的介绍，列举了一般程序设计语言教学中必须掌握的常用算法，同时介绍了VB的控件、菜单、文件、图形设计等。此篇可作为大学生的程序设计语言的必修课教学内容。 提高篇分四章。对已掌握了程序设计的学生，注重VB与当前新技术应用的结合，包括与数据库、OLE、API函数、WEB等相结合，这些可作为选修课或自学内容。 实验篇提供了15个单元的实验和自我测试题。通过针对性的上机实践，使读者掌握程序设计与调试的方法，提高动手能力，巩固所学的知识。 三、 两个结合，注重应用 教材始终贯穿了两个结合，即将面向对象程序设计方法和结构化程序设计方法有机结合，计算机文化基础和计算机技术基础两个层次有机结合。 面向对象的程序设计方法还是要以结构化程序设计为基础。因此，该书与其他同类VB教材不同之处在于加强了结构化程序设计和常用算法的训练，并与VB中的对象属性和方法相联系，使读者既掌握了程序设计的基本方法，更加深了对面向对象概念的理解。例如，在分析数组排序算法的同时，也介绍了利用VB列表框的SORT属性可实现数据的有序，同时指出两者的特点和利弊。 利用学生已在计算机文化基础课程中对Windows图形界面及软件熟练使用的基础，在该书中，大量的实例都围绕着第一层次中已学过的软进行剖析，如对计算器、图形浏览器、文本编辑器、数据库管理等的分析。通过实例分析，并加以编程实现，使学生既掌握了VB内容的学习，进行了开发实用软件的训练，更激发了探索VB奥妙的兴趣，达到事半功倍的效果。 四、 在精字上下功夫，有创新 为了解决内容多、学时少的矛盾，作者花费了大量的创造性劳动，在精字上下功夫。表现在：精练的文笔简述基本语法的使用规则，淡化繁琐的语法规则。短小精悍的实例引路，通过问题的展开导出对象属性和方法，加深读者对新知识的理解。精心设置了思考题并留有余地，给学生提供较多的独立思考的机会，巩固学习内容。精选了与实际生活密切相关的问题作为实例或实验内容，既调动了学生的学习积极性，又使得学与用密切结合，增强了学生运用知识的能力。提供了与教材配套的CAI课件，构成了立体化教材，利用大屏幕投影，真正贯彻精讲多练的原则，提高了教学的质量和效率。提供了与教材配套的教学网站，并提供了网络化VB考试与评分系统，随时可进行相关测评。教材结构紧凑，层次清楚、图文并茂、好教易学。 这些特色在同类计算机基础教材改革中具有一定的创新意义，使学生通过该书的学习，提高获取知识的能力、分析问题和解决问题的能力以及开发实用软件的能力。这在一般程序设计语言课程教学中难以完全兼顾到。
满意请采纳