实验报告
课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____
图2-1
图3-2
三.实验结果:对象属性设置
属性属性值
Caption 输入数1
图5-1 窗体界面三.实验结果:对象属性设置
图6-1
设计一个用滚动条改变图片背景色的程序。界面如图6-2所示
图6-2
三.实验结果:对象属性设置
台州学院 《VB程序设计》实验报告实验八:图形的绘制 班级:14制药3班 学号: 姓名: 实验日期:2015.6.5
一、实验目的和要求 1.掌握Visual Basic 容器坐标系的设计方法; 2.熟练掌握Pset、Line和Circle方法的格式及其使用; 3.掌握与图形有关的常用属性,方法。 二、实验主要仪器和设备 计算机一台,Windows XP / Win7操作系统,Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时,先输入各公司月销售额,然后单击命令按钮,图片框中将显示各公司销售额的圆饼图(如图8-1所示)。要求:在文本框中只能输入数字字符;在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一.实验目的: 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图所示。 图实验1-1 运行界面 三.实验结果:对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四.实验思考: 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 1.掌握Visual Basic数据类型的基本概念。 2.掌握用Visual Basic的各种运算符及表达式。 3.学习使用Visual Basic内部函数和数据输入、输出方法。 4.掌握命令按钮、文本框和标签。 5.设计顺序程序。 二.实验内容: 1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式是:C= 5 / 9(F - 32)。F为华氏温度,C为摄氏温度。 2.用三种除法运算(/ 、\、Mod)做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。 图2-1 图2-2 三.实验结果:对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
大学学生实验报告 开课学院及实验室:地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1: 图1 实验A_1窗体界面设计 ⑤代码设计如图2: 图2实验A_1代码设计 (3)实验结果
①运行结果如图3: 图3实验A_1运行结果 ②保存文件如图4: 图4实验A_1文件保存 A_2 (1)实验容:模仿教材例1.1,将事件过程自上而下移动改为自右向左移动,也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2,背景图形文件可以选择自己喜欢的,按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 (2)实验步骤: ①创建一个“标准EXE”工程; ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1; ③设置对象属性;
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5: 图5 实验A_2窗体界面设计 ⑤代码设计如图6:
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一.实验目的: 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 1.掌握Visual Basic数据类型的基本概念。 2.掌握用Visual Basic的各种运算符及表达式。 3.学习使用Visual Basic内部函数和数据输入、输出方法。 4.掌握命令按钮、文本框和标签。 5.设计顺序程序。 二.实验内容: 1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏 温度,用msgbox输出转换后的摄氏温度。转换 公式是:C= 5 / 9(F - 32)。F为华氏温度,C 为摄氏温度。 2.用三种除法运算(/ 、\、Mod)做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称:Visual Basic 程序设计 姓名:邹丽平 学院: 食品科学学院 专业:食品科学与工程 年级:2010级 学号:102258016001 指导老师:黄红兵 职称:讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院:食品科学学院专业:食品科学与工程年级: 2010级 姓名:邹丽平学号: 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间: 2012.3.5 指导教师签字:黄红兵成绩: 报告退发(订正、重做) 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境(IDE)。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件(窗体、标签、文本框、命令按钮)的简单应用。 二、实验内容 1.启动Visual Basic 6.0,熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签( Label1和Label2),Label1的字体为隶书,并且其能根据文本大小自动调整尺寸,Label2的字型为倾斜;然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮(C1、C2和C3)。运行时,如果单击“禁止用C3”按钮,则C3按钮无效(如图10-2所示);如果单击“允许用C3”按钮,则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框(Text1和
实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口,代码 实验三 一
A(BC)(BC)AA,A(BCD)DBB,B 二 3,4,5,6,8,10,11,12,14,15,16三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系,逻辑,数值 (3) 900,100,mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 (1)for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j
郑州大学VB实验报告书参考答案。。 以下内容均来自百度文库,所以仅供参考。。 不过经亲自测试习题及实验(一)的答案基本正确,除了实验题的3,4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程
1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3(基本设置在属性窗口完成!)Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4(基本设置在属性窗口完成!)Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一
BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素picture load locked font,alignment gotfocus,lostfocus 属性窗口,代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True
实验一问答题: 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。
VB实验报告(含答案) 实验报告 课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____
实验一 VB环境与创建一个简单的VB程序 一.实验目的: 1、了解VB系统对计算机软件、硬件的要求。 2、掌握启动与退出VB的方法。 3、了解与使用VB集成开发环境各窗口、菜单的一般功能。 4、熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5、了解文本框、标签框、命令按钮的构造及其属性、事件与方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签与两个命令按钮编一程序,并把命 令按钮分别设置为”显示”与”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息; 单击”清除”按钮,则清除文本框中的内容,运行界面如图1、1所示。 图1、1 实验1-1 运行界面 三.实验结果:对象属性设置 对象属性属性值说明 caption 我的第一个vb程序窗体 Form1 caption 请输入姓名标签 Label1 text ““文本框 Text1 caption 显示命令按钮Command1 caption 清除命令按钮Command2 四.实验思考: 1、标签label控件设置的属性代码有哪些? Label1、Caption=“请输入姓名” Label1、fontsize=24 Label1、fontbold=True 2、两个按钮所使用的就是什么事件?代码分别就是什么? Private Sub Command1_Click() Text1、text=“姓名” End Sub
实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 1.掌握Visual Basic数据类型的基本概念。 2.掌握用Visual Basic的各种运算符及表达式。 3.学习使用Visual Basic内部函数与数据输入、输出方法。 4.掌握命令按钮、文本框与标签。 5.设计顺序程序。 二.实验内容: 1.编写一个华氏温度与摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度, 用msgbox输出转换后的摄氏温度。转换公式就是:C= 5 / 9(F - 32)。F为华氏温度,C为摄氏温度。 2、用三种除法运算(/ 、\、Mod)做计算。 要求:在窗体上画五个标签、五个文本框与一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。 图2-1 图2-2 三.实验结果:对象属性设置 1、温度转换 对象属性属性值说明 Form1 Caption Inputbox与msgbox应用窗体 Command1 Caption 温度转换命令按钮 2、三种除法运算(/ 、\、Mod)做计算
实验报告四 实验目的 (1)掌握Function过程和Sub过程的定义与调用 (2)理解参数按址传递和按值传递的本质 (3)理解变量和过程的作用域 (4)能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n!。程序界面如下图所示。(5分) 掌握函数过程的定义及使用 实验结果: 【实验1 代码】 Private Sub Command1_Click() n = Val(T ext1.T ext) T ext2.T ext = jiecheng(n) End Sub Private Function jiecheng(a) t = 1 For i = 1 T o a t = t * i Next i
jiecheng = t End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n!。程序界面同上题。(5分)掌握Sub子过程的定义及使用 实验结果: 【实验2 代码】 Private Sub Command1_Click()
n = Val(T ext1.T ext) Call jiecheng(n, t) T ext2.T ext = t End Sub Sub jiecheng(a, t) t = 1 For j = 1 T o a t = t * j Next j End Sub Private Sub Command2_Click() End End Sub 【实验2 典型结果】
台州学院 《VB程序设计》实验报告 实验七:常用控件 班级:10物理2 学号: 姓名: 实验日期:2011 一、实验目的和要求 1.掌握基本控件的重要属性、事件; 2.熟练掌握在窗体上建立上述控件的操作方法; 3.熟练掌握事件过程代码的编写; 4.初步掌握建立基于图形界面的应用程序的过程。 二、实验主要仪器和设备 计算机一台,WindowsXP操作系统,VisualBasic环境。 三、实验内容
实验7.1设计一个字体修饰的程序,界面如图7-1所示。要求:框架1中有两个复选框,可以选择粗体和斜体对标签中的文字进行修饰;框架2中有两个单选按钮,可以选择宋体或楷体对标签中的文字进行修饰;标签Label1的文字内容为“VisualBasic程序设计”,宋体,常规,三号;文字对齐方式为居中。 图7-1字体修饰 实验7.2设计一个点菜的程序,界面如图7-2所示。要求:框架中的复选框提供可选择的三种套餐,右边的文本框中可以输入数量;输入时文本框只接受数字键;并且只有选取了相应的套餐后才可以进行输入;如果没有选取套餐,那么文本框不能编辑并清空;单击“确定”按钮,统计点餐的金额,并用消息框显示出来; 图7-2点菜 实验7.3设计一密码修改程序,要求。 1)当单击“确定”按钮后,首先比较“用户名”和“原密码”是否一致,若一致且都为“admin”,则继续执行步骤2;否则弹出消息框,提示用户出 错,并让用户重新输入。 2)比较“新密码(N)”和“新密码(S)”,若两者一致,弹出密码修改成功消息框,程序终止执行。否则弹出错误消息,并让用户重新输入。 3)当单击“取消”按钮后,程序终止执行。 图7-3密码修改
一、实验目的及要求 通过本实验使学生:理解条件表达式的含义及作用;掌握IF语句的使用方法;掌握多分支语句Select…Case…End Select的使用方法和使用特点;掌握选择结构常见问题解法,能够编写简单的基于选择结构的应用程序解决实际问题;掌握选择性控件(单选按钮OptionButton和复选框CheckBox)的使用。 二、实验设备及环境 WindowsXp Visual basic6.0 三、实验内容 1.已知学号由9位数组成,如:032343001,其中前2位表示年级,第5位表示学生类型(类型规定如下:2-博士,3-硕士,4-本科,5-专科)。设计程序,从文本框输入学号,在另外两个文本框中显示该生年级及学生类型。 2.设计对输入字符进行转换的程序。要求在文本框中每输入一个字符就进行判断和转换,转换结果显示在另一文本框中。(转换规则为:将其中小写字母转换为大写,大写字母转换为小写,其余非字母字符转换为“*”)。 3.设计程序,利用3个复选框代表红、绿、蓝三颜色值,当选中复选框时表示颜色值为255,不选中为0,把通过RGB函数调配的颜色作为一个标签的背景色。 四、实验步骤 1.题1 (1)用户界面设计 (2)关键程序代码 Private Sub Command1_Click() Dim t As String, p As String t = Mid(Text1.Text, 5, 1) Select Case t Case "2" p = "博士生" Case "3" p = "硕士生" Case "4" p = "本科生" Case "5"
p = "专科生" Case Else p = "无效学号" End Select Text2.Text = Left(Text1.Text, 2) + "级" Text3.Text = p End Sub (3)运行结果 2 (1)用户界面设计 (2)关键程序代码Private Sub Text1_KeyPress(KeyAscii As Integer) (3)Dim x As String (4)x = Chr(KeyAscii) (5)Select Case x (6)Case "a" To "z" (7)Text2.Text = Text2.Text + UCase(x) (8)Case "A" To "Z" (9)Text2.Text = Text2.Text + LCase(x)
试验报告(6) 院(系):课程名称:日期:
Select Case x Case 1, 3 Print "分支1" Case Is > 4 Print "分支2" Case Else Print "else 分支'" End Select End Sub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是else 分支_。 3、下列语句正确的是( C ) A.If A ≠B Then Print″A不等于B″ B.If A < >B Then Printf″A不等于B″ C.If A < >B Then Print″A不等于B″ D.If A ≠B Print″A不等于B″ 4、计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( A ) A.If x>=y Then z=x:z=y B.If x>=y Then z=x Else z=y C.z=y:If x>=y Then z=x D.If x<=y Then z=y Else z=x 5、有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click() x=Val(Text1.Text) If__(x mod 4=1) and (x mod 5=2)__Then Print x Else Text1.Text=″″ _Text1.Setfocus_________ End If End Sub 6、下列程序的功能是:当x<50时,y=0.8x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。 Private Sub Command1_Click()
实验一: 一、选择 1.D 2.D 3.B 4.A 5.B 6.C 7.CD 8.D 9.D 10. BC 11. A 12.D 13. D 14. C 15. A 二、填空 1.windows 2. 中断 3.工具箱 4.代码 5.分类 6.form2.show 7. 出现语法错误 8. 错 9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象 实验二: 一、选择 1.B 2.C 3. B 4.C 5.C 6.C 7.B 8.B 9.D 10. A 11. C 12.C 13. C 14. B 15. A 16.C 17.B 18.D 19.C 20. C 二、填空 1. Form_Click() 2. Interval、5000 3..vbp .frm
4.left top Height、Width twip 5.picture 6.load 7. locked 8. font Alignment 9. GotFocus() LostFocus() 10. 属性窗口程序代码 实验三: 一、选择 1.A 2.BC 3.BC 4.A 5.A 6.A 7.BCD 8.D 9.B 10. B 11. B 二、判断题 不合法的变量:3. 4. 5. 6. 8. 10. 11. 14.15. 16. 三、 1、abs(x+y) 2. (3+x*y)^2 3. (-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)+20 2. x<0 and y>0 or x>0 and y<0 或者x*y<0 3. x mod 3=0 or x mod 7=0 或x/3=x\3 or x/7=x\7 4. x>=10 and x<20
郑州大学VB实验报告书参考答案 以下内容均来自百度文库,所以仅供参考。。 不过经亲自测试习题及实验(一)的答案基本正确,除了实验题的3,4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程
1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3(基本设置在属性窗口完成!)Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4(基本设置在属性窗口完成!)Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load
font,alignment gotfocus,lostfocus 属性窗口,代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg") End Sub Private Sub Command2_Click() Picture1.Visible = True Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg") End Sub Private Sub Command3_Click() Picture1.Visible = False End Sub 2-3 Private Sub Command1_Click() Label3 = Text1 * Text2
大一vb的实验报告 篇一:VB实验报告一、实验目的和要求 1、掌握正确书写表达式、赋值语句的规则。 2、掌握InputBox与MsgBox的使用。 3、掌握Print方法和Format格式使用。 4、掌握单分支与双分支条件语句的使用。 5、掌握多分支条件语句的使用。 6、掌握For语句和Do语句的各种形式的使用。 7、掌握如何控制循环条件,防止死循环和不循环。 二、实验内容和原理 1、输入半径,计算圆周长和圆面积。 为了保证程序运行的正确,对输入半径要进行合法性检查,数据检查调用IsNumeric函数;若有错,利用MsgBox 显示错误信息,通过SetFocus方法定位于出错的文本框处,重新输入;计算结果保留两位小数。 提示:使用Text1_KeyPress事件,按Enter键,返回参数“KeyAscii”的值为13表示输入结束。 2、随机产生三个整数,按从小到大的顺序显示。 3、计算π的近似值,π的计算公式为: ?2n?224262 π=2×××…× 2n-1?2n+11?33?55?7 注意:①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何? ②、要防止大数相乘时结果溢出的问题,将变量类型改
为长整型或实数型。 三、主要仪器设备 计算机 四、实验结果与分析 实验界面: 1、输入半径,计算圆周长和圆面积。 程序: Private Sub Form_Activate Text1.Text = 输入半径值 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 圆面积,周长 Dim r r = Text1.Text Const PI = 3.14159 If KeyAscii = 13 Then Cls If IsNumeric(r) Then Print 当圆的半径为; r; 时: Print、随机产生三个整数,按从小到大的顺序显示。 程序:
上海立信会计学院本科实验报告 班级:学号:姓名:指导教师: 系部:专业:实验时间: 实验4 循环结构 一、实验目的 1.掌握For语句的使用 2.掌握Do语句的各种形式的使用。 3.掌握如何控制循环条件,防止死循环或不循环。 二、实验要求 1.在C:\下建立子文件夹“VB实验4”,按照题目要求,在该文件夹下为各题保存相应的文件,如本实验中的第一题,需保存的文件有:工程文件(41.vbp)、窗体文件(41.frm) 及可执行文件(41.exe),本实验中的第二题,需保存的文件有:工程文件(42.vbp)、窗体文件(42.frm) 及可执行文件(42.exe),其余实验依此类推。 2.撰写实验过程中出现了哪些问题、错误,你是如何解决的,做一个小结。 三、实验内容: 1.编一程序利用单循环结构显示如图4-1所示的界面。要求:循环体内显示的内容用String 函数来实现,找出循环控制变量与String函数内字符个数的关系:即String(2*i-1,Trim(Str(i)))。窗体显示字体默认、大小为小四,通过单击窗体触发程序运行。 图4-1 Private Sub Form_Click() For i = 1 To 9 Print Tab(15 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub 2.计算π的近似值,π的计算公式为:
)12()12()2(75653431222 222+?-???????????=n n n π,要求:单击按钮同时显示当n=10、100、1000时的结果,利用Format 函数保留5位小数。窗体中所有控件字体默认、大小为小四。效果如图4-2所示。 图4-2 Private Sub Command1_Click() pi = 2 For i = 1 To 10 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=10 ∏近似值="; Format(pi, "0.00000") pi = 2 For i = 1 To 100 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=100 ∏近似值="; Format(pi, "0.00000") pi = 2 For i = 1 To 1000 pi = pi * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)) Next i Print " n=1000 ∏近似值="; Format(pi, "0.00000") End Sub 3. 求Sn=a+aa+aaa+aaaa+…+aa …aaa(n 个a),其中a 是一个由随机数产生的1~9(包括1、 9)中的一个正整数,n 是一个由随机数产生的4~9(包括4、9)中的一个正整数,产生随机数需使用Randomize 语句。例如,当a=2,n=5时,Sn=2+22+222+2222+22222。要求:单击窗体时,在窗体上逐个显示S 的结果,效果如图4-3所示。所有控件字体默认、大小为小四,窗体宽度设置为9000Twip 。