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

1实验一 讲解实验一 讲解By Zhu Jing20. 主窗体主窗体主窗体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 Sub5Private 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.6Private 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 Class71. 实验实验1：文本框练习：文本框练习实验1 运行界面8• 实验实验1代码：代码：Public Class shiyan1 Private Sub Button1_Click(…) … ''隶书按钮隶书按钮 TextBox1.Font = New Font(“隶书隶书“, 25, FontStyle.Bold Or FontStyle.Italic) End SubPrivate Sub Button2_Click(…) … ''幼圆按钮幼圆按钮 TextBox1.Font = New Font(“幼圆幼圆“, 18, FontStyle.Italic Or FontStyle.Underline) End Sub9Private Sub Button3_Click(…) … ''复制按钮复制按钮 TextBox2.Text = TextBox1.SelectedText TextBox2.Font = TextBox1.Font End SubEnd Class102. 实验实验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 If12If Not IsNumeric(TextBox2.Text.Trim) Then MessageBox.Show(“'脚数脚数'必须输入数字必须输入数字“, “警告警告“) Me.TextBox2.Text = ““ Me.TextBox3.Text = ““ Exit Sub End IfIf Val(TextBox2.Text.trim) Mod 2 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) 18TextBox4.Text = realpart & “+“ & imagpart & “i“ TextBox5.Text = realpart & “- “ & imagpart & “i“ End If End If End SubPrivate Sub Button2_Click(…) … '结束结束按钮按钮 Me.Close() End Sub End Class194. 实验实验4：：生成随机生成随机数数实验4 运行界面20实验实验4代码：代码：Imports System.Math Public Class shiyan4 Dim a(9), i As Integer Dim max, min As Integer Dim avg As DecimalPrivate 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是是强制类型转换函强制类型转换函数数21If min > a(i) Then min = a(i) If max Mid(s, s.Length -i + 1, 1) Then ish = False Exit For End If Next End Function End Modulea . 首先为“实验一”项目添加一个模块首先为“实验一”项目添加一个模块module1，在，在 其中定义一个判断回文数函数其中定义一个判断回文数函数ISH。

24Public Class shiyan5Private 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窗体设计代码窗体设计代码25If IsH(TextBox1.Text) Then ListBox1.Items.Add(TextBox1.Text & “★★“) Else ListBox1.Items.Add(TextBox1.Text) End If TextBox1.Text = ““ End If End Sub End Class266. 实验实验6：：配配置置电脑电脑实验6 运行界面27实验实验6代码：代码：Public Class shiyan6Private 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 29MsgBox(“请选择请选择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 Class317. 实验实验7：窗体：窗体调用等调用等实验7—1 运行界面132实验7—1 运行界面233实验7—2 运行界面——显示统计结果34实验实验7代码：代码：Imports System.M。