- 博客(6)
- 收藏
- 关注
RSS订阅原创 分析素数
Private Sub Command1_Click()Dim M As IntegerDim N As IntegerDim flag As BooleanM=Int(Val(Text1.Text))N=M-1flog=False '为true时，表示M可以被比他小的整数整除'While N>=2If M Mod N=0 ThenFlag=True
2012-03-28 23:53:28
235
原创 秒表制作
Interval 1000Enabled.False双击闹钟 Label1.Caption = Time双击CommandTimer1.Enabled = True 这是第三次课了。 在这几节课上，您的言语幽默风趣，让我对计算机课产生了浓厚的兴趣。尤其是你建议我们要多多利用身边的现代科学技术，帮助丰富充实自己，这是我从来没有考虑到的一点。
2012-03-28 23:41:01
467
原创 浮点数及其国际标准
浮点数（float）又称作浮点数，是属于有理数中某特定子集的数的数字表示，在计算机中用以近似表示任意某个实数。具体来说，这个实数由一个整数或定点数（即尾数）乘以某个基数（计算机中通常是2）的整数次幂得到，这种表示方法类似于基数为10的科学记数法。浮点计算是指浮点数参与的运算，这种运算通常伴随着因为无法精确表示而进行的近似或舍入。一个浮点数a由两个数m和e来表示：a = m × be。在任意
2012-03-28 23:30:05
4327
原创 成功的路上会布满荆棘
第一节课觉得很有意思，所以第二节课我也是满怀欣喜的来上课的，但这节课老师教的就难了好多，而且我觉得老师讲的跨度有点大，因为在上大学之前我们的计算机课的不怎么上，所以觉得学着有点吃力，但是让我对VB程序有了点了解，对设计程序这方面有了点小小的认识。课后我自己想了想，每一样东西都是经过我们自身的努力来获得的，不论它是易是难，所以要想学会VB程序的设计也是一样的，它也是需要自身的努力虽然它并不简单。所以
2012-03-27 23:50:41
820
原创 求最大公约数
Option Explicit Private Sub Command1_Click() Dim M As Integer Dim N As Integer M=Int(Val(Text1.Text)) N=Int(Val(Text2.Text)) Dim Tempory
2012-03-27 23:20:56
268
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人