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

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