basic程序設(shè)計(jì)期末模擬試卷(參考版)
2024-09-06 20:57本頁(yè)面
【正文】 按結(jié)束，則退出。要求程序運(yùn)行后，用戶選中單選按鈕，則程序作 10 和 2 的相應(yīng)計(jì)算，并把計(jì)算結(jié)果在文本框中顯示出來。 Text3 Text1 Text4 Text2 Command1 Command2 。程序運(yùn)行界面如下圖所示。增加 學(xué)生記錄 Dim strSQL As String Dim ADOrs As [4] [5] “Select 學(xué)號(hào) From Students Where 學(xué)號(hào) =”+” ? “+Text1+” ? “ If Not Then MsgBox “你輸入的學(xué)號(hào)已存在，不能新增加！ ” Else StrSQL=”Insert Into students (學(xué)號(hào) ,姓名 ,籍貫 , 性別 ) StrSQL=strSQL+Values(”+” ? “+text1+” ? , ? “+text2+” ?,? “+text3+” ?,? “+text4+” ?)” [6] MsgBox “添加成功，請(qǐng)繼續(xù)！ ” End If Private Sub Command2_Click() Unload Me End Sub 五、編寫程序題 。Password=。LSF。聲明對(duì)象變量 ADO，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接 Private ADO As Connection Private Sub Form_Load() 39。 圖 2 程序如下，請(qǐng)補(bǔ)充完整。程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接 SQL Server 數(shù)據(jù)庫(kù)；當(dāng)點(diǎn)擊“增加”按鈕時(shí)，首先查詢學(xué)號(hào)是否重復(fù)，如果不重復(fù)則向 students 表中添加學(xué)生記錄。*.jpg End Sub Private Sub Drive1_change() = [2] [3] = End Sub Private Sub Dir1_Change() [4] = [5] End Sub Private Sub File1_click() Picture1. [6] = LoadPicture( + \ + ) FileName = + \ + = [7] End Sub 3．已知存在一名為“學(xué)生”的 SQL Server 數(shù) 據(jù)庫(kù)，其中的“ students”數(shù)據(jù)表用來存儲(chǔ)學(xué)生的基本情況信息，包括學(xué)號(hào)、姓名、籍貫、性別。 Private Sub Form_Load() [1] = *.bmp。程序運(yùn)行結(jié)果如下圖所示。 List1 Command3 Command2 Command1 Text1 Private Sub Form_Load() 李敏 張華 呂曉燁 趙巍 袁莉 王津 何小渴 崔寧 何月 End Sub Private Sub Command1_Click() If Then [1] = Else MsgBox 請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ? End If End Sub Private Sub Command2_Click() [2] End Sub Private Sub Command3_Click() If = 修改 Then = [3] = False = False = [4] Else [5] = True = True = [6] = 修改 End If End Sub 2． 在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、圖片框、文本框。程序運(yùn)行結(jié)果如圖 1 所示。要求從文本框中輸入姓名，然后按“添加”按鈕 ，把姓名添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某一項(xiàng)后，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認(rèn)”。 5. Function F(a As Integer) D
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1