VB实验二
《程序设计基础—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命名并保存。
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的解。
实验二 摄氏温度与华氏温度互转_Visual Basic程序设计实验指导_[共2页]
9 笔记:(请记录注意事项、纠错过程、经典代码等内容)
实验二 摄氏温度与华氏温度互转
【实验内容】
设计一个程序完成华氏温度和摄氏温度之间的转换。
【实验指导】
华氏温度和摄氏温度之间的转换公式如下。
摄氏转华氏:华氏 = 摄氏*9/5+32。
华氏转摄氏:摄氏
=(华氏-32)*5/9。
【界面设计】
界面设计如图2-3
所示。
Command1Label1
Label2
图2-3 界面设计
【属性设置】
设计阶段可以在属性窗口中设置控件的部分属性。
Form1的Caption 属性设置为“华氏摄氏温度转换”。
Form1的FontName 属性设置为“宋体”。
Form1的FontSize 属性设置为“四号”。
Form1的FontBold 属性设置为“True ”。
Label1的Caption 属性设置为“摄氏温度”。
Label2的Caption 属性设置为“华氏温度”。
Command1的Caption 属性设置为“摄氏转华氏”。
Command2的Caption 属性设置为“华氏转摄氏”。
Command3的Caption 属性设置为“清空”。
【代码设计】
' 一些控件的初始属性也可在窗体的Load 事件中设置。
VB软件误差理论实验
实验二 误差的基本性质与处理 一、实验目的了解误差的基本性质以及处理方法二、实验原理(1)正态分布设被测量的真值为0L ,一系列测量值为i L ,则测量列中的随机误差i δ为iδ=iL -0L (2-1)式中i=1,2,…..n.正态分布的分布密度()()222f δσδ-=(2-2)正态分布的分布函数()()222F e d δδσδδ--∞=⎰(2-3)式中σ-标准差(或均方根误差); 它的数学期望为()0E f d δδδ+∞-∞==⎰ (2-4) 它的方差为()22f d σδδδ+∞-∞=⎰ (2-5)(2)算术平均值对某一量进行一系列等精度测量,由于存在随机误差,其测得值皆不相同,应以全部测得值的算术平均值作为最后的测量结果。
1、算术平均值的意义在系列测量中,被测量所得的值的代数和除以n 而得的值成为算术平均值。
设 1l ,2l ,…,n l 为n 次测量所得的值,则算术平均值121...nin i l l l l x n n=++==∑ 算术平均值与真值最为接近,由概率论大数定律可知,若测量次数无限增加,则算术平均值x 必然趋近于真值0L 。
i v = i l -xi l ——第i 个测量值,i =1,2,...,;ni v ——i l 的残余误差(简称残差)2、算术平均值的计算校核算术平均值及其残余误差的计算是否正确,可用求得的残余误差代数和性质来校核。
残余误差代数和为:11n niii i v l nx ===-∑∑当x 为未经凑整的准确数时,则有1nii v==∑01)残余误差代数和应符合: 当1ni i l =∑=nx ,求得的x 为非凑整的准确数时,1ni i v =∑为零;当1nii l =∑>nx ,求得的x 为凑整的非准确数时,1ni i v =∑为正;其大小为求x 时的余数。
当1nii l =∑<nx ,求得的x 为凑整的非准确数时,1ni i v =∑为负;其大小为求x 时的亏数。
大学vb 实验作业2 简单控件的使用(一) - 副本
1、设计窗体。设计一个简单的计算器。参考界面如下:
2、设计窗体。参考界面如下:
要求:
1)将窗体背景设置为自己喜欢的颜色。
2)在窗体上添加一个标签控件,通过属性窗囗设置标签格式:
Caption:字体格式
Alignment:2—Center(居中)
Autosize:True(自动调整大小)
BorderStyle:1—Fixed Single(有边框)
要求:1)在文本框1输入内容时标题栏同步显示文本框1的内容。
2)文本框2获得焦点时显示文本框1内容的大写格式(Ucase函数)
3)文本框2失去焦点时文本框3显示文本框1内容的小写格式(Lcase函数)
4)双击文课给大家标注的属性。
6、验证教材P35[例1-9]和[例1-11]。
实验小结
实验名称
实验二简单控件的使用(一)
实验时间
第二周2013年9月11日3-6节、9月12日5-8节
实验目的
(1)进一步熟悉VB集成开发环境及程序设计的全过程。
(2)掌握基本控件窗体、标签、文本框、命令按钮的使用。
(3)掌握对象事件的应用。
(4)掌握顺序结构程序设计的方法。
实验环境
硬件:微型计算机
软件: Microsoft VisualBasic6.0
实验内容
3、设计窗体。设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下图,要求:(1)启动窗体后标题栏再显示“学生分数的统计”(2)没有计算出总分前,计算均分的命令按钮不可用,计算出总分后,计算均分的命令按钮才可用。(属性介绍见书P26表1-2)
4、设计窗体,实现简单的文本编辑操作。
Backstyle:0—Tansparent(背景透明)
实验二缓冲溶液与pH值测定
4.电极校正
各种厂家不同品牌的pH计有所不同
7 20
取用pH=6.86的 溶液定位。
再以pH=9.00或pH=4.01的缓 冲液测其斜率(或称为灵敏度), 拭净后即可使用。电极校正后可 以暂时浸渍于蒸馏水中待命。
5 实验结束
实验结束后,将电极 洗净沾干,小心置入 保护套中,保护套中 应有足够的KCl溶液。
ΔpH
1. 缓冲溶液总浓度:缓冲比一定,缓冲溶液的总浓
度 ,缓冲能力 。
2. 缓冲比:总浓度一定时,若[共轭碱]/[共轭
酸]=1,则缓冲容量最大。
【操作流程】
0.100mol/L HAc
100 mL
0.100mol/L NaAc
100 混匀 mL
取40mL
取40mL
+
1.000mol/L NaOH 1-2
取
40m+L
1.000mol/L HCl 1-2滴
滴
测量各溶液的pH值。
取20mL
+
蒸馏水20mL
pH值的测量采用0.01级精密级pH 计源自数显斜率电极
mV、pH、oFF 定位
温补
pH计的使用
7.20
1.暖机
(1)将pH计的电源打开, 暖机5min以上。
77﹒22 00
2.清洗与沾干 以纯水清洗
01的缓冲液测其斜率(或称为灵敏度),拭净后即可使用。 pH=pKa + lg (2)
(1)选择适当的缓冲对,使所选缓冲 配制缓冲溶液时,若使用相同浓度的共轭酸和共轭碱,则可用其体积(V)比代替浓度比,即:
100mol/L NaAc 100mol/L NaAc
VB-
对中共轭酸的 pKa 与欲配制的缓冲溶液 实验二 缓冲溶液及其pH的测定
VB实验案例(数组)
实验五数组一、控件属性的设置 (滚动条)1、在名称为Forml的窗体上添加一个名称为H1水平滚动条,请在属性窗口中设置它的属性值,满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1、L2的标签,并分别显示1、100,运行时的窗体如图5-1所示。
工程文件名保存为sy5-1.vbp,窗体文件名为sy5-1.frm。
2、在名称为Form1的窗体上添加一个名称为HS1的水平滚动条,其刻度值范围为1 -100;添加一个命令按钮,名称为C1,标题为"移动滚动框"。
请编写适当的事件过程,使得在程序运行时,每单击命令按钮一次(假定单击次数不多于10次),滚动框向右移动10个刻度。
程序运行时的窗体如图5-2所示。
要求程序中不得使用变量,事件过程中只能写一条语句。
工程文件名保存为sy5-2.vbp,窗体文件名保存为sy5-2.frm。
3、在名称为Form1的窗体上画一个图片框,其名称为Picture1、一个水平滚动条,名称为HScroll1,和一个命令按钮,名称为Command1,标题为"设置属性",通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。
编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的如下属性:Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。
程序运行后的窗体如图5-3所示。
要求程序中不得使用任何变量。
工程文件名为sy5-3.vbp,窗体文件名为sy5-3.frm。
4、在控件属性1文件夹下有一个工程文件sy5-4.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。
实验二、VB菜单toolbar
软件技术实验指导实验二:下拉菜单和工具栏的应用实验要求:运用VB中提供的界面辅助工具生成一个应用程序界面,要求该界面带有顶行下拉菜单和工具栏按钮。
实验步骤:1)实验中要求采用两个外部控件即Toolbar和ImageList,这两个控件都是ActiveX控件,都被包含于VB中携带的“Microsoft Windows Common Control6.0”控件组中,需要在“工程”下拉菜单中找到“部件”并单击之,随后在弹出的控件目录中点选“Microsoft Windows Common Control 6.0”,使之“应用”并“确定”,这样,该组控件便被全部添加到了工具箱中。
2)预先准备好要用于窗体的素材,例如图片和若干小图标。
然后分别点击工具箱中的Toolbar和ImageList,控件并将这两个控件画到窗体上。
3)向 ImageList 控件中置入合适的图象,即把未来要用于界面中按钮上的小图标预先置入ImageList 控件,具体做法:①用鼠标右键单击 ImageList 控件,然后单击“属性”以打开“属性页”对话框。
②在“通用”选项卡中点选图标预设大小,这里采用32×32;然后单击“图像”选项卡;③填入索引号1,然后单击“插入图片”按钮,在随后弹出的选择图片对话框中找到希望出现在 Toolbar 控件中的图象。
重复该操作(每次重复,索引号加1)直到得到了所需的所有图象后,单击“确定”按钮。
4)将 ImageList 控件与Toolbar控件相关联,具体做法:①用鼠标右键单击 Toolbar 控件,然后单击“属性”以打开“属性页”对话框。
②在“通用”选项卡中,单击“图象列表”框,并选择刚才置入的 ImageList 控件,然后单击“应用”。
5)向 Toolbar 控件中添加按钮,具体做法:①用鼠标右键单击 Toolbar 控件,然后单击“属性”。
②在“属性页”对话框中,单击“按钮”选项卡。
VB实验报告
《VB程序设计》实验单元一实验报告专业班级:姓名学号 2指导教师:王云侠完成时间: 3月22日实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境三、实验内容1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
提示:对窗口编写两个事件:Form_Load事件对文本框初值设为空;Form_Click事件对文本框计数。
对文本框计数:Text1=Val(text1)+1 。
2、命令按钮、字号、内容和格式的复制练习。
按钮1:使得Text1中的文本按要求改变。
按钮2:将Text1中选定的文本复制到Text2.控件名属性Form1Caption=”实验2”Label1复制文本Label2输入文本Text1Text=“VB功能强大,但要下功夫学习才能学好。
”(每个同学文本框中内容可以不同)Text2Text=””Command1Caption=”隶书25磅”Command2Caption=”复制=>”四、实验步骤1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。
从运用中点击经典版打开标准EXE 建立一个form 1添加一个Label和TextBox,Label的caption改为“你单击窗体的次数”,TextBox 的text改为空,然后编写代码如图点击运行即可。
2、命令按钮、字号、内容和格式的复制练习。
从运用中点击经典版打开标准EXE 建立一个form 1添加两个Label两个TextBox两个CommandButton,Label的caption改为“输入内容”和“复制效果”,TextBox的text改为“任意文字”和“空”,CommandButton 的caption改为“隶书25磅”和“复制=>”。
并且左面的Label改为如图代码如图点击运行即可五、实验结果1.2.六、实验体会VB很有意思实验二 VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握MsgBox与InputBox的使用4、掌握Print和Format的使用二、实验环境三、实验内容1、输入半径的值,分别计算并输出圆的面积、圆的周长和球的体积。
vb实验报告答案全(2)(1)
实验一问答题:1、答:常见的有visual Basic、C++、Java、SQL。
用途特点:(参考课本4-5页)2、答:代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是:代码 < 程序 < 软件3、答:面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象,因此它们都可以被看作一个小型的“机器”,即对象。
它能够让人们更简单地设计并维护程序,使得程序更加便于分析、设计、理解。
4、答:参考课本第9页5、答:类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。
对象——是类的一个实例,继承了类的属性、方法。
控件——是具有图形界面的对象,它同样具有属性、方法、事件,是用来设计用户界面的重要元素。
属性——是对象的性质,用来描述和反应对象特征的参数。
事件——响应对象的动作,它发生在用户与程序交互时。
如单击控件、鼠标移动、键盘按下。
过程——指附在该对象上的程序代码,是事件的处理程序。
6、答:参考课本12页到17页。
实验二问答题:1、答通用属性有:Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答标签label是用来显示信息的,不具有输入功能。
属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据,编辑文本。
属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。
3、答结果为:标签里显示一个“abc”,图片框里显示3行“欢迎您”。
4、答要保存2次,分别是工程文件.vbp和窗体文件.frm。
实验一:一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进!"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二:一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为:Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End实验三:一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量:3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题:2.Private Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数:"; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数:"; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数:"; xy = Trim(Str(x))Print "反序数:" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四:一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900,100,mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题:1.方法一:Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub方法二:Option ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是:"; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是:"; x; y; zEnd Sub4.方法一:Private Sub Command1_Click() x = Val(InputBox("请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二:Private Sub Command1_Click() Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空(1)for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub4.'已知x,y,z分别是0~9中的一个数,求x,y,z的值,使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数,其各位数字的立方和等于该数本身。
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程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中,程序设计是一项至关重要的技能。
Visual Basic (VB)作为一种强大的编程语言,被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序,加深对VB语言的理解和掌握。
通过这个实验,我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时,我首先进行了界面设计。
通过VB的可视化设计环境,我选择了合适的控件,布局了用户界面。
我使用了文本框、标签、按钮等控件,使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后,我开始编写事件处理程序。
我为按钮添加了点击事件,当用户点击按钮时,程序会执行相应的操作。
例如,当用户点击“计算”按钮时,程序会读取用户输入的数据,并进行计算操作。
通过编写事件处理程序,我学会了如何响应用户的操作,并进行相应的逻辑处理。
3. 数据处理在实验中,我还学习了如何进行数据处理。
我使用了VB的变量和运算符,对用户输入的数据进行计算和处理。
通过编写算法和逻辑,我实现了对用户输入数据的验证和处理,确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试,我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算,并将结果显示在界面上。
通过这个实验,我不仅巩固了VB语言的基础知识,还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验,我收获了很多。
首先,我学会了如何使用VB语言进行界面设计,掌握了一些常用的控件和布局方法。
其次,我学习了如何编写事件处理程序,响应用户的操作,并进行相应的逻辑处理。
最后,我还学习了如何进行数据处理,使用变量和运算符对数据进行计算和处理。
在实验过程中,我遇到了一些问题和挑战。
例如,我曾经遇到过界面布局不合理导致用户体验不佳的情况,但通过不断的调整和改进,最终解决了这个问题。
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关于for 循环实验报告
VB程序设计课内实验报告书系部名称:学生姓名:专业名称:班级:学号:时间: 2012-3-30 至 2012-4-9实验题目过程一、实验目的1.掌握if语句的使用。
2.掌握if语句的各种形式的使用。
3.掌握如何控制顺序结构和分支结构条件,防治if语句的错误。
二、实验内容实验一:利用分支结构判断输入的数是奇数还是偶数。
实验二:计算函数x (x≤1)y= 3x-2 (1≤x<10)4x-12 (x≥10)实验三(选做):判断象限三、设计方案(程序,界面)实验一:1.打开Visual Basic,新建一个EXE工程。
2.创建一个按钮命名Command1,双击Command1编写程序如图1-1.图1-13. 运行程序,点击Command1,得结果如图1-4;4.分别保存工程文件和窗体文件实验二: 1. 打开Visual Basic,新建一个EXE工程2.创建一个按钮命名Command1,双击Command1编写程序如图:1-2图1-23. 运行程序,点击Command1,得结果如图1-5;4.分别保存工程文件和窗体文件。
实验三: 1.打开Visual Basic,新建一个EXE工程2.创建一个按钮命名Command1,双击Command1编写程序如图1-3.图1-33. 运行程序,点击Command1,得结果如图1-64.分别保存工程文件和窗体文件。
四、结果及分析实验一图1-4 实验二:图1-5-1图1-5-2图1-5-3 实验三:图1-6五、调试情况,设计技巧及体会通过学习VB我更好了解了计算机运行程序,了解了计算机运行的语言,并能根据自己的需要编写程序,极大的减小了工作量提高了工作效率,使计算机更加人性化使我们更加充分地运用了计算机,为以后工作提供了方便。
同时也很好的解决了在试验中发现并解决问题。
六、源程序清单实验一:Private Sub Command1_Click()Dim x As Longx = Text1.TextIf x Mod 2 = 0 ThenLabel2 = "你输入的数是:" & x & "输入的是偶数"ElseLabel2 = "你输入的数是:" & x & "输入的是奇数"End IfEnd Sub实验二:Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x < 1 Theny = xText2.Text = yElseIf x >= 1 And x <= 10 Theny = 3 * x - 2Text2.Text = yElseIf x >= 10 Theny = 4 * x - 12Text2.Text = yEnd IfEnd Sub实验三:Private Sub Command1_Click()If Text1.Text > 0 And Text2.Text > 0 Then Label3 = "在第一象限"ElseIf Text1.Text < 0 And Text2.Text > 0 Then Label3 = "在第二象限"ElseIf Text1.Text < 0 And Text2.Text < 0 Then Label3 = "在第三象限"ElseIf Text1.Text > 0 And Text2.Text < 0 Then Label3 = "在第四象限"ElseIf Text1.Text <> 0 And Text2.Text = 0 Then Label3 = "在x轴上"ElseIf Text2.Text <> 0 And Text1.Text = 0 Then Label3 = "在y轴上"ElseIf Text2.Text = 0 And Text1.Text = 0 Then Label3 = "在原点上"End IfEnd Sub。
vb第二章 程序设计基础 实验2
实验作业程序设计基础2实验目的1、掌握VB的基本数据类型,变量、常量的定义格式。
2、掌握运算符和表达式的表示方法。
实验要求1、选择题,填空题、运行结果题、转换题标明题号,答案写在实验报告上。
2、程序设计题中的第2题要求把事件代码写在实验报告上。
3、程序设计题单建一个文件夹,以学号和姓名命名,压缩后上交到ftp服务器上。
实验内容一、选择题1.表达式25.28 Mod 6.99的值是[ B ]。
(A)1 (B)5 (C)4 (D)出错2.表达式5 ^ 2 Mod 25 \ 2 ^ 2的值是[ D ].(A)1 (B)0 (C)6 (D)43.表达式( 7 \ 3 + 1) * (18 \ 5 - 1)的值是[ A ]。
(A)8.67 (B)7.8 (C)6 (D)6.674.要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句[ B ]。
(A)Option Base 0 (B)Option Explicit(C)Option Base 1 (D)OptionCompare5.表达式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值为__C____A.-17B.16C.17D.186.如果a,b,c的值分别为3,2,-3,则下列表达式的值是______Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))A.10B.68C.69D.787.设m=”morning”,下列______表达式的值是”mor”BA.Mid(m,5,3)B.Left(m,3)C.Right(m,4,3)D.Mid(m,3,1)8.如果x是一个正实数,对x的第三位小数四舍五入的表达式是__A____A.0.01*Int(100*x+0.5)B.0.01*Int(10*x+0.5)C.0.01*Int(x+0.5)D.0.01*Int(x+5)9.求一个三位正整数n的十位数的方法是___A___A.Int(n/10)- Int(n/100)*10B. Int(n/10)- Int(n/100)C.n-Int(n/100)*10D. Int(n-Int(n/100)*1010.返回删除字符串前导和尾随空格符后的字符串,用函数 A 。
VB上机
实验二简单程序设计(循环)实验目的1、掌握选择结构程序设计方法,灵活使用有关语句。
2、掌握循环结构程序设计方法,灵活使用各种循环语句。
实验内容1、输出以下图形保存时存放在以自己姓名和学号命名的文件夹下,窗体文件名为1-1.frm,工程文件名为1-1.vbp。
Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 10Print Space(25 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iEnd Sub2、实验指导书实验6-1 十进制转换成十六进制程序保存时存放在以自己姓名和学号命名的文件夹下,窗体文件名为1-2.frm,工程文件名为1-2.vbp。
Private Sub Command1_Click()Dim n As Integer, st As String, p As String * 1n = Val(Text1.Text)DoSelect Case n Mod 16Case 10p = "A"Case 11p = "B"Case 12p = "C"Case 13p = "D"Case 14p = "E"Case 15p = "F"Case Elsep = n Mod 16End Selectst = p & stn = n \ 16Loop Until n = 0Text2.Text = stEnd SubPrivate Sub Command2_Click()Text1.Text = "": Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub3、实验指导书实验6-3 素数程序保存时存放在以自己姓名和学号命名的文件夹下,窗体文件名为1-3.frm,工程文件名为1-3.vbp。
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()
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
N = Val(TextBox6.Text)
TextBox4.Text = 2 * M - N / 2
TextBox7.Text = N / 2 - M
EndSub
PrivateSubTextBox8_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox8.TextChanged
(1)建立用户界面需要的控件对象;
(2)设置对象属性;
(3)编写对象事件过程;
(4)保存文件(窗体文件和工程文件及其它);
(5)调试运行程序。
3、实验内容
顺序结构程序设计:
(1)分别随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算它们的平均值,保留2位小数。
(2)窗体上有2个命令按钮,,第一个按钮显示“”,第二个按钮显示“画图”,要求单击命令按钮,利用shell函数执行对应的应用程序。
Me.Show()
TextBox8.Focus()
EndSub
EndClass
④保存文件并调试运行此程序,运行结果如下图6所示;
图6
(2)编写一个“个人简历表”程序。该程序运行后,用户在文本框中输入“姓名”和“年龄”,选择“性别”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息;单击“重置”按钮清除输入的信息和所做的选择。
EndSub
PrivateSubTextBox6_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesTextBox6.LostFocus
IfVal(TextBox6.Text)Mod2 <> 0Then
TextBox6.Text =""
选择结构程序设计
(1)利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔,鸡和兔的总脚数为N只,求鸡和兔各有多少只?
(2)编写一个“个人简历表”程序。该程序运行后,用户在文本框中输入“姓名”和“年龄”,选择“性别”、“学历”和“爱好”等个人信息。单击“递交”按钮运行后右边显示个人信息;单击“重置”按钮清除输入的信息和所做的选择。
TextBox6.Focus()
MessageBox.Show("输入数据不合法")
EndIf
EndSub
PrivateSubTextBox6_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox6.TextChanged
EndIf
IfCheckBox4.Checked =TrueThen
ah = CheckBox4.Text +" "+ ah
Else
ah = ah +" "
EndIf
TextBox3.Text ="简历"& vbCrLf &"姓名:"& xm & vbCrLf &"年龄:"& nl & vbCrLf &"性别:"& xb & vbCrLf &"学历:"& xl & vbCrLf &"职业:"& zy & vbCrLf &"爱好:"& ah
N = Val(TextBox6.Text)
EndSub
PrivateSubTextBox4_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox4.TextChanged
IfVal(TextBox4.Text) < 0Then
图2
(2)窗体上有2个命令按钮,,第一个按钮显示“”,第二个按钮显示“画图”,要求单击命令按钮,利用shell函数执行对应的应用程序。
①界面如图3所示:
图3
②根据属性表设置所有的控件.
③编写对象事件过程的所有代码如下:
④保存文件并调试运行此程序,运行结果如下图4所示;
图4
选择结构程序设计
EndIf
IfRadioButton1.Checked =TrueThen
xl = RadioButton1.Text
ElseIfRadioButton3.Checked =TrueThen
xl = RadioButton3.Text
ElseIfRadioButton5.Checked =TrueThen
2、具体实例
(1)分别随机生成3个正整数,其中一个1位数,一个2位数,一个3位数,计算它们的平均值,保留2位小数。
①界面如图1所示:
图1
②根据属性表设置所有的控件。
要求“欢迎学习”要在两行显示。
③编写对象事件过程的所有代码如下:
PublicClassForm5
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
EndIf
IfCheckBox2.Checked =TrueThen
ah = CheckBox2.Text +" "+ ah
Else
ah = ah +" "
EndIf
IfCheckBox3.Checked =TrueThen
ah = CheckBox3.Text +" "+ ah
Else
ah = ah +" "
4.掌握单选框、复选框、框架选择控件的使用。
三、循环结构程序设计
1.掌握For语句的使用。
2、掌握Do语句各种形式的使用。
3、掌握如何控制循环结构、防止死循环或不循环。
4、掌握滚动条、进度条和定时器控件的使用。
二.实验环境
装有Visual Studio 2008软件的计算机
三、实验内容与步骤
1、实验步骤如下:
xm = TextBox1.Text
IfNotIsNumeric(TextBox2.Text)OrVal(TextBox2.Text) <= 1OrVal(TextBox2.Text) >= 75Then
TextBox2.Text =""
TextBox2.Focus()
MessageBox.Show("年龄输入错误","提示")
Close()
EndSub
PrivateSub实验2_1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
Me.Show()
TextBox1.Focus()
EndSub
EndClass
④保存文件并调试运行此程序,运行结果如下图2所示;
M = Val(TextBox8.Text)
EndSub
PrivateSubTextBox6_ChangeUICues(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.UICuesEventArgs)HandlesTextBox6.ChangeUICues
TextBox1.Text = Int(Rnd() * (10 + 0))
TextBox2.Text = Int(Rnd() * (90 + 10))
TextBox4.Text = Int(Rnd() * (900 + 100))
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
①界面如图7所示:
图7
②根据属性表设置所有的控件.
③编写对象事件过程的所有代码如下:
PublicClass实验3_11
Dimxm, xb, xl, zy, ahAsString, nlAsInteger
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
(1)利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔,鸡和兔的总脚数为N只,求鸡和兔各有多少只?
①界面如图5所示:
图5
②根据属性表设置所有的控件.
③编写对象事件过程的所有代码如下:
PublicClass实验3_5
DimM%, N%, x%, y%
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
小组合作
否
姓名
xxx
班级
计本班
学号
一、实验目的
一、顺序结构程序设计
1.掌握表达式、赋值语句的正确书写规则。
2.掌握常用函数的使用。
3.掌ቤተ መጻሕፍቲ ባይዱinputbox、MsgBox的使用。
二、选择结构程序设计