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

追寻梦想的路上

人生如代码,代码如人生

 
 
 

日志

 
 
 
 

实战是检验会不会的唯一标准-----原来现在我只能模仿  

2014-02-09 16:01:20|  分类: 技术篇 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
最近在敲课本上得例子,第一感觉,人家考虑的真周到;然后就想,如何才能达到那样的层次呢,思考再三,还是老师那句:全心全意为人民服务。然而,每次一添加自己的想法,就感觉时间过得比流水都快,半天竟然只敲两个例子,甚至是一个,此时才明白:实战才是检验会与不会的唯一标准,我目前只停留在模仿的阶段。下面就谈一下我的心得体会吧!
一:selstart 和 sellength 的使用。
在学习vb百例的过程中没有见过这两个方法,由此对他感觉很陌生,一个是确定控件当中光标的位置,通常伴随 
 setfocus一起使用,例如:
text1.selstart=0  ‘将光标放到输入内容的最前端  
text1.sellength=len(text1.text)’将text控件中输入的内容全部选中
  它们的好处在于如果在text中填入的内容要求可以重复操作时,就可以直接输入而不用一一将原来的内容删除了,这样不仅可以让使用者能够停留一下是否保留该数据,同时再次输入时,就可以节省大量的时间。此时不得不感慨,程序员才是世界上最具奉献精神的人,时时处处都要想着:为人民服务!
二: 细心问题。
记得看过好多人的博客,操作九九乘法表的时候发生错位现象,我也不小心掉进了坑里。其原因就是缺少了一个“;”,此时不得引发我思考,其根本还是我在学习的时候只顾盲目敲打,而没有将它作为一条语句来看待,其实在好多例子中 print 方法后面的好多语句在最后都没有加引号,于是就想当然的认为这里也不用呢!没有认识到这小小的“;”关乎着整行的输出方式,在print 方法中,只要结尾带有“;”就表明此行没有输出完毕,其下的输出都会在该行进行,举个例子:
print “时时处处”
print "为人民服务"
就会在窗体上输出 :  时时处处
                                       为人民服务
如果改成,print “时时处处”;
                    print “为人民服务”
  则输出:时时处处为人民服务
想到这,原来自己以前对print 方法都不会用呢
还有一个简单的发现,其实form_load 与form_activate事件过程有时是相似的,比如在form窗体上直接用print方法输出一些东西,用form_load事件的话需要在代码行首添加show 方法,而form_activate则不需要,而如果同时跟控件赋值二者却是相同的。例如,
Private Sub Form_Load()                          private sub form_load()
                                 Label1.Caption = "时时处处"         与           label1.caption="时时处处"     
                                 End Sub                                                      end sub
 在船体上显示的效果是相同的,于是又想到,在每次敲例子的时候,都是直接点击控件进入该控件的事件,有时甚至都不看例子是哪个事件就瞎敲,直接后果就是该例子无法实现;尽管我有时候看着例子敲,可是从来没有想过为什么要使用这样的事件过程,就像 form_load 与form_activate ……
三:原谅自己,现在只会模仿
今天敲第五章数组部分的统计选票例子,就想到,平时班里的选举活动那么多,现在就设计一个程序来帮大家伙干点活吧!本来信心满满的,想着实现怎样怎样的功能,可是一单独面对着白白的设计界面就不知从何处下手了!此时才意识到,要想能够做到自己独自完成一个程序要有足够的积累才行,并不是随随便便敲几个例子就能学会的!得大量的实战,大量的模仿才行啊!
         这个是我模仿的操作界面,虽然它简单,但是是我综合了书上两个例子才实现的,实战是检验会不会的唯一标准-----原来现在我只能模仿 - 王海鹏 - 王海鹏廊坊师范学院信息技术提高班11期
 再者说了,微信界面还简单呢,可是谁嫌弃了呢  ?(  自我安慰一下,这叫精简!)我给大家介绍一下它的功能,只要在选举人姓名选框中添加选举人的姓名,然后点添加(在此我稍微设置了一下,点两次enter键也可以)就将输入的姓名添加进入list控件当中了,按从上到下的顺序,将名字一一编号(从0开始),在收集选票的时候让同学们按照名字对应的编号只写数字就行了,点击统计就会弹出输入框,将这些数字一个一个输进对话框中,
 实战是检验会不会的唯一标准-----原来现在我只能模仿 - 王海鹏 - 王海鹏廊坊师范学院信息技术提高班11期
 最后输入一个负数就结束输入了!在显示的label 控件中就能够显示每个人多少票了! 下面是我的代码,有兴趣的可以试验一下,别忘了跟我交流一下经验哦!(此例子不是很复杂,就没有写注释!)                                                                                                                                                                
 Dim i As Integer
Private Sub Command1_Click()
        List1.AddItem Text1.Text
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Command2_Click()
    i = 0
    Do While i < List1.ListCount
        If List1.Selected(i) = True Then
            List1.RemoveItem i
        Else
        i = i + 1
        End If
    Loop
    Text1.SetFocus  
End Sub

Private Sub Command3_Click()
   Dim num(100) As Integer
   Dim h(0 To 100) As Integer
   v = 1
   
   Do While v > 0
     a = Val(InputBox("请输入代表学生的数字(输入-1退出):", "姓名输入"))
        If a < 0 Then
            v = -1
        ElseIf a >= List1.ListCount Then
            MsgBox "不存在该同学,请输入正确的学生代号"
        Else
            h(a) = h(a) + 1
        End If
    Loop
    For i = 0 To List1.ListCount - 1
    Label1.Caption = Label1.Caption & List1.List(i) & "同学" & "共有" & h(i) & "票" & Chr(13)
    Next i 
End Sub

Private Sub Command4_Click()
    
    Unload Me
    
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Command1.SetFocus
    End If
End Sub

 
                                                                                                                                                                                                                                                                         


  评论这张
 
阅读(52)| 评论(25)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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