0
  • 聊天消息
  • 系统消息
  • 评论与回复
登录后你可以
  • 下载海量资料
  • 学习在线课程
  • 观看技术视频
  • 写文章/发帖/加入社区
创作中心

完善资料让更多小伙伴认识你,还能领取20积分哦,立即完善>

3天内不再提示

vb语言程序简单设计实例(5款vb语言设计程序分享)

h1654155282.3538 来源:网络整理 2018-03-12 18:05 次阅读

vb语言程序设计简介

以vb程序设计语言为工具,对特定的问题进行分析,并设计出解题的算法,根据得到的算法,用vb语言编写出源程序的过程就是vb程序设计。

编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样,计算机编程语言也有很多。目前较为广泛使用的语言有“C++”、“Pascal”、“Basic”等。在众多的计算机编程语言中,以BASIC语言最为易学易用。

BASIC是英文Beginner’s All purpose Symbolic Instruction Code的缩写,意思为初学者通用符号指令代码,一直都是程序设计入门的首选语言。

1991年,Visual Basic(简称VB)面世,他是第三代BASIC语言,它不但秉承了BASIC语言的易学易用的优点,而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程,让编程者将更多的精力致力于问题的求解过程。

vb语言程序设计实例(一)

Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print “最大公约数是” & i r = Val(InputBox(“输入半径”)) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t 《》 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox “圆面积为:” & S End function Public Function 定积分() End Function

vb语言程序设计实例(二

Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print “排序前的数组为:” n = Val(InputBox(“请输入一个 3 到 100 的整数”)) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print “排序后的数组为:” For i = 1 To n - 1 For j = i + 1 To n If a(i) 》 a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub

vb语言程序设计实例(三)

Dim a(), i%, j% Private Sub Command1_Click() Dim n% n = Val(InputBox(“请输入一个整数”)) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Next i Picture1.Print “选择法排序后的数组为:” For i = 1 To n - 1 For j = i + 1 To n If a(i) 》 a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next Picture1.Print End Sub Private Sub Command2_Click() Dim n% n = Val(InputBox(“请输入一个整数”)) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Next i Picture2.Print “冒泡排序法后的数组为:” For i = 1 To n-1 For j = n To i-1 Step -1 If a(j-1) 》 a(j) Then t = a(j): a(j) = a(j-1): a(j-1) = t End If Next Next For i = 1 To n

Picture2.Print Tab(((i - 1) Mod 5) * 6); a(i); Next Picture2.Print End Sub

vb语言程序设计实例(四)

Dim a(), i%, j%, n%, m%, t% Private Sub Command1_Click() n = Val(InputBox(“请输入一个整数”)) Call fuzhi(n) Picture1.Print “选择排序法后的数组为:” Call paixu(n) Picture1.Print ReDim Preserve a(n) End Sub Private Sub Command2_Click() m = Val(InputBox(“请输入一个整数”)) Call fuzhi(m) Picture1.Print “冒泡排序法后的数组为:” For i = 1 To m - 1 For j = m To i + 1 Step -1 If a(j - 1) 》 a(j) Then t = a(j - 1): a(j - 1) = a(j): a(j) = t End If Next Next For i = 1 To m Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next Picture1.Print End Sub Private Sub Command3_Click() ReDim a(t) Picture1.Print “合并后的数组为:” Call paixu(t)

Picture1.Print End Sub Public Sub fuzhi(n%) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Next i End Sub Public Function paixu(n%) As Integer For i = 1 To n - 1 For j = i + 1 To n If a(i) 》 a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Function

vb语言程序设计实例(五)

Dim i%, j%, s% Private Sub Command1_Click() Picture1.Cls Picture1.Scale (0, 0)-(10, 10) For i = 1 To 9 Picture1.Line (1, i)-(9, i) Picture1.Line (i, 1)-(i, 9) Next Picture1.FillColor = QBColor(0) Picture1.Circle (4.5, 4.5), 0.4 Picture1.Circle (5.5, 5.5), 0.4 Picture1.FillColor = QBColor(15) Picture1.Circle (4.5, 5.5), 0.4

Picture1.Circle (5.5, 4.5), 0.4 End Sub Private Sub Command2_Click() s = Abs(s - 1) End Sub Private Sub picture1_mousedown(botton As Integer, shift As Integer, x!, y!) i = Fix(x) j = Fix(y) If s = 0 Then Picture1.FillColor = QBColor(0) If s = 1 Then Picture1.FillColor = QBColor(15) Picture1.Circle (i + 0.5, j + 0.5), 0.4 s = Abs(s - 1) End Sub

声明:本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人,不代表电子发烧友网立场。文章及其配图仅供工程师学习之用,如有内容侵权或者其他违规问题,请联系本站处理。 举报投诉
  • VB语言
    +关注

    关注

    1

    文章

    18

    浏览量

    9665
收藏 人收藏

    评论

    相关推荐

    vb.net实例下载(100例)

    vb.net实例:实例1:welcome to VB.net world实例2: 创建控制台应用程序
    发表于 12-08 11:38 262次下载
    <b class='flag-5'>vb</b>.net<b class='flag-5'>实例</b>下载(100例)

    VB集成环境及简单应用程序的建立

    VB集成环境及简单应用程序的建立 一、实验目的(1)掌握VB6.0的启动与退出。(2)了解VB6.0的集成开发环境,熟悉各主要窗口的作用。
    发表于 09-23 19:24 3834次阅读
    <b class='flag-5'>VB</b>集成环境及<b class='flag-5'>简单</b>应用<b class='flag-5'>程序</b>的建立

    VB语言基础_简单易懂

    VB语言基础_ 简单易懂
    发表于 12-08 11:26 0次下载

    时钟设计程序【C语言

    时钟设计程序。时钟设计程序。时钟设计程序【C语言】时钟设计程序【C语言
    发表于 12-28 12:02 0次下载

    VB编程_拨号程序

    Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言VB学习编程教程。
    发表于 08-08 14:25 5次下载

    VB编程_闹钟程序

    Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言VB学习编程教程。
    发表于 08-08 14:25 12次下载

    VB例程-启动其它程序

    Visual Basic是一种由 微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言VB学习编程教程。
    发表于 08-08 14:25 6次下载

    vb程序的三种基本结构2

    Visual Basic是一种由微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言vb程序的三种基本结构2
    发表于 09-01 15:01 0次下载

    上位机控制的液晶电子时钟(提供VB,C语言程序

    上位机控制的液晶电子时钟(提供VB,C语言程序
    发表于 07-31 09:18 2次下载

    VB语言的特点_VB语言的三个特点说明

    本文详细介绍了VB语言的特点。Visual Basic 6.0为用户设计界面、编写代码、调试程序、编译程序、制作应用程序安装盘等提供了友好的
    的头像 发表于 02-13 09:40 2w次阅读

    vb语言有哪些优势

    Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的
    的头像 发表于 03-12 15:51 3.8w次阅读
    <b class='flag-5'>vb</b><b class='flag-5'>语言</b>有哪些优势

    vb语言为什么被淘汰

    VB是Visual Basic的简写,是可视化的编程语言,是一种简单、高效地开发应用软件的工具。
    的头像 发表于 03-12 16:05 24.3w次阅读

    vb语言代码大全

    VisualBasic是微软公司推出的简单易学、功能强大编程工具,是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,使用VB能轻而易举地开发适合在Windows环境下各类应用
    的头像 发表于 03-12 16:51 12.2w次阅读
    <b class='flag-5'>vb</b><b class='flag-5'>语言</b>代码大全

    vb语言跟java语言什么区别

     Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说,VB都是世界上使用人数最多的语言——不管是盛赞
    的头像 发表于 03-12 17:11 3.6w次阅读

    vb语言和c++语言的区别

    )是由Microsoft开发的一种面向对象的事件驱动编程语言。它的设计目标是简化编程过程,让初学者也能快速上手。与之相比,C++语言是一种通用的、面向对象的编程语言,其设计目标是提供高性能的系统级编程。 语法:
    的头像 发表于 02-01 10:20 428次阅读