《Visual_Basic程序設(shè)計(jì)》試題及其答案

1、【精品文檔】如有侵權(quán)，請(qǐng)聯(lián)系網(wǎng)站刪除，僅供學(xué)習(xí)與交流Visual_Basic程序設(shè)計(jì)試題及其答案.精品文檔.一、填空題（每題1分，共10分）1.把數(shù)學(xué)式子：寫(xiě)成VB的數(shù)值表達(dá)式為（ Sqr(1+3.14159/2*Sin(25*3.14159/180) ）。2設(shè)A=5，B=6，C=7，D=8，表達(dá)式3>2*B OR A=C AND B<>C OR C>D的值是（ True ）。3若Case子句中的表達(dá)式表列具有形式：<表達(dá)式1> To <表達(dá)式2>，則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于（ 指定范圍內(nèi)的值 ）時(shí)，執(zhí)行該Case子句相應(yīng)的語(yǔ)句塊。4執(zhí)行

2、下面的程序段后，x的值為（ 12 ）。x=0For i=1 To 8 Step 3x=x+iNext i5在圖片框上放置的控件稱(chēng)為圖片框的（ 子 ）對(duì)象，而窗體是圖片框的（ 父 ）對(duì)象。6將命令按鈕Command1的Caption屬性值賦給文本框Text1的Text屬性使用的語(yǔ)句為( Text1.Text=Command1.Caption)7復(fù)選框的Value屬性為（ 1 ）時(shí)，表示復(fù)選框被選中。 8. 使用滾動(dòng)條可以獲取某一范圍內(nèi)的數(shù)值輸入。為使垂直滾動(dòng)條的Value屬性值從下往上遞增變化，應(yīng)設(shè)置滾動(dòng)條Min屬性值大于( Max )屬性值。9語(yǔ)句：Dim A(-3 to 4) as Inte

3、ger定義的一維數(shù)組A的元素個(gè)數(shù)是（ 8 ）。10給定如下子過(guò)程： Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function執(zhí)行語(yǔ)句Print fun(5) 后在窗體上顯示的結(jié)果為（ 0 ）。 二、單項(xiàng)選擇題（每題1.5分，共30分）1.裝載窗體是窗體的（ C ）。A) 對(duì)象 B) 屬性 C) 事件 D) 方法2.設(shè)a="Visual Basic"，下面使b的值為"Basic"的賦值語(yǔ)句正確的是( B

4、)。A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D) b=Left(a,8,5)3設(shè)X為整型變量,不能正確表達(dá)1< X < 5的邏輯表達(dá)式是( A )。A) 1< X <5 B) X=2 or X=3 or X=4C) 1<X And X <5 D) Not (X<=1) And Not (X>=5) 4InputBox函數(shù)返回值的類(lèi)型為( B )。A) 數(shù)值型 B) 字符串型 C) 邏輯型 D) 貨幣型5執(zhí)行語(yǔ)句：Print 4+56*8/8 Mod 9 輸出的值是( A )。A) 4

5、B) 5 C) 6 D) 76.下列循環(huán)語(yǔ)句能正常結(jié)束循環(huán)的是（ C ）。A)i=5 B) i=1Do Do i=i+1 i=i+2Loop Until i< 0 Loop Until i=10C)i=10 D) i=6Do Do i=i+1 i=i-2Loop Until i> 0 Loop Until i=1 7以下敘述中正確的是 （ A ）。A) 窗體的Name屬性指定窗體的名稱(chēng) ，用來(lái)標(biāo)識(shí)一個(gè)窗體B) 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本 C) 可以在運(yùn)行期間改變窗體的Name屬性的值 D) 窗體的Name屬性值可以為空8VB為命令按鈕提供的Cancel屬性（

6、A ）。A) 用來(lái)指定命令按鈕是否為窗體的“取消”按鈕 B) 用來(lái)指定命令按鈕的功能是停止一個(gè)程序的運(yùn)行C) 用來(lái)指定命令按鈕的功能是關(guān)閉一個(gè)運(yùn)行程序D) 用來(lái)指定命令按鈕的功能是中斷一個(gè)程序的運(yùn)行9若使命令按鈕失效，要對(duì)（ A ）屬性設(shè)置為False。 A) Enabled B) Visible C) BackColor D)Caption10在窗體中添加兩個(gè)文本框（其N(xiāo)ame屬性分別為T(mén)ext1和Text2）和一個(gè)命令按鈕（Name屬性為Command1），然后編寫(xiě)如下兩個(gè)事件過(guò)程：Private Sub Command1_Click()a = UCase(Text1.Text) + Le

7、ft(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()Text1.Text = "abcDEF"Text2.Text = "123456"End Sub程序啟動(dòng)后，單擊命令按鈕，輸出結(jié)果為（ C ）A）abcDEF123456 B）abcDEF123C）ABCDEF123 D）ab12345611在運(yùn)行程序時(shí)，要使文本框獲得焦點(diǎn)，則需使用（ B ）方法。 A) Change B) SetFocus C) GotFocus D) Move12下列語(yǔ)句中不能把圖片框Picture1中的圖形清除的是（ A

8、）。 A) Picture1.Del B) Picture1. Picture=LoadPicture("") C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目，需要使用（ D ）方法。 A) Clear B) ReMove C) Move D) ReMoveItem14在組合框中選擇某一項(xiàng)目?jī)?nèi)容，在程序中可以通過(guò)（ D ）屬性獲得。 A) List B) ListIndexC) ListCount D) Text15若有數(shù)組說(shuō)明語(yǔ)句：Dim a()AS Inte

9、ger，則a被定義為（B ）。A) 定長(zhǎng)數(shù)組 B) 可調(diào)數(shù)組 C) 靜態(tài)數(shù)組 D) 可變類(lèi)型數(shù)組16有如下語(yǔ)句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李強(qiáng)".Age = 21.Sex = "男"End With執(zhí)行語(yǔ)句Print Stu.Age后在窗體上顯示的結(jié)果是（ B ）。A)李強(qiáng) B)21 C)“男” D)Age17.要使子過(guò)程f1調(diào)用后能用形式參數(shù)返回兩個(gè)結(jié)果，下面子過(guò)程定義正確的是( C )。

10、 A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%) <子過(guò)程體> <子過(guò)程體> End Sub End SubC）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%)<子過(guò)程體> <子過(guò)程體>End Sub End Sub18.以下敘述中錯(cuò)誤的是( D )。A) 一個(gè)工程中可以包含多個(gè)窗體文件B) 在一個(gè)窗體文件中用Private定義的子過(guò)程或函數(shù)過(guò)程不能被其他窗體文件調(diào)用C) 在設(shè)計(jì)VB程序時(shí)，窗體模塊和標(biāo)準(zhǔn)模塊需要分別保存為不同類(lèi)型的文件D) 全局變量必須在標(biāo)準(zhǔn)模塊中定義 1

11、9從磁盤(pán)上打開(kāi)順序文件"c:t1.txt"為讀入數(shù)據(jù)做好準(zhǔn)備，如下語(yǔ)句（ A ）是正確的。 A） F="c:t1.txt" B）F="c:t1.txt"Open F For Input As #1 Open "F" For Input As #2C）Open "c:t1.txt" For Output As #1 D）Open c:t1.txt For Input As #220.以下敘述中正確的是( B )。A) 一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類(lèi)型必須相同B) 隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定

12、的C) Open命令的作用是打開(kāi)一個(gè)已經(jīng)存在的文件D) 使用Input#語(yǔ)句可以從隨機(jī)文件中讀取數(shù)據(jù)三、程序閱讀題(第1題3分，第2題5分，其余題各4分，共24分)1當(dāng)x的輸入值分別為4、8和12時(shí)，寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。Private Sub Command1_Click()Dim x%, y%x = InputBox("請(qǐng)輸入x的值：")Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is > 10y = x * x + 1End S

13、electPrint "x=" x, "y=" yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。Private Sub Command1_Click() Const n = 3 Dim i As Integer, k As Integer For i = 1 To n Print Tab(n - i) * 2 + 1); For k = 1 To i Print Str(k); Next k For k = i - 1 To 1 Step -1 Print Str(k); Next k Print

14、 Next i End Sub 1 1 2 1 1 2 3 2 1 3.設(shè)在一個(gè)窗體（如圖所示）中已設(shè)置了一個(gè)組合框Combo1和文本框Text 1，且有下列程序，試寫(xiě)出事件過(guò)程Combo1_Click的功能。Dim str As StringPrivate Sub Form_Load() str = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem &quo

15、t;武漢"Combo1.AddItem "廣州"Combo1.AddItem "?？?quot;Combo1.Text = "北京"End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & "，"Text1.Text = strEnd Sub在文本框中顯示單擊組合框列表項(xiàng)目時(shí)該項(xiàng)目的內(nèi)容，而且以后來(lái)添加的方式在文本框中顯示所有選擇項(xiàng)目的內(nèi)容。4. 寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。Private Sub Form_Click() Dim a(

16、1 To 2, 1 To 2) As Integer Dim i As Integer, j As Integer For i = 1 To 2 For j = 1 To 2 a(i, j) = (2 * i - 1) * 4 + j Next j Next i For i = 1 To 2 Print a(i, 3 - i), a(3 - i, i) Next iEnd Sub 6 13 13 65寫(xiě)出執(zhí)行下列事件過(guò)程的輸出結(jié)果。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 2 Call f(8,

17、 a) Print "a=" a, "b=" b Call f(a, b) Print "a=" a, "b=" bEnd SubPrivate Sub f(ByVal x As Integer, y As Integer) x = x + 1 y = y - 1End Sub a=2 b=2 a=2 b=16若有如下窗體模塊： Dim a As IntegerPrivate Sub test() Dim b As Integer a = a + 1: b = b + 1 Print "Sub: &quo

18、t; a, bEnd SubPrivate Sub Command1_Click() a = 2: b = 3 Call test Call testEnd Sub寫(xiě)出當(dāng)程序啟動(dòng)并單擊命令按鈕后，在窗體中顯示的結(jié)果。Sub： 3 1 Sub： 4 1 四、程序填空題 (每空2分，共22分) 1. 下面事件過(guò)程的功能是：輸入某個(gè)學(xué)生某門(mén)課程的百分制成績(jī)，并根據(jù)成績(jī)輸出評(píng)語(yǔ)，若0成績(jī)60 時(shí)，評(píng)語(yǔ)為“差”；若60成績(jī)70時(shí)，評(píng)語(yǔ)為“通過(guò)”；若70成績(jī)80時(shí)，評(píng)語(yǔ)為“中等”；若80成績(jī)90時(shí)，評(píng)語(yǔ)為“良好”；若90成績(jī)100時(shí)，評(píng)語(yǔ)為“優(yōu)秀”，在橫線上填上適當(dāng)內(nèi)容。Private Sub Comma

19、nd1_Click() Dim s! s = InputBox("請(qǐng)輸入學(xué)生的成績(jī)：") If 0<=s And s<=100 Then Select Case (1) s Case Is >= 90 Print "優(yōu)秀" Case Is >= 80 Print "良好" Case Is >= 70 Print "中等" Case Is >= 60 Print "通過(guò)" (2) Case Else或Is >=0 Print "差" E

20、nd Select End IfEnd Sub2.下面程序的功能是：計(jì)算 f=1 -1/(2×3)+1/(3×4)-1/(4×5)+ +1/(19×20)的值，在橫線上填上適當(dāng)內(nèi)容。Private Sub Form_Click() Dim f As Single,i As Integer,sign As Integer （3） sign=-1 f = 1 （4） for i=2 to 19 f = f + sign/(i*(i + 1) （5） sign=sign*(-1) Next i Print " f= " fEnd Sub3.

21、下面窗體模塊的功能是：從鍵盤(pán)上輸入x，y和z的值，按如下公式求f (x，y，z)的值的程序，在橫線上填上適當(dāng)內(nèi)容。f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z)+sin(y)/(sin(y-z)*sin(y-x)+sin(z)/(sin(z-x)*sin(z-y)其中x、y和z互不相等。Function f(ByVal a As Single,ByVal b As Single,ByVal c As Single) (6) As Single (7) f=Sin(a)/(Sin(b)* Sin(c) End Function Private Sub Command1_Cl

22、ick() Dim x!, y!, z!, s! x = InputBox("x=") y = InputBox("y=") z = InputBox("z=") If x <> y And y <> z And z <> x Thens=f(x,x-y,x-z)+f(y,y-z,y-x)+ (8) f(z,z-x,z-y) Print "s=" s Else Print "數(shù)據(jù)輸入錯(cuò)誤！" End IfEnd Sub4.下面事件過(guò)程的功能是從學(xué)生分?jǐn)?shù)順序文件D: file1.dat中讀取各個(gè)學(xué)生的分?jǐn)?shù)，并求該班的平均成績(jī)，在橫線上填上適當(dāng)內(nèi)容。Private Sub command1_Click() Dim n%, score!, s! Open "D:file1.dat" (9) As #3 For Input n = 0: s = 0 While (10) Not EOF(3) Input #3,score s = s + score n = (11) n+1 Wend Print "平均成績(jī)?yōu)椋?/p>