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

《程序設(shè)計應(yīng)用》復(fù)習(xí)材料（2023-11）考試環(huán)境：Winxp、VS.NET2005、SQL2005考試形式與時間：上機、開卷、120分鐘。選擇題請參考網(wǎng)上課堂中的在線測試還原數(shù)據(jù)庫，數(shù)據(jù)庫名為學(xué)生信息管理。數(shù)據(jù)庫服務(wù)器名為（localhost），使用Windows身份驗證。試題中所涉及到的數(shù)據(jù)庫為：Exam2023，數(shù)據(jù)表結(jié)構(gòu)如下所示：用戶表結(jié)構(gòu)學(xué)生信息表結(jié)構(gòu)成績表結(jié)構(gòu)專業(yè)表結(jié)構(gòu)課程表結(jié)構(gòu)一、單選題1.標(biāo)簽控件的主要用途是(C)A.輸入和顯示文本B.只能輸入文本C.只能顯示文本D.顯示和編輯文本2.以下哪一個敘述是錯誤的(A)A.文本框只能用于文本的輸入B.文本框控件的主要功能是輸入或顯示文本信息C.文本框可以設(shè)置為只讀D.文本框中的任何文字可以用“#”字符顯示3.listbox控件的items屬性表示(C)A.控件在表單中的位置B.是否允許多列C.選取項目的集合列表D.是否允許選取多個項目4.checkbox控件checked屬性值的數(shù)據(jù)類型是(C)A.整型B.字符型C.布爾型D.單精度型5.當(dāng)復(fù)選框被選中時，checked的值是(C)A.0B.1C.trueD.false6.當(dāng)單選框被選中時，checked的值是(C)A.0B.1C.trueD.false7.7.中允許用戶定義自己的數(shù)據(jù)結(jié)構(gòu)，通常使用關(guān)鍵字來定義。(B)A.typeB.structureC.dimD.public8.do…loopwhile[條件]，該語句表示(C)A.先判斷，后執(zhí)行；條件成立執(zhí)行循環(huán)體B.先判斷，后執(zhí)行；條件不成立執(zhí)行循環(huán)體C.先執(zhí)行，后判斷；條件成立執(zhí)行循環(huán)體D.先執(zhí)行，后判斷；條件不成立執(zhí)行循環(huán)體9.10.與過程的信息交換是通過變元傳遞實現(xiàn)的，過程的變元傳遞(C)A.只有按值傳送一種B.只有按址傳送一種C.有按值傳送和按址傳送二種D.不能確定10.一般簡單的數(shù)據(jù)綁定是使用控件的屬性來指定綁定對象(B)A.TextB.BindingsC.DatasourceD.Datamember11.Connection對象是對象和數(shù)據(jù)庫連接的橋梁，當(dāng)數(shù)據(jù)庫被連接之后，以通過對象執(zhí)行SQL命令。(B)A.DatasetB.CommandC.RecordsetD.ADO12.讓DATAGRID控件在顯示數(shù)據(jù)時出現(xiàn)交替色，需要對下列哪個屬性進行設(shè)置(A)A.AlternatingbackcolorB.AnchorC.ActiveCaptionD.Backgroundcolor13.Me.bindingcontext(ds1,”stinfo”).position用于獲得ds1中游標(biāo)的當(dāng)前位置，如果一共有10條記錄，而當(dāng)前所在位置是第3條，則position屬性返回的值是(A)A.2B.3C.4D.1014.15.Me.bindingcontext(ds1,”stinfo”).count中count函數(shù)表示(D)A.stinfo中年齡的平均值B.stinfo表中年齡的最大值C.stinfo表中年齡的最小值D.記錄行數(shù)15.Ds1.stinfo.rows(me.bindingcontext(ds1,”stinfo”).position.delete()中stinfo表示(A)A.表名B.數(shù)據(jù)庫名C.控件名D.字段名16.Ds1.stinfo.rows(me.bindingcontext(ds1,”stinfo”).position).delete()中delete表示(B)A.添加新行B.刪除當(dāng)前行C.更新當(dāng)前行D.選擇當(dāng)前行17.TIMER控件的屬性實現(xiàn)控制觸發(fā)時間事件的間隔。(D)A.TimeB.StepC.NameD.Interval18.Me.close的作用是(C)A.關(guān)閉程序B.裝載程序C.關(guān)閉窗體D.顯示窗體19.20.有關(guān)DataSet，以下哪個說法是錯誤的(B)A.可以包含多個數(shù)據(jù)表B.只能包含一個數(shù)據(jù)表C.是XML與ADO結(jié)合的產(chǎn)物D.是ADO.NET的核心20.21.Listbox列表框以多列形式顯示項時，下列哪個屬性的值為TRUE(A)A.MulticolumnB.ScrollalwaysvisibleC.SortedD.Enabled21.Combobox控件中可以設(shè)置數(shù)據(jù)源的屬性是(B)A.TextB.DatasoureC.EnabledD.Displaymember22.treeview控件中哪個屬性可以獲取分配給樹視圖的樹節(jié)點集合(B)A.NameB.NodesC.TagD.Visible23.在treeview控件中可以設(shè)置哪個屬性對節(jié)點進行排序(C)A.NodesB.NameC.SortedD.Tabindex24..在DATAGRID控件中，通過哪個屬性設(shè)置是否可以編輯、添加或者刪除網(wǎng)格中的行(D)A.DockB.EnabledC.NameD.Readonly25.如果x=4，那么以下運算結(jié)果為false的表達式是(A)A.(x<=4)and(x>=6)B.(x>=4)Or(x>=6)C.(x>=4)Xor(x>=6)D.not(x<>4)26.VB.NET中的函數(shù)有內(nèi)部函數(shù)和用戶自定義函數(shù)，以下哪一個不是內(nèi)部函數(shù)(D)A.ABSB.SINC.SQRD.MYDB27.調(diào)用bindingcontext的“cancecurrentedit(D)”方法可以A.對數(shù)據(jù)所做的更改將被拒絕B.結(jié)束程序C.刪除當(dāng)前所在行D.取消添加新行28.ME.Datagrid1.select(datagrid1.currentrowindex)中select方法的作用是(C)A.獲取選中行的數(shù)目B.獲取當(dāng)前行所在的位置C.選中當(dāng)前活動行D.獲取當(dāng)前行的值29.return語句的功能是(A)A.返回B.回車C.將sub或function控制權(quán)交給調(diào)用端D.退出30.下面哪一項不是CrystalReports提供的功能(D)A.匯總B.排序C.分組D.數(shù)據(jù)有效性31.CrystalReports能夠?qū)蟊碇械臄?shù)據(jù)進行導(dǎo)出為多種不同類型的格式，但不包括(C)A.XMLB.PDFC.WAVD.XLS32.Command的Commandtype默認(rèn)屬性為(A)A.CommandtextB.CommandStoredProcedureC.StringD.Int1633.使用SQL語句來完成數(shù)據(jù)操作，Commandtype屬性須設(shè)置為(B)A.CommandStoredProcedureB.CommandtextC.StringD.Int1634.使用存儲過程來完成數(shù)據(jù)操作，Commandtype屬性須設(shè)置為(A)A.CommandStoredProcedureB.CommandtextC.StringD.Int1635.下列說法中，錯誤的是(A)A.DATASET中只能包含一個DATATABLEB.DATASET中可以包含多個DATATABLEC.DATATABLE是DATASET中的一個對象D.DATASET與數(shù)據(jù)庫表的概念基本一致36.Combobox控件中顯示數(shù)據(jù)集中的某個字段的值，可以設(shè)置下列哪個屬性(D)A.TextB.DatasoureC.EnabledD.Displaymember37..Listbox控件顯示一個項列表，有關(guān)SelectionMode屬性，下列正確的是。(A)A.確定一次可以選擇多少列表項B.設(shè)置水平滾動條C.設(shè)置垂直滾動條D.以上都可以38.DataGrid控件的數(shù)據(jù)綁定通常使用控件的屬性來指定綁定對象。(C)A.TextB.BindingsC.DatasourceD.Datamember39.TextBox控件的數(shù)據(jù)綁定通常使用控件的屬性來指定綁定對象。(B)A.TextB.BindingsC.DatasourceD.Datamember40.下列SQL語句“Select*from學(xué)生信息where學(xué)號=’20100001’”中的“學(xué)生信息”表示。(AA.表名B.數(shù)據(jù)庫名C.控件名D.字段名41.下列SQL語句“Select*from學(xué)生信息where學(xué)號=’20100001’”中的“where學(xué)號='20230001'”表示。(A.表名B.數(shù)據(jù)庫名C.查詢條件D.字段名42.有關(guān)CrystalReports說法正確的是。(A)A.報表開發(fā)工具B.一個控件C.不能連接到數(shù)據(jù)源D.使用CrystalReports不能進行圖表制作43.ExitFOR可以用在循環(huán)結(jié)構(gòu)中。(A)A.FOR…NEXTB.DO…LOOPUNTILC.WHILE…ENDWHILED.以上皆可44.FIRSTWORD=MID（“SHANGHAI”，2，3），F(xiàn)IRSTWORD變量的值是。(B)A.ANGB.HANC.HAID.SHA45.在for…next循環(huán)語句中，步長<0的條件是(B)A.步長不可能<0B.初值>終值C.初值<終值D.以上兩重情況都可以【基本類型】1、創(chuàng)建一個如下圖所示的排序項目文件，以“排序”為文件名保存在考試目錄下。（10）單擊“產(chǎn)生隨機整數(shù)”按鈕，產(chǎn)生5個1到100的隨機整數(shù)顯示在隨機整數(shù)文本框中。選擇排序方式，單擊“排序”按鈕，完成排序，并將排序結(jié)果顯示在已排序文本框中。數(shù)字之間用逗號分割。參考代碼Dima(4)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimrdAsNewSystem.RandomMe.TextBox1.Text=""Fori=0To4a(i)=rd.Next(1,100)Me.TextBox1.Text+=a(i).ToString+","NextMe.TextBox1.Text=Mid(Me.TextBox1.Text,1,Me.TextBox1.Text.length-1)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,j,kAsIntegerMe.TextBox2.Text=""IfMe.RadioButton1.CheckedThenFori=0To3Forj=i+1To4Ifa(i)>a(j)Thenk=a(i):a(i)=a(j):a(j)=kEndIfNextNextElseFori=0To3Forj=i+1To4Ifa(i)<a(j)Thenk=a(i):a(i)=a(j):a(j)=kEndIfNextNextEndIfEndIfFori=0To4Me.TextBox2.Text+=a(i).ToString+","NextMe.TextBox2.Text=Mid(Me.TextBox2.Text,1,Me.TextBox2.Text.length-1)EndSub2、創(chuàng)建一個如下圖所示的排序項目文件，以“加法練習(xí)器”為文件名保存在考試目錄下。（10）在窗體的LOAD事件中，“判斷”按鈕不可用。單擊“出題”按鈕，產(chǎn)生二個1~100的隨機整數(shù)，分別顯示在二個文本框中，同時“出題”按鈕不可用，并將光標(biāo)定位在第三個文本框中。在文本框中輸入運算結(jié)果，“判斷”按鈕可用。單擊“判斷”按鈕，若結(jié)果正確，“判斷”按鈕不可用，“出題”按鈕可用；若結(jié)果不正確，清除第三個文本框中的內(nèi)容，可重新輸入數(shù)據(jù)。單擊“結(jié)束”按鈕，結(jié)束程序的運行。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Button2.Enabled=FalseEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimbAsNewSystem.RandomMe.TextBox1.Text=b.Next(1,100).ToStringMe.TextBox2.Text=b.Next(1,100).ToStringMe.TextBox3.Text=""Me.TextBox3.Focus()Me.Button1.Enabled=FalseEndSubPrivateSubTextBox3_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox3.TextChangedMe.Button2.Enabled=TrueEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfVal(Me.TextBox3.Text)=Val(Me.TextBox1.Text)+Val(Me.TextBox2.Text)ThenMe.Button1.Enabled=TrueMe.Button2.Enabled=FalseElseMe.TextBox3.Text=""Me.TextBox3.Focus()EndIfEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub3、創(chuàng)建一個如下圖所示的排序項目文件，以“統(tǒng)計”為文件名保存在考試目錄下，實現(xiàn)如下功能：（10）單擊“產(chǎn)生隨機整數(shù)”按鈕，產(chǎn)生5個1到100的隨機整數(shù)顯示在隨機整數(shù)文本框中，數(shù)字之間用逗號分割。實現(xiàn)“最大值”、“最小值”、“求和”功能實現(xiàn)“平均值”的計算，保留2小數(shù)點（四舍五入）。參考代碼Dima(4)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimrdAsNewRandomMe.TextBox1.Clear()Fori=0Toa.Length-1a(i)=rd.Next(1,101)Me.TextBox1.Text&=a(i)&","NextMe.TextBox1.Text=Mid(Me.TextBox1.Text,1,Me.TextBox1.Text.Length-1)EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,mxAsIntegermx=a(0)Fori=1Toa.Length-1Ifmx<a(i)Thenmx=a(i)EndIfNextMe.TextBox2.Text=mx.ToStringEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimi,mxAsIntegermx=a(0)Fori=1Toa.Length-1Ifmx>a(i)Thenmx=a(i)EndIfNextMe.TextBox3.Text=mx.ToStringEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimi,sAsIntegers=0Fori=0Toa.Length-1s+=a(i)NextMe.TextBox4.Text=s.ToStringEndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimi,sAsIntegers=0Fori=0Toa.Length-1s+=a(i)NextMe.TextBox5.Text=Format(s/a.Length,"0.00")EndSubPrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickEndEndSub4、創(chuàng)建一個如下圖所示的程序，以“學(xué)生信息導(dǎo)航條”為文件名保存在考試目錄下。（10）能夠?qū)崿F(xiàn)對學(xué)生信息表的查詢、添加、修改和刪除操作。連接數(shù)據(jù)庫的操作步驟1.如下圖所示2.選擇“數(shù)據(jù)庫”，單擊“下一步”3.第一次連接數(shù)據(jù)庫，單擊“新建連接”。4.選擇如下圖所示的數(shù)據(jù)源5.下圖所示的服務(wù)器名：localhost登陸到服務(wù)器：使用windows身份驗證，選擇輸入一個數(shù)據(jù)庫名字：按考試試卷上的要求還原的數(shù)據(jù)庫名稱6.單擊“下一步”按題目要求選擇相應(yīng)的表，如下圖所示7.選擇如圖所示的“顯示數(shù)據(jù)源”8.如下圖所示，將表拖曳到窗體上，本題操作就完成了。5、創(chuàng)建一個如下圖所示的程序，以“用戶信息導(dǎo)航條”為文件名保存在考試目錄下。（10）能夠?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)的字段。如下圖所示參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.用戶TableAdapter.Fill(Me.Exam2023DataSet.用戶)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMe.用戶BindingSource.MoveFirst()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.用戶BindingSource.MoveNext()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickMe.用戶BindingSource.MovePrevious()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickMe.用戶BindingSource.MoveLast()EndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickEndEndSub7、打開“數(shù)據(jù)綁定Combobox”項目文件。實現(xiàn)如下功能：將學(xué)生信息表中的姓名字段與Combobox控件綁定。在Combobox控件中選擇學(xué)生姓名，則在右邊區(qū)域顯示該學(xué)生的相關(guān)信息。運行結(jié)果如下圖所示。連接數(shù)據(jù)庫的步驟見第4題。Combobox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，如下圖所示。其余文本框邦定方法參考第六題。參考代碼8、打開“數(shù)據(jù)綁定Listbox”項目文件。實現(xiàn)如下功能：將學(xué)生信息表中的學(xué)號字段與Listbox控件綁定。在Listbox控件中選擇學(xué)生學(xué)號，則在右邊區(qū)域顯示該學(xué)生的相關(guān)信息。運行結(jié)果如下圖所示。連接數(shù)據(jù)庫的步驟見第4題。listbox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，參考第7題的圖形，其余文本框邦定方法參考第六題。9、打開“數(shù)據(jù)綁定PIC”項目文件。實現(xiàn)如下功能：將學(xué)生信息表中的學(xué)號字段與Listbox控件綁定。在Listbox控件中選擇學(xué)生學(xué)號，則在右邊區(qū)域顯示該學(xué)生的相關(guān)信息。圖片文件夾存放在bin\debug文件夾中。運行結(jié)果如下圖所示。（相對路徑符“.”是指向項目文件夾中的bin\debug文件夾，可以使用對象Application的StartupPath屬性獲取debug文件夾的絕對路徑。讀取時可以使用相對路徑，存放時只能使用絕對路徑）連接數(shù)據(jù)庫的步驟見第4題。listbox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，參考第7題的圖形，其余文本框邦定方法參考第六題。圖片picturebox的DataBindings的Tag屬性選擇照片字段。如下圖所示。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.學(xué)生信息TableAdapter.Fill(Me.Exam2023DataSet.學(xué)生信息)Me.PictureBox1.Image=Image.FromFile(".\pic\"&Me.PictureBox1.Tag)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndEndSubPrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChangedMe.PictureBox1.Image=Image.FromFile(".\pic\"&Me.PictureBox1.Tag)EndSub【數(shù)據(jù)庫查詢】10、打開“用戶信息查詢”項目文件。實現(xiàn)“顯示所有用戶信息”和“查詢”功能。單擊“顯示所有用戶信息”按鈕，顯示用戶表中所有用戶信息。在文本框中輸入要查詢的姓名，單擊“查詢”按鈕，顯示該用戶的信息。在文本框中輸入的信息為空，單擊“查詢”按鈕，顯示用戶表中所有用戶信息。程序運行后結(jié)果如下圖所示。（10）連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊如下圖2所示的對象。圖1圖2參考代碼PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickMe.用戶TableAdapter1.Fill(Me.Exam2023DataSet1.用戶)Me.DataGridView1.DataSource=Me.Exam2023DataSet1.用戶EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimstr1,xmAsStringxm=Me.TextBox1.TextIfxm=""Thenstr1="select*from用戶"Elsestr1="select*from用戶where姓名='"&xm&"'"EndIfDimadAsNewSqlClient.SqlDataAdapter(str1,Me.用戶TableAdapter1.Connection)Me.Exam2023DataSet1.Clear()ad.Fill(Me.Exam2023DataSet1.用戶)Me.DataGridView1.DataSource=Me.Exam2023DataSet1.用戶EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub11、打開“學(xué)生信息查詢”項目文件。按學(xué)號或姓名實現(xiàn)對學(xué)生信息模糊查詢功能。程序運行結(jié)果如下圖所示。（15）連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.學(xué)生信息TableAdapter1.Fill(Me.Exam2023DataSet1.學(xué)生信息)Me.DataGrid1.DataSource=Me.Exam2023DataSet1.學(xué)生信息EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimstr1,tAsStringt=MeIft=""Thenstr1="select*from學(xué)生信息"ElseIfMe.RadioButton1.CheckedThenstr1="select*from學(xué)生信息where學(xué)號like'%"&t&"%'"Elsestr1="select*from學(xué)生信息where姓名like'%"&t&"%'"EndIfEndIfDimadAsNewSqlClient.SqlDataAdapter(str1,Me.學(xué)生信息TableAdapter1.Connection)Me.Exam2023DataSet1.學(xué)生信息.Clear()ad.Fill(Me.Exam2023DataSet1.學(xué)生信息)me.DataGrid1.DataSource=me.Exam2023DataSet1.學(xué)生信息EndSub12、打開“學(xué)生成績查詢”項目文件。根據(jù)學(xué)號實現(xiàn)對學(xué)生成績匹配查詢功能，程序運行結(jié)果如下圖所示。（10）連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.成績TableAdapter1.Fill(Me.Exam2023DataSet1.成績)Me.DataGridView1.DataSource=Me.Exam2023DataSet1.成績EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxhAsString=Me.TextBox1.TextDimstr1AsString="select*from成績where學(xué)號='"&xh&"'"DimadAsNewSqlClient.SqlDataAdapter(str1,Me.成績TableAdapter1.Connection)Me.Exam2023DataSet1.成績.Clear()ad.Fill(Me.Exam2023DataSet1.成績)IfMe.Exam2023DataSet1.成績.Rows.Count>0ThenMe.DataGridView1.DataSource=Me.Exam2023DataSet1.成績ElseMsgBox("沒有該學(xué)生的成績！")EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub13、打開“學(xué)生成績查詢”項目文件。根據(jù)學(xué)號實現(xiàn)對學(xué)生成績模糊查詢功能。（15）連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.成績TableAdapter1.Fill(Me.Exam2023DataSet1.成績)Me.DataGridView1.DataSource=Me.Exam2023DataSet1.成績EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxhAsString=Me.TextBox1.TextDimstr1AsString="select*from成績where學(xué)號like'%"&xh&"%'"DimadAsNewSqlClient.SqlDataAdapter(str1,Me.成績TableAdapter1.Connection)Me.Exam2023DataSet1.成績.Clear()ad.Fill(Me.Exam2023DataSet1.成績)IfMe.Exam2023DataSet1.成績.Rows.Count>0ThenMe.DataGridView1.DataSource=Me.Exam2023DataSet1.成績ElseMsgBox("沒有該學(xué)生的成績！")EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub【數(shù)據(jù)記錄插入操作】14、打開“用戶注冊”項目文件，實現(xiàn)如下功能：（15）程序運行時，“保存”按鈕不可用。輸入用戶名，單擊“驗證”按鈕，若在用戶表中已存在，則清空用戶名，重新輸入用戶名；若在用戶表中不存在，“保存”按鈕可用，輸入其它信息，完成用戶注冊。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.用戶TableAdapter1.Fill(Me.Exam2023DataSet1.用戶)Me.Button2.Enabled=FalseEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickForiAsInteger=0ToMe.Exam2023DataSet1.用戶.Count-1IfMe.TextBox1.Text.Trim=Me.Exam2023DataSet1.用戶(i).姓名.TrimThenMe.TextBox1.Text=""Me.Button2.Enabled=FalseExitSubEndIfNextMe.Button2.Enabled=TrueEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfMe.TextBox2.Text<>""ThenMe.用戶TableAdapter1.Insert(Me.TextBox1.Text.Trim,Me.TextBox2.Text.Trim,Me.ComboBox1.SelectedIndex.ToString)MsgBox("注冊成功！")ElseMsgBox("請輸入密碼)")EndIfEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub15、打開“學(xué)生信息保存”項目文件，完成以下功能。（15）程序運行時，“保存”按鈕不可用。輸入學(xué)號，單擊“驗證”按鈕，若在學(xué)生信息表中已存在，則清空學(xué)號，重新輸入學(xué)號；若在學(xué)生信息表中不存在，“保存”按鈕可用，輸入其它信息，完成保存。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。注意：此題要自己添加兩個對象，分別為：Picturebox和OpenFileDialog，此題用到了“學(xué)生信息”和“專業(yè)”兩張表。參考代碼DimzpAsStringPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.學(xué)生信息TableAdapter1.Fill(Me.Exam2023DataSet1.學(xué)生信息)Me.專業(yè)TableAdapter1.Fill(Me.Exam2023DataSet1.專業(yè))Me.ComboBox2.DataSource=Me.Exam2023DataSet1.專業(yè)Me.ComboBox2.DisplayMember="專業(yè)名稱"Me.Button2.Enabled=FalseEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickForiAsInteger=0ToMe.Exam2023DataSet1.學(xué)生信息.Count-1IfMe.TextBox1.Text.Trim=Me.Exam2023DataSet1.學(xué)生信息(i).學(xué)號.TrimThenMe.TextBox1.Text=""Me.Button2.Enabled=FalseExitSubEndIfNextMe.Button2.Enabled=TrueEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfMe.TextBox1.Text=""OrMe.TextBox2.Text=""ThenMsgBox("紅色為必填項目！")ElseMe.學(xué)生信息TableAdapter1.Insert(Me.TextBox1.Text.Trim,Me.TextBox2.Text.Trim,Me.ComboBox1.Text.Trim,Me.TextBox3.Text.Trim,Me.ComboBox2.Text.Trim,Me.TextBox4.Text.Trim,Me.TextBox5.Text.Trim,Me.TextBox7.Text.Trim,Me.TextBox6.Text.Trim)Me.PictureBox1.Image.Save(Application.StartupPath&"/pic/"&zp)MsgBox("保存成功!")Me.Button2.Enabled=FalseEndIfEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickMe.OpenFileDialog1.Filter="*.*|*.*|*.bmp|*.bmp|*.jpg|*.jpg|*.gif|*.gif"IfMe.OpenFileDialog1.ShowDialog=Windows.Forms.DialogResult.OKThenTryMe.PictureBox1.Image=Image.FromFile(Me.OpenFileDialog1.FileName)CatchexAsExceptionEndTryEndIfzp=Me.TextBox2.Text&Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf("."))Me.TextBox6.Text=zpEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub16、打開“學(xué)生成績輸入”項目文件，完成以下功能。（15）輸入學(xué)號，若學(xué)號在學(xué)生信息表中不存在，則不能輸入成績。課程名稱為數(shù)學(xué)、物理、英語。成績限定在0到100整數(shù)。運行結(jié)果如下圖所示連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。注意：此題用到了“學(xué)生信息”和“成績”兩張表。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.成績TableAdapter1.Fill(Me.Exam2023DataSet1.成績)Me.學(xué)生信息TableAdapter1.Fill(Me.Exam2023DataSet1.學(xué)生信息)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickForiAsInteger=0ToMe.Exam2023DataSet1.學(xué)生信息.Count-1IfMe.TextBox1.Text.Trim=Me.Exam2023DataSet1.學(xué)生信息(i).學(xué)號.TrimThenIfVal(Me.TextBox2.Text)>0AndVal(Me.TextBox2.Text)<100ThenMe.成績TableAdapter1.Insert(Me.TextBox1.Text.Trim,Me.ComboBox1.Text.Trim,Me.TextBox2.Text.Trim)MsgBox("保存成功！")ExitSubElseMsgBox("成績限定在到之間的整數(shù)!")ExitSubEndIfEndIfNextMsgBox("沒有該學(xué)生,請重新輸入!")EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub17、打開“添加課程”項目文件，完成以下功能。（15）單擊“添加課程”按鈕，課程編號自動生成，（課程表中最后一條記錄的課程編號加1）。輸入課程名稱后單擊“保存”按鈕，保存記錄。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.課程TableAdapter1.Fill(Me.Exam2023DataSet1.課程)Me.Button2.Enabled=FalseEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimbhstr,prAsStringIfMe.Exam2023DataSet1.課程.Count=0Thenbhstr="0001"Me.TextBox1.Text=bhstrElsebhstr=Me.Exam2023DataSet1.課程(Me.Exam2023DataSet1.課程.Count-1).課程代碼pr=bhstr.Substring(0,bhstr.LastIndexOf("0")).Trimbhstr=pr&(Val(bhstr)+1).ToStringEndIfMe.TextBox1.Text=bhstrMe.Button1.Enabled=FalseMe.Button2.Enabled=TrueMe.TextBox2.Focus()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfTextBox2.Text=""ThenMsgBox("課程名稱不能為空！")ExitSubEndIfMe.課程TableAdapter1.Insert(Me.TextBox1.Text.Trim,Me.TextBox2.Text.Trim)MsgBox("保存成功！")Me.Button2.Enabled=FalseMe.Button1.Enabled=TrueMe.TextBox1.Text=""Me.TextBox2.Text=""EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub18、打開“添加專業(yè)”項目文件，完成以下功能。（15）單擊“添加專業(yè)”按鈕，專業(yè)編號自動生成，（專業(yè)表中最后一條記錄的課程編號加1）。輸入專業(yè)名稱后單擊“保存”按鈕，保存記錄。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.專業(yè)TableAdapter1.Fill(Me.Exam2023DataSet1.專業(yè))Me.Button2.Enabled=FalseEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimbhstr,prAsStringIfMe.Exam2023DataSet1.專業(yè).Count=0Thenbhstr="0001"Elsebhstr=Me.Exam2023DataSet1.專業(yè)(Me.Exam2023DataSet1.專業(yè).Count-1).專業(yè)代碼pr=bhstr.Substring(0,bhstr.LastIndexOf("0")+1)bhstr=pr&(Val(bhstr)+1)EndIfMe.TextBox1.Text=bhstrMe.Button1.Enabled=FalseMe.Button2.Enabled=TrueMe.TextBox2.Focus()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfMe.TextBox2.Text=""ThenMsgBox("專業(yè)名稱不能為空！")ExitSubEndIfMe.專業(yè)TableAdapter1.Insert(Me.TextBox1.Text.Trim,Me.TextBox2.Text.Trim)MsgBox("保存成功！")Me.Button1.Enabled=TrueMe.Button2.Enabled=FalseMe.TextBox1.Text=""Me.TextBox2.Text=""EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub【數(shù)據(jù)記錄修改】19、打開“用戶信息修改”項目文件，完成以下功能。（10）在用戶名文本框中輸入要查詢的用戶名，單擊“查詢“按鈕，在下面的文本框中顯示該用戶的信息。輸入修改的信息，單擊“保存修改“按鈕，保存修改信息。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼DimiAsInteger=-1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.用戶TableAdapter1.Fill(Me.Exam2023DataSet1.用戶)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickFori=0ToMe.Exam2023DataSet1.用戶.Count-1IfTextBox1.Text.Trim=Me.Exam2023DataSet1.用戶(i).姓名.TrimThenTextBox2.Text=Me.Exam2023DataSet1.用戶(i).姓名TextBox3.Text=Me.Exam2023DataSet1.用戶(i).密碼TextBox4.Text=Me.Exam2023DataSet1.用戶(i).權(quán)限ExitSubEndIfNextMsgBox("沒有該用戶")i=-1EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfi>=0ThenIfMe.TextBox4.Text<>""ThenMe.Exam2023DataSet1.用戶(i).姓名Me.Exam2023DataSet1.用戶(i).密碼Me.Exam2023DataSet1.用戶(i).權(quán)限Me.Validate()Me.Exam2023DataSet1.EndInit()Me.用戶TableAdapter1.Update(Me.Exam2023DataSet1.用戶)MsgBox("已經(jīng)保存成功！")ElseMsgBox("請輸入權(quán)限")EndIfEndIfEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub【數(shù)據(jù)記錄刪除】20、打開“用戶信息刪除”項目文件，完成以下功能。（10）在DATAGRID中選擇要刪除的記錄，單擊“刪除”按鈕，彈出確認(rèn)是否刪除信息，單擊“確定”按鈕，刪除該記錄。（10）連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.用戶TableAdapter1.Fill(Me.Exam2023DataSet1.用戶)Me.DataGrid1.DataSource=Me.Exam2023DataSet1.用戶EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfMsgBox("您確實要刪除該記錄嗎？")=MsgBoxResult.OkThenMe.Exam2023DataSet1.用戶(Me.DataGrid1.CurrentRowIndex).Delete()Me.Validate()Me.用戶TableAdapter1.Update(Me.Exam2023DataSet1.用戶)EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub【綜合類】21、打開“學(xué)生成績查詢二”項目文件，根據(jù)學(xué)號實現(xiàn)對學(xué)生成績模糊查詢功能，查詢結(jié)果如下圖所示：可以顯示學(xué)號、姓名、課程名稱和考試成績。程序運行結(jié)果如下圖所示。（20分）本題要用到視圖，視圖在數(shù)據(jù)庫里已經(jīng)存在了，叫view_1連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.View_1TableAdapter1.Fill(Me.Exam2023DataSet1.View_1)Me.DataGridView1.DataSource=Me.Exam2023DataSet1.View_1EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxh,str1AsStringxh=Me.TextBox1.TextMe.Exam2023DataSet1.View_1.Clear()IfMe.TextBox1.Text=""Thenstr1="select*fromview_1"Elsestr1="select*fromview_1where學(xué)號like'%"&xh&"%'"EndIfDimadAsNewSqlClient.SqlDataAdapter(str1,Me.View_1TableAdapter1.Connection)ad.Fill(Me.Exam2023DataSet1.View_1)IfMe.Exam2023DataSet1.View_1.Count=0ThenMsgBox("沒有該學(xué)生！")ExitSubElseMe.DataGridView1.DataSource=Me.Exam2023DataSet1.View_1EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub22、打開“用戶管理”項目文件，完成以下功能。（20）程序運行時如下圖所示。單擊“添加”按鈕，該按鈕的文本為“保存”；輸入相關(guān)信息，單擊“保存”按鈕，將數(shù)據(jù)保存到用戶信息表中。同時該按鈕的文本為“添加”。單擊“刷新”按鈕，將用戶信息表中的所有記錄的用戶名顯示在LISTBOX中。實現(xiàn)“修改”、“刪除”功能。連接數(shù)據(jù)庫的步驟見第4題。listbox的Datasource選擇對應(yīng)的表，DisplayMember選擇對應(yīng)的字段，參考第7題的圖形。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.用戶TableAdapter.Fill(Me.Exam2023DataSet.用戶)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfMe.Button1.Text="添加"ThenMe.TextBox1.Text=""Me.TextBox2.Text=""Me.TextBox3.Text=""Me.Button1.Text="保存"ElseMe.用戶TableAdapter.Insert(Me.TextBox1.Text.Trim,Me.TextBox2.Text.Trim,Me)MsgBox("保存成功！")Me.Button1.Text="添加"EndIfEndSubPrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickMe.用戶TableAdapter.Fill(Me.Exam2023DataSet.用戶)EndSubPrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton1.CheckedChangedMe.TextBox3.Text=“0EndSubPrivateSubRadioButton2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton2.CheckedChangedMe.TextBox3.Text=“1EndSubPrivateSubRadioButton3_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioButton3.CheckedChangedMe.TextBox3.Text=”2EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimnAsInteger=Me.ListBox1.SelectedIndexMe.Exam2023DataSet.用戶(n).姓名=MeMe.Exam2023DataSet.用戶(n).密碼=MeMe.Exam2023DataSet.用戶(n).權(quán)限=Me.TextBox3.Text.TrimMe.用戶TableAdapter.Update(Me.Exam2023DataSet.用戶)Me.Exam2023DataSet.用戶.AcceptChanges()MsgBox("修改成功!")EndSub23、打開“學(xué)生信息保存”項目文件，完成以下功能。（20）同第15題程序運行時，“保存”按鈕不可用。輸入學(xué)號，單擊“驗證”按鈕，若在學(xué)生信息表中已存在，則清空用戶名，重新輸入學(xué)號；若在學(xué)生信息表中不存在，“保存”按鈕可用。（必填字段）24、打開“學(xué)生成績輸入二”項目文件，完成以下功能。（20）輸入學(xué)號，若學(xué)號在學(xué)生信息表中不存在，則不能輸入成績。課程名來源與課程表中的課程。成績限定在0到100整數(shù)。連接數(shù)據(jù)庫的步驟見第4題。連接好數(shù)據(jù)庫以后，選擇“生成”菜單的第一項“生成解決方案”，打開工具箱，移動到工具箱的頂端，分別雙擊第10題圖2所示的對象。注意：此題用到了“學(xué)生信息”、“成績”和“課程”三張表。參考代碼PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.課程TableAdapter1.Fill(Me.Exam2023DataSet1.課程)Me.ComboBox1.DataSource=Me.Exam2023DataSet1.課程Me.ComboBox1.DisplayMember="課程名稱"Me.學(xué)生信息TableAdapter1.Fill(Me.Exam2023DataSet1.學(xué)生信息)EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickForiAsInteger=0ToMe.Exam2023DataSet1.學(xué)生信息.Count-1IfMe.TextBox1.Text.Trim=Me.Exam202