同济大学数据库-实验一 答案.pdf

1 实验一 讲解实验一 讲解 By Zhu Jing 2 0 主窗体主窗体 主窗体MainForm 运行界面 0 主窗体主窗体 主窗体MainForm 运行界面 0 主窗体主窗体 3 项目解决方案资源管理器项目解决方案资源管理器 主窗体主要属性设置 主窗体主要属性设置 IsMdiContainer为为 True 设置主窗 设置主窗 体为多文档界面容器 体为多文档界面容器 WindowState为为Maximized 运行时运行时 最大化最大化 4 主窗体代码 主窗体代码 Public Class MainForm Private Sub 退出退出ToolStripMenuItem Click Application Exit End Sub Private Sub 实验实验1ToolStripMenuItem Click Dim f1 As New shiyan1 f1 MdiParent Me f1 Show End Sub Private Sub 实验实验2ToolStripMenuItem Click Dim f2 As New shiyan2 f2 MdiParent Me f2 Show End Sub 5 Private Sub 实验实验3ToolStripMenuItem Click Dim f3 As New shiyan3 f3 MdiParent Me f3 Show End Sub Private Sub 实验实验4ToolStripMenuItem Click Dim f4 As New shiyan4 f4 MdiParent Me f4 Show End Sub Private Sub 实验实验5ToolStripMenuItem Click Dim f5 As New shiyan5 f5 MdiParent Me f5 Show End Sub 6 Private Sub 实验实验6ToolStripMenuItem Click Dim f6 As New shiyan6 f6 MdiParent Me f6 Show End Sub Private Sub 实验实验7ToolStripMenuItem Click Dim f7 1 As New shiyan7 1 f7 1 Show End Sub Private Sub 实验实验8ToolStripMenuItem Click Dim f8 As New shiyan8 f8 MdiParent Me f8 Show End Sub End Class 7 1 实验实验1 文本框练习 文本框练习 实验1 运行界面 8 实验实验1代码 代码 Public Class shiyan1 Private Sub Button1 Click 隶书按钮隶书按钮 TextBox1 Font New Font 隶书隶书 25 FontStyle Bold Or FontStyle Italic End Sub Private Sub Button2 Click 幼圆按钮幼圆按钮 TextBox1 Font New Font 幼圆幼圆 18 FontStyle Italic Or FontStyle Underline End Sub 9 Private Sub Button3 Click 复制按钮复制按钮 TextBox2 Text TextBox1 SelectedText TextBox2 Font TextBox1 Font End Sub End Class 10 2 实验实验2 求鸡和兔的个数 求鸡和兔的个数 实验2 运行界面 11 实验实验2代码 代码 Public Class shiyan2 Private Sub TextBox2 KeyDown If e KeyCode Keys Enter Then Dim x y As Integer x 鸡数 鸡数 y 兔数兔数 If Not IsNumeric TextBox1 Text Trim Then MessageBox Show 头数头数 必须输入数字必须输入数字 警告警告 TextBox1 Text TextBox3 Text Exit Sub End If 12 If Not IsNumeric TextBox2 Text Trim Then MessageBox Show 脚数脚数 必须输入数字必须输入数字 警告警告 Me TextBox2 Text Me TextBox3 Text Exit Sub End If If Val TextBox2 Text trim Mod 2 0 Then MessageBox Show 脚必须是双数脚必须是双数 警告警告 TextBox2 Focus Exit Sub End If 13 x Val 4 TextBox1 Text TextBox2 Text 2 y Val TextBox2 Text 2 TextBox1 Text 2 If x 0 Or y 0 Then 若头数是负数若头数是负数 MsgBox 荒唐解 请重新输入 荒唐解 请重新输入 Me TextBox3 Text Else TextBox3 Text x y End If End If End Sub End Class 14 3 实验实验3 求解 求解1元元2次方程的根次方程的根 实验3 运行界面 15 实验实验3代码 代码 Imports System Math Public Class shiyan3 Dim a b c disc realpart imagpart As Double Private Sub Button1 Click 计算按钮计算按钮 If String IsNullOrEmpty TextBox1 Text Trim And String IsNullOrEmpty TextBox2 Text Trim Then MsgBox 请为请为a b赋值赋值 Exit Sub End If If TextBox1 Text Trim Then TextBox1 Text 0 End If 16 If TextBox2 Text Trim Then TextBox2 Text 0 End If If TextBox3 Text Trim Then TextBox3 Text 0 End If a TextBox1 Text Trim b TextBox2 Text Trim c TextBox3 Text Trim If a 0 Then a为为0时时 If b 0 Then a为为0 b不为不为0时时 TextBox4 Text Round c b 2 TextBox5 Text GroupBox1 Text 不是不是2次方程次方程 只有 一个根只有 一个根 Else a b都为都为0时时 MsgBox a b不能同时为不能同时为0 End If 17 Else disc b b 4 a c If disc 0 Then disc 为为0时时 GroupBox1 Text 有两个相同的实根有两个相同的实根 TextBox4 Text Round b 2 a 2 TextBox5 Text Round b 2 a 2 ElseIf disc 0 Then disc 大大于于0时时 GroupBox1 Text 有两个不同的实根有两个不同的实根 TextBox4 Text Round b Sqrt disc 2 a 2 TextBox5 Text Round b Sqrt disc 2 a 2 Else disc 小于小于0时时 GroupBox1 Text 有两个不同的虚根有两个不同的虚根 realpart Round b 2 a 2 imagpart Round Sqrt disc 2 a 2 18 TextBox4 Text realpart imagpart i TextBox5 Text realpart imagpart i End If End If End Sub Private Sub Button2 Click 结束结束按钮按钮 Me Close End Sub End Class 19 4 实验实验4 生成随机生成随机数数 实验4 运行界面 20 实验实验4代码 代码 Imports System Math Public Class shiyan4 Dim a 9 i As Integer Dim max min As Integer Dim avg As Decimal Private Sub shiyan4 Load avg 0 max 0 min 100 Randomize 为为随机函随机函数数产生产生不同的不同的初始种子初始种子 For i 0 To 9 a i Int Rnd i 100 30 1 30 生成生成一个一个随机随机数数 int是是强制类型转换函强制类型转换函数数 21 If min a i Then min a i If max a i Then max a i avg avg a i Next avg Round avg 10 2 求求平均平均值值 四舍五四舍五入入到小到小数数后后2位位 For i 0 To 9 TextBox1 Text a i Next TextBox1 Text vbCrLf vbCrLf min min max max avg avg vbCrLf为为 回车回车 换换行行 End Sub End Class 22 5 实验实验5 判断回判断回文数文数 实验5 运行界面 23 实验实验5代码设计 代码设计 Module Module1 实验实验 中使用 中使用的的函函数数 Function IsH ByVal s As String As Boolean ish True For i As Integer 1 To s Length If Mid s i 1 Mid s s Length i 1 1 Then ish False Exit For End If Next End Function End Module a 首先为 实验一 项目添加一个模块首先为 实验一 项目添加一个模块module1 在 在 其中定义一个判断回文数函数其中定义一个判断回文数函数ISH 24 Public Class shiyan5 Private Sub TextBox1 KeyDown If e KeyCode Keys Enter Then 如果用户如果用户按按了回车键了回车键 If String IsNullOrEmpty TextBox1 Text Trim Then Exit Sub 如果如果文本框文本框没没有输入有输入东西东西 退出 退出过过程程 End If If Not IsNumeric TextBox1 Text Then 必须输入数值数必须输入数值数据据 MsgBox 必须输入数值数据必须输入数值数据 TextBox1 Text TextBox1 Focus Exit Sub End If b 其次为其次为shiyan5窗体设计代码 窗体设计代码 25 If IsH TextBox1 Text Then ListBox1 Items Add TextBox1 Text Else ListBox1 Items Add TextBox1 Text End If TextBox1 Text End If End Sub End Class 26 6 实验实验6 配配置置电脑电脑 实验6 运行界面 27 实验实验6代码 代码 Public Class shiyan6 Private Sub Button1 Click ListBox1 Items Clear 清除上清除上次的次的选择选择 选择电脑品牌选择电脑品牌 If ComboBox1 Text Trim Length 0 Then MsgBox 请选择电脑品牌请选择电脑品牌 ComboBox1 Focus Exit Sub Else ListBox1 Items Add ComboBox1 Text End If 28 选择内存选择内存 If Not RadioButton1 Checked Or RadioButton2 Checked Then MsgBox 请选择内存请选择内存 Exit Sub End If If RadioButton1 Checked Then ListBox1 Items Add RadioButton1 Text End If If RadioButton2 Checked Then ListBox1 Items Add RadioButton2 Text End If 选择选择CPU If Not RadioButton3 Checked Or RadioButton4 Checked Or RadioButton5 Checked Then 29 MsgBox 请选择请选择CPU Exit Sub End If If RadioButton3 Checked Then ListBox1 Items Add RadioButton3 Text End If If RadioButton4 Checked Then ListBox1 Items Add RadioButton4 Text End If If RadioButton5 Checked Then ListBox1 Items Add RadioButton5 Text End If 30 选择其它选择其它设设备备 If CheckBox1 Checked Then ListBox1 Items Add CheckBox1 Text End If If CheckBox2 Checked Then ListBox1 Items Add CheckBox2 Text End If If CheckBox3 Checked Then ListBox1 Items Add CheckBox3 Text End If End Sub End Class 31 7 实验实验7 窗体 窗体调用等调用等 实验7 1 运行界面1 32 实验7 1 运行界面2 33 实验7 2 运行界面 显示统计结果 34 实验实验7代码 代码 Imports System Math Public Class shiyan7 1 Dim a 9 maxx minn sum As Integer Private Sub 退出退出ToolStripMenuItem Click Me Close End Sub Private Sub 产生产生10个个随机正整随机正整数数ToolStripMenuItem Click 产生产生10个个随机随机数数 ListBox1 Visible True 删除最大数删除最大数ToolStripMenuItem Enabled True 删除最小数删除最小数ToolStripMenuItem Enabled True 35 添加一个正整数添加一个正整数ToolStripMenuItem Enabled True 统计统计ToolStripMenuItem Enabled True ListBox1 Items Clear 清除列表清除列表框框中内中内容容 Randomize Dim i As Integer For i 0 To 9 产生产生1 100之间之间的的10个个随机随机数数 a i Int Rnd 100