亚洲国产日韩欧美在线a乱码,国产精品路线1路线2路线,亚洲视频一区,精品国产自,www狠狠,国产情侣激情在线视频免费看,亚洲成年网站在线观看

最新二級(jí)VB程序設(shè)計(jì)模擬試題及答案

時(shí)間:2020-09-01 14:42:06 計(jì)算機(jī)等級(jí) 我要投稿

2016最新二級(jí)VB程序設(shè)計(jì)模擬試題及答案

  選擇題(每題2分,計(jì)60分)

2016最新二級(jí)VB程序設(shè)計(jì)模擬試題及答案

  (1)下列可自動(dòng)設(shè)置滾動(dòng)條的控件是( )

  A) 復(fù)選框 B) 框架 C) 文本框 D) 標(biāo)簽框

  (2) 計(jì)時(shí)器控件的(  )屬性用于設(shè)置Timer事件發(fā)生的時(shí)間間隔。

  A) Stretch B) Interval  C) Value  D) Length

  (3) 表達(dá)式(7\3+1)*(18\5-1)的值是( )

  A) 6 B) 7.8 C) 8.76 D) 6.67

  (4) 函數(shù)InStr(“VB程序設(shè)計(jì)教程”,”程序”)的值為( )

  A)1 B)2 C)3 D)4

  (5) 有程序代碼如下:

  Label1.caption=”程序設(shè)計(jì)”

  則label1、caption、”程序設(shè)計(jì)”分別代表()。

  A) 對(duì)象、屬性、值 B)對(duì)象、值、屬性

  C) 對(duì)象、方法、屬性   D)屬性、方法、值

  (6) Inputbox函數(shù)返回值的類型是()。

  A) 整型數(shù)值 B) 字符串 C)變體 D)數(shù)值或字符串

  (7) 設(shè)a=6,則執(zhí)行 x=IIf(a>5,-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)+61

  C) Int(Rnd*41)+60 D) Int(Rnd*41)+61

  (9) 執(zhí)行語句s=Len(Mid("VisualBasic",1,6))后,s的值是

  A) Visual   B) Basic  C) 6   D) 11

  (10) 下面()是合法的變量名。

  A) dim B) m-1 C) _123 D) X_t6

  (11) 下面正確的賦值語句是()。

  A)x=y+3 B)x=y=3

  C)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和Height B) Width或Height

  C) Top和Left D) Top或Left

  (14) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程

  Private Sub Command1_Click()

  Text1.Text = "Visual"

  Text1 = "Basic"

  Text1 = "Program"

  End Sub

  程序運(yùn)行后,如果單擊命令按鈕,則在文本框中顯示的是

  A) 出錯(cuò)  B) Visual  C) Basic   D) Program

  (15) 在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub 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"命令,則在菜單編輯器中設(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 Select

  End Sub

  程序運(yùn)行后,如果在輸入對(duì)話框中輸入2,則窗體上顯示的是()。

  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 Integer

  A)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  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") + 2000

  C) 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可組合使用,下列組合中()不允許。

  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 0

  Private Sub Command1_Click()

  Dim city As Variant

  city = Array("北京", "上海", "天津", "重慶")

  Print 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 = s1

  End Function

  在窗體上畫一個(gè)命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click()

  Dim Str1 As String, Str2 As String

  Str1 = InputBox("請(qǐng)輸入一個(gè)字符串")

  Str2 = Fun(Str1)

  Print Str2

  End Sub

  程序運(yùn)行后,單擊命令按鈕,如果在輸入對(duì)話框中輸入字符串"abcdefg",則 單擊"確定"按鈕后在窗體上的輸出結(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 t1

  Static t2

  t1=t1+1

  t2=t2+1

  End Sub

  三次單擊命令按鈕后,t1,t2的值分別為():

  A) 1 1 B) 3 3 C) 1 3 D) 3 1

  cbaca bdccd adcdd abdcd bbadc ddcdc