程序設(shè)計應(yīng)用期末復(fù)習指導(dǎo)(含答案2011-.docx

1、程序設(shè)計應(yīng)用復(fù)習材料(2011-11)考試環(huán)境：Winxp、VS.NET2005、SQL2005考試形式與時間：上機、開卷、120分鐘。選擇題請參考網(wǎng)上課堂中的在線測試復(fù)原數(shù)據(jù)庫，數(shù)據(jù)庫名為學生信息管理。數(shù)據(jù)庫服務(wù)器名為localhost),使用Windows 身份驗證。試題中所涉及到的數(shù)據(jù)庫為：Exam2011,數(shù)據(jù)表結(jié)構(gòu)如下所示：用戶表結(jié)構(gòu)室表db。,學生信息 祿dbo .用戶摘要列名數(shù)據(jù)類型允許空nchar(lO)密碼nchar(lO)權(quán)限char(l)學生信息表結(jié)構(gòu)表匚dbo.學生信息七表-dbo.il程 摘要列名數(shù)據(jù)類型允許空學號nchar(lO)姓名nchar(lO)性別nchar

2、(2)出生年月datetime回專業(yè)名稱nchar(20)回家庭住址nchar(50)回電話nchar(lO)回電子郵件nchar(20)回相片nchar(20)回成績表結(jié)構(gòu)表dbo,專業(yè))表dbo.成笛 表dbo,學生信息 表dbo J列名數(shù)據(jù)類型允許空?:成績IDj int學號nchar(lO)課程名稱nchar(20)考試成績intn專業(yè)表結(jié)構(gòu)Me.TextBox3.Text =Me. TextBox3. Focus ()End IfEnd SubPrivate Sub Button3_Click(ByVai sender As System. Object, ByVai e As Sy

3、stem. EventArgs) Handles Button3. ClickEndEnd Sub 3、創(chuàng)建一個如以下圖所示的排序項目文件，以“統(tǒng)計”為文件名保存在考試目錄下，實現(xiàn) 如下功能:10)單擊“產(chǎn)生隨機整數(shù)”按鈕，產(chǎn)生5個1到100的隨機整數(shù)顯示在隨機整數(shù)文本框 中，數(shù)字之間用逗號分割。1. 實現(xiàn)“最大值"、“最小值”、“求和”功能2. 實現(xiàn)“平均值”的計算，保留2小數(shù)點四舍五入)。參考代碼Dim a(4) As IntegerPrivate Sub Buttonl_Click(ByVal sender As System. Object, ByVai e As Syste

4、m. EventArgs) Handles Buttonl. ClickDim i As IntegerDim rd As New RandomMe. TextBoxl. Clear ()For i = 0 To a. Length - 1a(i) = rd. Next (1, 101)Me. TextBoxl. Text &= a(i) &NextMe. TextBoxl. Text = Mid(Me. TextBoxl.Text, 1, Me. TextBoxl. Text. Length - 1)End SubSystem. EventArgs)Dim i, mx mx

5、= a(0)For i 二 1If mxSystem. EventArgs)Dim i, mx mx = a(0)For i 二 1If mxHandles Button2. ClickAs IntegerTo a. Length - 1< a(i) Then mx = a(i)End IfNextMe. TextBox2. Text = mx. ToStringEnd SubPrivate Sub Button3_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button3. Cl

6、ickDim i, mx As Integermx = a(0)For i = 1 To a. Length - 1If mx > a(i) Thenmx 二 a(i)End IfNextMe. TextBox3. Text = mx. ToStringEnd SubPrivate Sub Button4_Click(ByVal sender As System. Object, ByVai e As System. EventArgs) Handles Button4. ClickDim i, s As Integers = 0For i = 0 To a. Length - 1s +

7、 = a(i)NextMe. TextBox4. Text = s. ToStringEnd SubPrivate Sub Button5_Click(ByVal sender As System. Object, ByVai e As System. EventArgs) Handles Button5. ClickDim i, s As Integers = 0For i = 0 To a. Length - 1s + 二 a(i)NextMe. TextBox5. Text = Format(s / a. Length, 0.00)End SubSystem. EventArgs) Ha

8、ndles Button6. ClickEndEnd Sub4、創(chuàng)建一個如以下圖所示的程序，以“學生信息導(dǎo)航條”為文件名保存在考試目錄下。10) 能夠?qū)崿F(xiàn)對學生信息表的查詢、添加、修改和刪除操作。連接數(shù)據(jù)庫的操作步驟1.如以下圖所示£t Visual Studio項目但)生成但)調(diào)試Q)數(shù)據(jù)3門 工具(!)測試窗口地)社區(qū).I . e 屈 E為顯國數(shù)據(jù)姬Shift+Alt+DL4J2.選擇“數(shù)據(jù)庫"，單擊“下一步”3.第一次連接數(shù)據(jù)庫，單擊“新建連接二4 .選擇如以下圖所示的數(shù)據(jù)源5. 以下圖所示的服務(wù)器名：localhost登陸到服務(wù)器：使用windows身份驗證，選擇輸

9、入一個 數(shù)據(jù)庫名字：按考試試卷上的要求復(fù)原的數(shù)據(jù)庫名稱6.單擊“下一步”6.按題目要求選擇相應(yīng)的表，如以下圖所示7.選擇如下圖的“顯示數(shù)據(jù)源”lcrosoft Vi sual Studi(圖W）項目）生成d）調(diào)試CD）I* ft |LQ 顯示數(shù)據(jù)源，身*座|蒂 可起始頁數(shù)套好試）窗口地）社區(qū)© 幫助也） I 凹 卜|可言同.£t+Alt+D8.如以下圖所示，將表拖曳到窗體上，此題操作就完成了。3試包）數(shù)據(jù)Q） IS CL）刑試 窗口也）社區(qū)© 幫助0> Debug肖弊黑|章登辮雷I圖田|蚤匡七 Any CPU X-Ini xi數(shù)據(jù)源日通IDataSet5、創(chuàng)

10、建一個如以下圖所示的程序，以“用戶信息導(dǎo)航條”為文件名保存在考試目錄下。10)能夠?qū)崿F(xiàn)對用戶信息表的查詢、添加、修改和刪除操作。能夠?qū)崿F(xiàn)對用戶信息表的查詢、添加、修改和刪除操作。連接數(shù)據(jù)庫的步驟見第4題。此題只要將表中的各個字段拖曳到窗體就可以了【數(shù)據(jù)綁定】6、打開“數(shù)據(jù)綁定TEXT”項目文件。實現(xiàn)文本框控件與數(shù)據(jù)的綁定以及界面上按鈕的功能。1連接數(shù)據(jù)庫的步驟見第4題。2邦定的方法：選擇中對應(yīng)的文本框，屬性窗口找到DataBindings,選擇Text,下拉列表 選擇對應(yīng)的字段。如以下圖所示JKeTEZT li cr osoEt Vi sn&l Studio文件此)編輯© 視

11、圖(V) 項目)生成調(diào)試Q) 數(shù)3文件此)編輯© 視圖(V) 項目)生成調(diào)試Q) 數(shù)3M| exam20llDataSet. xsdForml. vbW§W|空解決方案資源管理器:團園孑口)ix 心 ajjo b )| :輯11巨串 劃|而冊業(yè)| m 訕囹麻|皿宵呷理For»l. vb t設(shè)計屬性IIUTextBoxl System. Windows. Forms. TextBox(Appli cati onSettin (D at aB indings)(Advanced)TagText任)遷)；0 白由亙祉數(shù)據(jù)源白成項目數(shù)據(jù)源exam201 IDataSetl

12、lIlrlllIlrl白國用戶密碼權(quán)限參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e As System. EventArgs) Handles MyBase. LoadMe.用戶TableAdapter. Fill (Me. Exam201 IDataSet.用戶)End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl.ClickMe.用戶B

13、indingSource. MoveFirst ()End SubPrivate Sub Button2_Click(ByVai senderSystem. EventArgs) Handles Button2. ClickMe.用戶BindingSource. MoveNext ()End SubPrivate Sub Button3_Click(ByVai senderSystem. EventArgs) Handles Button3. ClickMe.用戶BindingSource. MovePrevious ()End SubPrivate Sub Button4_Click(ByV

14、ai senderSystem. EventArgs) Handles Button4. ClickMe.用戶BindingSource. MoveLast ()End SubPrivate Sub Button5_Click(ByVai senderSystem. EventArgs) Handles Button5. ClickEndEnd Sub7、打開“數(shù)據(jù)綁定Combobox”項目文件。實現(xiàn)如下功能：(1) 將學生信息表中的字段與Combobox控件綁定。(2) 在Combobox控件中選擇學生，則在右邊區(qū)域顯示該學生的相關(guān)信息。 運行結(jié)果如以下圖所示。System. Object,

15、System. Object,AsAsByVaiByVaiAsAsSystem. Object,System. Object,ByVaiByVaiAsAs數(shù)據(jù)綁定Combobox學生信息學生姓名:學號： 性別： 出生年月： 家庭住址：上海黃浦區(qū)南京東路200號連接數(shù)據(jù)庫的步驟見第4題。Combobox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，如以下圖所示。 其余文本框邦定方法參考第六題。月稱 年名* 生業(yè)土 出專土號無學三frlLaJMLEJ參考代碼8、打開“數(shù)據(jù)綁定Listbox"項目文件。實現(xiàn)如下功能：(1) 將學生信息表中的學號字段與List

16、box控件綁定。(2) 在Listbox控件中選擇學生學號，則在右邊區(qū)域顯示該學生的相關(guān)信息。 運行結(jié)果如以下圖所示。連接數(shù)據(jù)庫的步驟見第4題。listbox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，參考第7題的圖 形，其余文本框邦定方法參考第六題。9、打開“數(shù)據(jù)綁定PIC”項目文件。實現(xiàn)如下功能：(1) 將學生信息表中的學號字段與Listbox控件綁定。(2) 在Listbox控件中選擇學生學號，則在右邊區(qū)域顯示該學生的相關(guān)信息。 圖片文件夾存放在bindebug文件夾中。運行結(jié)果如以下圖所示。相對路徑符是指向項目文件夾中的bindebug文件夾，可以使用

17、對象Application的 StarEpPath屬性獲取debug文件夾的絕對路徑。讀取時可以使用相對路徑，存放時只能使用 絕對路徑)連接數(shù)據(jù)庫的步驟見第4題。listbox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，參考第7題的圖 形，其余文本框邦定方法參考第六題。圖片picturebox的DataBindings的Tag屬性選擇照片字段。如以下圖所示。Pi cf.xueBoxl System. Windows. Forms. Pi ctur eBox參考代碼Private Sub Forml_Load (ByVai sender As System, O

18、bject, ByVai e As System. EventArgs) Handles MyBase. LoadMe.學生信息TableAdapter. Fill (Me. Exam2011DataSet.學生信息)Me. PictureBoxl. Image = Image. FromFile(pic & Me. PictureBoxl. Tag)End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl. ClickEn

19、dEnd SubPrivate Sub ListBoxl_SelectedIndexChanged(ByVal sender As System. Object, ByVai e As System. EventArgs) Handles ListBoxl. SelectedlndexChangedMe. PictureBoxl. Image 二 Image. FromFile(/z. pic，z & Me. PictureBoxl. Tag)End Sub【數(shù)據(jù)庫查詢】10、打開“用戶信息查詢”項目文件。實現(xiàn)“顯示所有用戶信息”和“查詢”功能。1. 單擊“顯示所有用戶信息”按鈕，顯示

20、用戶表中所有用戶信息。2. 在文本框中輸入要查詢的，單擊“查詢”按鈕，顯示該用戶的信息。3. 在文本框中輸入的信息為空，單擊“查詢”按鈕，顯示用戶表中所有用戶信息。4. 程序運行后結(jié)果如以下圖所示。10)課程表結(jié)構(gòu)表dbo.專業(yè) 表db。,成績 表-dbo.學生信息 表dboj列名數(shù)據(jù)類型允許空nchar(lO) 1專業(yè)名稱nchar(50)n表db6學生信息*，表db。課程 摘要列名數(shù)據(jù)類型允許空? 1課程代碼:nchar(lO)'模程蓊nchar(20)一、單項選擇題標簽控件的主要用途是(C)A. 輸入和顯示文本只能輸入文本B. 只能顯示文本顯示和編輯文本1. 以下哪一個表達是錯誤

21、的(A)文本框只能用于文本的輸入A. 文本框控件的主要功能是輸入或顯示文本信息文本框可以設(shè)置為只讀B. 文本框中的任何文字可以用“首”字符顯示listbox控件的items屬性表示(C)A. 控件在表單中的位置是否允許多列B. 選取項目的集合列表是否允許選取多個項目2. checkbox控件checked屬性值的數(shù)據(jù)類型是(C)整型A. 字符型布爾型B. 單精度型當復(fù)選框被選中時，checked的值是(C)A. 01B. truefalse3. 當單項選擇框被選中時，checked的值是(C)0A. 1trueB. false7. vb. net中允許用戶定義自己的數(shù)據(jù)結(jié)構(gòu)，通常使用關(guān)鍵字來定

22、義。(B)顯示所有用戶信息姓名密碼權(quán)chenchen0yuyu1米圜用戶信息查詢請輸入用戶姓名:查詢退出連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊如以下圖2所示的對象。sual Studi <生庖知=典您_數(shù)據(jù)也 督式© 工具ay cpF6 圈生成用戶信息查詢QJ） Shi£t+F6 重新生成用戶信息查詢但）文件d） 編輯視圖（V） 項目）生成21'tHD工具箱J-3! able Adapt指針ButtonCheckBoxjjl-O Xexam2011DataSetindov

23、sCheckedLi stBoxComboBoxDateTimePi ckerLabel1?©用戶信息查詢 一 li crosoft Vi sual Studi t圖1圖2參考代碼Private Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl. ClickMe.用戶TableAdapterl. Fill (Me. Exam2011 DataSet 1.用戶)Me. DataGridViewl. DataSource = Me. Exam201

24、1 DataSet 1.用戶End SubPrivate Sub Button2_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button2. ClickDim strl, xm As Stringxm 二 Me. TextBoxl.TextIf xm = Thenstrl ="select * from 用戶Elsestrl 二"select * from 用戶 where =' & xm &End IfDim ad As New SqlCl

25、ient. SqlDataAdapter (strl, Me.用戶TableAdapterl, Connection)Me. Exam2011DataSet1. Clear ()ad. Fill (Me. Exam2011 DataSet 1.用戶)Me. DataGridViewl. DataSource = Me. Exam2011DataSet 1 .用戶End SubPrivate Sub Button3_Click(ByVal sender As System. Object, ByVai e As System. EventArgs) Handles Button3. ClickE

26、ndEnd Sub11、打開“學生信息查詢”項目文件。按學號或?qū)崿F(xiàn)對學生信息模糊查詢功能。程序運行結(jié) 果如以下圖所示。15)連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e As System. EventArgs)Handles MyBase. LoadMe.學生信息TableAdapterl. Fill (Me. Exam201 IDataSetl.學生信

27、息)Me. DataGridl. DataSource = Me. Exam2011 DataSet 1.學生信息End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl. ClickDim strl, t As Stringt 二 Me. TextBoxl. Text. TrimIf t = Thenstrl = "select * from 學生信息ElseIf Me. RadioButtonl. Checked Th

28、enstrl = "select * from 學生信息 where 學號 like ' %” & t & ' Elsestrl ="select * from 學生信息 where like ' % & t & %'End IfEnd IfDim ad As New SqlClient. SqlDataAdapter (strl, Me.學生信息 TableAdapterl.Connection)Me. Exam2011DataSetl.學生信息.Clear ()ad. Fill (Me. Exam2011D

29、ataSetl.學生信息)me. DataGridl. DataSource=me. Exam201 IDataSet 1 .學生信息End Sub12、打開“學生成績查詢”項目文件。根據(jù)學號實現(xiàn)對學生成績匹配查詢功能，程序運行結(jié) 果如以下圖所示。10)連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e As System. EventArgs) Handles

30、 MyBase. LoadMe.成績TableAdapterl. Fill (Me. Exam201 IDataSet 1.成績)Me. DataGridViewl. DataSource 二 Me. Exam201 IDataSet 1.成績End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl. ClickDim xh As String = Me. TextBoxl.TextDim strl As String = &quo

31、t;select * from 成績 where 學號=' & xh & "Dim ad As New SqlClient. SqlDataAdapter (strl, Me.成績TableAdapterl. Connection)Me. Exam2011DataSetl.成績.Clear ()ad. Fill (Me. Exam2011 DataSet 1.成績)If Me. Exam2011DataSetl.成績.Rows. Count > 0 ThenMe. DataGridViewl. DataSource 二 Me. Exam2011DataS

32、etl.成績ElseMsgBox(沒有該學生的成績！ )End IfEnd SubPrivate Sub Button2_Click(ByVai sender As System. Object, ByVai e AsSystem. EventArgs) Handles Button2. ClickEndEnd Sub13、打開“學生成績查詢”項目文件。根據(jù)學號實現(xiàn)對學生成績模糊查詢功能。15)連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。Private Sub Forml_Load (B

33、yVai sender As System. Object, ByVai e As System. EventArgs) Handles MyBase. LoadMe.成績TableAdapterl. Fill (Me. Exam2011DataSetl.成績)Me. DataGridViewl. DataSource 二 Me. Exam2011DataSetl.成績.End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e AsSystem. EventArgs) Handles Buttonl. Cl

34、ickDim xh As String = Me. TextBoxl. TextDim strl As String = "select * from 成績 where 學號 like ' % & xh &Dim ad As New SqlClient. SqlDataAdapter (strl, Me.成績TableAdapterl. Connection)Me. Exam2011DataSetl.成績.Clear ()ad. Fill (Me. Exam2011DataSetl.成績)If Me. Exam2011DataSetl.成績.Rows. Cou

35、nt > 0 ThenMe. DataGridViewl. DataSource = Me. Exam201 IDataSetl.成績ElseMsgBox(沒有該學生的成績！ )End If.End SubPrivate Sub Button2_Click(ByVa1 sender As System. Object, ByVai e AsSystem. EventArgs) Handles Button2. ClickEndEnd Sub【數(shù)據(jù)記錄插入操作】14、打開“用戶注冊”項目文件，實現(xiàn)如下功能：15)1. 程序運行時，“保存”按鈕不可用。2. 輸入用戶名，單擊“驗證"

36、按鈕，假設(shè)在用戶表中已存在，則清空用戶名，重新輸 入用戶名；假設(shè)在用戶表中不存在，“保存”按鈕可用，輸入其它信息，完成用戶 注冊。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成 解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e As System. EventArgs) Handles MyBase. LoadMe.用戶TableAdapterl. Fill (Me. Exam2011DataSetl.用戶

37、)Me. Button2. Enabled = False.End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Buttonl. ClickFor i As Integer 二 0 To Me. Exam2011DataSetl.用戶.Count - 1If Me. TextBoxl. Text. Trim = Me. Exam2011DataSetl.用戶(i). . Trim Then Me.TextBoxl.Text ="&q

38、uot;Me. Button2. Enabled = FalseExit SubEnd IfNextMe. Button2. Enabled = TrueEnd SubPrivate Sub Button2_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button2. ClickIf Me.TextBox2. Text <> "" ThenMe.用戶TableAdapterl. Insert (Me. TextBoxl. Text. Trim,Me. Te

39、xtBox2. Text. Trim, Me. ComboBoxl. Selectedlndex. ToString)MsgBox(注冊成功！”)ElseMsgBox (z，請輸入密碼)End If.End SubPrivate Sub Button3_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button3. ClickEnd.End Sub15、打開“學生信息保存”項目文件，完成以下功能。15)1. 程序運行時，“保存”按鈕不可用。2. 輸入學號，單擊“驗證”按鈕，假設(shè)在學生信息表

40、中己存在，則清空學號，重新輸 入學號；假設(shè)在學生信息表中不存在，“保存”按鈕可用，輸入其它信息，完成保 存。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。注意：此題要自己添加兩個對象，分別為：Picturebox和OpenFileDialog,此題用到了 “學 生信息”和“專業(yè)”兩張表。參考代碼Dim zp As StringPrivate Sub Forml_Load(ByVai sender As System. Object, ByVai e As System. EventArgs

41、) Handles MyBase. LoadMe.學生信息TableAdapterl. Fill (Me. Exam2011DataSetl.學生信息)Me.專業(yè)TableAdapterl. Fill (Me. Exam201 IDataSetl.專業(yè))Me. ComboBox2. DataSource = Me. Exam201 IDataSetl.專業(yè)Me. ComboBox2. DisplayMember = 專業(yè)名稱Me. Button2. Enabled = FalseEnd SubPrivate Sub Buttonl_Click(ByVai sender As System. O

42、bject, ByVai e As System. EventArgs) Handles Buttonl. ClickFor i As Integer = 0 To Me. Exam201 IDataSetl.學生信息.Count - 1 If Me. TextBoxl. Text. Trim 二 Me. Exam201 IDataSetl.學生信息(i).學號.Trim Then Me. TextBoxl.Text =”Me. Button2. Enabled = FalseExit SubEnd IfNextMe. Button2. Enabled = True.End SubPrivat

43、e Sub Button2_Click(ByVai sender As System. Object, ByVai e As System. EventArgs) Handles Button2. ClickIf Me. TextBoxl. Text = Or Me. TextBox2. Text 二 Then MsgBox(z/紅色為必填項目！ )ElseMe.學生信息TableAdapterl. Insert (Me. TextBoxl. Text. Trim,Me. TextBox2. Text. Trim, Me. ComboBoxl. Text. Trim, Me. TextBox3

44、. Text. Trim,Me. ComboBox2. Text. Trim, Me. TextBox4. Text. Trim, Me. TextBox5. Text. Trim, Me. TextBox7. Text. Trim, Me. TextBox6. Text. Trim)Me. PictureBoxl. Image. Save(Application. StartupPath & /pic/ & zp) MsgBox (保存成功！")Me. Button2. Enabled = FalseEnd IfEnd SubPrivate Sub Button4_

45、Click(ByVa1 sender As System. Object, ByVai e As System. EventArgs) Handles Button4. ClickMe. OpenFileDialogl. Filter 二* * *. * | *. bmp | * bmp | * jpg | * jpg | * gif | * gif” If Me. OpenFileDialogl. ShowDialog = Windows. Forms. DialogResult. OK Then TryMe. PictureBoxl. Image =Image. FromFile(Me.

46、OpenFileDialogl. FileName)Catch ex As ExceptionEnd TryEnd If zp = Me. TextBox2. Text &Me. OpenFileDialogl. FileName. Substring(Me. OpenFileDialogl. FileName. LastlndexOf( .)Me. TextBox6. Text = zpEnd SubPrivate Sub Button3_Click(ByVai sender As System. Object, ByVai e AsSystem. EventArgs) Handle

47、s Button3. ClickEndEnd Sub16、打開“學生成績輸入”項目文件，完成以下功能。15)1. 輸入學號，假設(shè)學號在學生信息表中不存在，則不能輸入成績。2. 課程名稱為數(shù)學、物理、英語。3. 成績限定在。到100整數(shù)。4. 運行結(jié)果如以下圖所示連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。注意：此題用到了 “學生信息”和“成績”兩張表。參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e A

48、s System. EventArgs) Handles MyBase. LoadMe.成績TableAdapterl. Fill (Me. Exam2011 DataSet 1.成績)Me.學生信息TableAdapterl. Fill (Me. Exam2011DataSetl.學生信息)End SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e AsSystem. EventArgs) Handles Buttonl. ClickFor i As Integer = 0 To Me. Exam2011D

49、ataSetl.學生信息.Count - 1If Me. TextBoxl. Text. Trim = Me. Exam2011 DataSet 1.學生信息(i).學號.TrimThenIf Vai (Me. TextBox2. Text) > 0 And Vai (Me. TextBox2. Text) < 100 Then Me.成績TableAdapterl Insert (Me. TextBoxl. Text. Trim,Me. ComboBoxl. Text. Trim, Me. TextBox2. Text. Trim)MsgBox C保存成功！)Exit SubEl

50、seMsgBox (成績限定在到之間的整數(shù)！ )Exit SubEnd IfEnd IfNextMsgBox (沒有該學生，請重新輸入! )End SubPrivate Sub Button2_Click(ByVa1 sender As System. Object, ByVai e AsSystem. EventArgs) Handles Button2. ClickEndEnd Sub17、打開“添加課程”項目文件，完成以下功能。15)單擊“添加課程”按鈕，課程編號自動生成，(課程表中最后一條記錄的課程編號加1)。 輸入課程名稱后單擊“保存”按鈕，保存記錄。連接數(shù)據(jù)庫的步驟見第4題。連接好

51、數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼Private Sub Forml_Load (ByVai sender As System. Object, ByVai e As System. EventArgs) Handles MyBase. LoadMe.課程TableAdapterl. Fill (Me. Exam2011DataSetl.課程)Me. Button2. Enabled 二 False.End SubPrivate Sub Buttonl_Click(ByVai sender As Sy

52、stem. Object, ByVai e AsSystem. EventArgs) Handles Buttonl. ClickDim i As IntegerDim bhstr, pr As StringIf Me. Exam2011DataSetl.課程.Count = 0 Thenbhstr = 0001Me. TextBoxl. Text = bhstrElsebhstr = Me. Exam201 IDataSet 1.課程(Me. Exam201 IDataSetl.課程.Count - 1). 課程代碼pr 二 bhstr. Substring (0, bhstr, Lastl

53、ndexOf (0)Trimbhstr = pr & (Vai(bhstr) + 1). ToStringEnd IfMe. TextBoxl. Text = bhstrMe. Buttonl. Enabled 二 FalseMe. Button2. Enabled 二 TrueMe. TextBox2. Focus ()End SubPrivate Sub Button2_Click(ByVa1 sender As System. Object, ByVai e As System. EventArgs) Handles Button2. ClickIf TextBox2. Text

54、 = "" ThenMsgBox(課程名稱不能為空！ )Exit SubEnd IfMe.課程TableAdapterl. Insert (Me. TextBoxl. Text. Trim,Me. TextBox2. Text. Trim)MsgBoxC保存成功！ )Me. Button2. Enabled = FalseMe. Buttonl. Enabled 二 TrueMe. TextBoxl.Text 二Me. TextBox2. Text 二End SubPrivate Sub Button3_Click(ByVai sender As System. Objec

55、t, ByVai e AsSystem. EventArgs) Handles Button3. ClickEnd.End Sub18、打開“添加專業(yè)”項目文件，完成以下功能。15)單擊“添加專業(yè)”按鈕，專業(yè)編號自動生成，(專業(yè)表中最后一條記錄的課程編號加1)。 輸入專業(yè)名稱后單擊“保存”按鈕，保存記錄。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決 方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。Private Sub Forml_Load (ByVai sender As System. Object, By Vai e As Sys

56、tem. EventArgs) Handles MyBase. LoadMe.專業(yè)TableAdapterl. Fill (Me. Exam201 IDataSetl.專業(yè))Me. Button2. Enabled = FalseEnd SubPrivate Sub Buttonl_Click(ByVai sender As System. Object, ByVai e AsSystem. EventArgs) Handles Buttonl. ClickDim i As IntegerDim bhstr, pr As StringIf Me. Exam2011DataSetl.專業(yè).Count = 0 Thenbhstr = 0001Elsebhstr = Me. Exam201 IDataSe11.專業(yè)(Me. Exam2011DataSetl.專業(yè).Count - 1). 專業(yè)代碼pr = bhstr. Substring (0, bhstr. LastlndexOf(0)+1)