【文章內(nèi)容簡(jiǎn)介】 存儲(chǔ)，結(jié)果集合不影響原集合。實(shí)現(xiàn)要求：⑴ 編寫集合元素測(cè)試函數(shù)IN_SET，如果元素已經(jīng)在集合中返回0，否則返回1； ⑵ 編寫集合元素輸入并插入到單鏈表中的函數(shù)INSERT_SET，保證所輸入的集合中的元素是唯一且以非遞減方式存儲(chǔ)在單鏈表中；⑶ 編寫集合元素輸出函數(shù)，對(duì)建立的集合鏈表按非遞增方式輸出； ⑷ 編寫求集合A、B的交C=A∩B的函數(shù)，并輸出集合C的元素； ⑸ 編寫求集合A、B的并D=A∪B的函數(shù)，并輸出集合D的元素；⑹ 求集合A與B的對(duì)稱差E=(AB)∪(BA)的函數(shù)，并輸出集合D的元素； ⑺ 設(shè)計(jì)一個(gè)菜單，具有輸入集合元素、求集合A、B的交C、求集合A、B的并D、求集合A與B的對(duì)稱差E、退出等基本的功能。測(cè)試數(shù)據(jù)：由讀者自定，但集合A、B的元素個(gè)數(shù)不得少于16個(gè)。第四篇：VB 課程設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)一、功能描述首先簡(jiǎn)單地闡述本人所要實(shí)現(xiàn)系統(tǒng)的目的，然后應(yīng)較詳細(xì)的敘述本系統(tǒng)所要實(shí)現(xiàn)的功能。************ *******二、概要設(shè)計(jì)系統(tǒng)功能模塊框圖設(shè)計(jì)根據(jù)功能描述，建立系統(tǒng)的體系結(jié)構(gòu)，即將整個(gè)系統(tǒng)分解成若干子功能模塊，并用框圖表示各功能模塊之間的銜接關(guān)系，并簡(jiǎn)要說(shuō)明各模塊的功能。程序流程框圖如圖所示：（僅供參考）圖1 程序流程圖數(shù)據(jù)庫(kù)設(shè)計(jì)包括數(shù)據(jù)庫(kù)的組成說(shuō)明，數(shù)據(jù)庫(kù)中各表的結(jié)構(gòu)說(shuō)明（包括字段名、字段類型等），可以包含圖片例如下表：表1 學(xué)生信息表三、詳細(xì)設(shè)計(jì)詳細(xì)說(shuō)明主要窗體的實(shí)現(xiàn)過(guò)程，包括窗體的設(shè)計(jì)圖片及其上所包含的控件名和屬性設(shè)置；詳細(xì)說(shuō)明主要操作的代碼實(shí)現(xiàn)過(guò)程，包括過(guò)程間的調(diào)用關(guān)系（注：在此給出不完全代碼）。如下所示：賬號(hào)登錄帳號(hào)登錄模塊中登錄與注冊(cè)兩按鈕，單擊注冊(cè)會(huì)進(jìn)入注冊(cè)模塊中，單擊登錄會(huì)進(jìn)入系統(tǒng)進(jìn)行下一步的操作，帳號(hào)文本框與數(shù)據(jù)庫(kù)相連接，當(dāng)在帳號(hào)文本框輸入帳號(hào)后點(diǎn)擊登錄按鈕后，會(huì)在數(shù)據(jù)庫(kù)中進(jìn)行查詢看數(shù)據(jù)庫(kù)中是否會(huì)有該帳號(hào)，且該帳號(hào)的密碼是否與密碼框中輸入的相同，如果相同會(huì)進(jìn)入系統(tǒng)，如果不存在該賬號(hào)或密碼與帳號(hào)不相匹配，則會(huì)提示“帳號(hào)或密碼錯(cuò)誤”，帳號(hào)文本框會(huì)得到焦點(diǎn)，讓重新輸入。（1）窗體截圖（如圖2）圖2 注冊(cè)窗體（2）功能實(shí)現(xiàn)學(xué)生信息查詢窗體圖3 查詢窗體四、調(diào)試中存在的問(wèn)題及解決方法包括調(diào)試過(guò)程中遇到的主要問(wèn)題及采取的解決方法。例如：注冊(cè)賬號(hào)出現(xiàn)的錯(cuò)誤數(shù)據(jù)庫(kù)中帳號(hào)被設(shè)為主鍵，當(dāng)注冊(cè)時(shí)的帳號(hào)與數(shù)局庫(kù)中的帳號(hào)有相同時(shí)就會(huì)出錯(cuò)。解決方法：在寫入數(shù)據(jù)庫(kù)前先進(jìn)行查詢數(shù)據(jù)庫(kù)五、心得體會(huì)本人在本次實(shí)習(xí)中取得的收獲、遇到的困難、如何面對(duì)和克服各種困難、本系統(tǒng)的不足之處，將要改進(jìn)的思想等。六、參考文獻(xiàn)[1] Basic (第3版).人民郵電出版社，2009年2月[2] [3]七、附錄包括全部源程序清單(程序中應(yīng)有足夠的注釋)。第五篇：VB課程設(shè)計(jì)課程設(shè)計(jì)學(xué) 院 班 級(jí)指導(dǎo)老師姓 名 學(xué) 號(hào) 成 績(jī)2013年 月 10日一．課程設(shè)計(jì)題目學(xué)生管理系統(tǒng)二．功能描述按設(shè)定的用戶名密碼進(jìn)行登錄后，可按需求進(jìn)行對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生信息及成績(jī)進(jìn)行查詢，添加，刪除，修改等操作。三．概要設(shè)計(jì)登錄界面功能：讓用戶進(jìn)行登錄。主界面功能：讓用戶選擇進(jìn)行哪項(xiàng)操作。查詢學(xué)生信息菜單功能：輸入學(xué)生學(xué)號(hào)，對(duì)該學(xué)生的個(gè)人信息以及成績(jī)進(jìn)行查詢，若直接點(diǎn)擊查詢按鈕，則顯示全部學(xué)生個(gè)人信息及成績(jī)。編輯學(xué)生信息菜單功能：可對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生信息進(jìn)行查詢，添加，刪除，修改等操作。學(xué)生信息維護(hù)菜單功能：可對(duì)數(shù)據(jù)庫(kù)中已有的學(xué)生成績(jī)進(jìn)行查詢，添加，刪除，修改等操作。四．詳細(xì)設(shè)計(jì)五．效果以及存在問(wèn)題說(shuō)明系統(tǒng)的運(yùn)行效果（附上運(yùn)行界面圖片）、存在哪些不足以及預(yù)期的解決辦法。登錄界面登錄學(xué)生管理系統(tǒng)按查詢條件查詢打開(kāi)修改學(xué)生信息子窗口學(xué)生成績(jī)維護(hù)子窗口垂直窗口排列關(guān)于窗口不足：。六．心得體會(huì)經(jīng)過(guò)幾天的苦戰(zhàn)，終于把課程設(shè)計(jì)粗略的做完了。剛開(kāi)始做的時(shí)候，毫無(wú)頭緒，一片茫然。好在書(shū)本上有類似的實(shí)驗(yàn)，可以供參考。盡管如此，真正做起項(xiàng)目來(lái)，還是有著這樣那樣的困難，有時(shí)一個(gè)空格少打都會(huì)出錯(cuò)，導(dǎo)致我檢查了半天才發(fā)現(xiàn)問(wèn)題所在。由于VB語(yǔ)法還運(yùn)用不熟練，很多代碼都是模仿書(shū)本上的敲的，許多代碼往往能編譯通過(guò)，但很多都會(huì)拋出各種異常，讓人頭疼。有時(shí)系統(tǒng)就給出個(gè)有個(gè)參數(shù)沒(méi)有被指定值，就可以讓人搞的焦頭爛額。因此，寫程序真的也很需要強(qiáng)大的耐心，只要熬下去了，當(dāng)你做出程序時(shí)，也會(huì)倍有成就感。目前，程序是基本寫完了，平常學(xué)的理論都得到了運(yùn)用，感覺(jué)自己的能力也增強(qiáng)了。一句話，實(shí)踐才是硬道理。七．附錄代碼（附上各模塊代碼）Public Class Form1Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles Static n As IntegerIf = “abc” And = “123” ThenDim form2 As New Form2()()()Elsen = n + 1If n 5 ThenMsgBox(“請(qǐng)輸入正確的用戶名和密碼！”, )ElseMsgBox(“請(qǐng)輸入正確的用戶名和密碼！”, ) = FalseEnd IfEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub Button3_Click(ByVal sender As , ByVal e As )Handles Dim form3 As New Form3()()()End SubPrivate Sub Form1_Load(ByVal sender As , ByVal e As )Handles End Sub End ClassPublic Class Form6Private Sub Form6_Load(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS_KC As New Dim objDaXS As New Dim objCommXS_KC As New Dim objCommXS As New Dim objDsXS_KC As New DataSetDim objDsXS As New DataSet = “Provider = 。data source = 39。D:39。” = “ Select * From XS ” = “ Select * From XS_KC ” = objConn = objCommXS_KC = objConn = objCommXS()(objDsXS_KC, “XS_KC”)(objDsXS, “XS”)() = (“XS_KC”) = (“XS”)End SubPrivate Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS_KC As New Dim objDaXS As New Dim objCommXS_KC As New Dim objCommXS As New Dim objDsXS_KC As New DataSetDim objDsXS As New DataSetDim WhereStr As StringWhereStr = “If Trim() ”“ ThenWhereStr = ” 學(xué)號(hào)like “ + Trim()End If = ”Provider = 。data source = 39。D:39。“ = ” Select * From XS “ = ” Select * From XS_KC “If WhereStr ”“ Then = amp。 ”where“ amp。 WhereStr = amp。 ”where“ amp。 WhereStrEnd If = objConn = objCommXS_KC = objConn = objCommXS()(objDsXS_KC, ”XS_KC“)(objDsXS, ”XS“)() = (”XS_KC“) = (”XS“)End Sub End Class3編輯學(xué)生信息菜單Public Class Form7Dim objDs As New Dat