精品国产一级毛片大全,毛片一级在线,毛片免费观看的视频在线,午夜毛片福利

我要投稿 投訴建議

計算機二級VB考試題

時間:2022-07-16 00:11:44 計算機等級 我要投稿

計算機二級VB考試題

  Visual Basic(簡稱VB)是Microsoft公司開發(fā)的一種通用的基于對象的程序設(shè)計語言,接下來CN人才網(wǎng)小編為大家?guī)淼氖怯嬎銠C二級VB考試題,歡迎大家閱讀借鑒。

計算機二級VB考試題

  【計算機二級VB考試題一】

  1.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option2,然后單擊命令按鈕command1,則文本框text1的變化效果是(B) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  2.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option3,然后單擊命令按鈕command1,則文本框text1的變化效果是(C) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  3.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option1,然后單擊命令按鈕command1,則文本框text1的變化效果是(A) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  4.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option4,然后單擊命令按鈕command1,則文本框text1的變化效果是(D) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  5.在窗體中建立了一個名稱為lstBooks的列表框,一個名稱為txtItem的文本框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。

  如下程序:

  Sub Form_Load( )

  lstBooks.AddItem "計算機文化基礎(chǔ)"

  lstBooks.AddItem "VB程序設(shè)計教程"

  lstBooks.AddItem "操作系統(tǒng)"

  End Sub

  Sub cmdAdd_Click( )

  lstBooks.AddItem txtItem

  txtItem = ""

  End Sub

  對該程序說法不正確的是(D) (單)

  A.窗體啟動時,在列表框中有三個列表項目,依次為:計算機文化基礎(chǔ)、VB程序設(shè)計教程、操作系統(tǒng)

  B.單擊cmdAdd命令按鈕后,把文本框中的信息添加到列表框中

  C.在列表框中添加列表項目的方法為additem方法

  D.以上說法都不正確

  6.在窗體中建立了一個名稱為LSTBOOKS的列表框,一個名稱為txtItem的文本框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程序的功能是將修改后的項目送回列表框,替換原項目,實現(xiàn)修改:

  Sub cmdModify_Ok_Click( )

  LSTBOOKS.List【Lstbooks.lstindex】 = txtItem

  txtItem = ""

  End Sub

  7.對以下程序說法不正確的是(C) (單)

  Private Sub Combo1_LostFocus( )

  flag = False

  For i = 0 To Combo1.ListCount - 1

  If Combo1.List(i) = Combo1.Text Then

  flag = True

  Exit For

  End If

  Next i

  If Not flag Then

  Combo1.AddItem Combo1.Text

  End If

  End Sub

  A.當(dāng)焦點離開組合框時組合框的LostFocus事件被觸發(fā)

  B.添加到組合框的新項目不能永久保存,下次運行該程序中看不到上次保存的項目,利用該事件過程能夠?qū)⑤斎氲男聝?nèi)容添加到組合框中,下次運行該程序中能夠看到上次保存的項目

  C.邏輯變量flag=true時,表示組合框的`項目中有該輸入新項目

  D.邏輯變量flag=false時,表示組合框的項目中有該輸入新項目

  8.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check1,然后單擊命令按鈕command1,運行效果為(A) (單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目分別為:操作系統(tǒng):Windows 2000 操作系統(tǒng):Windows 98

  C.沒有任何顯示

  D.以上都不正確

  *9.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check2(其中單選按鈕option1被選中),然后單擊命令按鈕command1,運行效果為(B)(單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目分別為:操作系統(tǒng):Windows 2000 操作系統(tǒng):Windows 98

  C.列表框List1中的列表項目為:操作系統(tǒng):Windows 2000

  D.以上都不正確

  53430.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check2(其中單選按鈕option2被選中),然后單擊命令按鈕command1,運行效果為(B)(單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目為:操作系統(tǒng):Windows 98

  C.列表框List1中的列表項目為:操作系統(tǒng):Windows 2000

  11 .傳值:形參得到的是實參的值,形參值的改變不會影響實參的值。在定義形參前加關(guān)鍵字Byval。√

  12.以下利用SUB關(guān)鍵字定義的子過程Rate,其調(diào)用格式不正確的是(B) (單)

  A.call Rate(12,56)

  B.Rate(12,56)

  C.Rate 12,56

  D.以上A和C正確

  13.如下程序運行后顯示結(jié)果為(B) (單)

  Public Temp As integer

  Sub Form_Load( )

  Dim Temp As Integer

  Temp=10

  Form1.Temp=20

  Print Form1.Temp;"和";Temp

  End Sub

  A.10和20

  B.20和10

  C.10和10

  D.20和20

  14.以下對靜態(tài)變量說法不正確的是(D) (單)

  A.定義格式為:Static 變量名 [AS 類型]

  B.在子過程名/函數(shù)名前加Static,表示該過程/函數(shù)體內(nèi)局部變量全部都是靜態(tài)變量

  C.靜態(tài)變量必須在過程體內(nèi)定義

  D.靜態(tài)變量可以在窗體的"通用聲明部"定義

  15 .過程在自身定義的內(nèi)部調(diào)用自己本身的結(jié)構(gòu)稱為遞歸。√

  16.如下程序功能是求n的階層:

  Function fac(n As Integer) As Integer

  If n = 1 Then

  fac = 1

  Else

  fac = n * fac(n - 1)

  End If

  End Function

  Sub Command1_Click( )

  n=val(inputbox("請輸入數(shù)值"))

  Print "fac(n)=";fac(n)

  End Sub

  以下說法不正確的是(D) (單)

  A.若fac函數(shù)中If n = 1 Then fac = 1沒有,僅有語句:fac = n * fac(n - 1) ,程序運行將會出錯

  B.若輸入的n<=0 ,程序運行將會出錯

  C.若n=4,則輸出結(jié)果為:fac(n)=24

  D.以上說法都不正確

  17.利用遞歸求最大公約數(shù)的程序為:

  Public Function gcd(m As Integer, n As Integer) As Integer

  If (m Mod n) = 0 Then

  gcd =【n】

  Else

  gcd = gcd(n, m Mod n)

  End If

  End Function

  Private Sub Form_Click( )

  Print gcd(10, 4)

  End Sub

  18 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換。√

  Private Sub Check1_Click( )

  Text1.FontBold = Not Text1.FontBold

  End Sub

  *19 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換。√

  Private Sub Check1_Click( )

  Text1.FontItalic = Not Text1.FontItalic

  End Sub

  *20 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換。√

  Private Sub Check1_Click( )

  Text1.FontUnderline = Not Text1.FontUnderline

  End Sub

  【計算機二級VB考試題二】

  1.在窗體上畫一個名稱為Text1的文本框,一個名稱為Command1的命令按鈕,然后編寫如下事件過程和通用過程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n\2 = n/2 Then

  f = f1(n)

  Else

  f = f2(n)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x=x*x

  f1=x+x

  End Function

  Public Function f2(ByVal x)

  x=x*x

  f2=x+x+x

  End Function

  程序運行后,在文本框中輸入3,然后單擊命令按鈕,窗體上顯示的是(D)(單)

  A.72 36

  B.108 36

  C.72 6

  D.27 3

  2.在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  c = "1234"

  For i = 1 To 4

  c1 = Trim(Str( ))

  Print c1

  Next i

  End Sub

  程序運行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容

  1

  12

  123

  1234

  則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

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

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  For i = 2 To n

  For j = 2 To sqr(i)

  If i Mod j = 0 Then Exit For

  Next j

  If j >Sqr(i) Then Print i

  Next i

  End Sub

  該事件過程的功能是(C)(單)

  A.輸出n以內(nèi)的奇數(shù)

  B.輸出n以內(nèi)的偶數(shù)

  C.輸出n以內(nèi)的素數(shù)

  D.輸出n以內(nèi)能被j整除的數(shù)

  4.在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下通用過程和命令按鈕的事件過程:

  Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click( )

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next

  Print s

  End Sub

  程序運行后,單擊命令按鈕,在窗體上顯示的'是(C)(單)

  A.11

  B.10

  C.9

  D.8

  5.在窗體上畫一個名稱為Text1的文本框和一個名稱為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

  程序運行后,單擊命令按鈕,在文本框中顯示的值是(D)(單)

  A.15

  B.14

  C.13

  D.12

  6.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴展名是【BAS或.BAS】(注意不要寫點)。

  7.在菜單編輯器中建立一個菜單,其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。

  Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  popupmenu mnuEdit

  End If

  End Sub

  8.在菜單編輯器中建立一個菜單,其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。以下是實現(xiàn)上述功能的程序,請?zhí)羁铡?/p>

  Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  【popupmenu】 mnuEdit

  End If

  9.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。

  10.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。

  【計算機二級VB考試題三】

  1.窗體中有一個名稱為txtSpeed的文本框,一個名稱為hsbSpeed的滾動條。

  以下程序:

  Private Sub hsbSpeed_Change( )

  txtSpee

  D.Text = hsbSpee

  D.Value

  End Sub

  當(dāng)單擊滾動條hsbSpeed右端的箭頭時,以下說法不正確的是(B) (單)

  A.此時會觸發(fā)change事件

  B.此時不會觸發(fā)change事件

  C.在文本框中顯示了滾動條滑塊所在位置的值

  D.此時不會觸發(fā)scroll事件

  2.利用窗體中的滾動條HScroll1改變窗體的背景色,可以這樣編寫代碼:

  Private Sub HScroll1_Change( )

  R= HScroll1.Value

  form1.BackColor = RGB(R,int(Rnd*256),int(Rnd*256))

  End Sub

  以下說法不正確的是(C) (單)

  A.窗體的背景色是一個隨機的顏色

  B.RGB函數(shù)取得到的顏色有256*256*256種

  C.表達式int(Rnd*256)取得隨機數(shù)的范圍為0-256之間的整數(shù)

  D.表達式int(Rnd*256)取得隨機數(shù)的范圍為0-255之間的整數(shù)

  3.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件,一個名稱為text1的文本框,如下程序:

  Private Sub Slider1_change( )

  Text1.FontSize =【Slider1.value】

  End Sub

  當(dāng)拖動滑塊時,以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。

  4.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件,一個名稱為text1的文本框,如下程序:

  Private Sub Slider1_change( )

  Text1.【Fontsize】 = slider1.value

  End Sub

  當(dāng)拖動滑塊時,以上程序?qū)崿F(xiàn)用Slider控件設(shè)置文本框中的字體大小的功能。

  5.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件,要設(shè)置它的如下屬性值,可以編寫程序(A) (單)

  (1)Slider控件的滑塊處于最小位置時值為8

  (2)Slider控件的滑塊處于最大位置時值為72

  (3)單擊Slider控件兩端箭頭時,滑塊的增量值為2

  (4)單擊Slider控件的空白處時,滑塊的增量值為8

  A.Slider1.Min = 8:

  Slider1.Max = 72:

  Slider1.SmallChange =2:

  Slider1.LargeChange = 8

  B.Slider1.Min = 2:

  Slider1.Max = 8:

  Slider1.SmallChange = 72:

  Slider1.LargeChange = 8

  C.Slider1.Min = 8:

  Slider1.Max = 72:

  Slider1.SmallChange = 8:

  Slider1.LargeChange = 2

  D.Slider1.Min = 72:

  Slider1.Max = 8:

  Slider1.SmallChange = 2:

  Slider1.LargeChange = 8

  6.在窗體中有一個名稱為timer1的時鐘控件,三個名稱分別為image1、image2 和 image3的圖像框,編寫如下程序:

  Sub Form_Load( )

  Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

  Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  End Sub

  Sub timer1_Timer( )

  Static PickBmp As Boolean

  Image1.Move Image1.Left + 20, Image1.Top - 5

  If PickBmp = False Then

  Image1.Picture = Image2.Picture

  PickBmp = True

  Else

  Image1.Picture = Image3.Picture

  PickBmp = False

  End If

  End Sub

  以下說法不正確的是(C) (單)

  A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進行切換

  B.PickBmp變量是邏輯變量,作用是表示圖形的狀態(tài)

  C.App.Path表示絕對路徑

  D.要使得timer控件起作用,必須使得它的Enabled屬性設(shè)置為true,interval屬性設(shè)置為介于0-64767之間的數(shù)值,但不能等于0

  7.在窗體中有一個名稱為timer1的時鐘控件,三個名稱分別為image1、image2 和 image3的圖像框,編寫如下程序:

  Sub Form_Load( )

  Image1.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  Image2.Picture=LoadPicture(App.Path+"\butterfly2.bmp")

  Image3.Picture=LoadPicture(App.Path+"\butterfly.bmp")

  End Sub

  Sub timer1_Timer( )

  Static PickBmp As Boolean

  Image1.Move Image1.Left + 20, Image1.Top - 5

  If PickBmp = False Then

  Image1.Picture = Image2.Picture

  PickBmp = True

  Else

  Image1.Picture = Image3.Picture

  PickBmp = False

  End If

  End Sub

  以下說法不正確的是(B) (單)

  A.此程序的功能是把image1圖像框顯示圖形在butterfly.bmp和butterfly2.bmp文件之間進行切換

  B.也可以將timer1控件的timer事件改寫為change事件

  C.App.Path表示相對路徑

  D.要使得timer控件起作用,必須使得它的Enabled屬性設(shè)置為true,interval屬性設(shè)置為介于0-64767之間的`數(shù)值,但不能等于0

  8 .在ProgressBar進度條控件中,它的Value屬性決定該控件被填充多少。√

  9 .UpDown控件通常與伙伴控件"捆綁"在一起使用。√

  10 .Animation控件可以用來顯示有聲音的AVI視頻文件 ×。

  11.對Animation控件所使用的方法描述不正確的是(B) (單)

  A.Open方法用于打開文件

  B.Play方法用于播放動畫,格式為: Animation1.play AVI動畫文件路徑

  C.Stop方法用于停止播放

  D.Close方法用于關(guān)閉文件

  12.下面的事件不屬于鼠標(biāo)器事件的是(D) (單)

  A.MouseDown事件

  B.MouseUp事件

  C.MouseMove事件

  D.Move事件

  13.下面的事件不屬于鍵盤事件的是(D) (單)

  A.KeyPress事件

  B.KeyDown事件

  C.KeyUp事件

  D.KeyMove事件

  14.在窗體中有一個名稱為command1的命令按鈕,一個名稱為text1的文本框,一個名稱為commondialog1的通用對話框,編寫如下程序:

  Sub command1_Click( )

  CommonDialog1.Action = 3

  text1.ForeColor = CommonDialog1.Color

  End Sub

  當(dāng)單擊命令按鈕時,對程序的運行說法正確的是(B) (單)

  A.打開一個顏色對話框

  B.打開一個字體對話框

  C.把文本框的背景顏色設(shè)置為對話框選擇的字體顏色

  D.把文本框的背景顏色設(shè)置為對話框中選擇的顏色

  15.當(dāng)單擊命令按鈕時,對以下程序說法不正確的是(D) (單)

  Sub command1_Click( )

  CommonDialog1.Action = 5

  For i = 1 To CommonDialog1.Copies

  Printer.Print text1.Text

  Next i

  Printer.EndDoc

  End Sub

  A.此文件的功能是打印文本框text1中的內(nèi)容

  B.語句Printer.EndDoc表示結(jié)束文擋打印

  C.打開的打印對話框

  D.以上說法都不正確

  16.當(dāng)單擊命令按鈕時,對以下程序說法不正確的是(C) (單)

  Sub command1_Click( )

  CommonDialog1.FileName = "default.txt"

  CommonDialog1.DefaultExt = "Txt"

  CommonDialog1.Action = 2

  End Sub

  A.設(shè)置缺省文件名為default.txt

  B.設(shè)置缺省擴展名為Txt

  C.顯示的是文件"打開"對話框

  D.顯示的是"另存為"對話框

  17.在窗體中建立了三個名稱分別為EditCut、EditCopy和EditPaste的命令按鈕,一個名稱為text1的文本框。

  如下程序:

  Private Sub EditCopy_Click( )

  st = Text1.SelText '將選中的內(nèi)容存放到st變量中

  End Sub

  Private Sub EditCut_Click( )

  st = Text1.SelText '

  Text1.SelText = ""

  End Sub

  Private Sub EditPaste_Click( )

  Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart

  + 1)

  End Sub

  對以上程序說法不正確的是(D) (單)

  A.語句st = Text1.SelText的作用是:將text1文本框中選擇的內(nèi)容存放到st變量中

  B.語句Text1.SelText = "" 的作用是:將text1文本框中選擇的內(nèi)容清除

  C.單擊EditCut命令按鈕實現(xiàn)了text1文本框中選擇的內(nèi)容清除

  D.單擊Editcopy命令按鈕實現(xiàn)了text1文本框中所有內(nèi)容的粘貼

  18.對以下程序說法不正確的是(D) (單)

  Private Sub FileOpen_Click( )

  CommonDialog1.InitDir = "C:\"

  CommonDialog1.Filter = "文本文件 | *.Txt"

  CommonDialog1.ShowOpen

  End Sub

  A.顯示"文件"打開對話框

  B.打開的對話框的初始目錄為C盤根目錄

  C.打開的對話框的文件類型為文本文件

  D.以上說法都不正確

  19.雙精度型數(shù)據(jù)的類型符為(A) (單)

  A.#

  B.*

  C.&

  D.@

  20.整型數(shù)據(jù)的類型符為(B) (單)

  A.#

  B.%

  C.&

  D.@

【計算機二級VB考試題】相關(guān)文章:

計算機二級VB考試題精選及答案07-21

計算機二級VB考試題及答案07-20

計算機等級考試二級VB考試題及答案07-21

計算機二級VB語言程序設(shè)計考試題及答案07-21

二級VB語言程序設(shè)計考試題及答案07-21

計算機二級VB強化試題及答案07-20

計算機二級VB考點:報表制作07-20

計算機二級VB考試重點知識08-15

計算機二級VB考試練習(xí)及答案07-21

計算機二級考試VB選擇題試題08-09