写出你认为VB中最经典的一句代码，进来就有分。

RT

解决方案 »

  1.   

    dim viena as String
    viena = "C:\石欠.die"
    Kill viena
      

  2.   

    If Not viena.dead Then Call 石欠()
      

  3.   

    End
    说这个经典是因为它的暴力和用完后的整个世界都清净了畅快感...
      

  4.   

    on error goto er:'exit sub
    er:
    kill viena
      

  5.   


        Exit Sub
      

  6.   

    if viena.Dead then
     msgbox "哈哈哈"
    else
     Kill viena
    end if
      

  7.   

    do until viena.Dead
     Kill viena
    loop
    msgbox "哈哈哈"
      

  8.   

    samwzhang(分全给我)懂不懂语法啊？viena到底是对象还是字符串？
      

  9.   

    do until viena="Dead"
     Kill viena
    loop
    msgbox "哈哈哈"
      

  10.   

    俺是初学，当俺不知道控件的属性时就用     Debug.Print
      

  11.   

    do until viena.Dead
     Kill viena.Life
    loop
    msgbox "哈哈哈"
      

  12.   

    on error goto 标号这一句是VB中算最经典的，因为VB让很多知道了编程的乐趣，却也让很多人拌在了这个错误的门槛上，但这个 on error也让很多人懒了太多，如果在正常操作前，进行必要的检查。这个on error也就没有太多的意义了。大家写代码都是往好处想写的，没有一人是按照从坏处想写的。这就是漏洞出现较多的原因。
      

  13.   

    计算箱数：intBoxs = intQty\10 + iif(intQty Mod 10 =0 , 0 ,1)
      

  14.   

    msgbox "5" + 10 + 22.34 + 0.0000002
      

  15.   

    unload my 不好使?unload you 怎么样？unload he 又如何？unload my and your and her and he or i and you and she and hismsgbox"乱七八糟，杀",vbOkOnly,"执行"
      

  16.   

    unload me 才对，楼上的楼上写错了。
      

  17.   

    if a<>"benben" then a="all benben"
      

  18.   

    if everyone.life<>0 then
       set everyone.life=0
    end if
      

  19.   

    精典,就是永远不出错误提示:
    On Error Resume Next
    所以我选择它了
      

  20.   

    if condiction=true then stop
      

  21.   

    dim a as string
    这个好玩,第一次我看到它时 ,差点笑出眼泪~~
      

  22.   

    Public 
    共有的，VB都是大家的！！！！！
      

  23.   

    msgbox "Hello World~!"
    哈哈，给分
      

  24.   

    dim adoRs as adodb.recordset
      

  25.   

    On Error Resume Next
      

  26.   

    都是一些小屁孩，告诉你们vb中最经典的一句代码在vb ide 的代码窗口中输入redim x(1 to 5).y(2)然后回车，试试吧，哈，只有试过才知道这又多经典 :)
      

  27.   

    谁知道啊！经典的很多哦!我最爱On Error Goto 不确定信息错误代码。其次是：Msgbox "错误报告！"哈哈
      

  28.   


    Private Sub Command1_Click()
        End
    End Sub
      

  29.   

    函数执行完了！exit function/sub
      

  30.   

    timer1.enabled=true实现了动画！！！
      

  31.   

    dim a as variant
    a 什么都是，什么都能用
      

  32.   

    Option Explicit因为它让我严谨
      

  33.   

    Key to "redim x(1 to 5).y(2)":
          For instance, save your work (in all
          applications if you are using Win95/98/me), then
          enter the following into VB's editor:
    redim x(1 to 5).y(2)
          When you press enter, VB will crash, because MS
          didn't handle the (complicated) parsing of arrays
          within types in redim statements correctly. Yes,
          I realize the line is a syntax error.
      

  34.   

    For me, the most classical statement is "REM".
      

  35.   

    as you do have to REMEMBER all the statements
      

  36.   

    最有印象的,也是第一次写的代码是
    dim a as string
      

  37.   


    msgbox "感谢您的使用，以及对本业务的支持"   '其实你他妈是大SB，无聊要我们写这些东西，要我们命啊··我CAO··反正你看不到····
    unload fm_guess
    unload me'哈哈······
      

  38.   

    Option Explicit有了它，才让我们知道什么是规范。
      

  39.   

    if
    我是从IF语句开始感觉程序的
      

  40.   

    redim x(1 to 5).y(2)在工作一天以后输入此代码
    会让你精神爽朗
    真的
      

  41.   

    Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Sleep 让程序慢慢的跑，休息有时候也是特别重要，呵呵
      

  42.   

    do until rs.eof
    on error resume next
    ...
    loop