《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 1.掌握数组的声明、数组元素的引用。 2.掌握固定长度数组和动态数组的使用差别。 3.掌握数组常用的操作和常用算法。 4.掌握列表框和组合框的使用。 5.掌握自定义类型及数组的使用。 四、实验内容 1.随机产生30—100 （包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。 2.随机产生20个学生成绩，统计各分数段人数。即0~59、 60~69、 70~79、80~89、90~100,并显示结果。
五、实验步骤 1.打开VB界面，建立工程 2.在窗体窗口设置界面 3?属性窗口控件对象属性设置 4.编写程序代码 5?运行程序及调试 6?程序建立，保存工程文件六、实验结果 第1题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val
If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)
VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r
【vb选择结构程序设计】选择结构程序设 计 [1]教学目的： 1、让学生了解选择结构程序 2、掌握逻辑量的概念 3、掌握关系表达式和逻辑表达式 4、了解IF 语句 [2]教学重点：选择结构程序和关系表达及逻辑表达式 [3]教学难点：选择结构程序的掌握 [4]教学方法：引入法 [5]教学工具： [6]教学内容： 教师活动 学生活动 引入： 例子1、从键盘输入一个数，如果是正数则输出这个数，否则输出信息“这个数是负数”。 例子2、用程序编写一个求学生的六门课程六课程的的平均成绩和总分的程序。 例子3、用程序编写一个二元一次方程的根（△>=0） 例子4、把10个职工的工资和打印出来
提问5：如果求1+2+3+4+5+……+100的和怎么办呢？ 提问6：如果求一个班所有学生的六门课程的平均成绩 提问7：如果所求方程的没有实根又怎么办呢？ 提问8：如果要我们打印100个职工的工资又怎么办呢？ 老师得出答案：这就不是顺序结构程序所能解决了。我们在前面已经学过选择结构，提醒学生回忆一下选择结构的流程图图略： 为了能很好的掌握选择程序结构的设计，先了解一些选择程序的基础。 学生做1 学生做2： 学生做3： 学生做4： 学生回答5 学生回答6 学生回答7 学生回答8 一、关系表达式和逻辑表达式 1、逻辑量的概念 逻辑量：在QBASIC中用-1，0，即真和假的表达法。 何时用到：在关系表达式中和逻辑表达式中用到。 当结构为真时是-1，结果是假时为0
例1：X+Y>Z当成立时为真即为-1， 当不成立时为假，即为0 例2：在例中： IFX>0 THEN PRINT X 2、关系运算符和关系表达式 关系：即运算量的关系。六种。>= 关系表达式：即用关系运算符把运算量联接起来的式子。例：A>B, X>=Y, MN等。例：X=Z 注意：赋值符号和关系符号要区分开。 LET A=5 B=A PRINT B=A，B，A 3、逻辑运算符号和逻辑表达式 逻辑运算符：NOT非AND与OR或 1）NOT即对某个运算量的逻辑值取反。 如：A>B为真时，则 NOT A 等于假 程序： A=3 B=4 PRINT A，B，NOTA>B,NOT AB THEN PRINT A
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：
S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】
程序设计基础 实验报告 实验编号 1905B000201 实验名称顺序结构 实验地点软件技术实验室（2） 班级19软嵌2班 学号 姓名
一、实验目的： 1、掌握编程环境的使用 2、掌握基本数据类型、变量的定义和赋值； 3、掌握输入输出语句 4、理解顺序结构的使用 二、实验内容： 问题1： 源代码： #include
printf("%d*%d=%d\n",num1,num2,mul); printf("%d/%d=%.2f\n",num1,num2,shang); printf("%d%%%d=%d\n",num1,num2,yushu); return 0; } 输入：5 3 结果： 问题2： 源代码： #include
第一章 1 从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于Visual Basic"方法"的概念错误的是方法是对事件的响应 6在Visual Basic中，称对象的数据为属性 7Visual Basic应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000 2 利用Ctrl + G操作可以打开立即窗口。 3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在Visual Basic中，窗体文件的扩展名为FRM 6 窗体的Name属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值 为* 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture属性的对象 14 窗体的Name属性指定窗体的名称，用来标识一个窗体 15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章 1用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。 2下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A）数字开头，关键字，* 3X是小于100的非负数，用VB表达式表达正确的是0<=X and X<100 4设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 5表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25 为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于 0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如： 5\2.5等价于5\2 5\2.6等价于5\3 6函数String(n，"str")的功能是返回由n个字符组成的字符串 7设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=1 8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。 9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③①
VB选择结构程序设计教学案例 摘要："选择结构"是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时，主要内容是用选择结构编写简单的程序 关键词：程序设计 《VB选择结构程序设计》教学案例 江山职教中心计算机组吴建浩 【案例背景】 中等职业学校的Visual Basic程序设计是让学生学会一种较为简单的程序设计语言，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何进行更有效地开展新课程教学，成为老师们迫切认识的话题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。 【教材分析】 程序控制结构是中等职业学校计算机专业中必修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是高等教育出版社出版的中等职业学校计算机应用与软件技术专业教
学用书,程序控制结构中的选择结构是第四章第三节的内容,共分三课时,本课为第一课时.主要内容是用选择结构编写简单的程序。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高二的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项： 1、知识与技能：（1）掌握分支选择结构实现条件判断控制。 （2）能够运用分支选择结构设计编制程序解决问题。 （3）培养学生的逻辑思维能力，促进学生对问题解决方法的理解。 2、情感态度：通过趣味性教学，使同学们保持高涨的学习兴趣，在操作的同时获得成功的喜悦。 【教学重点难点】 教学重点：让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 教学难点：对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。 教学关键点：利用学生已经掌握的数学知识，引导学生综合VB的三种程序结构，努力发挥学生的研究性学习能力，培养学生创造性思维和综合运用知识的能力。 【教学过程】
1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5
台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub
卓资县职业中学实训学案 班级_____姓名_________科目： VB 程序设计主备：闫森审核：日期： 课题：选择结构程序设计实际应用（2） 实验目的： 1、掌握If语句的使用。 2、掌握Select Case语句的使用。 实验内容与过程 说第一步：独学（请同学们独立完成以下任务） 知识回顾： 1、单分支条件语句格式：①IF <表达式> THEN 语句块 End If ②IF <表达式> THEN 语句块 2、双分支条件语句格式： IF <表达式> THEN 语句块1 Else 语句块2 End If 任务1(基本设计题) 题目：一般网络游戏只允许成年人进入，你来编写一个根据 明 ： 本 节 课 只 完 成 任 务 1 和 任 务 2 的 题 目 要 求 及 问 年龄判断是否成年的小程序。（规定成年人年龄>18周岁） 请你根据题意，利用双分支条件语句格式2种方法（单行和 多行）编写程序代码，并上机测试。 设计界面如下： 编写程序代码：
题 。课后作业下次实训务必完成。第二步：合作（问题）探究（对学、群学） 任 务 2. （ 提 高 设 计 题） 在 “ 神州号”程序中，需要判断飞船飞行状况。当飞船速度继续 加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试 编写程序，输入不同的飞船速度V，判断它的各种飞行状况， 显示出来 飞船速度V 单位 （km/s） 飞行状况情况 程序界面如下： 补充程序代码： Private Sub command1_click() Dim V AS single, n AS integer V= VAL(InputBox(“SPEED=”,”输入速度”)) <=V< 1--Move around Earth飞船绕 地球做匀速圆周运动 1 11 19<=V< 2--Move around SUN飞船离开 地球的控制 ,围绕太阳转 2 V> 3--Break gravitate of solar 飞船挣脱太阳引力飞出太阳 系 3 其它警告出错信息0
《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
顺序表的应用数据结构实验报告记录
————————————————————————————————作者：————————————————————————————————日期：
大学数据结构实验报告 课程名称数据结构实验第（三）次实验实验名称顺序表的应用 学生姓名于歌专业班级学号 实验成绩指导老师（签名）日期2018年9月30日一、实验目的 1．学会定义线性表的顺序存储类型，实现C程序的基本结构，对线性表的一些基本操作和具体的函数定义。 2．掌握顺序表的基本操作，实现顺序表的插入、删除、查找以及求并集等运算。 3．掌握对多函数程序的输入、编辑、调试和运行过程。 二、实验要求 1．预习C语言中结构体的定义与基本操作方法。 2．对顺序表的每个基本操作用单独的函数实现。 3．编写完整程序完成下面的实验内容并上机运行。 4．整理并上交实验报告。 三、实验内容： 1．定义一个包含学生信息（学号，姓名，成绩）的顺序表，使其具有如下功能： （1）根据指定学生个数，逐个输入学生信息 （2）逐个显示学生表中所有学生的相关信息 （3）根据姓名进行查找，返回此学生的学号和成绩 （4）根据指定的位置可返回相应的学生信息（学号，姓名，成绩） （5）给定一个学生信息，插入到表中指定的位置 （6）删除指定位置的学生记录 （7）统计表中学生个数 四、实验设计 1．定义一个包含学生信息（学号，姓名，成绩）的顺序表，使其具有如下功能： （1）根据指定学生个数，逐个输入学生信息 for(count=0; count 南京工程学院实验报告 操作的函数程序清单，分别用顺序表和链表结构完成，并在首页上表明团队名称、成员及个人的工作（函数），未来的成绩评定时将包含这一部分的团队成绩及个人的工作成绩。 一、实验目的 1.熟悉上机环境，进一步掌握语言的结构特点。 2.掌握线性表的顺序存储结构的定义及实现。 3.掌握线性表的链式存储结构——单链表的定义及实现。 4.掌握线性表在顺序存储结构即顺序表中的各种基本操作。 5.掌握线性表在链式存储结构——单链表中的各种基本操作。 二、实验内容 1.顺序线性表的建立、插入及删除。 2.链式线性表的建立、插入及删除。 三、实验步骤 1.建立含n个数据元素的顺序表并输出该表中各元素的值及顺序表的长度。 2.利用前面的实验先建立一个顺序表L={21，23，14，5，56，17，31}，然后在第i个位置插入元素68。 3.建立一个带头结点的单链表，结点的值域为整型数据。要求将用户输入的数据按尾插入法来建立相应单链表。 四、程序主要语句及作用（main函数程序清单） 程序1的主要代码(附简要注释) #include A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")数据结构实验报告
VB编程常用代码 大一练习专用
相关主题
文本预览