精华内容
下载资源
问答
  • VB程序设计(全集)

    2019-01-16 12:42:18
    VB程序设计(全集),学习VB的绝好的参考资料,PPT资源
  • vb程序设计

    2018-05-30 09:55:36
    学习VB的可以好好看看,特别是初学者,收益还是挺大的
  • 本课程详细讲授全国计算机等级考试二级VB考试的所有重点和考点。并对考试原题中的每一个... 课程内容:VB可视化编程基础、VB语言基础、基本的控制结构、数组和自定义类型、过程、用户界面设计、数据文件、图形文件。
  • 北师大网络教育VB程序设计 1.下列哪个选项不是Visual Basic语言的特点 D A事件驱动编程机制 B可视化编程 C结构化程序设计 D面向过程的程序设计 2.Visual Basic的版本中不包含 D A学习版 B专业版 C企业版 D标准版 3....
  • VB.NET程序设计课后实验最齐全答案,从实验1到实验11,高等教育出版社第二版,龚沛曾主编。
  • 简单计算器vb程序设计
  • VB 程序设计报告.doc

    2020-12-01 00:07:30
    VB 程序设计报告 设计题目科学型简单计算器 程序简介 窗体出现后为一个科学型简单计算器可实现简单的加减乘除运算具有清零及退出功能 程序用到的主要控件 窗体form文本框textbox,命令按钮command button 程序用到的...
  • VB程序设计

    2015-07-14 16:44:35
    作业-VB程序设计
  • 编程大众化-vb程序设计pdf文本版,Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。...
  • VB程序设计基础课件,VB程序设计基础课件, 想学VB的不要错过!
  • vb 程序设计教案

    2017-03-07 17:37:02
    看了很多,觉得这个还是很不错的,内容全面,排版清楚。
  • 连续梁计算程序设计:通过GC单元长度;GX单元抗弯刚度;AMF单元左右端固端弯矩等单元结点信息计算分析结点位移/转角和端力弯矩。
  • VB程序设计教程(D第三版)龚沛曾 课后习题答案
  • 考点梳理 例题剖析 第三部分 算法与VB程序设计 专题13 算法的表示流程图 考试内容 考试要求 算法及算法的表示 算法的基本概念 算法的常用表示方法 顺序选择循环三种控制结构 b理解 本专题包含算法的表示其知识点主要...
  • vb程序设计实例100

    热门讨论 2012-09-05 10:10:51
    100个vb程序设计实例,vb学习从简单开始,
  • 第一章 VB 开发环境与 VB 概述 习题答案 习题 一选择题 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. B A A B D B A A C B C D A D 第二章 常用控件与界面设计 习题答案 习题 一选择题 15. 16. 17. 18. 19. 20. ...
  • 程序设计综合实践利用VB写的简单计算器,有记忆功能。
  • VB 程序设计 VB 程序设计 VB 程序设计 VB 程序设计
  • 程序设计VB作业 VB程序设计作业 填空题、选择题、编程题。
  • VB程序设计打字练习

    2011-06-24 07:43:45
    这是一个关于VB程序设计的课程设计,注意啊要求是要求能测试正确率,统计打字时间,打字错误数与正确数
  • vb程序设计案例教程

    2014-05-13 19:44:03
    共有14章讲授VB程序设计案例,描述了vb数组类型应用,各种控件的属性,面向对象程序设计的方法、对象、属性、事件进行了深入介绍。包括了对图形程序设计的说明,在介绍坐标系统、颜色系统的基础上,对图形和文本的...
  • Visual Basic 程序设计教程 (第3版) VB程序设计教程 第3版) 程序设计教程(第版 程序设计教程 VB控制结构 第4章 V....
  • VB程序设计练习题

    千次阅读 多人点赞 2021-05-15 14:03:35
    这是我备考技能考的一些VB练习题。(难度稍微有点大哦) 想要更多VB练习题点击我的头像,看我发表我文章就可以看到了。 答案是小编自己写的,也许会有错。 内容 一、明文密文转换。 在上面的文本框中输入的英文...

    文章目录

    目录

    文章目录

    前言

    内容

    一、明文密文转换。

    二、大小写互相转换。

    三、三角形的综合问题。

    五、标签左右移动。

    六、相邻数加起来为素数。

    七、通项分母(累加).

    八、判断降序数。

    九、产生数组,求最大数。

    十、奇偶排序。

    总结:


    前言

    这是我备考技能考的一些VB练习题。(难度稍微有点大哦)

    想要更多VB练习题点击我的头像,看我发表我文章就可以看到了。

    答案是小编自己写的,也许会有错。


    内容

    一、明文密文转换。

    在上面的文本框中输入的英文字母(称为”明文")加密,加密结果(称为"密文")显示在下面的文本框中。加密的方法是:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,把明文中的每个字母改为它们后面第n个字母("z"后面的字母认为是"a","Z"后面的字母认为是"A"),如图所示。

    答案:

    Private Sub Command1_Click()
    For i = 1 To Len(Text1.Text)
          If Option1.Value = True Then
                a = Mid(Text1.Text, i, 1)
                b = Asc(a) + 1
          End If
          If Option2.Value = True Then
                a = Mid(Text1.Text, i, 1)
                b = Asc(a) + 3
          End If
          If Option3.Value = True Then
                a = Mid(Text1.Text, i, 1)
                b = Asc(a) + 5
          End If
          If b > 122 Then
                b = b - 26
          End If
          If b > 90 And b < 97 Then
                b = b - 26
          End If
          Text2.Text = Text2.Text & Chr(b)

    Next

    End Sub


    二、大小写互相转换。

    如图所示创建界面(一个文本框,一个按钮),程序运行后,单击“转换”按钮,可以text1中的大写字母转换为小写,把小写字母转换为大写。

    答案:

    Private Sub C1_Click()

    For i = 1 To Len(Text1.Text)

          a = Mid(Text1.Text, i, 1)              ‘一个一个选择text1中的字符  

          For j = 97 To 122                     

                If a = Chr(j) Then                   ‘判断是不是小写字母

                      f = 0                             ‘是的话f=0

                      Exit For                          ‘并且要停止循环,不然会一直循环下去导致f=1

                Else                             ‘否则f=1,也就是大写字母

                      f = 1

                End If                             

          Next

          If f = 0 Then                        ‘如果是f=0(也就是字母为小写的情况)

                a = UCase(a)                        ‘就转大写

          End If                             ‘结束

          If f = 1 Then                         ‘如果f=1(也就是大写的情况)

                a = LCase(a)                         ‘就转小写

          End If

          b = b & a                           ‘全部a都赋值给b

    Next

    Text1.Text = b                         text1输出b

    End Sub


    三、三角形的综合问题。

    根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出何种三角形,及三角形的周长和面积。要求完成”判断并计算”按钮的如下功能:

       1、判断输入的条件是否为三角形,若是三角形则在Text1中显示“是三角形”;在Text2中显示是何种三角形。

       2、单击“清除重来”按钮可以将所有的显示框清空,且按钮本身变为不可选取状态。当单击“判断并计算”之后重新恢复为可选状态。

    提示:1.三角形存在的条件为任一边不为0且任两边之和大于第三边。

               2.若一边具有a^2+b^2=c^2,则为直角三角形;若所有边具有a^2+b^2>c^2,则为锐角三角形;若一边具有a^2+b^2<c^2,则为钝角三角形。

               3、三角形的面积公式.已知三角形三边a,b,c,则

                    (海伦公式)

                    (p=(a+b+c)/2)

                       S=sqrt[p(p-a)(p-b)(p-c)]

    答案:

    Private Sub Command1_Click()

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    c = Val(Text3.Text)

    Command2.Enabled = True

    If a + b > c And a + c > b And c + b > a Then

          Text4.Text = "是三角形"

    Else

          Text4.Text = "不是三角形"

    End If

    If Text4.Text = "是三角形" Then

          If a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then

                Text5.Text = "直角三角形"

          End If

          If a ^ 2 + b ^ 2 > c ^ 2 And a ^ 2 + c ^ 2 > b ^ 2 And b ^ 2 + c ^ 2 > a ^ 2 Then

                Text5.Text = "锐角三角形"

          End If

          If a ^ 2 + b ^ 2 < c ^ 2 Or a ^ 2 + c ^ 2 < b ^ 2 Or b ^ 2 + c ^ 2 < a ^ 2 Then

                Text5.Text = "钝角三角形"

          End If

          Text6.Text = a + b + c

          Text7.Text = (1 / 4) * Sqr((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a))

    End If

    End Sub

    Private Sub Command2_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text5.Text = ""

    Text6.Text = ""

    Text7.Text = ""

    End Sub

    Private Sub Command3_Click()

    End

    End Sub


    四、杨辉三角形。

    编写适当的事件过程,在窗体上输出相对应行数的杨辉三角形,点击窗体弹出inputbox对话框,在对话框中输入行数,打印出如下图所示的杨辉三角形

    会做这题,说明二维数组输出掌握很好。

    答案:

    Private Sub Form_Click()

    Dim i As Integer, j As Integer

    Dim a As Integer

    a = Val(InputBox("请输入行数"))

    Dim c(9, 9) As Integer

    If a > 0 Then

    For i = 1 To a

        Print Space(3 * a - 3 * i);

        For j = 1 To i

            If i = 1 Or j = i Then       ‘当为三角形两边的时候,输出1

                c(i, j) = 1

            End If

            If i = 2 Or j = i - 1 Then              ‘当为三角形的两边里面一个的时候输出行数-1

                c(i, j) = i - 1

            End If

            If i > 2 And j < i - 1 Then                    否则都以自身上面一行对角线两个数的和。

                c(i, j) = c(i - 1, j - 1) + c(i - 1, j)

            End If

            Print c(i, j) & "     ";                       ‘输出

        Next

        Print

    Next

    End If

    End Sub


    五、标签左右移动。

    点击开始按钮,标签右移动,到达右边则向左移动,到达左边则向右移动,点击停止按钮则停止移动

    答案:

    Dim a

    Private Sub Command1_Click()

    Timer1.Enabled = True

    End Sub

    Private Sub Command2_Click()

    Timer1.Enabled = False

    End Sub

    Private Sub Form_Load()

    Timer1.Enabled = False

    a = 0

    End Sub

    Private Sub Timer1_Timer()

    If Label1.Left >= Val(Form1.Width) - Val(Label1.Width) Then

          a = 1

    End If

    If Label1.Left <= 0 Then

          a = 0

    End If

    If a = 1 Then

          Label1.Left = Label1.Left - 100

    End If

    If a = 0 Then

          Label1.Left = Label1.Left + 100

    End If

    End Sub


    六、相邻数加起来为素数。

    本程序用于求1~10中相邻数之和是素数的所有自然数对。

    例如:1和2为相邻数并且1+2=3,3为素数,则输出1和2.

    答案:

    Private Sub Form_Click()

    Dim i As Integer

    For i = 1 To 10

        f = 0

        For j = 2 To i - 1

            If (i + (i + 1)) Mod j = 0 Then

                f = 1

                Exit For

            Else

                f = 0

            End If

        Next

        If f = 0 Then

            Print i; i + 1

        End If

    Next

    End Sub


    七、通项分母(累加).

    下面程序的功能是计算,若通项分母的值>=200,停止计算(正确答案是S=1.409524

    S=1+1/1*3 + 1/1*3*5 +1/1*3*5*7…..

    答案:

    Private Sub Form_Click()

    Dim i As Integer

    Dim n As Integer

    i = 1

    n = 1

    Do

        If n > 200 Then

            Exit Do

        Else

            Print i

            Sum = Sum + (1 / n)

        End If

            i = i + 2

            n = n * i

    Loop

    Print Sum

    End Sub

    第二种:

    Private Sub Form_Click()

    Dim i As Integer

    Dim n As Integer

    i = 1

    n = 1

    Do While n <= 200

        Sum = Sum + (1 / n)

        i = i + 2

        n = n * i

    Loop

    Print Sum

    End Sub


    八、判断降序数。

    在文本框中输入一个整数数,判断是否为降序数。(降序数是高位的数比低位的数要大,依次降序,如3216549876等。

    答案:

    Private Sub Command1_Click()

    Dim a As String

    a = Text1.Text

    f = 0

    If Val(a) > 0 And Val(a) = Int(Val(a)) Then

    For i = 2 To Len(a)

    If Val(Mid(a, i, 1)) <= Val(Mid(a, i - 1, 1)) Then   '当题目没给给定多少位,就是说不能使用数 组来做,则可以直接吧mid当做数组

        f = 1

        Else

        f = 0

        Exit For

     End If

    Next

    If f = 1 Then

        Label1.Caption = "是降序数"

    Else

        Label1.Caption = "不是降序数"

    End If

    Else

    MsgBox "请输入正整数"

    End If

    End Sub


    九、产生数组,求最大数。

    点击窗体,用inputbox输出9个整数,放入数组a中并输出在窗体上,本程序按序号依次将(a1,a2,a3,(a2,a3,a4),…..(a9,a1,a2),九组元素分别相加(每组3个元素),生产新数组b并输出在窗体上,然后找出b数组中的最大元素并输出在窗体上。

    答案:

    Dim a(1 To 9) As Integer

    Dim b(1 To 9) As Integer

    Private Sub Command1_Click()

    Dim c1, c2, c3 

    Print "数组b的数有:";

    For i = 1 To 9

    c1 = i

    c2 = i + 1

    c3 = i + 2

    If c2 > 9 Then

        c2 = c2 - 9

    End If

    If c3 > 9 Then

        c3 = c3 - 9

    End If

    b(i) = a(c1) + a(c2) + a(c3)

    Print b(i);

    Next

    Print

    For i = 1 To 9

        If b(i) > Max Then

            Max = b(i)

        End If

    Next

    Print "数组b中最大数是" & Max

    End Sub

    Private Sub Form_Click()

    Print "数组a的数有:";

    For i = 1 To 9

    a(i) = Val(InputBox("请输入第" & i & "个数"))

    Print a(i);

    Next

    Print

    End Sub


    十、奇偶排序。

    随机生成9个数(范围为1~99)的数列,输出在窗体上,新数列的规则是:序列左边是奇数,序列右是偶数,奇、偶数分别从序列的两端开始依次向序列中间排放。

    答案:

    Private Sub Form_Click()

    Dim a(1 To 9)

    Dim b(1 To 9)

    Randomize

    Print "原序列是:";

    For i = 1 To 9

        a(i) = Int(Rnd * (100 - 1 + 1) + 1)

        Print a(i);

    Next

    Print

    Print "新序列为:";

    For i = 1 To 9

        For j = 9 To i + 1 Step -1

        If a(i) Mod 2 = 0 And a(j) Mod 2 <> 0 Then

            t = a(i)

            a(i) = a(j)

            a(j) = t

           End If

        Next

        Print a(i);

    Next

    End Sub


    总结:

    这是我发的第三份VB练习题,有同学能在不看答案的情况下能把三份的题全部做出来,说明你的VB这一块非常强了,在班级里应该是大神级的人物,考试对于你来说就是送分题。

    当然有些基础不是很好,有些题是做不出来的同学也不要灰心,但是一定要去多自己尝试着做,别看一下题目就去看答案,这是没有用的。实在是想不出来的情况下在看看答案,理清答案的做题思路。千万不要去背答案哦,要理清答案思路,以后碰见了类似的题能自己做出来。

    我在做这些题的时候是没有答案的,这些题的答案是我自己想出来的,我遇到了难题都是考自己想出来的,有些难题我花了一两个小时才写出来。

    一开始我也是做题比较慢,经过不断的练习,做题速度就慢慢快了起来。

    因为我发的题都是一些比较难的综合题,不会做也很正常,当然要是会做,那就更好了。

    遇到一些不懂的地方可以私信或者评论哦!

     

    展开全文
  • VB程序设计 第四版 课后答案 doc格式 蒋加伏·张林峰主编

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 76,476
精华内容 30,590
关键字:

vb程序设计

友情链接: Desktop.rar