VB实验7
《程序设计基础—VB程序实验》
《程序设计基础—VB程序实验》说明:实验1和实验2均为电子实验报告,后面8个实验是纸制实验报告。
实验1 计算机基本操作实验目的⑴熟悉计算机,能够正确进行开、关机操作。
⑵熟悉键盘,掌握键盘上所有字符的输入,掌握正确的指法,能够进行中、英文切换。
⑶理解操作系统概念,掌握Windows XP的基本操作,能够利用“控制面板”进行一些参数的设置。
⑷知道“回收站”的功能,学会有关文件、文件夹的基本操作。
⑸学会在计算机上搜索或查找相关的文件或文件夹,掌握通配符的使用。
实验内容⑴熟悉上机实验的计算机,熟悉键盘,学会中、英文输入方式的转换。
⑵学会用正确的指法进行输入,知道键盘上所有字符的输入。
⑶利用“控制面板”修改系统时间、桌面背景、鼠标属性。
⑷在桌面上新建一个文件夹,该文件夹以学生自己的名字+班级+学号的后3位命名。
⑸用文本方式或Word文档,写一段字数不少于300字的自我介绍,以1.doc命名并保存到上述文件夹中。
⑹将上述文件夹复制到ftp://10.10.9.222上。
实验2 常用软件的基本操作实验目的⑴了解Word功能,掌握Word的基本操作,包括页眉/页脚的设置、分栏、页面设置、添加底纹等。
⑵学会文件的保存与打开、打印预览、段落的间隔、首字符位置改变等,能够在Word中插入图片、表格、艺术字、特殊符号等。
⑶了解Excel的功能,掌握Excel的基本操作,包括单元格属性的设置、数字的几种填充形式、单元格的合并与恢复、边框的设置等。
⑷掌握Excel的基本公式的使用,能够用公式进行基本计算。
掌握Excel中的图形制作方法,能够根据表格做出图形。
实验内容⑴将ftp上自己文件夹中的1.doc文件复制到桌面上,然后做如下处理:①将标题“自我介绍”居中;②将文章中第二段的内容进行分栏,要求中间有分割线;③插入一个4行4列的表格,内容为学号、姓名、某门课的成绩;④任意插入一张图片;⑤在文章中的任意位置加底纹。
将做好的文档以2.doc命名并保存。
实验七 串音现象
實驗七串音現象ㄧ、原理說明串音(crosstalk)一種訊號干擾現象,發生於相鄰佈線訊號間的電磁耦合,然後影響到彼此的訊號大小。
主要是兩相鄰導體之間所形成的互感與互容所造成的影響,透過互感或互容將能量轉移至鄰近訊號線上,隨著印刷電路板的繞線佈局密度增加而益顯嚴重,尤其是長距離匯流排的佈局或是頻率成分很高的訊號,更容易發生串音的現象,如圖7.1所示,顯示串音經由電磁耦合將能量傳到鄰近的佈線上造成訊號干擾。
圖7.1 串音現象這種經由互感與互容將能量由一個傳輸線耦合到相鄰的傳輸線上,依發生位置可以區分為近端串音(near-end crosstalk)或逆向串音(backward crosstalk)及遠端串音(far-end crosstalk)或順向串音(forward crosstalk)。
圖7.2為兩傳輸線發生串音的示意圖及其等效電路圖,兩平行線長度為l,驅動線(Driver line)上傳送一正緣的脈波(positive-going edge ),假定在x點經由互容Cm及互感Km會在受干擾線(Victim line)上造成不必要的干擾訊號。
驅動線在x點透過互容Cm產生一個電流I c流到受干擾線上,此電流將分成兩個大小相等方向相反的電流朝向受干擾線上的兩個端點流走,而驅動線在x點也透過互感Km感應產生一個電流I L 流到受干擾線上,此電流在受干擾線之方向因Lenz’s定律其方向將與驅動線之電流方向相反,因此在受干擾線上將有I c/2-I L的電流遠端並且也將有的I c/2+I L電流朝向近端。
圖7.2 兩傳輸線發生串音的示意圖及其等效電路圖已經了解串音的現象後,開始來討論遠端及近端串音大小,圖7.3 說明在平行線遠端及近端串音的示意圖,假設在驅動端傳送一正緣脈波,在x1點將因互容及互感而在受干擾線上產生V b1的電壓朝向近端流動及V f1的電壓朝向遠端流動,另外在x2點也將產生V b2的電壓朝向近端流動及V f2的電壓朝向遠端流動。
大一vb的实验报告
大一VB的实验报告
实验目的
本次VB的实验目的在于:
1.学习VB的基础语法和编程思想。
2.熟悉VB语言的IDE开发环境,了解其界面、操作方式和功能。
3.通过实现一个简单的文本编辑器,进一步熟悉VB的编程技巧。
实验内容
界面设计
首先,我们需要对文本编辑器的界面进行设计。
我们采用VB自带的Windows Form进行界面设计。
Notepad-UI
Notepad-UI
如图所示,主要包括菜单栏、工具栏、编辑区和状态栏等四个部分。
功能实现
新建、打开和保存
首先,我们需要实现新建、打开和保存功能,这是每个文本编辑器都需要支持的基本操作。
我们可以通过使用VB自带的控件——菜单控件和文件对话框,快速实现这些功能。
```vb ’Tool Strip Menu Item - New File Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click If currentFile <>。
VB实验7 多重循环程序设计
实验7-2
目的和要求 预备知识
பைடு நூலகம்
【题目】
求素数。编写程序,输出100~300之间的所有素数, 要求按5个一行输出在图片框中。
上一页
下一页
退 出
第12页 Visual Basic程序设计实验指导
实验7-2
目的和要求 预备知识
【分析】
素数(质数)就是大于等于 2 ,并且只能被 1 和本身整除,不 能被其他整数整除的整数,如2、3、5、7、11等。 判断某数 m是否是素数的经典算法是:对于 m,从i = 2,3, 4,…,m1依次判别能否被 i整除,只要有一个能整除,m就不 是素数,否则m是素数。 数学上已证明,对于任一素数m,一定不能被大于 Int(Sqr(m)) 的 整 数 整 除 , 所 以 只 要 判 断 到 m 能 否 被 Int(Sqr(m))整除即可。 在本题中,为了找出100~300之间所有的素数,先设置一个 外循环,循环变量 m 即为判断的数,然后设置一个内循环,用于 判断素数。为了判断素数,程序中引入两个变量 i和Flag。i从2变 化到 Int(Sqr(m)) ,用于控制循环次数,如果 m 不能被 i 整除, 则i = i + 1;如果在本次循环中m能被i整除,则将Flag设置为0, 并且退出内循环。Flag用做标志变量,如果m始终不能被i整除, 则Flag不变化,即Flag = 1时,m为素数。
第19页 Visual Basic程序设计实验指导
上一页
下一页
退 出
实验7-4
目的和要求 预备知识
上一页
下一页
退 出
【实验步骤】 (1)界面设计 请参照图7-7所示的界面设计窗体。 (2)完善程序代码 (3)运行工程并保存文件 运行程序,观察程序运行结果,最后将窗体 文件保存为 F7-4.frm ,工程文件保存为 P74.vbp 。
VB实验--------所有实验题目
实验题目总体要求:本学期的所有的实验题目,希望同学们按如下步骤认真做,(1)先画出处理界面(窗体);(2)再给出处理步骤,(3)写出程序代码:可参考下面的例题:例如:设计程序,求1+2+3+...+N 的和值。
其处理过程是:(一)设计界面(在纸上画出界面,并注明各控件的名称):(二)处理步骤:单击命令按钮,按以下步骤处理(1)定义3个变量:N ,s ,x ,分别用于存放:输入的数值,和值,控制循环(2)将文本框1的值,提供给变量N ;(3)s=0(累加前,将变量s 初始化为0);(4)X=1(设置循环的开始值)(5) 当X<=N 时 重复执行S=s+xX=X+1(5)在文本框2中显示和值S(三)编写有关的代码:Private Sub Command1_Click()Dim n%,s%,x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1:TEXT1 文本框2:TEXT21:Command1标签1:Label1 标签2:实验一:用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2!+3!+4!+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二:表达式及其运算的实现(1次)1.设计一个程序,完成利用文本框输入任意两个数的乘法运算,并显示计算结果。
2.进一步完善程序,完成利用文本框输入任意两个数的加法、减法、乘法、除法运算,并显示计算结果,3.再进一步,改进,完成,利用随机函数,产生任意两个100到200之间的整数,并完成两个数的加法、减法、乘法、除法运算,并显示计算结果。
4.求方程AX+B=0的解。
VB实习第七章
实习内容:例题7-1以下程序段用来在C盘根目录下建立一个名为test.txt的顺序文件。
例题7-2某班30名同学学习成绩如表7-2所示。
建立一个名为“student.txt”的顺序文件存放该班同学的学习成绩,每条记录包括学号、姓名、高数、英语、物理、计算机刘向数据。
例题7-3对例题7-2中生成的“student.txt”文件记录进行如下处理:(1)计算每个学生的平均成绩。
(2)将平均成绩大于或等于80分的记录写入“student1.txt”文件中。
例题7-4统计例题7-3中生成的“student1.txt”文件中的记录数。
例题7-5将例题7-2生成的顺序文件“student.txt”读出,按随机方式写入随机文件“student2.txt”中。
例题7-6从随机文件“student2.txt”中读出数据,计算平均成绩,并将大于或等于80分的学生成绩写入另一个随机文件“student3.txt”中。
例题7-7以二进制模式建立一个数据文件,其中的内容是随机产生的100个大写字母。
例题7-8以二进制方式读取文件text。
Txt,并将结果显示在文本框中。
例题7-9编写一个复制文件的程序。
例题7-10编写一个加密软件,要求将源文件按“字节逐位倒排序加密法”,加密。
习题7-3把随机产生的200个4位整数存入顺序文件file1.txt中。
事件代码为:Private Sub Command1_Click()Dim a(1 To 200) As Integer, i%, n%, m%For i = 1 To 200a(i) = Int(Rnd * 9000 + 1000)Next iOpen "H:\VB实习\周晓伟\实验七\file1.txt" For Output As #1For m = 1 To 200Write #1, a(m);If m Mod 20 = 0 ThenPrint #1,End IfNext mCloseEnd Sub运行结果为:习题7-4从第三题的file1.txt文件中读出数据存入数组a中,从中挑选出所有各位和百位是偶数的数据存入数组b中,并存储到随机文件file2.txt中。
维生素H(VH)维生素B7(VB7)生物素检测
维生素H(VH)/维生素B7(VB7)/生物素检测
生物素(Biotin),又称为维生素H(Vitamin H)、维生素B7(Vitamin B7)、辅酶R,属于水溶性维生素,也是B族维生素之一。
是合成维生素C的必要物质,是脂肪和蛋白质正常代谢不可或缺的物质,是一种维持人体自然生长、发育和正常人体机能健康必要的营养素;同时,也是多种羧化酶的辅酶,在羧化酶反应中起CO2载体的作用。
此外,在科研上生物素可以用作核酸探针的标记物,能与核酸分子的UTP或dUTP5'位上的C相结合,并可与亲和素结合而被检测。
迪信泰检测平台采用高效液相色谱(HPLC)、液质联用(LC-MS)、生化法,可高效、精准的检测生物素的含量变化。
此外,我们还提供其他维生素检测服务以及维生素检测试剂盒产品,以满足您的不同需求。
样品制备
1)称取粉末样品20 mg;
2)加入10 mL盐酸溶液,震荡摇匀;
3)加入10 mL水,震荡摇匀;
4)将溶液定容到200 mL;
5)用0.45 μm的微孔滤膜过滤;
6)用HPLC检测。
HPLC和LC-MS测定生物素样本要求:
1. 请确保样本量大于0.2g或者0.2mL。
周期:2~3周
项目结束后迪信泰检测平台将会提供详细中英文双语技术报告,报告包括:
1. 实验步骤(中英文)
2. 相关质谱参数(中英文)
3. 质谱图片
4. 原始数据
5. 生物素含量信息。
vb用户界面设计实验报告(共9篇)
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中,没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时,表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000,Enabled属性为Ture,调用下面的事件过程,程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中,正确的是( )。
A. 通过适当的设置,可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时,必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中,错误的是( )。
A. 每个菜单项都是一个控件,与其他控件一样也有自己的属性和事件B. 除了Click事件之外,菜单项还能响应其他的,如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择8、在下列关于通用对话框的叙述中,错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中,用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中,用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时,变成灰色,禁止用户选择。
vb实验心得体会
vb实验心得体会VB实习心得体会论文(急..)“三分理论,七分实践”,这次上机实习,让我认识到了学习VB 的重要性,同时也对VB程序有了更加深入的理解。
在这个过程中我对VB的各种控件的属性和功能有了进一步的掌握,让我又熟悉了一门计算机语言。
这次实习让我对VB中的循环结构有了更深的认识,以前只是知道循环结构大概的框架,并不知道它是如何运行的,而这次我知道它的循环基理,而且还学会了在定义时候的一些小窍门,例如在多个Form 中都要用到的变量就可以将它定义为一个全局变量,放在一个标准模块里等等。
以前认为VB是一门比较简单的语言,现在我才明白他其实也并没有想象中的那么简单,而且比我们想象的还要复杂。
有些功能并不只是对控件的设置就能实现的,而必须要在代码中编写。
老师常说“编程就是一个不断发现错误的过程”,通过这次实习我也充分的认识到了这个事实。
不停的改错,不停的产生新的代码,不停的产生新的界面,不停的有了新的收获。
利用本次的实习我还对VB的知识又进行了一次复习,而且我还学到了不少新的知识,尤其是控件组的应用,着实给我的编程中带来了不少方便,例如编写代码的过程中,我们利用一个for循环就可以实现一个控件组的初始化,可以说是简单快捷。
但是万事总是利弊相随,在给我带来方便的同时当然也带来了一点麻烦,就是在对控件组中的控件进行属性的必要修改时,必须反复与窗体与代码之间,看好多遍才可以把它准确的改变。
不过只要你的控件组不是很大的话就不会带来多 -烦的,如果控件很多的话最好还是不要用,因为用了反而会增加很大的工作量。
还有就是我在程序设计过程中遇到了列表的问题,这一个问题真的把我难住了。
不过经过了与同学的交流与学习,最后我还是把它解决了,而且还学到了好多方法,例如用List的sorted属性就可以完成对成绩大小的排序,真的为我省了不少力。
在实习中我体会到了集体的智慧,让我从中学到了很多东西。
仅仅两周的时间,让我对VB甚至计算机语言产生了浓厚的兴趣,每次遇到问题,分析问题,到最后把问题彻底解决,每次都会学到很多课本上学不到的新知识与新的技能。
VB试验指导书
实验一Visual Basic集成开发环境和程序设计初步实验目的:1、了解Visual Basic系统对计算机软、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、了解Visual Basic集成环境的组成,各部分的作用。
4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
5、掌握常用控件(文本框、标签、命令按钮)的应用。
6、感性认识控件(对象)、过程、事件、属性等的概念,初步认识窗体、控件、属性、过程在程序设计中的作用和关系。
实验内容:建立一个“标准exe”类型的应用程序,要求单击“确定”按钮,在屏幕上显示“您好,世界!”,单击“退出”按钮,退出应用程序。
界面如图1-1所示,以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。
1-1 图实验准备:应用程序建立VB1) VB集成化开发环境 2) 复习相关知识:1.准确写出两事件代码,列出各控件所需属性(属性项目和属性值)。
2.实验步骤:中文版的启动与退出。
1.Visual Basic 6.0 启动:Microsoft Visual Basic 6.0)单击“开始”按钮,然后选择“程序”中“1 中文版”,单击即可。
中文版”图标,Microsoft Visual Basic 6.0或:单击桌面上“ exe”按钮,进入环境。
)新建工程对话框,单击打开“标准2--退出:1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计:(1)添加标签Label1。
(2)添加命令按钮Command1。
(3)添加命令按钮Command2。
(4)使用格式菜单,使用两命令按钮尺寸完全一样,并恰好处在窗体的中间位置。
3.设置界面对象属性:可以通过用鼠标右键单击某一窗体或控件,在弹出的菜单中为其设置属性,也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”,名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”,名称属性为“Cancel”。
VB实验及答案
对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值 象限判断 判断 X= Y=
(3)编写事件代码: Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
(4)程序的运行及保存。 4 求圆的面积及圆柱体的体积,界面如图 2-3 所示。
【步骤】 (1)设计应用程序的界面:在窗体上创建两个命令按钮 Command1 和 Command2,四个标签 Label1、Label2、Label3 和 Label4,四个文本框 Text1、Text2、Text3 和 Text4。 (2)设置对象的属性
【步骤】
( 1 ) 在 窗 体 中 创 建 一 个 标 签 Label1 、 一 个 命 令 按 钮 Command1。
(2)在属性窗口中设置对象的属性:
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
(3)在 Command1 的 Click 事件中编写程序代码:
x = Val(Text1) y = Val(Text2) If x > 0 Then
VB实验报告1-9
实验一:设计简单的VB 应用程序一、实验目的1.掌握Visual Basic 启动和退出的方法。
2.熟悉Visual Basic 的集成开发环境。
3.掌握Visual Basic 程序设计的基本步骤,了解VB 程序的编写、保存和编译的方法过程。
4.初步了解几个常用基本控件控件(标签、命令按钮和文本框)的使用方法。
二、实验类型综合三、实验时间:2013-3-8四、实验任务1、启动Visual Basic ,然后创建一个“标准 EXE ”工程(保存在D 盘以自己学号命名的文件夹中,文件名和窗体名均为SJT ),并了解Visual Basic 集成开发环境下各组成部分及其作用。
2、编一程序,计算任意输入的正整数的平方根。
3、编写一个应用程序,界面如图1-1所示。
窗体中文字“VB 应用程序!”为一标签控件,单击标题为“放大”的命令按钮,则“VB 应用程序!”的字号放大一号,单击“缩小”按钮则反之;同时,窗体中还有4个含某种指向图案的按钮,若单击某个按钮,则使“VB 应用程序!”向该按钮所指向的方向移动50Twip 。
(提示:四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到,名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico )五、实验要求 写出实验报告,内容是:1、第1小题的操作步骤2、第2、3题1).程序的界面设计。
2).程序主要代码。
3).运行结果(输入与输出)。
4).实验总结。
(写上你自己的总结。
可以从以下几个方面来总结:你在编程过程中花时多少?时间是怎么分配的?多少时间在思考问题?遇到了哪些难题?你是怎么克服的?你对你的程序的评价?你的收获有哪些?)图1-1 实验1-2程序运行实验二:数据的输入和输出一、实验目的1.掌握常量和变量、表达式的基本概念和正确书写格式。
2.掌握基本语句(Print语句、赋值语句、Dim语句等)的使用;3、掌握常用函数的正确使用方法;4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。
电子配对法(VB法)
价键理论离子键理论能很好地说明离子化合物的形成和性质,但不能说明由相同原子组成的单质分子(如H2、Cl2、N2等),也不能说明不同非金属元素结合生成的分子,如HCl、CO2、NH3等和大量的有机化合物分子形成的化学键本质。
1916年美国化学家路易斯(Lewis)为了说明分子的形成,提出了共价键理论,初步揭示了共价键与离子键的区别,随后的50年里共价键理论迅速发展。
1927年海特勒(Heitler)和伦敦(Londen)用量子力学的成就,阐明了共价键的本质,后来鲍林等人发展这一成果,建立了现代价键理论(Valencebond theory,缩写为VB)也称电子配对法和杂化轨道理论以及价层电子互斥理论。
1932年美国化学家密立根(Millilcan)和德国化学家洪特提出分子轨道理论(molecular-orbota,theory,缩写MO)。
价键法是从处理氢分子结构推广得来的;分子轨道法是用薛定谔方程处理氢分子离子H2+的结果为基础发展起来的。
它们在解释分子结构方面各有所长。
【路易斯的经典共价学说】路易斯认为分子中原子之间可以通过共享电子对而使每一个原子具有稳定的稀有气体结构。
原子通过共用电子对而形成的化学键称为共价键。
两个原子间共用一对电子的共价键称为单键,共用二对电子的称为双键,共用三对电子的称为叁键。
分子中两原子间共享电子对的数目叫键级,原子单独拥有的未成键的电子对称为孤对电子。
共价分子中两个成键原子的核间距称键长。
化学键结合的强弱用键能表示。
下面所表达的电子结构统称为Lewis结构。
路易斯结构式的写法规则又称八隅体规则(即8电子结构)。
至今简单分子的Lewis结构式仍为化学家采用。
其写法规则归纳如下:①、根据分子式或离子式计算出总的价电子数目。
多原子阴离子的价电子总数为各原子的价电子数之和再加上负电荷数;多原子阳离子则必须从各原子的价电子数之和减去阳离子电荷数;②、画出分子或离子的骨架,用单键将原子连接起来。
VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错,类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1), 1, 1A(1, 1), 1, 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录!"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
VB上机复习
实验一补充习题1.打开工程文件Dsg0103.vbp,在标题为“数值运算”的窗体Form1上,添加一个标题为“请输入整数n”的标签Label1;然后再添加二个文本内容为空的文本框Text1和Text2;最后添加一个标题分别为“立方根”命令按钮Command1。
程序运行时,在Text1中输入一个正整数n,单击“立方根”按钮,在Text2中Text1中输入数字的立方根,运行界面如下图所示。
完成上述功能后,以原文件名保存窗体(Dsg0103.frm)和工程(Dsg0103.vbp)。
实验二补充习题1.打开工程文件Dsg0202.vbp,在标题为“平均成绩”的窗体Form1上,添加三个标题分别为“语文成绩”、“数学成绩”和“英语成绩”的标签Label1、Label2和Label3;然后再添加一个标题为“平均分”的命令按钮Command1;最后添加四个文本内容为空的文本框Text1、Text2、Text3和Text4,其中Text4的文本内容不可编辑。
程序运行时,在Text1、Text2和Text3中分别输入3门课的成绩,单击“平均分”按钮,计算它们的平均成绩,并在Text4中输出计算结果(保留2位小数),运行界面如下图所示。
完成上述功能后,以原文件名保存窗体(Dsg0202.frm)和工程(Dsg0202.vbp)。
Dim a As Single, b As Single, c As Single, s As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)s = (a + b + c) / 3s = Format(s, "0.00")Text4.Text = s实验3补充习题2.打开工程文件Dsg0302.vbp,在标题为“坐标象限”的窗体Form1上,添加两个标题分别为“坐标x”和“坐标y”的标签Label1和Label2;然后再添加三个文本内容为空的文本框Text1、Text2和Text3;最后添加一个标题为“判断”的命令按钮Command1。
VB经典例题(附答案)
实验4:编写一个程序。
要求在窗体内设置7个标签(Label)及7个文本框(TextBox),将每个标签的Text属性值设置为如下表达式。
在程序运行时,单击窗体空白区,可在对应的文本框中输出这些表达式的值。
1)8*3*6\22)7/6*3.2/2.15*(5.5+3.5)3)34\4+4.0^5/124)65\3 mod 3.4*fix(3.8)5)“abg”+”34” & “erert”6)true or not (8+3>=23)7)7>2 or 4<9实验目的:学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5:编写一个程序。
设a=2,b=3,c=4,d=5,S="ABCDEFGHI]K",求下列表达式的值:(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的:学习VB中函数的使用。
vb实验指导书上的联系
Label1.Caption = "+"
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1) - Val(Text2)
Label1.Caption = "-"
Next j
Print d
End Sub
实验5\实验五做一做6
Private Sub Command1_Click()
Text1.FontSize = 48
End Sub
Private Sub Command2_Click()
Text1.FontSize = 8
End Sub
j = j + 1
ElseIf w = " " Then
j = j
l = l
Else: l = l + 1
End If
Next i
Print "元音字母的数目:"; j
Print "其他字母的数目为:"; l
End Sub
实验7\实验七做一做1
Private Sub Form_Click()
y = (1 - x) * (2 - x)
Else: y = x - 2
End If
Label1.Caption = "Y=" & y
End Sub
实验6\实验六做一做3
Private Sub Text1_Change()
VB程序设计教案
VB程序设计教案《VB程序设计》课程教案2008~2009学年第二学期适用班级: 自动化086班教研室: 自动化教研室任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、2 班次日期班次日期班次日期基本课题:第1章程序设计的基本知识目的要求:要求学生掌握程序设计的基本知识,了解程序设计的有关概念。
重点难点: 重点: VB的特点难点: 程序设计的概念教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程介绍二、教学过程:第1章程序设计的基本知识1.1Visual Basic的集成开发环境1.1.1 Visual Basic的集成开发环境概述1.1.2 窗体设计器1.1.3 代码窗口1.1.4 工程资源管理窗口1.1.5 属性窗口1.2Visual Basic应用程序开发基础三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、3 班次日期班次日期班次日期基本课题:第2章设计最简单的VB应用程序目的要求:要求学生掌握程序设计方法。
重点难点:重点:VB的运行环境及设计方法难点:设计简单的VB程序教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程回顾二、教学过程:第2章设计最简单的VB应用程序开发Visual Basic应用程序的步骤是什么,如何在窗体上添加一个标签,三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、9 班次日期班次日期班次日期基本课题:第3章窗体目的要求:要求学生掌握窗体及多窗体的设计方法及属性的设置重点难点:重点:多窗体难点:多窗体的设计教学方法:讲授教具挂图:无授课过程与内容(最后按课时或单元写课后分析):一、课程回顾二、教学过程:第3章窗体3.1窗体设计举例3.2多窗体3.3属性、事件和方法的概念3.4窗体属性3.5事件三、小结四、思考题教研室主任(签字) 任课教师: 张红丽黑龙江建筑职业技术学院课时授课计划班次自动化086 日期 09、3、9 班次日期班次日期班次日期基本课题:实验1 窗体目的要求:要求学生掌握窗体及多窗体的设计方法及属性的设置。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
实验7 过程程序设计实验目的:1.掌握通用过程的定义和调用2.掌握函数过程的定义和调用3.掌握通用过程的递归调用4.掌握实参和形参按值传递和按地址传递的不同用法,明确不同实参数据类型具有的不同传递形式5.明确过程级、窗体级和模块级变量的作用域和特点,能够根据具体情况使用全局和局部变量6.掌握Sub过程调用时的两种格式,语句格式和命令格式实验7.1求最大最小值实验任务:分别编写子过程Min(a() As Integer,m As Integer)和函数Max(a() As Integer) As Integer,子过程用于求一维数组a中的最小值,函数用于求其最大值。
要求:1.主调程序随机产生10个200~300之间的整数,调用子过程和函数后,在主调程序中显示最小值和最大值。
2.子过程和函数中不允许有多余的参数实验7.2成绩排序实验任务:编程排列八名运动员100米径赛成绩的名次。
当成绩相同时,运动员的名次相同。
1至8号运动员的成绩分别为:12.12,11.25,11.13,10.89,14.09,13.56,12.01,11.13。
提示:本题的解决难点并不在排序,我们可以很轻松地用冒泡排序法或选择排序法进行成绩从小(快)到大(慢)的排列。
问题是排序后的成绩对应于哪一个运动员,恐怕用一维数组是无法记录的。
因此我们可以定义一个二维数组cj(8, 2) As Single,其中第一列存放运动员的成绩,第二列存放成绩对应的运动员号。
排序针对数组的第一列进行,产生交换时不仅要交换第一列的数组元素,还要交换对应的第二列的数组元素,这样运动员的编号就能跟着成绩“跑”了。
在输出名次时也要注意成绩相同名次相同的问题,在这里名次并非简单地和一维下110111标一致。
所以应该定义两个变量p 和j ,p 表示名次,j 表示有几个人(从1到8)。
当没有重复成绩时,p 和j 一样(1-8名);当有重复成绩时,p 值就不变,保持前一个人的名次,直到出现不同成绩,p 值又与j 值一样了。
名次的计算还有其他方法,这里只介绍了这种较为简单的算法。
实验步骤:1.按照图7-1进行界面设计,运动员成绩在列表框1的List 属性中输入,如图7-2所示,排名结果在列表框2中输出。
2.完善程序: Option ExplicitPrivate Sub Command1_Click() Dim cj(8, 2) As SingleDim i As Integer, k As Integer Dim pro As String List2.Clear For i = 1 To 8cj(i, 1) = List1. '从列表框中取出运动员的成绩 cj(i, 2) = i Next iCall Sort(cj) Call OutPut(cj) End Sub图7-1成绩的输出图7-2 成绩的输入Private Sub Sort(cj() As Single)Dim temp As Single, i As Integer, j As Integer'填入一段排序程序代码。
注意交换运动员____________________ 成绩的同时,也要交换运动员的号码。
End SubPrivate Sub OutPut(cj() As Single)Dim j As Integer, p As Integerp = 1List2.AddItem "第1名:" & cj(1, 2) & "号成绩:" & cj(1, 1)For j = 2 To 8If ThenList2.AddItem "第" & p & "名:" & cj(j, 2) & "号成绩:" & cj(j, 1) Next jEnd SubPrivate Sub cmdExit_Click()EndEnd Sub3.保存文件,调试运行。
实验7.3删除字符串实验任务:编一子过程DeleStr(s1,s2),将字符串s1中出现的s2子字符串删去,结果还是存放在s1中。
例如:s1="12345678AAABBDFGl2345",s2="234",结果:s1="15678AAABBDFGl5"提示:1.在s1字符串找s2的子字符串,可利用InStr()函数,要考虑到s1中可能存在多个或不存在s2字符串,用Do While Instr(s1,s2)>0循环结构来实现。
2.若在s1中找到s2字符串,则通过Left()、Mid()函数的调用实现删除s1中存在的s2字符串,然后再返回判断现在的s1内是否还包含s2。
112实验7.4 逆序输出实验任务:编程将任意一个四位正整数逆序输出出来。
如输入1234,输出为4321。
要求编写过程Judge(参数自定)判断输入是否为四位的正整数,如果不是要求重新输入;过程Rever 实现逆序组合。
提示:该题可以采用两种解决方法。
方法一、将正整数按位拆成单个数字后逆序组合。
如四位正整数x的千位数a为:x\1000,百位数b为:x\100-a*10,以此类推获得十位数c和个位数d。
那么逆序数为:d*1000+c*100+b*10+a。
图7-3逆序数方法二、可以将正整数当成字符串处理,用mid函数将字符串分解后重新组合即可。
实验步骤:1.在窗体上放置两个Label控件、两个TextBox控件和两个CommandButton控件,如图7-3所示。
1133.完善程序Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdRever_Click()'方法二Dim y As String,s As StringDim flag As Integers = txtInput.TextCall Judge(s, flag)If flag = 1 ThenCall Rever(s, y)txtRever.Text = yElseMsgBox ("数据错误,请重新输入!")txtInput.Text = ""txtInput.SetFocusEnd IfEnd SubPrivate Sub Judge(s As String, flag As Integer)Dim i As Integer_____________For i = 1 To 4If Mid(s, i, 1) > "9" Or Mid(s, i, 1) < "0" Then___________Exit ForEnd IfNextEnd SubPrivate Sub Rever(s As String, y As String)_________________ '填入一段程序代码114End Sub4.保存文件,调试运行。
思考:如何实现方法一?试一试。
实验7.5合并数组实验任务:从键盘读取数组a和b的元素(各5个),a,b都是严格递增的(即元素从小到大排列,且无重复元素)。
将a、b合并成数组c,使c也严格递增。
若a、b中有相同的元素时,只保留一个。
最后输出数组c。
要求编写通用过程Output在窗体上打印数组元素。
提示:a、b两个数组是严格递增的数组,要实现严格递增的合并,可以定义三个整型数p、q、r,分别担任指向数组a、b、c下标的指针,它们的初值均为1。
在合并过程中可能出现以下三种情况:①a(p)>b(q),则c(r)=b(q);r=r+1;q=q+1②a(p)<b(q),则c(r)=a(p);r=r+1;p=p+1③a(p)=b(q),则c(r)=b(q)或c(r)=a(p);r=r+1;p=p+1;q=q+1若数组a(或b)全部合并到数组c中,即p=6(或q=6),则结束比较,将数组b(或a)剩下的所有元素依次复制到数组c中。
因为a、b数组中可能出现相同的数,则数组c 元素个数不定,可以采取动态定义的方式。
调试程序时数组a、b的元素分别为:4,6,8,16,212,8,9,21,30实验步骤:1.在窗体上放置三个CommandButton控件,具体布局略。
3.完善程序:Option ExplicitOption Base 1Dim a(5) As Integer, b(5) As Integer, c() As IntegerPrivate Sub cmdInputa_Click()115Dim i As IntegerFor i = 1 To 5a(i) = InputBox("输入数组a(" + Str(i) + ")")Next iPrint "数组a:"Call output(a)For i = 1 To 5b(i) = InputBox("输入数组b(" + Str(i) + ")")Next iPrint "数组b:"Call output(b)End SubPrivate Sub output(d() As Integer)_______________ '填入一段程序代码输出数组,注意:这个过程被调用了3次。
End SubPrivate Sub cmdOutputc_Click()Dim p As Integer, q As Integer, r As IntegerDim i As Integerp = 1q = 1r = 1Do While ______________ReDim Preserve c(r)If a(p) > b(q) Thenc(r) = b(q)r = r + 1q = q + 1ElseIf a(p) < b(q) Thenc(r) = a(p)r = r + 1p = p + 1Elsec(r) = a(p)r = r + 1p = p + 1116q = q + 1End IfLoop'填入一段程序代码。
当某个数组已经全部放到c中,________ ________ 如何将另一数组的剩余元素放进c中。
Call output(c)End SubPrivate Sub cmdExit_Click()EndEnd Sub4.保存文件,调试运行。
实验7.6找幸运数实验任务:编程找出四位数中的幸运数,并统计幸运数的个数。