精华内容
下载资源
问答
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    动态加入控件到VB控件数组中 33 , 33.txt 对ListView的列排序 34 , 34.txt 放一个Combo到Toolbar 35 , 35.txt 改变 ListIndex而不发生 Click 事件 36 , 36.txt 改变 TreeView 的背景 37 , 37.txt 改进VB的驱动...
  • VB四则运算题目程序实现分析:1、使用VB中的随机函数公式去随机生成10道四则运算题目,而且运算符也是随机产生;2、用户输入计算的答案后,点击核对可以显示出每道题的对错以及所得分数;3、本程序主要用到了循环...

    VB编程语言基础知识点总结

    8a6083134cccd146a6b3d8a22425c529.png

    用VB实现微信消息的发送!

    bbf004b0d98f1212b030ae29e2c188d4.png

    【汇总】VB编程综合整理

    6d5856c81f1bb321f8ab97316fa002ff.png

    一键找回系统登录密码,就是这么Easy!

    1c15d3a397df474e6c333d2e879dd5cb.png

    如何实现多台计算机之间的网络通信?

    d8fcb2b0281a8896cfc3ad265ae9942e.png

    VB四则运算题目

    3134490f23f04499b0ea10a7f08c0f07.png

    程序实现分析:

    1、使用VB中的随机函数公式去随机生成10道四则运算题目,而且运算符也是随机产生;

    2、用户输入计算的答案后,点击核对可以显示出每道题的对错以及所得分数;

    3、本程序主要用到了循环结构、选择结构、数组、控件数组等VB核心知识。

    程序实现代码:

    Option Explicit

    Dim a(1 To 10, 1 To 3) As Integer

    Dim s(1 To 10) As String * 1

    Private Sub Command1_Click() '随机生成题目

    Dim i As Integer

    For i = 1 To 10

    Dim score As Integer

        If a(i, 3) = Val(T(i - 1).Text) Then

             L(i - 1).ForeColor = vbGreen

            L(i - 1).Caption = "对"

            score = score + 1

         Else

              L(i - 1).ForeColor = vbBlue

            L(i - 1).Caption = "错"

        End If

    Next

    MsgBox "您本次得分为" & score & "分"

    End Sub

    Private Sub Command3_Click() '答案验证及评分'

    Dim i As Integer

    Dim T As Integer

    Dim M As Single

    Randomize

    For i = 1 To 10

        a(i, 1) = Int(Rnd * (90 + 10))

        a(i, 2) = Int(Rnd * (90 + 1))

    Next

    For i = 1 To 10

        T = Int(Rnd * 4 + 1)

        If T = 1 Then

            s(i) = "+"

        ElseIf T = 2 Then

            s(i) = "-"

        ElseIf T = 3 Then

            s(i) = "*"

        Else

            s(i) = "/"

        End If

    Next

    For i = 1 To 10

        If s(i) = "+" Then

            a(i, 3) = a(i, 1) + a(i, 2)

        ElseIf s(i) = "-" Then

            If a(i, 1) < a(i, 2) Then

                T = a(i, 1): a(i, 1) = a(i, 2): a(i, 2) = T

                a(i, 3) = a(i, 1) - a(i, 2)

            Else

                a(i, 3) = a(i, 1) - a(i, 2)

            End If

        ElseIf s(i) = "*" Then

            a(i, 3) = a(i, 1) * a(i, 2)

        ElseIf s(i) = "/" Then

            a(i, 3) = a(i, 1) * a(i, 2)

            T = a(i, 1): a(i, 1) = a(i, 3): a(i, 3) = T

        End If

    Next

    For i = 1 To 10

        L1.AddItem a(i, 1) & s(i) & a(i, 2) & "="

    Next

    End Sub

    Private Sub Command2_Click() '退出程序

    End

    End Sub

    9e79019e9638c9ee2fa6c0935537e153.png

    程序运行图

    4dffee6864498837a12f7ce1b7d00fe8.gif

    Tips:

    如果你有VB学习上的问题可添加老师微信号:vbyjk521,验证消息填写“VB",添加后会耐心为你讲解问题。

    495fc5793e928a760d5dcc72f0afd6ed.png

    4dffee6864498837a12f7ce1b7d00fe8.gif

    ea5b61e4ea69bc14157ee467c4b6cc8d.gife8111bff9367ff13e0139abf8fbcd9f7.png

    长按上图,关注跟我学VB公众平台

    展开全文
  • VB自动生成运算题目程序实现分析:1、使用VB中的随机函数公式去随机生成10道四则运算题目,而且运算符也是随机产生;2、用户输入计算的答案后,点击核对可以显示出每道题的对错以及所得分数;3、本程序主要用到了...

    VB编程语言基础知识点总结

    16b523f82e0192728b530f3708ddb4e6.png

    用VB实现微信消息的发送!

    644a7639e4b503af014ac7fa784d134f.png

    【汇总】VB编程综合整理

    ef1c33b022c31cb99728097bf81e2a30.png

    一键找回系统登录密码,就是这么Easy!

    0431e69e1829f1ab693c59f6dfd2d4e6.png

    如何实现多台计算机之间的网络通信?

    7a37a8387e03a509249e92f8b68eb443.png

    VB自动生成运算题目

    96508fbc2ab6f29fb605caae8723050c.png

    程序实现分析:

    1、使用VB中的随机函数公式去随机生成10道四则运算题目,而且运算符也是随机产生;

    2、用户输入计算的答案后,点击核对可以显示出每道题的对错以及所得分数;

    3、本程序主要用到了循环结构、选择结构、数组、控件数组等VB核心知识。

    程序实现代码:

    Option Explicit

    Dim a(1 To 10, 1 To 3) As Integer

    Dim s(1 To 10) As String * 1

    Private Sub Command1_Click() '随机生成题目

    Dim i As Integer

    For i = 1 To 10

    Dim score As Integer

        If a(i, 3) = Val(T(i - 1).Text) Then

             L(i - 1).ForeColor = vbGreen

            L(i - 1).Caption = "对"

            score = score + 1

         Else

              L(i - 1).ForeColor = vbBlue

            L(i - 1).Caption = "错"

        End If

    Next

    MsgBox "您本次得分为" & score & "分"

    End Sub

    Private Sub Command3_Click() '答案验证及评分'

    Dim i As Integer

    Dim T As Integer

    Dim M As Single

    Randomize

    For i = 1 To 10

        a(i, 1) = Int(Rnd * (90 + 10))

        a(i, 2) = Int(Rnd * (90 + 1))

    Next

    For i = 1 To 10

        T = Int(Rnd * 4 + 1)

        If T = 1 Then

            s(i) = "+"

        ElseIf T = 2 Then

            s(i) = "-"

        ElseIf T = 3 Then

            s(i) = "*"

        Else

            s(i) = "/"

        End If

    Next

    For i = 1 To 10

        If s(i) = "+" Then

            a(i, 3) = a(i, 1) + a(i, 2)

        ElseIf s(i) = "-" Then

            If a(i, 1) < a(i, 2) Then

                T = a(i, 1): a(i, 1) = a(i, 2): a(i, 2) = T

                a(i, 3) = a(i, 1) - a(i, 2)

            Else

                a(i, 3) = a(i, 1) - a(i, 2)

            End If

        ElseIf s(i) = "*" Then

            a(i, 3) = a(i, 1) * a(i, 2)

        ElseIf s(i) = "/" Then

            a(i, 3) = a(i, 1) * a(i, 2)

            T = a(i, 1): a(i, 1) = a(i, 3): a(i, 3) = T

        End If

    Next

    For i = 1 To 10

        L1.AddItem a(i, 1) & s(i) & a(i, 2) & "="

    Next

    End Sub

    Private Sub Command2_Click() '退出程序

    End

    End Sub

    b8b73b7dab043b0ffdf85d503a486b2e.png

    程序运行图

    3bdac2081bc54013295e29eb69804ed8.gif

    Tips:

    如果你有VB学习上的问题可添加老师微信号:vbyjk521添加成功后会耐心为你讲解问题。

    13904ce4f10d6bc0bd10461ddcbd83b0.png

    3bdac2081bc54013295e29eb69804ed8.gif

    c7d33fc3adf57cef85d8400ce4a91563.gif7def25fdc658918d247c47c454e9cc06.png

    长按上图,关注跟我学VB公众平台

    展开全文
  • 5.3.2 如何使用ToolStrip控件创建工具栏134 5.3.3 打印报表窗体设计135 5.4 程序实现与代码139 5.4.1 闪窗设计139 5.4.2 登录窗体140 5.4.3 人事管理系统主界面窗体140 5.4.4 编辑员工档案窗体146 5.4.5 员工档案...
  • 3.3 在VisualBasic应用程序中使用资源文件 第4章 窗体与窗口 4.1 窗体标题栏的控制 4.1.1 使标题栏闪烁 4.1.2 隐藏/显示标题栏 4.1.3 禁用最大化.最小化和关闭按钮 4.1.4 移动没有标题栏的窗体 4.2 改变...
  • VB开发经验技巧宝典

    2012-01-29 14:26:04
    0005 在开发环境中如何设置窗体的网络 0006 如何定制有效的工具栏 0007 如何定制编程环境 0008 如何合理布局窗体 0009 如何锁定窗体上的控件 0010 如何调整与对齐控件 0011 如何利用代码对齐控件 0012...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    Menus:演示如何使用 Windows 窗体应用程序中的 MenuStrip 控件在运行时创建菜单,以及如何处理菜单事件 NotifyIcon:演示如何使用 NotifyIcon 控件及其关联的 ContextMenu 创建一个在通知区域中显示图标的程序 ...
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • 在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    在介绍完创建应用程序的基础知识后(如创建窗口和对话框,如何用代码处理突发事件,什么是面向对象的程序设计,以及如何在应用程序中使用它等)。 目录: 第1章 初识Visual Basic .NET 1 1.1 Windows和DOS编程 1 1.2...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    则消除这行的方块,并且使上面的方块自由下落,其中,方块向下的速度是有时钟控件控制的,在游戏,用户也可以使用向下键加快下落速度,定义一个变量,对消除的函数进行记录,最后就可以得出用户的分数,用if 语句...
  • 另外还提供该控件在VC,VB下的调用方式以及相关数据的处理。 关键字:ActiveX,Socket,VARIANT, SAFEARRAY,BSTR。 回顾:在上一篇文章《标准MFC WinSock ActiveX控件开发实例》我们详细介绍了控件的开发过程...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    6.理解和使用控件属性 251 7.控件方法 253 8.使用菜单 254 9.菜单编程 256 10.创建子菜单 258 11.修改内置快捷菜单 260 12.创建快捷菜单 262 13.接下来…… 264 第十三章 调试VBA过程和处理错误 264 1.测试VBA过程 ...
  • VB.NET高级编程(第二版)

    热门讨论 2008-07-18 15:47:58
    .NET Framework和公共语言运行时(CLR)、应用继承从基类中派生类、利用Try...Catch...Finally结构处理错误、命名空间、使用ADO.NET访问数据、创建Windows应用程序和定制Windwos控件、组合使用COM和ActiveX组件、...
  • 5.3.2 如何使用toolstrip控件创建工具栏134 5.3.3 打印报表窗体设计135 5.4 程序实现与代码139 5.4.1 闪窗设计139 5.4.2 登录窗体140 5.4.3 人事管理系统主界面窗体140 5.4.4 编辑员工档案窗体146 5.4.5 员工档案...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    1.2 EXCEL环境基于应用程序自动化的优点 9 1.3 录制简单的宏 9 1.4 执行宏 10 1.5 查看录制的代码 10 1.6 编辑录制的代码 11 1.7 录制宏的局限性 12 1.8 小结 12 第二课 处理录制的宏 12 2.1 为宏指定快捷键 12 ...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    1.2 EXCEL环境基于应用程序自动化的优点 9 1.3 录制简单的宏 9 1.4 执行宏 10 1.5 查看录制的代码 10 1.6 编辑录制的代码 11 1.7 录制宏的局限性 12 1.8 小结 12 第二课 处理录制的宏 12 2.1 为宏指定快捷键 12 ...
  • 1.2 EXCEL环境基于应用程序自动化的优点 1 1.3 录制简单的宏 2 1.4 执行宏 2 1.5 查看录制的代码 2 1.6 编辑录制的代码 3 1.7 录制宏的局限性 4 1.8 小结 4 第二课 处理录制的宏 4 2.1 为宏指定快捷键 4 2.2 决定...
  • 打冰雹游戏源程序

    2013-06-16 00:07:04
    本次课程设计利用《软件设计基础-VB》课程所学到的编程知识和编程技巧,完成具有一定难度和工作量的程序设计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。 要求: 1、对系统进行功能需求分析 2...
  • 实例060 利用控件数组设置控件状态 实例061 如何声明控件变量数组 3.4 指针地址获取 实例062 如何获取对象实例私有域的地址 实例063 获取字符串第一个字的地址 实例064 获取变量的地址 实例065 获取数组的...
  • 实例060 利用控件数组设置控件状态 实例061 如何声明控件变量数组 3.4 指针地址获取 实例062 如何获取对象实例私有域的地址 实例063 获取字符串第一个字的地址 实例064 获取变量的地址 实例065 获取数组的...
  • MYSQL中文手册

    2013-03-11 21:21:34
    7.4.5. MySQL如何使用索引 7.4.6. MyISAM键高速缓冲 7.4.7. MyISAM索引统计集合 7.4.8. MySQL如何计算打开的表 7.4.9. MySQL如何打开和关闭表 7.4.10. 在同一个数据库创建多个表的缺陷 7.5. 优化MySQL服务器...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    《ASP.NET程序设计》课程是一门重要的计算机专业课,它是计算机网络、计算机软件及应用、计算机技术及应用、计算机信息管理、计算机网络管理及维护、电子商务、计算机多媒体技术等专业的一门职业技能型课程,在...
  • MySQL 5.1中文手冊

    2009-12-11 09:43:12
    7.4.5. MySQL如何使用索引 7.4.6. MyISAM键高速缓冲 7.4.7. MyISAM索引统计集合 7.4.8. MySQL如何计算打开的表 7.4.9. MySQL如何打开和关闭表 7.4.10. 在同一个数据库创建多个表的缺陷 7.5. 优化MySQL服务器 7.5.1...
  • 7.4.5. MySQL如何使用索引 7.4.6. MyISAM键高速缓冲 7.4.7. MyISAM索引统计集合 7.4.8. MySQL如何计算打开的表 7.4.9. MySQL如何打开和关闭表 7.4.10. 在同一个数据库创建多个表的缺陷 7.5. 优化MySQL服务器 7.5.1...
  • 7.4.5. MySQL如何使用索引 http://doc.mysql.cn/mysql5/refman-5.1-zh.html-chapter/(第 7/24 页)2006-11-02 19:12:13 MySQL 5.1 Reference Manual 7.4.6. MyISAM键高速缓冲 7.4.7. MyISAM索引统计集合 7.4.8. ...
  • 14.8.3 将示例添加到安装程序中 285 14.8.4 添加启动条件 285 14.8.5 设置系统必备组件的属性 286 14.8.6 设置部署项目的可选属性 286 14.8.7 在开发计算机上安装 286 14.8.8 部署到其他计算机 286 14.8.9 ...
  • mysql5.1中文手册

    2008-01-09 09:54:20
    MySQL如何使用内存 7.5.6. MySQL如何使用DNS 7.6. 磁盘事宜 7.6.1. 使用符号链接 8. 客户端和实用工具程序 8.1. 客户端脚本和实用工具概述 8.2. myisampack:生成压缩、只读MyISAM表 8.3. ...
  • Excel_VBA教程

    2014-09-22 11:36:34
    6.理解和使用控件属性 251 7.控件方法 253 8.使用菜单 254 9.菜单编程 256 10.创建子菜单 258 11.修改内置快捷菜单 260 12.创建快捷菜单 262 13.接下来…… 264 第十三章 调试VBA过程和处理错误 264 1.测试VBA过程 ...

空空如也

空空如也

1 2 3
收藏数 59
精华内容 23
关键字:

vb程序中如何使用控件数组