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

1、Visualc 序設(shè)計模擬試題（一）及答案一、單項(xiàng)選擇題(每小題 3 分，共 30 分)后綴.bas 的文件表示（。類模塊文件B標(biāo)準(zhǔn)類模塊文件C窗體文件D窗體二進(jìn)制數(shù)據(jù)文件在文本框中將Text 的內(nèi)容全部顯示為所定義的字符的屬性是（。PasswordBPasswordCharCCaptionDText以下有關(guān)Visual Basic 語言描述中錯誤的是（A不區(qū)分大小寫 B語句是一行一句，以回車鍵結(jié)束 C用分隔一行中的多個語句D一條語句放在多行中，則在前一行結(jié)束處使用續(xù)行符“_”連接下一行在VB6.0 集成開發(fā)環(huán)境中有三種工作模式，下列不屬于三種工作模式之一的是（。設(shè)計模式B中斷模式C執(zhí)行模式D

2、編寫代碼模式 5如果想讓文本框中的內(nèi)容在運(yùn)行時不能編輯，需將文本框的（）屬性設(shè)置為TrueATabStopBMultiLineCLockedDVisible在Visual Basic 中，變量的默認(rèn)類型是（。IntegerBDoubleCCurrencyDVariant文本框沒有（）屬性。TextBNameCCaptionDBorderStyle8表達(dá)式7+10 Mod 。A13B7C69VB 程序中設(shè)置斷點(diǎn)的按鍵是（。AF1鍵BF9鍵CF8鍵DCtrl+F8鍵10Dim I As Integer，則運(yùn)行時變量I的初始值是（。A0D（每空3分，共30分）在VB 中，將數(shù)據(jù)庫分為本地數(shù)據(jù)庫三種類

3、型。執(zhí)行賦值語句a=”123”+”456”后，變量a 的值。用Dim A(3,-2 To 語句聲明二維數(shù)組后，數(shù)組A 的元素共個。Winsock 控件主要用來編制基協(xié)議的網(wǎng)絡(luò)應(yīng)用程序?？丶?shù)組的名字屬性指定，而數(shù)組中的每個元素屬性決定。一般可使關(guān)鍵字聲明常量。VB 中的程序錯誤類型主要有編譯錯誤、實(shí)時錯誤等三種。三、閱讀程序題（每題 10 分，共 20 分） 1.（10 分）Private Sub Form_Click() Dim x As Integer Static y As Integerx = x + 2 y = x + yForm1.Print x=; x, y=; y End Su

4、b程序運(yùn)行后三次單擊窗體，寫出Form1 上的輸出結(jié)果。2.（10 分）Private Sub Command1_Click()Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2For I = 1 To 3 For j = 1 To ISum2 = Sum2 * j Next jSum1 = Sum1 + Sum2 Next IPrint Sum1 End Sub程序運(yùn)行時單擊Command1后，窗體Form1上的輸出結(jié)果。得 分評卷人四、完善程序題（得 分評卷人1.已知存在一名為“學(xué)生”的SQL Server students 當(dāng)窗

5、體被加載時，程序聯(lián)接 SQL Server 數(shù)據(jù)庫；當(dāng)點(diǎn)擊“增加”按鈕時，首先查詢學(xué)號是否重復(fù)，如果不重復(fù)students表中添加學(xué)生記錄。其運(yùn)行界面如圖1 所示。1程序如下，請補(bǔ)充完整。聲明對象變量ADOcnPrivate ADOcn As ConnectionPrivate Sub Form_Load()Dim strDB As StringSQL Server數(shù)據(jù)庫strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 學(xué)生 If ADOcn Is Nothing Then 1= New Connection ADOcn

6、.Open 2End If End SubPrivate Sub Command1_Click() 增加學(xué)生記錄Dim strSQL As StringDim ADOrs As New RecordsetADOrs. 3=ADOcnADOrs.Open “Select 學(xué)號 From Students Where =”+” “+Text1+” “If Not 4ThenMsgBox “你輸入的學(xué)號已存在，不能新增加！”ElseStrSQL=”Insert Into students (學(xué)號,姓名,籍貫, 性別) “+text1+” , “+text2+” , “+text3+” , “+tex

7、t4+” )”ADOcn.Execute 5MsgBox “添加成功，請繼續(xù)！”End IfPrivate Sub Command2_Click() Unload MeEnd Sub五、編寫程序題（共 10 分）1購物（1）10元以上者，按九五折優(yōu)惠2）20元以上者，按九折優(yōu)惠（3）30（4）500元以上者，按七折優(yōu)惠。在窗體上添加兩個文本框和一個命令按鈕，要求在2所示。圖2Visual Basic 程序設(shè)計（一）參考答案及評分標(biāo)準(zhǔn)一單項(xiàng)填空題 （每題 3 分，共 30 分）答案：1D2B3C4D5C6D7C8A9B10A二填空題（每空3 分，共30分 1外部數(shù)據(jù)庫遠(yuǎn)程數(shù)據(jù)庫2324TCP/I

8、PUDPName6Const邏輯錯誤三、閱讀程序題（10 20 分1（10 分）答案：x=2y=2x=2y=4x=2y=62（10 分答案：31四、完善程序題（共 10 分）（每項(xiàng)2分，共10分）Set ADOcnstrDBActiveConnectionADOrs.EOFstrSQL（共10 分 1（參考答案）答案 1：Private Sub Command1_Click() x = Val(Text1.Text)Select Case x Case Is = Text2.Text = x * Case Is = 300Text2.Text = x * Case Is = 200Text2.Text = x * Case Is = 100Text2.Text = x * 0.95 Case Is 100Text2.Text = x End SelectEnd Sub答案2：Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text)If x 100 Theny = x ElseIf x 200 T