basic程序設(shè)計形成性考核-資料下載頁
2025-07-07 11:39本頁面
【正文】 別。請編寫一個簡單的應(yīng)用程序，向students表中添加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時，程序聯(lián)接SQL Server數(shù)據(jù)庫；當(dāng)點(diǎn)擊“增加”按鈕時，首先查詢學(xué)號是否重復(fù)，如果不重復(fù)則向students表中添加學(xué)生記錄。其運(yùn)行界面如圖1所示。圖1程序如下，請補(bǔ)充完整。39。聲明對象變量ADO，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADO As ConnectionPrivate Sub Form_Load()39。連接SQL Server數(shù)據(jù)庫Dim strDB As StringstrDB = Provider=SQLOLEDB。LSF。User ID=sa。Password=。Database = [1] If ADO Is Nothing Then [2] [3] End IfEnd SubPrivate Sub Command1_Click()39。增加學(xué)生記錄Dim strSQL As StringDim ADOrs As [4] [5] =ADO “Select 學(xué)號 From Students Where 學(xué)號=”+” ‘ “+Text1+” ‘ “[6] Then MsgBox “你輸入的學(xué)號已存在，不能新增加！”Else StrSQL=”Insert Into students (學(xué)號,姓名,籍貫, 性別) StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)” [7] MsgBox “添加成功，請繼續(xù)！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub2．在窗體上建立一個驅(qū)動器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運(yùn)行后，驅(qū)動器列表框Drive1的默認(rèn)驅(qū)動器設(shè)置為E盤，選擇File1中所列的圖片文件（*.bmp,*.gif和*.jpg）,則相應(yīng)的圖片顯示在圖片框Picture1中，文件的路徑顯示在文本框中。程序運(yùn)行結(jié)果如圖2所示。 圖2程序如下，請補(bǔ)充完整。Private Sub Form_Load() = [1] [2] = *.bmp。*.gif。*.jpgEnd SubPrivate Sub Drive1_change() [3] = = End SubPrivate Sub Dir1_Change() [4] = End SubPrivate Sub File1_click() Picture1. [5] = LoadPicture( + \ + ) FileName = + \ + = [6] End Sub五、編寫程序題，編寫一征收所得稅程序。（1）收入在1000元以內(nèi)，不納稅；（2）收入超過1000元以上的部分，納稅20%（3）當(dāng)收入達(dá)到5000元或超過時，5000元以上的部分，納稅22%。程序運(yùn)行界面如圖3所示： 圖39 /
法律信息相關(guān)推薦
鄂ICP備17016276號-1