还未设置个性签名
成为VIP会员 享9项特权: 开通会员

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

3天内不再提示

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

陈RQING 来源:网络整理 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

    文章

    17

    浏览量

    9019
收藏 人收藏

    评论

    相关推荐

    C语言与VB语言在proteus上的仿真教程详细资料免费下载

    主要涉及C语言与VB语言在proteus上的仿真教程,可帮助读者更加深刻的学习proteus的运用和....
    发表于 11-06 08:00 1225次 阅读
    C语言与VB语言在proteus上的仿真教程详细资料免费下载

    用VB编的经典小游戏编写实例教程大全

    Visual Basic是一个功能强大的工具,它有一大特点就是易学易用,下面我们就通过写一个“趣味撞....
    发表于 03-13 09:22 11714次 阅读
    用VB编的经典小游戏编写实例教程大全

    如何用VB编写最简单的计算器程序

    编写个最简易的计算器程序,通过文本框输入两个值(x ,y)进行加法运算,从而达到使两者相加求和的基本....
    的头像 h1654155199.4397 发表于 03-13 09:12 48111次 阅读
    如何用VB编写最简单的计算器程序

    vb语言跟java语言什么区别

     Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包....
    的头像 h1654155199.4397 发表于 03-12 17:11 33658次 阅读

    vb语言代码大全

    VisualBasic是微软公司推出的简单易学、功能强大编程工具,是一种可视化的、面向对象和采用事件....
    的头像 h1654155199.4397 发表于 03-12 16:51 115365次 阅读
    vb语言代码大全

    vb语言编程学习怎么入门

    要想成为一名优秀的程序员,最重要的是掌握编程思想、找到编程感觉,而不是死记硬背语言本身。所以,从某种....
    的头像 h1654155199.4397 发表于 03-12 16:35 62855次 阅读

    vb语言为什么被淘汰

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

    vb语言有哪些优势

    Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,....
    的头像 h1654155199.4397 发表于 03-12 15:51 35502次 阅读
    vb语言有哪些优势

    VB语言参考手册pdf

    从简单到深度学习VB
    发表于 03-12 13:47 962次 阅读

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

    本文详细介绍了VB语言的特点。Visual Basic 6.0为用户设计界面、编写代码、调试程序、编....
    的头像 lhl545545 发表于 02-13 09:40 16536次 阅读

    vb语言知识点总结

    可视化开发环境:界面设计所见所得;面向对象程序设计:程序和数据封装作为一个对象,在工具箱里面的都是一....
    的头像 倩倩 发表于 02-08 14:40 15265次 阅读

    C与VB语言联合在proteus上仿真

    电子设计论文的电子类资料材料,有兴趣的同学可以下载学习
    发表于 04-28 16:37 574次 阅读

    C与VB语言联合在proteus上仿真

    C与VB语言联合在proteus上仿真,欢迎下载
    发表于 12-09 15:25 597次 阅读

    VB语言基础_简单易懂

    VB语言基础_ 简单易懂
    发表于 12-08 11:26 879次 阅读

    VB自学资料

    发表于 08-21 22:33 1383次 阅读

    基于VB语言的机器人足球仿真比赛与对策研究

    本文通过对小型机器人足球比赛仿真组比赛(五对五)的对策进行研究,提出了四步决策推理模型,利用大赛组委....
    发表于 08-16 10:09 1215次 阅读
    基于VB语言的机器人足球仿真比赛与对策研究