打印纸质

打印纸质 西安郵電學院 Visual Basic 6.0 课内#实验#书 学院名称 : 经济与管理学院 学生姓名 : 姚瑶 专业名称 : 工商管理 班 级 : 工商1001班 学号 : 01104013 实验目一:一元二次方程求根 一、实验目的 1 了解VB系统的安装，掌握启动与退出VB的，掌握建立、编辑和运行一个简单的VB应用程序的全过程，掌握建立、编辑和运行一个简单的VB应用程序的全过程，掌握基本控件(窗体、文本框、标签、命令按钮)的应用。 2 通过对一元二次方程的求根设计逐步掌握算法设计，界面设计，代码设计以及程序的运行过程。重点熟练掌握界面设计，学习如何进行代码设计。 二、实验内容 1 算法设计:1 开始 2 确定描述一元二次方程的三个系数a,b,c 3让计算机利用这三个系数并根据相应的公式计算出相应的根 X1,X2 4 两个根显示出来 5 结束 创建一个窗体，标题为“方程求根” 2 界面设计:1 2 在窗体上的相应位置放若干个标签，分别输入相应的标题 3 在标签后面各放一个文本框，用作输入系数和输出结果 4 在窗体的指定位置上放置三个命令按钮，使其执行相应功能 3 代码设计:这一部分内容基本就是抄书，英文代码很容易打错，有时候很小的 错误就导致程序无法运行。总之，光输入都不容易，更何况编写呢, 4 程序的运行过程:程序写好后，可是无论如何不能运行，只有推出一个功能可 以用，后来经过老师的指导和调试程序终于可以运行。原因 是自己命名，还有代码输入有问题，调试后正常运行。 此图为调试前的错误的图 5 退出程序 三、设计技巧及体会 1 第一次接触，不会编写代码，觉得很枯燥，实验课变成了word课，后来，经过认真研读课本，终于看明白了。 2 编写代码，光抄书都频频出错，所以一定要细心。 3 VB是一种计算机编程语言，所以需要经常上机实践练习。 保存工程之后不能正常打开，应该选择哪种打开方式? 4 最后，我有一个问题: 5 21世纪，对文盲的定义已经不局限于识别汉字，而是英语和计算机，作为新一代的邮电通信类大学的大学生，我们必须懂得计算机技术，掌握几种编程语言，以后，势必会越来越信息化，顺应时代发展的潮流，我们必须学好VB。 实验题目二:几种循环语句的应用 一、实验目的 1了解VB系统的安装，掌握启动与退出VB的方法，掌握建立、编辑和运行一个简单的VB应用程序的全过程，掌握建立、编辑和运行一个简单的VB应用程序的全过程，掌握循环语句的应用。 2 通过对掌握算法设计，界面设计，代码设计以及程序的运行过程。重点熟练掌握for--next语句和do--loop语句的应用。 二、实验内容 1 算法设计: 1开始 2确定实验目的:从键盘上任意输入一个数，编写程序，输出其 是否为素数。 3 最重要的是要添加一个计数器，从而输入任意数的因子个 数，然后用if语句输出其结果。 4 运行，显示结果 5 结束 2 代码设计: Private Sub form_click() Dim num%, i Dim counter num = Val(InputBox("a number")) For i = 2 To num - 1 If num Mod i = 0 Then counter = counter + 1 End If Next i If couter >= 1 Then Print num & "不是素数" Else Print num & "是素数" End If End Sub 在这里～我想说明一点～这是课堂上老师留的一个纠错题～对我循环语句的学习启发很大。老师检查作业时特别提醒我们的～就是编写代码时要注意格式～采用缩进式写法～该对齐的要对齐～该缩进的要缩进。在这个素数问题中～注意增加一个计数器～来记录输入数的因子个数。 3 添加监视，检查程序中的错误。 4 将错误的代码改正，再次运行，仔细观察每一步的运算，最终运算成功。 下面是我做的星星那道题的代码窗口和对象窗口: 星星问题中一定要注意～Print语句后要加分号～否则会导致运行结果错误。 下面是上课时候老师出的一道练习题的代码设计: 输出1—100之间所有的孪生素数: Private Sub Form_Click() Dim num%, i% Dim flag As Boolean Dim flag2 As Boolean For num = 2 To 100 flag = True For i = 2 To num - 1 If num Mod i = 0 Then flag = False Exit For End If Next i If flag = True Then num2 = num + 2 flag2 = True For j = 2 To num2 - 1 If num2 Mod j = 0 Then flag2 = False Exit For End If Next j If flag2 = True Then Print num & " " & num2 & "是孪生素数" End If End If Next num End Sub 定义四个变量～然后两个大循环中分别嵌套一个循环。当时没有做出来～对循环语句的掌握还十分欠缺。 三、设计技巧及体会 1 这节课里，做了好多程序，主要来练习循环语句的应用，老师布置的作业，还有书上的一些典型例题都实际操作了，循环语句的难点就在循环体上，编写代码时一定要细心。 2 书写格式一定要规范，否则程序会运行错误，要采用缩进式写法。3 在程序运行时学习使用调试工具可以省去很多调试时间，以后还得多上机练习。三种调试工具包括:单步运行，添加监视和设置断点。 4 我在同时学习两种编程语言:C语言和VB，其基本思想相同，但是还有好多不同之处，经常混淆，应该多加注意。 实验题目三:设计不同代码完成相同问题 一、实验目的 训练熟悉环境，掌握basic的三种基本语言，用不同的方法做题，添加监视看变 量的不同变化。 二、实验内容 程序设计及编码, 调试情况,运行结果，退出程序。 题目1:已知百分制百分制成绩mark，显示对应的五分制成绩 题目2: 计算1—100之间自然数的和 已知百分制百分制成绩mark，显示对应的五分制成绩，有以下五种做法: Private Sub form_click() Dim mark As Single Dim grade As Integer mark = Val(InputBox("请输入一个百分制成绩")) grade = mark \ 10 Select Case grade Case 10 Print "优秀" Case 9 Print "优秀" Case 8 Print "良好" Case 7 Print "中等" Case 6 Print "及格" Case Else Print "不及格" End Select End Sub Private Sub form_click() Dim mark As Single mark = Val(InputBox("请输入一个百分制成绩")) Select Case mark Case 90 To 100 Print "优秀" Case 80 To 90 Print "良好" Case 70 To 80 Print "中等" Case 60 To 70 Print "及格" Case Else Print "不及格" End Select End Sub Private Sub form_click() Dim mark As Single mark = Val(InputBox("请输入一个百分制成绩")) If mark >= 90 Then Print "优秀”" ElseIf mark >= 80 Then Print "良好" ElseIf mark >= 70 Then Print "中等" ElseIf mark >= 60 Then Print "及格" Else Print "不及格" End If End Sub Private Sub form_click() Dim mark As Single mark = Val(InputBox("请输入一个百分制成绩")) If mark < 60 Then Print "不及格" ElseIf mark < 70 Then Print "及格" ElseIf mark < 80 Then Print "中等" ElseIf mark < 90 Then Print "良好" Else Print "优秀" End If End Sub 以下分别是代码和对象窗口: 计算1—100之间所有自然数的和，也有以下五种算法: Private Sub form_click() Dim i%, sum% sum = 0 For i = 0 To 100 Step 1 sum = sum + i Next i Print sum End Sub Private Sub form_click() n = 1: sum = 0 Do While n <= 100 sum = sum + n n = n + 1 Loop Print sum End Sub Private Sub form_click() n = 1: sum = 0 Do Until n > 100 sum = sum + n n = n + 1 Loop Print sum End Sub Private Sub form_click() n = 1: sum = 0 Do sum = sum + n n = n + 1 Loop While n <= 100 Print sum End Sub Private Sub form_click() n = 1: sum = 0 Do sum = sum + n n = n + 1 Loop Until n > 100 Print sum End Sub 以下分别是代码和对象窗口: 三、设计技巧及体会 1 程序设计一定要细心，先定义变量，然后选择函数，算法，完成运算。 2 一定要注意数的类型，还有数字和字符的区别。 3 先定义变量，后使用变量，也可以进行变量的初始化。 4 正所谓“条条道路通罗马”，在VB中也是这样，一道题可以有很多种不同的 算法，注意各个语句的区别，多加练习，熟练掌握。用不同的方法做题可以 拓宽思路，对语句的掌握更为牢固。