《VisualBasic程序設(shè)計》試題1.doc

Visual Basic程序設(shè)計模擬試題（一）及答案一、單項選擇題(每小題3分，共30分)1后綴為.bas的文件表示（ ）。A類模塊文件 B標準類模塊文件C窗體文件 D窗體二進制數(shù)據(jù)文件2在文本框中將Text的內(nèi)容全部顯示為所定義的字符的屬性是（ ）。APassword BPasswordChar CCaption DText3以下有關(guān)Visual Basic語言描述中錯誤的是（ ）。A不區(qū)分大小寫B(tài)語句是一行一句，以回車鍵結(jié)束C用“,”分隔一行中的多個語句D一條語句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行4在VB6.0集成開發(fā)環(huán)境中有三種工作模式，下列不屬于三種工作模式之一的是（ ）。A設(shè)計模式 B中斷模式C執(zhí)行模式 D編寫代碼模式5如果想讓文本框中的內(nèi)容在運行時不能編輯，需將文本框的（ ）屬性設(shè)置為True。 ATabStop BMultiLine CLocked DVisible6在Visual Basic中，變量的默認類型是（ ）。 AInteger BDouble CCurrency DVariant 7. 文本框沒有（ ）屬性。AText BName CCaption DBorderStyle8表達式7+10 Mod 3*2+2（ ）。A13 B7 C6 D19VB程序中設(shè)置斷點的按鍵是（）。AF1鍵 BF9鍵 CF8鍵 DCtrl+F8鍵10Dim I As Integer，則運行時變量I的初始值是（）。A0 B1 C-1 D空值二、填空題：（每空3分，共30分）1在VB中，將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、 和 三種類型。2. 執(zhí)行賦值語句a=”123”+”456”后，變量a的值是 。3用Dim A(3,-2 To 3)語句聲明二維數(shù)組后，數(shù)組A的元素共有 個。4Winsock控件主要用來編制基于 或 協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。5控件數(shù)組的名字由 屬性指定，而數(shù)組中的每個元素由 屬性決定。6一般可使用 關(guān)鍵字聲明常量。7. VB中的程序錯誤類型主要有編譯錯誤、實時錯誤和 等三種。三、閱讀程序題（每題10分，共20分）1.（10分）Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = x + y Form1.Print x=; x, y=; yEnd Sub程序運行后三次單擊窗體，寫出Form1上的輸出結(jié)果。2.（10分）Private Sub Command1_Click() Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For I = 1 To 3 For j = 1 To I Sum2 = Sum2 * j Next j Sum1 = Sum1 + Sum2Next IPrint Sum1End Sub程序運行時單擊Command1后，窗體Form1上的輸出結(jié)果是 。得 分評卷人四、完善程序題（共10分）1.已知存在一名為“學(xué)生”的SQL Server數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲學(xué)生的基本情況信息，包括學(xué)號、姓名、籍貫、性別。請編寫一個簡單的應(yīng)用程序，向students表中添加學(xué)生記錄。程序的基本邏輯是：當窗體被加載時，程序聯(lián)接SQL Server數(shù)據(jù)庫；當點擊“增加”按鈕時，首先查詢學(xué)號是否重復(fù)，如果不重復(fù)則向students表中添加學(xué)生記錄。其運行界面如圖1所示。圖1程序如下，請補充完整。聲明對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOcn As ConnectionPrivate Sub Form_Load()Dim strDB As String 連接SQL Server數(shù)據(jù)庫strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 學(xué)生If ADOcn Is Nothing Then 1 = New ConnectionADOcn.Open 2 End IfEnd SubPrivate Sub Command1_Click()增加學(xué)生記錄Dim strSQL As StringDim ADOrs As New RecordsetADOrs. 3 =ADOcnADOrs.Open “Select 學(xué)號 From Students Where 學(xué)號=”+” “+Text1+” “If Not 4 ThenMsgBox “你輸入的學(xué)號已存在，不能新增加！”ElseStrSQL=”Insert Into students (學(xué)號,姓名,籍貫, 性別) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOcn.Execute 5 MsgBox “添加成功，請繼續(xù)！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub五、編寫程序題（共10分）1.請根據(jù)以下描述編寫購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者，按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在Text1中輸入購物商品的總金額，單擊命令按鈕，在Text2輸出優(yōu)惠價。程序運行結(jié)果如圖2所示。圖2Visual Basic程序設(shè)計（一）參考答案及評分標準一單項填空題 （每題3分，共30分）答案：1D 2B 3C 4D 5C 6D 7C 8A 9B 10A二填空題：（每空3分，共30分）1外部數(shù)據(jù)庫 遠程數(shù)據(jù)庫21234563244TCP/IP UDP5Name Index6Const7邏輯錯誤三、閱讀程序題（每題10分，共20分）1（10分）答案：x= 2 y= 2 x= 2 y= 4x= 2 y= 6 2（10分）答案：31四、完善程序題（共10分）答案：（每項2分，共10分）1 Set ADOcn2 strDB 3 ActiveConnection 4 ADOrs.EOF5 strSQL五編寫程序題：（共10分）1（參考答案）答案1：Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Is = 500 Text2.Text = x * 0.7 Case Is = 300 Text2.Text = x * 0.8 Case Is = 200 Text2.Text = x * 0.9 Case Is = 100 Text2.Text = x * 0.95 Case Is 100 Text2.Text = x End SelectEnd Sub答案2：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x Else If x 200 Then y = 0.95