赤峰學(xué)院vb模擬試題庫含答案

1、.模擬試題一1VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，（ ）不是面向?qū)ο笙到y(tǒng)所包含的三要素。 .屬性 .變量 .方法 .事件 2.不論何控件，共同具有的是( )屬性。 ACaption B.Text C. Name D.ForeColor3. 程序代碼如下：Command1.Caption=”確定”，則Command1、Caption、“確定”分別代表（ ）A.屬性、對(duì)象、值 .對(duì)象、值、屬性 C.對(duì)象、方法、屬性 .對(duì)象、屬性、值4.下面( )是不合法的整型常數(shù)。 A278 B. &O278 C. &H278 D. 2785.為了給x、y、z三個(gè)變量賦初值1，下面正確的賦值語句是( )。 Ax=y

2、=z=1 Bx=1，y1，z1Cx=1：y1：z1 Dxyz=16.賦值語句：a=123+Mid(“123456”，3，2)執(zhí)行后，變量a中的值是( )。 A”12334” B12334 C157 D1237. 數(shù)學(xué)關(guān)系3x10表示成正確的VB表達(dá)式為（） 、3=x10 、3=x AND x=3 OR x10 、3=x AND 8 Then y=x2+1 If x2=9 Then y=x2-2 If x2=1X2+3x=1 Then B、If x=1 Then f=sqr(x+1) D、If x=1 Then f=sqr(x+1)If x1 Then f=x*x+3 f=x*x+38循環(huán)語句F

3、or i= -3.5 To 5.5 Step -0.5的循環(huán)次數(shù)是( )。 A20 B19 C18 D09 數(shù)學(xué)關(guān)系3x10表示成正確的VB表達(dá)式為（） 、3=x10 、3=x AND x=3 OR x10 、3=x AND 8 Then y=x2+1 If x2=9 Then y=x2-2 If x25,-1,0)后，x的值為()。 A)5 B)6 C)0 D)-1 (8) 產(chǎn)生60，100之間的隨機(jī)整數(shù)的Visual Basic表達(dá)式是（）。A) Int(Rnd*40)+60 B) Int(Rnd*40)+61C) Int(Rnd*41)+60 D) Int(Rnd*41)+61(9) 執(zhí)

4、行語句s=Len(Mid(VisualBasic,1,6)后，s的值是A) Visual B) Basic C) 6 D) 11(10) 下面（）是合法的變量名。A) dimB) m-1 C)_123D) X_t6(11) 下面正確的賦值語句是（）。A）x=y+3 B）x=y=3C）x+y=3 D）3x=y(12)VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（）。A）遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B）選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C）過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D）選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)(13) 確定一個(gè)控件在窗體上的位置的屬性是（）。A) Width和HeightB) Wi

5、dth或HeightC) Top和Left D) Top或Left(14) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程 Private Sub Command1_Click() Text1.Text = Visual Text1 = Basic Text1 = ProgramEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是A) 出錯(cuò) B) Visual C) Basic D) Program (15) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub

6、 Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A) 15 B) 14 C) 13 D) 12(16) 設(shè)菜單中有一個(gè)菜單項(xiàng)為Open。若要為該菜單命令設(shè)計(jì)訪問鍵，即按下Alt及字母O時(shí)，能夠執(zhí)行Open命令，則在菜單編

7、輯器中設(shè)置“Open命令的方式是 A) 把Caption屬性設(shè)置為&Open B) 把Caption屬性設(shè)置為O&pen C) 把Name屬性設(shè)置為&Open D) 把Name屬性設(shè)置為O&pen(17) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case 2,4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序運(yùn)行后，如果在輸入對(duì)話框中輸入2，則

8、窗體上顯示的是（）。 A） 分支1 B） 分支2 C） Else分支 D) 程序出錯(cuò)(18) for k=13 to -5 step -2循環(huán)次數(shù)為：（）。A) 7 B) 8 C) 9 D) 10 (19)用下面語句定義的數(shù)組的元素個(gè)數(shù)是( )Dim a(3,1 To 5) As IntegerA)8 B)15 C)20 D)21(20) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() a$=Program Print String(3,a$)End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是 A）Pro

9、 B) ram C) gra D) PPP(21) 保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是（ ）A)文本文件和工程文件 B)窗體文件和工程文件C)窗體文件和標(biāo)準(zhǔn)模塊文件 D)類模塊文件和工程文件 (22) 下列表達(dá)式的值為2123的是（ ）A) Val(123asd) & 2000 B) Val(123) + 2000C) Str(123) & 2000 D)Str(123)+2000(23) 表示滾動(dòng)條控件取值范圍最大值的屬性是（）。A）Max B）LargeChange C）Value D）Max-Min(24) 當(dāng)使用Line方法時(shí)，參數(shù)B與F可組合使用，下列組合中（）不允許。

10、A)BF B)B C)省略不用 D)F(25)可以RGB(x,y,z)函數(shù)獲取顏色，下面的數(shù)字對(duì)應(yīng)了x,y,z三個(gè)參數(shù)，其中不合法的是（）。A)0，0，0 B) 200，255，129 C) 100，256，200 D)255，255，0(26) 在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)有（）。A)快捷鍵 B)索引 C)熱鍵 D)名稱(27) 在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下事件過程：Option Base 0Private Sub Command1_Click() Dim city As Variant city = Array(北京, 上海, 天津, 重慶) Pr

11、int city(1)End Sub程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是A）空白 B）錯(cuò)誤提示 C）北京 D）上海(28) 假定有以下函數(shù)過程：Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1End Function在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1

12、 = InputBox(請輸入一個(gè)字符串) Str2 = Fun(Str1) Print Str2End Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串a(chǎn)bcdefg，則 單擊確定按鈕后在窗體上的輸出結(jié)果為 A）gfedcba B）ABCDEFG C）GFEDCBA D）abcdefg(29) Circle(500,600)，500， ， ， ,3將繪制（ ）。 A)圓弧 B)扇形 C)圓 D)橢圓(30) 在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下程序：Private Sub Command1_Click() int t1Static t2 t1=t1+1 t

13、2=t2+1 End Sub三次單擊命令按鈕后，t1,t2的值分別為（）：A) 1 1B) 3 3 C) 1 3 D) 3 1二、 填空題（每題2分,計(jì)16分）1 窗體上有一個(gè)名稱為List1的列表框，一個(gè)名稱為Text1的文本框，一個(gè)名稱為Label1、Caption屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕。程序運(yùn)行后，將把1100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計(jì)算”按鈕，則對(duì)List1中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功能的程序，請?zhí)羁铡?Private Sub Form_Load() For i=1 T

14、o 100 If i Mod 7 =0 Then _【 1_】_ End If Next i End SubPrivate Sub Command1_Click()Sum =0For i=0 To_【 2_】_ Sum =Sum+_【_3 】_Next iText1.Text=SumEnd Sub2按存儲(chǔ)信息的形式分類，文件可以分為【 4 】和【 5 】。3 以下語句輸出結(jié)果是 【 6 】 。Print Int(12345.6789 * 100 + 0.5) / 100。4數(shù)學(xué)表達(dá)式的VB算術(shù)表達(dá)式為【 7 】。5表達(dá)式Lcase(left(“ABCDEFG”,5)的值是【 8 】。6設(shè)有如下

15、程序：Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = 【9】 For i = 2 To 8 If arr1(i) =1X2+3x=1 Then B、If x=1 Then f=sqr(x+1) D、If x=1 Then f=sqr(x+1)If x1 Then f=x*x+3 f=x*x+38下列循環(huán)語句能正常結(jié)束循環(huán)的是（ ）。 A、i=10 B、i=5 Do Do

16、 i=i-1 i=i+1 Loop Until i0 Loop Until i0 C、i=1 D、i=6 Do Do i=i+2 i=i-2 Loop Until i=10 Loop Until i=19 產(chǎn)生10，37之間的隨機(jī)整數(shù)的VB表達(dá)式（）、Int(Rnd(1)*27)+10 、Int(Rnd(1)*28)+10、Int(Rnd(1)*27)+11 、Int(Rnd(1)*28)+1110在數(shù)組聲明語句Dim a(3，-2 to 2，5) As Long中，數(shù)組a包含元素的個(gè)數(shù)為（ ）。 、13 、60 、75 、12011滾動(dòng)條的（）屬性用于返回或設(shè)置滾動(dòng)條的當(dāng)前值。 、alue、

17、Max、Min、Data 12在過程中定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使用（）關(guān)鍵字在過程中聲明局部變量。 、Private、Public、Static、Dim13假如列表框（List1）有四個(gè)數(shù)據(jù)項(xiàng)，把數(shù)據(jù)項(xiàng)“數(shù)據(jù)庫原理”添加到列表框的最后，應(yīng)使用（ ）語句。 A、List1.AddItem “數(shù)據(jù)庫原理”，List1.ListCount B、List1.AddItem “數(shù)據(jù)庫原理”，List1.ListCount-1 C、List1.AddItem 3，“數(shù)據(jù)庫原理” D、List1.AddItem “數(shù)據(jù)庫原理”，314要從磁盤上讀入一個(gè)文件名為“c:

18、t1.txt”的順序文件，下列（ ）正確。A、f=”c:t1.txt” B、f=”c:t1.txt” Open “f” For Input As #1 Open f For Input As #1C、Open ”c:t1.txt”For output As #1 D、Open c:t1.txt For input As #1 15下列關(guān)于菜單的說法中，錯(cuò)誤的是( )。、每個(gè)菜單項(xiàng)都是一個(gè)控件，與其它控件一樣也有自己的屬性和事件。、除了Click事件之外，菜單項(xiàng)還能響應(yīng)DblClick事件。 、菜單項(xiàng)的快捷鍵不能任意設(shè)置。、在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇。16指令Circle(1000,1000)，500，8，-6，-3將