注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

李雪 廊坊师范学院十期信息技术提高班

过错是短暂的遗憾,错过是永远的遗憾!

 
 
 

日志

 
 
 
 

vb之旅  

2013-02-16 20:51:20|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

时间过去了一半,学习vb从我二十一岁跨到了二十二岁。回家过个年,吃点好吃的,和爸妈说说心里话,这样旧的一年就过去了,给自己换上一身轻装又开始了vb之旅。

学习这么长时间的vb,视频看了一半,百例敲了有一半,课本看了一遍,可是感觉自己学的是一塌糊涂,一会儿明白一会儿不明白,这就证明我的vb之旅还要进行好长时间,还要走好长的路途,才能到达想要到的地方。

米老师前两天讲了讲大道至简和奥卡姆剃刀,这两者共同特点都是启发我们要化繁为简,把事情做简单。在vb中也一样,如果一个变量需要全局声明,但是有时候为了更明白,将全局声明的变量,也在每个过程中声明,这样看起来很明白,做的天衣无缝,但是这却是画蛇添足,它们之间出现了矛盾,导致程序不能正常运行,比如:以下查找的例子

Dim a(1 To 10) As Integer

Private Sub Command1_Click()
    Form_Load
End Sub


Private Sub Command2_Click()
    b = Val(InputBox("请输入要查找的数", "顺序查找"))
    For i = 1 To 10
        If b = a(i) Then f = 1: Exit For
    Next i
    If f = 1 Then
        Label2.Caption = "查找" & b & "成功!是第" & i & "个数。"
    Else
        Label2.Caption = "查找" & b & "不成功!数组中无有此数。"
    End If
End Sub

Private Sub Form_Load()
    Dim p As String
    Randomize
    p = ""
    For i = 1 To 10
        Do
            b = Int(Rnd * 91) + 10

            yes = 0
            For j = 1 To i - 1
                If b = a(j) Then yes = 1: Exit For
            Next j
        Loop While yes = 1
        a(i) = b
        p = p & Str(a(i)) & ","
    Next i
    Label1.Caption = LTrim(Left(p, Len(p) - 1))
    Label2.Caption = ""
End Sub

我将红色字体放在每一个过程中,最终证明这个小程序不能正常运行,当红的字体在原位置,我有将其复制到以上任何一个过程中,最终证明它还是不工作。

事实证明复杂会将事情搞得一团糟,然而将繁化简,不仅清晰明了,还会让你顺利到达你的目的地。

  评论这张
 
阅读(36)| 评论(29)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017