精华内容
下载资源
问答
  • 今天是学习VB编程的第一天,花了差不多半个小时看了刘金玉老师零基础VB教程第一期和第二期,基本上对VB6.0编程有了个大概轮廓。1.什么是VB?简单来说就是Visual Basic的简称。直接翻译大概意思是可视化的初学者...

    今天是学习VB编程的第一天,花了差不多半个小时看了刘金玉老师零基础VB教程第一期和第二期,基本上对用VB6.0编程有了个大概轮廓。

    1.什么是VB?

    简单来说就是Visual Basic的简称。直接翻译大概意思是可视化的初学者通用符号指令码。我的理解就是可以通过图形等直观方式表达的初学者通用符号指令码,就我的认识来说也是一款软件。

    2.学习VB有什么用?

    网上介绍说,通过VB编写比较出名的软件有金蝶、用友的财务软件,但由于目前VB编程语言已经严重落后,不是现在软件开发的主流工具,现在几乎没有人学习VB用于编程,我学VB也主要是为学习其他语言打基础。

    3.编程通过什么工具来实现?

    VB编程工具一直在更新,刘金玉老师的VB编程工具是VB6.0,我在百度上也搜索下载了一个VB6.0,安装很简单,直接百度上输入VB6.0,第一个链接下载,双击打开,根据提示一步一步安装就可以了。

    fafd64a04ab9c813f04b78f3886e7c79.png

    百度搜索下载VB6.0

    80cbf4082a65614ec278ac6ba5b0b7d7.png

    安装完成后桌面显示VB6.0的程序图标

    4.第一个程序成功运行。

    7d306e75e8429a2becf77833d473b610.png

    双击桌面图标,选择标准EXE

    1d0ec41f3367cdd5d09fa412df13ec7b.png

    然后我们就看到了标准的VB编程界面了

    4059dc57b141f2571ec2830fbf17f9ba.png

    按照刘老师的教程一步步操作,成功的运行简单的程序。

    从零开始学编程的第一天顺利结束,今天基本上没花多少时间,主要是熟悉了编程软件的界面,各种窗口、工具,菜单,感觉有点类似于excel的布局,果然是微软出品,布局都差不多。期待明天的学习。

    展开全文
  • 往期高能●VB程序运行需要经过什么过程?●VB开发的个人收支系统软件●跟我学VB合作交流大家好,在Windows系统的电脑上,都可以发现有纸牌这款有趣的休闲、有趣、益智的小...分析:用VB编程开发纸牌游戏,需要用到VB...
    a7007b7e000eae1967b1b3376dd58b28.png往期高能●VB程序运行需要经过什么过程?●VB开发的个人收支系统软件●跟我学VB合作交流

    大家好,在Windows系统的电脑上,都可以发现有纸牌这款有趣的休闲、有趣、益智的小游戏。

    56968885c6641ed23bb2e542101ba424.png

    电脑自带的纸牌游戏

    纸牌游戏规则

    游戏中下方的牌称为为主牌,若上面有比主牌大1或者小1的牌,点击它们可消除。若没有可消除的,可点击主牌可换主牌。

    那么,如何用VB编程来开发呢?

    分析:

    用VB编程开发纸牌游戏,需要用到VB常用控件、控件数组、图形控件、控制结构、数组、过程、文件方面的综合内容。

    8ecf2358deaa612d1e67f6e3a12a6db1.png

    VB开发纸牌游戏运行图

    程序实现代码

    提示:由于程序实现代码多,代码比较长,看代码不方便,如果对本游戏程序感兴趣,可直接扫描文尾的小编微信号获取源程序。游戏实现代码:

    Option Explicit

    Dim x0 As Long, y0 As Long     '拖动过程中保存鼠标的位置

    Dim left0 As Long, top0 As Long  '被拖动多张牌中最上方牌的位置

    Dim inmove As Boolean            '如果为True表示处于拖动过程中

    Dim cardsmove() As Integer       '动态数组,保存移动中的多张牌(0~cardsmovenum-1)

    Dim cardsmovenum As Integer      '移动牌的张数

    Dim movefrom As Integer           '保存拖动的源序列号

    Dim min As Long, sec As Integer  '游戏的分与秒

    Private Sub Form_Load()

        Dim i As Integer, j As Integer

        '空档牌

        j = 0

        For i = 0 To 4

            imgBack(i).Picture = GetPicture(5, 14)

            imgBack(i).Top = conVerGap

            imgBack(i).Left = conHorGap * (j + 1) + conCardWidth * j

            j = j + 1

            If i = 0 Then j = j + 2

        Next

        '生成另外51张牌

        For i = 2 To 52

            Load imgCards(i)

        Nexta2c9685a2ecf073dd099c5cfa6f61b8d.png

            If Dir(App.Path & "\cards.txt") <> "" Then

            If MsgBox("是否恢复上次保存的牌局?", vbYesNo + vbQuestion, "接龙") = vbYes Then

                Open App.Path & "\cards.txt" For Input As 1

                Input #1, back

                For i = 0 To 12

                    For j = 0 To 30

                        Input #1, queues(i, j)

                        If queues(i, j) <> 0 Then Input #1, updown(queues(i, j))

                    Next

                Next

                Input #1, min, sec

                Close 1

            Else

                Randomize

                back = 1 + Rnd * 12             '背面图案

                Call Shuffle                    '随机洗牌

            End If

        Else

            Randomize

            back = 1 + Rnd * 12                 '背面图案

            Call Shuffle                        '随机洗牌

        End If

        Call ShowCards  '显示所有牌

    End Sub

    Private Sub Form_Unload(Cancel As Integer)

        Dim i As Integer, j As Integer

        If MsgBox("是否保存牌局?下次启动后继续。", vbYesNo + vbQuestion, "接龙") = vbYes Then

            Open App.Path & "\cards.txt" For Output As 1

            Write #1, back

            For i = 0 To 12

                For j = 0 To 30

                    Write #1, queues(i, j),

                    If queues(i, j) <> 0 Then Write #1, updown(queues(i, j)),

                Next

            Next

            Write #1,

            Write #1, min, sec  '记录游戏的分与秒

            Close 1

        Else

            If Dir(App.Path & "\cards.txt") <> "" Then

                Kill App.Path & "\cards.txt"

            End If

        End If

    End Sub

    e268eec5a0ecce720f3186f0030646df.png

    Private Sub mnuExit_Click()

        Unload Me

    End Sub

    Private Sub mnuNew_Click()

        sec = 0

        min = 0

        Call Shuffle    '   洗牌

        Call ShowCards  '显示所有牌

    End Sub

    Private Sub ShowCards()

        Dim i As Integer, j As Integer, k As Integer

        Dim offset As Integer           '每个序列中牌的纵向偏移量

        For i = 0 To 6              '显示下列7个序列

            j = 0

            offset = 0

            k = queues(i, j)

            Do While k <> 0

                If updown(k) Then   '正面

                    imgCards(k) = GetPicture((k - 1) \ 13 + 1, (k - 1) Mod 13 + 1)

                Else                '反面

                    imgCards(k) = GetPicture(5, back)

                End If

                imgCards(k).Top = offset + conCardHeight + 2 * conVerGap      '纵坐标

                imgCards(k).Left = conHorGap * (i + 1) + conCardWidth * i       '横坐标

                imgCards(k).ZOrder 0

                imgCards(k).Visible = True

                j = j + 1

                If updown(k) Then offset = offset + conVerGap Else offset = offset + conMiniVerGap  '反面的和正面的间距不同

                k = queues(i, j)

            Loop

        Next

        For i = 7 To 8               '显示左上角2个序列

            j = 0

            k = queues(i, j)

            Do While k <> 0

                If updown(k) Then   '正面

                    imgCards(k) = GetPicture((k - 1) \ 13 + 1, (k - 1) Mod 13 + 1)

                Else                '反面

                    imgCards(k) = GetPicture(5, back)

                End If

                imgCards(k).Top = conVerGap

                imgCards(k).Left = conHorGap * (i - 7 + 1) + conCardWidth * (i - 7)

                imgCards(k).ZOrder 0

                imgCards(k).Visible = True

                j = j + 1

                k = queues(i, j)

            Loop

        Next

    e5a04b91afcc4d23e38a9d9a58daae63.png

        For i = 9 To 12              '显示右上角的4个序列

            j = 0

            k = queues(i, j)

            Do While k <> 0

                If updown(k) Then   '正面

                    imgCards(k).Picture = GetPicture((k - 1) \ 13 + 1, (k - 1) Mod 13 + 1)

                Else                '反面

                    imgCards(k).Picture = GetPicture(5, back)

                End If

                imgCards(k).Top = conVerGap

                imgCards(k).Left = conHorGap * (i + 1 - 9 + 3) + conCardWidth * (i - 9 + 3)

                imgCards(k).ZOrder 0

                imgCards(k).Visible = True

                j = j + 1

                k = queues(i, j)

            Loop

        Next

    End Sub

    Private Sub imgBack_Click(Index As Integer)           '如果点击的是序列7最下面的空牌,则将序列8中的牌移至序列7

        Dim i As Integer, j As Integer

        If Index = 0 Then

            j = queuetop(8)             '查找第8序列中最顶牌的序号

            i = 0

            Do While j >= 0

                queues(7, i) = queues(8, j)

                queues(8, j) = 0

                updown(queues(7, i)) = False  '反面

                imgCards(queues(7, i)).Picture = GetPicture(5, back)

                imgCards(queues(7, i)).Left = conHorGap

                imgCards(queues(7, i)).ZOrder 0

                i = i + 1

                j = j - 1

            Loop

            Exit Sub

        End If

    End Sub

    Private Sub imgCards_DblClick(Index As Integer)     '如果双击了序列8最顶层牌,判断该牌是否可以放置在序列9-12之一的顶层

        Dim i As Integer, j As Integer, k As Integer

        Dim queueclicked As Integer             '被双击的序列号

        queueclicked = queueno(Index)

        If queueclicked = 7 Or queueclicked >= 9 And queueclicked <= 12 Then Exit Sub   '这几个序列不接受双击操作

        k = queuetop(queueclicked)

        If queues(queueclicked, k) <> Index Then Exit Sub        '如果双击的牌不是该序列最顶层牌,则不反应

        If Not updown(Index) Then Exit Sub                      '如果双击的背面,则不反应

        If Index Mod 13 = 1 Then    '判断此牌是否为A

            '将A放置在9-12序列中第一个空序列中

            For i = 9 To 12

                j = queuetop(i)     '查找空序列

                If j = -1 Then

                    queues(i, j + 1) = Index

                    queues(queueclicked, k) = 0

                    imgCards(Index).Top = conVerGap

                    imgCards(Index).Left = conHorGap * (i - 9 + 4) + conCardWidth * (i - 9 + 3)

                    Exit For

                End If

            Next

        Else                        '如果不是A ,则搜索比其小1,同花色的牌

            For i = 9 To 12

                j = queuetop(i)     '查找非空序列

                If j <> -1 Then

                    If queues(i, j) = Index - 1 Then

                        queues(i, j + 1) = Index

                        queues(queueclicked, k) = 0

                        imgCards(Index).Top = conVerGap

                        imgCards(Index).Left = conHorGap * (i - 9 + 4) + conCardWidth * (i - 9 + 3)

                        Exit For

                    End If

                End If

            Next

    e8e2a046b6a9228a0e5fc6b940271a94.png

            If ifFinish() Then      '判断是否完成

                MsgBox "祝贺接龙成功!" & Chr(10) & Chr(13) & "用时" & min & "分" & sec & "秒。", vbInformation, "接龙"

            End If

        End If

    End Sub

    Private Sub imgCards_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

        Dim i As Integer, j As Integer, k As Integer

        Dim fTop As Boolean                     '判断点击的牌是否位于序列顶部

        Dim que As Integer, ind As Integer      '当前点击牌位于的序列和序号

        Dim topind As Integer                   '本序列中最顶牌的序号

        Dim mousepos As POINTAPI                '保存鼠标位置

        que = queueno(Index)                     '点击的序列

        ind = queueindex(Index)                  '被点击牌的序号

        topind = queuetop(que)                   '被点击序列的顶张牌的序号

        If queues(que, ind + 1) = 0 Then fTop = True Else fTop = False  '判断点击的牌是否最顶层

        '如果是点击了左上角的第7序列,则其上最顶牌移至第8序列

        If que = 7 And fTop Then

            For i = 30 To 0 Step -1             '查找第8序列

                If queues(8, i) <> 0 Then

                    Exit For

                End If

            Next

            i = i + 1

            queues(8, i) = queues(7, ind)     '移动牌

            queues(7, ind) = 0

            updown(Index) = True     '将牌翻起

            imgCards(Index).Picture = GetPicture((Index - 1) \ 13 + 1, (Index - 1) Mod 13 + 1)

            imgCards(Index).Left = conCardWidth + 2 * conHorGap

            imgCards(Index).ZOrder 0

        ElseIf que >= 0 And que <= 7 And fTop And updown(Index) = False Then '如果点击的是序列0-7中顶反面牌,则将其反转

            Call Turn(Index, True)

        ElseIf updown(Index) Then                                            '如果点击的是其他正面牌,则进入拖动状态

            left0 = imgCards(Index).Left

            top0 = imgCards(Index).Top

            Call GetCursorPos(mousepos)

            x0 = mousepos.x

            y0 = mousepos.y

            inmove = True

            cardsmovenum = topind - ind + 1         '移动的牌数

            movefrom = que                          '拖动的源序列

            ReDim cardsmove(1 To cardsmovenum)      '保存每个被拖动的牌号

            For i = 1 To cardsmovenum

                cardsmove(i) = queues(que, ind + i - 1)

                imgCards(cardsmove(i)).ZOrder 0

            Next

        End If

    End Sub

    89c613806a262e3c97227944941b0ea1.png

    Private Sub imgCards_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

        Dim i As Integer

        Dim mousepos As POINTAPI

        If inmove Then

            Call GetCursorPos(mousepos)         '得到新的鼠标位置

            For i = 1 To cardsmovenum

                imgCards(cardsmove(i)).Left = imgCards(cardsmove(i)).Left + mousepos.x - x0

                imgCards(cardsmove(i)).Top = imgCards(cardsmove(i)).Top + mousepos.y - y0

            Next

            x0 = mousepos.x

            y0 = mousepos.y

        End If

    End Sub

    Private Sub imgCards_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

        Dim moveto As Integer   '鼠标释放时所处的序列

        Dim i As Integer, j As Integer, k As Integer

        Dim delx As Long, dely As Long

        Dim newx As Long, newy As Long

        Dim fmoveback As Boolean        '是否移回原位置

        If inmove Then

            moveto = getqueueatcursor()

            If moveto = -1 Or movefrom = moveto Then            '拖动的位置不对(不在序列0-7和9-12上),返回初始位置

                fmoveback = True

            ElseIf moveto >= 9 And moveto <= 12 And cardsmovenum > 1 Then   '拖多张至9-12序列

                fmoveback = True

            End If

            If Not fmoveback Then

                If moveto >= 9 And moveto <= 12 Then                '拖至9-12序列

                    If queuetop(moveto) = -1 And cardsmove(1) Mod 13 <> 1 Then '序列空,但拖来的不是A

                        fmoveback = True

                    ElseIf queuetop(moveto) <> -1 Then

                        If queues(moveto, queuetop(moveto)) + 1 <> cardsmove(1) Then    '序列非空,但不连续

                            fmoveback = True

                        End If

                    End If

                ElseIf moveto >= 0 And moveto <= 7 Then             '拖至0-7序列

                    If queuetop(moveto) = -1 And cardsmove(1) Mod 13 <> 0 Then '序列空,但拖来的不是K

                        fmoveback = True

                    ElseIf queuetop(moveto) <> -1 Then

                        If Not ((queues(moveto, queuetop(moveto)) - 1) Mod 13 = (cardsmove(1) Mod 13) And _

                            ((queues(moveto, queuetop(moveto)) - 1 - 1) \ 13 + ((cardsmove(1) - 1) \ 13)) Mod 2 = 1) Then   '序列非空,但不连续

                            fmoveback = True

                        End If

                    End If

                End If

            End If

    7758064dfe5458371b334736eda29541.png

            If fmoveback Then                                           '移回开始拖动的序列中

                delx = imgCards(cardsmove(1)).Left - left0

                dely = imgCards(cardsmove(1)).Top - top0

                For i = 1 To cardsmovenum

                    imgCards(cardsmove(i)).Left = imgCards(cardsmove(i)).Left - delx

                    imgCards(cardsmove(i)).Top = imgCards(cardsmove(i)).Top - dely

                Next

            Else                                                       '移到目标序列中

                k = queuetop(movefrom)

                For i = 1 To cardsmovenum                               '从源序列中删除

                    queues(movefrom, k - i + 1) = 0

                Next

                k = queuetop(moveto)

                For i = 1 To cardsmovenum                               '移至目标序列中

                    queues(moveto, k + i) = cardsmove(i)

                Next

                If k = -1 Then                                          '目标序列为空时,计算放置位置

                    If moveto >= 0 And moveto <= 6 Then

                        newx = conHorGap * (moveto + 1) + conCardWidth * moveto

                        newy = conVerGap * 2 + conCardHeight

                    ElseIf moveto >= 9 And moveto <= 12 Then

                        newx = conHorGap * (moveto + 1 + 3 - 9) + conCardWidth * (moveto + 3 - 9)

                        newy = conVerGap

                    End If

                Else                                                     '目标序列非空时,计算放置位置

                    newx = imgCards(queues(moveto, k)).Left

                    If moveto >= 9 And moveto <= 12 Then

                        newy = imgCards(queues(moveto, k)).Top

                    Else

                        newy = imgCards(queues(moveto, k)).Top + conVerGap

                    End If

                End If

                For i = 1 To cardsmovenum                                '放置被拖动的图片

                    imgCards(cardsmove(i)).Left = newx

                    imgCards(cardsmove(i)).Top = newy + conVerGap * (i - 1)

                    imgCards(cardsmove(i)).ZOrder 0

                Next

                If ifFinish() Then      '判断是否完成

                    MsgBox "祝贺接龙成功!" & Chr(10) & Chr(13) & "用时" & min & "分" & sec & "秒。", vbInformation, "接龙"

                End If

            End If

    38f7dfe4e1cc411368845a80ae1be851.png

            inmove = False

        End If

    End Sub

    Private Function getqueueatcursor() As Integer

        Dim i As Integer, j As Integer

        Dim x As Integer, y As Integer

        Dim mousepos As POINTAPI

        Call GetCursorPos(mousepos)

        x = mousepos.x - Me.Left / Screen.TwipsPerPixelX

        y = mousepos.y - Me.Top / Screen.TwipsPerPixelY

        If y > 2 * conVerGap + conCardHeight Then           '0-6序列

            getqueueatcursor = x \ (conHorGap + conCardWidth)

            If getqueueatcursor < 0 Then getqueueatcursor = -1

            If getqueueatcursor > 6 Then getqueueatcursor = -1

            Exit Function

        Else

            getqueueatcursor = x \ (conHorGap + conCardWidth) + 7

            If getqueueatcursor < 7 Then getqueueatcursor = -1

            If getqueueatcursor > 13 Then getqueueatcursor = -1

            If getqueueatcursor <= 9 Then

                getqueueatcursor = -1

            Else

                If getqueueatcursor >= 10 Then

                    getqueueatcursor = getqueueatcursor - 1

                End If

            End If

            Exit Function

        End If

    End Function

    5813da20b566e1cf452460253353cd41.png

    Private Sub mnuSelectBack_Click()

        Dim oldback As Integer

        Dim i As Integer

        oldback = back

        frmSelectBack.Show 1, Me

        If oldback <> back Then

            For i = 1 To 52

                If Not updown(i) Then

                    imgCards(i).Picture = GetPicture(5, back)

                End If

            Next

        End If

    End Sub

    Private Sub Timer1_Timer()

        sec = sec + 1

        If sec = 60 Then

            min = min + 1

            sec = 0

        End If

        Me.Caption = "接龙-" & Format(min, "00") & ":" & Format(sec, "00")

    End Sub

    大家在学习VB中有不懂之处或者需要VB视频学习资料,可以添加小编微信号,更多VB精彩编程内容,尽在跟我学VB。

    68b1dad2920e205b1f87885a65d5cb2a.png

    展开全文
  • 用vb编程给u盘加密

    2019-09-21 17:05:04
    你是使用u盘加密软件还是使用其他的一些什么方法,那么我现在给大家介绍一个新的方法,就是使用vb编程来给u盘加密。Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串 Dim c$ c$ = "" ...
    大家一般情况下是怎么给u盘加密的呢?你是使用u盘加密软件还是使用其他的一些什么方法,那么我现在给大家介绍一个新的方法,就是使用vb编程来给u盘加密
    Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串
    Dim c$ c$ = "" Do While m <> 0 r = m Mod 2 m = m 2 c$ = r & c$ Loop c$ = Right("00000000" & c$, 8)
    ByteToBin = c$ End Function Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
    Dim i%, x$ x = "" For i = 1 To 8 x = Mid(m, i, 1)
    & x Next i Reverse = x End Function Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
    Dim x As String * 1, y%, z% z = 0 For i = 1 To 8 x = Mid(m, i, 1)
    y = x * 2 ^ (8 - i) z = z + y Next i BinToByte = z End Function Private Sub Command1_Click() Dim x As Byte, i%, fname$ fname = InputBox("请输入要加密的文件名!注意加上路径名:")
    If Dir(fname) = "" Then MsgBox "文件不存在!"
    Exit Sub End If Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件 For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数 Get #1, i, x ' 取出第i个字节 x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数 Put #1, i, x ' 将加密后的这个字节写回到文件原位置 Next i Close MsgBox "任务完成!" End Sub
    以上方法就可以通过vb编程来给u盘加密,以上方法还适用于移动硬盘加密,你可以试试看看效果怎么样?

    转载于:https://www.cnblogs.com/cksis/archive/2012/06/28/2567702.html

    展开全文
  • 怎么实现用vb6.0编程软件平台对屏幕上多个显示界面的变量的加载和配置?调用另一个界面的变量配置的方式是什么
  • visual studio 2005 是微软出的编程软件 VB C++ C#都可以他写出来
    
    
     
    visual studio 2005 是微软出的编程软件 VB  C++  C#都可以用他写出来 
    展开全文
  • 如果学好思想的话 用什么编程软件都是很快学会的 即使你代码还不太懂 我以前用的vb 现在转向vc++了 经常误报病毒 可能是杀软对于易语言的支持不太好 我也用过 报着报着就习惯了 所以现在很多软件都事先打好招呼了 我...
  • 答:做桌面软件的话,VB好一点,Python主要用于脚本上,网页脚本、系统管理等都经常,病毒什么的一般也可以Python写脚本,但是还是汇编、C\C++比较合适。 Python相对于VB就是资源少了点,没有微软专门提供的资源...
  • 工具软件VB6.0+ACCESS数据库。(如果各位有什么更好的建议也可以提,我就懂一点点VB和OFFICE)工作环境:共40台完全相同的测试设备,测试完全相同的产品。设备的测试程序是VB程序。目前测试程序把测试结果存放在...
  • 现在编程技术里面的VB6.0还有多少企业能呢 现在大家编程和软件的制作都是什么软件啊?
  • VB基础指什么?这里的VB基础指能够看得懂简单的VB代码;对if结构、for结构有一定的认识;理解变量有那些类型。如何学习VBA首先来谈一谈学习VBA的目的,也就是想把VBA学到什么程度,我的想法是:对于跨工作表和工作簿...
  • vb6.0平台软件开发编程实现通过程序本身决定启动界面的配置选择而不是在工程中实现的办法是什么?怎么模块的代码实现启动界面的配置?
  • 具体信息答:做桌面软件的话,VB好一点,Python主要用于脚本上,网页脚本、系统管理等都经常,病毒什么的一般也可以Python写脚本,但是还是汇编、C\C++比较合适。 Python相对于VB就是资源少了点,没有微软专门...
  • VB能做什么

    2008-03-11 16:39:00
    VB的强弱争论由来以久,会C语言的人总带着一种不屑,就像白人对有色人种一样,天生带着一种优越感--那个功能你小小语言真的能实现?刘翔在奥运110栏上夺得了世界第一--中国...是我们有色人种--或者VB编程爱好者
  • 零基础:带你先认识下最简单的编程世界很多人羡慕程序猿,IT技术男。感觉只要敲击几下电脑...什么叫做“可视”呢,我自己的理解,举个例子:编程的界面从一开始就像一个篮子,你往篮子里放进去什么你都能看得见,...
  • VB.NET高级编程(第二版)

    热门讨论 2008-07-18 15:47:58
    <br> 第1章 什么是Microsoft.NET 1.1 DNA编程模式 1.l.l 表示层 1.1. 2 中间层 1.1. 3 数据层 1. 1.4 关于DNA模型的问题 1.2 COM的限制 1.2.1 DLL Hell 1.2. 2 缺乏与...
  • VB是一门编程语言,所以能用VB做的很多很多,基本上除了底层开发(系统软件),VB都能做,而且在数据库应用方面VB也有他独到的一面。 3.如何学好VB(请详细说明) 这不是一句两句可以说清楚的。给你一个学习的过程:...
  • 软件可以直接运行,如果您安装了VB企业版,请将EXE放入VB企业版安装目录 程序能够使用企业版的功能 测试平台: windows Vista SP1 和 windows 2003 Sp2 请阅读自带的中文关键字 文件以帮助学习使用 考虑修改问题 ...
  • 问1:我的逻辑是java写的API,只有用java来调用它,但我发现这些网站提供的API代码好像是不同的语言写的,那我该用什么语言来调用它们?如何实现汇总? 问2:什么语言适合我?在我的基础上,可以快速上手,快速...
  • 点击图片参与25周年博客大赛,拿现金...我们是江苏第一届高考需要计算机等级考试的,所以02年就接触了编程的是VB做到计算器,实际上连开关机都不知道的学生,纯粹是跟着老师一个字母一个字母打出来的,就只有一...
  • 本书是Visual Basic较为深入的内容,提供了大量的在软件开发中十分重要而Visual Basic无法实现的功能,可供具有Visual Basic程序设计基础和一定实践经验,需要进一步深入了解Visual Basic,进行较高层次软件开发的...
  • 什么喜欢编程?

    2008-12-07 19:26:00
    编程其实是一个很有趣的工作,因为你可以程序来制作出网页/软件/或者其他程序,毕竟以后还是网络横行的时代,会编程还是有很多大好处!我接触过的编程语言很多,C/C#/JAVA/PHP/VB//RUBY,至于为什么我一直都使用C#,原因...
  • 虽然,对于一个初学者来说,一些控件堆砌成一个小软件会有一些成就感,但是,基础才是最重要的!C语言对于数据类型的描叙,远比VB更全面、明白,而这些正是编程中的根本!3、学C语言,从数据类型,基本表达式,再...
  • 一般那些桌面版的管理软件,比如医药、餐饮、服饰专卖店、售票等用的,它们是用什么语言写的,delphi,foxpro,vb,pb,VC这些吗?还有没有别的语言可以写c/s管理软件。 [b]问题补充:[/b] to lovewhzlqvc: 对于...
  • 一哥认为,如果大一大二学基础,学算法,数据结构,学习相关的软件/框架使用,又不用跑大的IDE,服务器,虚拟机,编程语言只是写写C、VB、C++、汇编, Microsoft Visual C++ 这个IDE,那么1-2千的笔记本就足够了。...
  • 一哥认为,如果大一大二学基础,学算法,数据结构,学习相关的软件/框架使用,又不用跑大的IDE,服务器,虚拟机,编程语言只是写写C、VB、C++、汇编, Microsoft Visual C++ 6.0 这个IDE,那么1-2千的笔记本就足够...
  • 编程的至高境界是什么

    千次阅读 2005-06-05 20:22:00
     带着这样的兴趣,我中专毕业后就去了一家小的软件公司,使用DEPHI和VB做简单的软件开发,后来又接触了驱动程序.工作一年多后,发现我所做的程序,无非是把一套硬生生的流程,用编程语言来实现.这令我很...
  • 虽然,对于一个初学者来说,一些控件堆砌成一个小软件会有一些成就感,但是,基础才是最重要的!C语言对于数据类型的描叙,远比VB更全面、明白,而这些正是编程中的根本! 3、学C语言,从数据类型,基本表达式,...
  • 什么是ASP,它能干什么? 一、什么是ASP? 从字面上说,ASP包含三方面含义: 1、Active:ASP使用了Microsoft的ActiveX技术。ActiveX(COM)技术是现在Microsoft软件的重要基础。它采用封装对象,程序调用对象的...VB

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 134
精华内容 53
关键字:

vb编程用什么软件