学校开设了VB选修课,老师让我们编一个时钟,就是那种指针式的,我用的是VB2010,求高手给个代码啊
Private Sub Command1_Click()
Dim i As Integer, j As Integer, A(4) As Integer
Dim temp As Integer
For i = 0 To 4
A(i) = InputBox("请输入数字:", "系统提示", 0)
Next i
i = 0
j = 4
For i = 0 To 3
For j = 4 To i + 1 Step -1
If A(j) < A(j - 1) Then
temp = A(j)
A(j) = A(j - 1)
A(j - 1) = temp
End If
Next j
Next i
For i = 0 To 4
Print CStr(A(i)) + " ";
Next i
End Sub
去试试看吧
效果如图
添加lable控件和timer控件。
然后在代码页这么写:
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.AutoSize = True
Label1.Caption = ""
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
编译运行就行了。
指针式的时钟?
你是那个年级的学生?大一?研一?
要是能编这个程序,所谓的VB选修课还有必要上吗?
你要是初、高中生,第一节课就让你们编这个程序,不是你听错了,就是你们老师的脑子进水了。
CLS
DO
LOCATE 10,32
PRINT TIME$
C=INT(RND * 15)+1
COLOR C
SLEEP 1000
LOOP UNTIL INKEY$ <> ""
END
不过这个是电子钟 :-)
Const pi = 3.14159265
Private Const sLeng = 80
Private Const mLeng = 70
Private Const hLeng = 40
Dim s As Integer
Dim m As Integer
Dim h As Single
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbPixels
Me.DrawMode = vbNotXorPen
End Sub
Private Sub Form_Resize()
On Error GoTo errMsg:
Me.Scale (-Me.ScaleWidth / 2, -Me.ScaleHeight / 2)-(Me.ScaleWidth / 2, Me.ScaleHeight / 2)
Cls
Me.DrawWidth = 3
Circle (0, 0), 100
Form1.Caption = Format(Time, "medium time")
s = Second(Time)
m = Minute(Time)
h = Hour(Time) + m / 60
If h >= 12 Then h = h - 12
Line (0, 0)-(sLeng * Cos(pi * s / 30), sLeng * Sin(pi * s / 30)), vbRed
Line (0, 0)-(mLeng * Cos(pi * m / 30), mLeng * Sin(pi * m / 30)), vbBlue
Line (0, 0)-(hLeng * Cos(pi * h / 6), hLeng * Sin(pi * h / 6)), vbBlack
Exit Sub
errMsg:
Me.Caption = "窗体被你拖得太小啦!"
End Sub
Private Sub Timer1_Timer()
Line (0, 0)-(sLeng * Cos(pi * s / 30), sLeng * Sin(pi * s / 30)), vbRed
Line (0, 0)-(mLeng * Cos(pi * m / 30), mLeng * Sin(pi * m / 30)), vbBlue
Line (0, 0)-(hLeng * Cos(pi * h / 6), hLeng * Sin(pi * h / 6)), vbBlack
Form1.Caption = Format(Time, "medium time")
s = Second(Time)
m = Minute(Time)
h = Hour(Time) + m / 60
If h >= 12 Then h = h - 12
Line (0, 0)-(sLeng * Cos(pi * s / 30), sLeng * Sin(pi * s / 30)), vbRed '秒针
Line (0, 0)-(mLeng * Cos(pi * m / 30), mLeng * Sin(pi * m / 30)), vbBlue '分针
Line (0, 0)-(hLeng * Cos(pi * h / 6), hLeng * Sin(pi * h / 6)), vbBlack '时针
End Sub
用VB编程模拟光学折射...急,选修课实验报告,作为期末考试成绩,望强人出 ...
同学 我知道你是哪个学校,哪个学院的了。。。
求谁会用VB做3D选号,本人选修课
建议到专业网站去咨询一下吧,这里关注较少。
电脑技术包括那些方面?
开设必要的选修课程;注重理论联系实际,实际操作能力的培养,在学时分配上向实践课倾斜,以提高学生的动手能力。 (二)专业课程实施过程中,在部分课程中安排了集中课时进行课程设计,使学生能将所学知识融会贯通;为了提高教学质量和教学效果,要求全部专业课必须采用电子教案和CAI多媒体教学课件进行多媒体教学;设置专业选修课...
你好,我想申请纽约大学金融硕士,都至少需要什么条件
技术和精算金融分支要修一些计算机语言和编程,例如:夏季提供的VB精算思路,C++,VBA等编程语言;微积分、概率与统计、计算机编程语言、线性代数(有用但是不强制要求)是金融市场和公司金融分支要修的。4、工作经验 纽约大学国际金融硕士专业在工作经验方面没有要求,但如果申请者有工作经验和实习实践会更好...
山东外贸职业学院的学院概况
拥有《外贸英语函电》、《国际贸易法》、《VB程序设计》、《C语言程序设计》、《国际贸易实务》和《报关实务》等6门省级精品课程和1门省级筹备精品课。学院重视实践教学,已建成涵盖所有专业的校内实训室50余个,学院利用服务外包人才培训基地平台,通过“校中企”、 “企中校”等灵活的校企合作模式,对部分专业的学生...
vb做系统 哪个最简单
第一个比较简单 要求少 数据库结构简单 ER图画一下只要4 5张表就可以了 比较容易实现
专业选修课挂了需重修吗,最好是成都信息工程学院的同学来回答下_百度...
我是成信院的,专业选修如果选了就是正修课程,如果挂科补考不过,是要重修的。而且交钱和必修课的都一样,一分60元。现在学校规定,除了公共选修挂科才没有重修,其他的都一视同仁,特殊情况的话要向教务处申请。像您这种如果补考不过的话,那就只有悲剧的重修了。但是我还是祝你好运嘛,放假好好复习...
急求VB程序代码解释
'计时器1 Private Sub Timer1_Timer()'如果Shape1 Y轴座标大于500象素 If Shape1.Top >= 500 Then Shape1.Top = Shape1.Top - 200 '不断向上移动200象素 Else Timer1.Enabled = False '停掉计时器1的动作 Timer2.Enabled = True '开启计时器2 End If End Sub '计时器2 Private Sub ...
什么是FORTURN语言
经过40多年的发展,伴随着FORTRAN语言多次版本的更新及相应开发系统的出现,其功能不断完善,最新版本的开发系统几乎具备了VC、VB的所有特点,如图形界面编程、数据库等。目前,工科院校开设的计算机编程语言课首选仍然是FORTRAN。Fortran 90推出后,使传统的Fortran语言有了现代气息。微软公司将Fortran 90无逢...
体育选修课网球会考什么
理论考试,内容就太难说了。你可以看一下这份资料,仅作参考。http:\/\/wenku.baidu.com\/link?url=1oQQ2FS4_iLcWrPmTHx0_TwOFdRiEEZ9H2KXtGDwNEiRLMUeM71VBcBxUpHHFV-GY3uidke2hI7UIoCxgWY6QpXp7OEWRt3qwK9NiliXn0y 另外有些还要看出勤率。每个学校都要看老师是死板还是灵活和气的,所以...
子逸醒脾: 说实话,别太注重学校的教育,...
东乡县19298245523: 江苏省普通高中信息技术考试 - ?
子逸醒脾: 重视是对的 通过率一般为99以上 试卷题目数量分布情况:单选题20道,多选题5道,操作题:除了网络技术模块6道外,其余选修模块均为5道.总题量,除网络技术模块31道题外,其余选修模块均为30道题.在教师指导认真复习 会顺利通过的.IT只有个等级 合格 不合格
东乡县19298245523: 有没有VB人员,帮忙设计一个简单一点的程序,大学的VB是选修课,就十周,学不到什么东西,还要交作业 - ?
子逸醒脾: '可以加载和播放图片,还可以加载和播放背景音乐,可以连续,也可手动,本来是给另外一个人的,可他没有回音,如果你用,只是网上第二个人,绝对自己写的,只要踢球不细问原理,你是可以过关的'16个按钮,两个图片框,一个文本框,...
东乡县19298245523: 武汉理工大学 哪些专业有VB - ?
子逸醒脾: 查了一下课表,编辑出版学,广告学,数理金融,经济学,法语,日语,英语,工商管理大一下开设了VB.
东乡县19298245523: 高中为什么开设vb,是大多数学校都有开设吗, - ?
子逸醒脾: 因为现在信息时代啊,按照教育改革的趋势,一些编程课程可能回下放到高中.只会用一些简单的操作可能不足以完成一下特殊工作吧,要会一些编程的基础,自己编写程序解决问题提高效率,举个前些天自己接触到的实际问题吧,excel里面有...
东乡县19298245523: 学校开了一门课VB.怎么样能让学生对这门课产生兴趣. - ?
子逸醒脾: VB的优点是做软件快捷,是做大软件的,比如MIS,MRP,MRPII,ERP 现状就是如今国内很多人用来做外挂,木马等,名声极坏,360凡是VB的程序就报毒 发展就不好说了,如今除了用做考证,很少有招聘的.因为网上的代码太多了,入门也容易,不需要专门去找一个会VB的养着.如今流行手机编程,VB太OUT了.一个金币都没有啊,别太抠门.
东乡县19298245523: 选修选了VB 想问问懂得人这难学吗 别挂就行啊 - ?
子逸醒脾: 这东西难不难,是因人而异的,看你说了这么多,我估计你学起来不会觉得简单;另外,据我所知,大学要挂科没那么容易,这种选修课基本都混混就可以了,最后交个程序作业什么的,很多人一点也不会让人帮下忙,也一样的过;所以,别太担心
东乡县19298245523: VB挂科了,怎么办 - ?
子逸醒脾: 先看是甚么性质的课,1般VB是专业选修课,就能够用其它专业选修课代替,还有就是你的学分够了就不用再选了!
东乡县19298245523: 谁帮我编个vb程序,我选修课没听啊! 题目是:编写一个计算两个数相加的程序.?
子逸醒脾: private sub command1_click() text3=val(text1)+val(text2) end sub
东乡县19298245523: 怎么合理的处理大学课程安排的语言与自己爱好的语言 - ?
子逸醒脾: 我只是个大一的新生,我们学校是不开VB的,我感觉VB可能会很快被淘汰!如果你想掌握好的技术,就用C语言来深入了解结构化设计思想,再用C++来深入了解面向对象程序设计思想!后者是很重点的!而且前者是基础!要记住学习一本语...