同济大学数据库作业答案及讲解

习题讲解实验一(1)知识点：控件标签、文本框、按钮的使用题目：Button1Button2Button3实验一(1)VB.NET窗体应用程序创建过程1.新建项目2.窗体设计：控件属性设置Label：Text属性；TextBox：MultiLine属性(True)；Button：Text属性；3.代码设计：方法、事件过程编程在三个Button的click事件过程体中，分别给出字体转换、选中复制的逻辑实现。三个按钮的单击事件过程代码实验一(2)知识点：变量声明，表达式，数据类型转换、if语句、IsNumeric函数、MsgBox的使用题目：编程求解鸡兔同笼问题光标从TextBox2中移出（失焦）编写TextBox2的LostFocus事件过程代码变量声明•局部变量声明的语法Dim变量名[As类型][=初值]如,DimaAsInteger或Dima%常见类型Integer(%)Long(&)Single(!)Double(#)String($)CharDateBoolean9数据类型转换函数(1)Str(N)将非负数值转换成字符串后，会在转换后的字符串左边增加一空格。如,123&str(456)结果为123456(2)CStr(N)将数值N转换成String类型数据如,123&Cstr(456)结果为123456(3)变量名.ToString()如,dimx!,y$x=3.1415926y=x.ToString()或y=&x数值→字符串10转换函数说明(3)Val(C)将数字字符串转换为数值类型，当字符串中出现数值类型规定的字符外的字符，则停止转换，函数返回的是停止转换前的结果。例如表达式：Val(-123.45ty3)结果为-123.45。(4)CInt(C)将数字字符串C转换为整型数，当字符串中出现数值类型规定的字符外的字符时，编译报错如,CInt(“-123.45ty3”)类似，CDbl(表达式)本章目录数值←字符串11IsNumeric函数形式：IsNumeric（表达式）作用：判断表达式是否是数字,返回true/false一般用于对输入数据的合法性检验例如IsNumeric(123a)结果Fasle12打开一个信息框，等待用户选择一个按钮。•无返回值用法：MsgBox(提示[,按钮样式][,标题])•有返回值用法：略MsgBox函数本章目录如：MsgBox(荒唐解，请重新输入！,MsgBoxStyle.Question)13MsgBox按钮样式设置信息图标64Information警告信息图标48Exclamation询问信息图标32Question关键信息图标16Critical图标类型重试、取消按钮5RetryCancel是、否按钮4YesNo是、否、取消按钮3YesNoCancel终止、重试、忽略按钮2AboutRetryIgnore确定、取消按钮1OkCancel确定按钮0OkOnly按钮数目描述按钮值枚举值分组本章目录MsgBoxStyle.枚举值如：MsgBox(荒唐解，请重新输入！,MsgBoxStyle.Question)实验一(3)知识点：自定义子过程、if语句、利用TextBox的KeyPress事件进行“按键”检查、共享事件题目：一元二次方程求解代码子过程定义与调用•子过程定义形式Sub子过程名([形参列表声明])过程体EndSub•子过程的调用格式子过程名([实参列表])自定义子过程quadraticEquationTextBox控件的keypress事件•在tbA_KeyPress事件过程中，进行按键检查。该事件过程为tbA.KeyPress和tbB.KeyPress,tbC.KeyPress三个事件所共享。在PrivateSubtbA_KeyPress(senderAsObject,eAsKeyPressEventArgs)HandlestbA.KeyPress后键入,tbB.KeyPress,tbC.KeyPress实验一(4)知识点：数组、随机数、if语句、循环结构、系统常量(VbCrLf)题目：代码19数组声明及初始化一维数组Dim数组名(下标上界)[As类型]下标上界为常数、已有值的表达式或变量。下标下界为0。一维数组的大小为：下标上界+1。例Dima(10)AsInteger，Dimst(5)AsString本章目录20多维数组声明Dim数组名(下标1，下标2…)[As类型]下标个数决定了数组的维数，每一维的大小=上界+1；数组的大小为每一维大小的乘积。例Dimx(2,4)AsLong声明了一个长整型的二维数组x；共占据3×5个长整型变量的空间x(1,4)x(1,3)x(1,2)x(1,1)x(1,0)x(2,4)x(2,3)x(2,2)x(2,1)x(2,0)x(0,4)x(0,3)x(0,2)x(0,1)x(0,0)本章目录21数组的初始化在定义数组的同时，为数组元素赋初值。形式：Dim数组()As类型={常数1,…,常数n}Dim数组(,)As类型={{行1常数}，…，{行m常数}}例Dimx(,)AsInteger={{1,2,3,4},{5,6,7,8}}12345678数组x本章目录22Rnd随机函数形式：Rnd()作用：产生[0，1)双精度随机数。产生某范围的整数值，其通用表达式为：Int(Rnd()*(上界-下界+1)+下界)要产生1～100整数：Int(Rnd()*100+1)注意：每次运行产生相同序列的随机数。若要产生不同序列的随机数，可执行函数：Randomize24For循环语句For循环语句用于控制循环次数预知的循环结构。For循环变量＝初值To终值[Step步长]语句块[ExitFor]语句块Next循环变量注意：循环变量必须为数值型。本章目录25PrivateSubButton1_Click(……)HandlesButton1.ClickDimi%Label1.Text=Fori=20To1Step-1IfiMod6=0ThenExitForLabel1.Text&=i&NextEndSub例i从20开始循环减1，当i是6的倍数时，退出循环步长为-126While/until循环语句形式1：Do[{While|Until}条件]语句块[ExitDo语句块]Loop形式2：Do语句块[ExitDo语句块]Loop[{While|Until}条件]本章目录形式1先判断后执行，有可能一次也不执行；形式2先执行后判断，至少执行一次。用于控制循环次数未知的循环结构。形式3：While条件语句块[Exitwhile语句块]EndWhile28End语句1)独立的End语句用于结束一个程序的运行，它可以放在任何事件过程中。2)与其他控制结构关键字配套的End语句用于结束一个控制语句或过程或块，相当于语句括号。End语句的多种形式如下：EndIf、EndSelect、EndWith、EndType、EndFunction、EndSub等，本章目录实验一(5)知识点：自定义函数，richTexBox控件的KeyPress事件、字符串函数、数据类型转换题目：编一函数IsH(n),对于已知正整数n,判断该数是否是回文数，函数返回值为布尔型。代码30常用字符串函数本章目录Trim(ABC)结果为ABCMid(ABCDE,2,3)结果为BCDMid(ABCDE,2,6)结果为BCDE“InStr(1，EFABCDEFG,EF)结果为1InStr(开始位置，字符串，要找的子串)返回子串在原串中的起始位置IsH(n)函数RichTextBox1_KeyPress事件33函数过程的定义形式：Function函数过程名(形参)As类型局部变量声明语句块Return表达式或函数名=表达式EndFunction本章目录形参(或称哑元)只能是变量或数组名。仅表示参数的个数、类型，无值。34函数过程的调用调用形式：函数过程名([参数列表])参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。本章目录实验一(6)知识点：单选、复选、组框结构型控件；列表框、组合框数组型控件题目：代码实验一(7)知识点：多窗体的使用、数组、RND()、InputBox()函数的使用题目：代码产生10个随机数填入listBox1中39InputBox函数打开一个对话框，等待用户输入，返回字符串类型的输入值。形式：InputBox(提示[,标题][,默认值][,x坐标位置][,y坐标位置])本章目录注意:提示项不能省略。若要多行提示，可在每行行末加回车换行vbCrLf。添加新数据单击“添加数据”菜单项全局变量•在标准模块(Module)中声明的，其可访问性为公有的(public)变量，它的作用域为整个程序集，可被该程序的所有过程访问。如，声明一个全局变量x，并赋初值0ModulecommonvariablePublicx%=0EndModule本题中的全局变量删除最小值多窗体切换•点击Form1菜单上的统计项，显示Form2的实例Form2_Load事件将公共全局变量min,max,avg的值填入该窗体上的文本框中两窗体传递数据的另一种方法•在Form1中声明类级别局部变量min,max,avg•Form1菜单中的“统计”项单击事件处理过程中操作f2中的文本框控件实验一(8)知识点：静态变量、openFileDialog和saveFileDialog控件、richTextBox.loadFile()方法、richTextBox.saveFile()方法题目：代码静态变量形式：Static变量名As数据类型特点：在过程中声明的静态变量，当过程结束后不被释放，仍保留其值共享事件打开文件对话框的使用根据输入查找利用inputBox函数的输入值保存文件对话框