实验报告一学院：经济与管理学院 班级：信息系统与信息管理 11课程：数据库原理姓名：李楠学号：20250602310014日期：2013-6—24实验题目实验一 VB。NET 环境和程序设计实验目的：1。 掌握启动与退出 VB。NET 的方法.2. 掌握建立、编辑和运行一个简单的 VB。NET 应用程序的全过程。3. 掌握利用常用控件创建基于图形用户界面应用程序的技术.4。 掌握 VB.NET 程序设计语言的语法规则和编程技术。实验内容:1．基本控件标签、文本框、按钮的使用。利用文本框的字号、内容和格式等属性来实现格式设置,并对选中的复制练习，效果见图 1。1。在 TextBox1 输入一字符串，建立三个命令按钮：（1）Button1：Text 内容为“隶书 25 磅”，事件过程代码为:TextBox1。Font = New Font（”隶书”， 25)(2）Button2：Text 内容为“幼圆 15 磅”,代码类似。(3）Button3：Text 内容为“复制 =〉”，要求复制在 TextBox1 选中的内容以及其字体格式。选中的内容通过 TextBox1 的。SelectedText 属性；字体通过 Font 直接赋值。图 1.1 实验 1。1 运行界面2．输入数据合法性检验、MsgBox 对话框的使用。利用计算机解决古代数学问题“鸡兔同笼问题”.即已知在同一笼子里有总数为 m只鸡和兔,鸡和兔的总脚数为 n 只,求鸡和兔各有多少只?提示：鸡、兔的只数通过已知输入的 m，n 列出方程可解,但不要求出荒唐的解(例3。5 只鸡、4.5 只兔，或者求得的只数为负数）。因此，在 TextBox2_LostFocus事件中要考虑下面两个条件：（1）对输入的总脚数 n 必须是偶数，否则提示数据错的原因，重新输入数据；（2）若求出的头数为负数,提示数据错的原因,重新输入数据. 图 1.2 实验 1。2 运行界面此处用到 If 语句，请参考该语句的用法。3．利用计算机解决初等数学问题。输入一元二次方程的系数，计算并输出一元二次方程的两个根。界面如图 1.3 所示。图 1。3 实验 1。3 运行界面提示： （1）在 VB.NET 中， Sqrt 自变量出现函数时，显示“无效的过程调用或参数"的出错显示，原因是 sqr 函数调用时，自变量出现负数是无法执行的，例调用Sqr(—3）会产生错误。(2）求根时要对 a、b、c 三个系数分别考虑多种情况的处理，即:重根、两个实根、两个复根等。4．数组的使用。随机产生 10 个 30～100（包括 30,100）的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图 2。1。4 所示。图 1.4 实...
