vb計算機二級考試試題2016
1.基本操作(2小題,每題15分,共計30分)
(1) 在名稱為Form1的窗體上畫一標籤(名稱為Label1,標題為空白,BorderStyle屬性為1,Visible屬性為False)、一個文本框(名稱為Text1,Text屬性為空白)和一個命令按鈕(名稱為Command1,標題為“顯示”),如圖1所示。然後編寫命令按鈕的Click事件過程。程序運行後,在文本框中輸入“計算機等級考試”,然後單擊命令按鈕,則文本框消失,並在標籤內顯示文本框中的內容,運行後的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub Command1_Click()
ble = True
ble = False
ion =
End Sub
(2)在名稱為Form1的窗體上畫一個文本框(名稱為Text1)和一個水平滾動條(名稱為HScroll1),如圖1所示。在屬性窗口中對滾動條設置如下屬性:
Min 500
Max 2000
Largechange 50
Smallchange 20
編寫適當的事件過程。程序運行後,如果移動滾動條上的滾動框,則可擴大或縮小文本框的高度,並使得文本框的`寬度始終是其高度的1.2倍。運行後的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub HScroll1_Change()
ht = e
h = ht * 1.2
End Sub
2.簡單應用(2小題,每題20分,計40分)
(1)在考生文件夾下有一個工程文件,請在窗體上畫兩個單選按鈕(名稱分別為Option1Option2,標題分別為“添加項目”和“刪除項目”),一個列表框(名稱為List1)和一個文本框(名稱為Text1),如圖1所示。編寫窗體的Click事件過程。程序運行後,如果選擇“添加項目”單擊按鈕,然後單擊窗體,則從鍵盤上輸入要添加的項目(內容任意,不少於三個),並添加到列表框中;如果選擇“刪除項目”單選按鈕,然後單擊窗體,則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的運行情況如圖2所示。
在考生文件夾下有一個工程文件(相應的窗體文件名為),可以實現上述功能。但這個程序不完整,請把它補充完整。
Private Sub Form_Click()
If e = True Then
= InputBox("請輸入要添加的項目")
tem
End If
If e = True Then
= InputBox("請輸入要刪除的項目")
For i = 0 To Count - 1
If (i) = Then
veItem i
End If
Next i
End If
End Sub
(2)在考生文件夾下有一個工程文件(相應的窗體文件名為),其功能是通過調用過程Sort將數組按降序排序,請裝入該文件。程序運行後,在四個文本框中各輸入一個整數(如圖1所示),然後單擊命令按鈕,即可使數組按降序排序,並在文本框中顯示出來(如圖2所示)。這個程序不完整,請把它補充完整,並能正確運行。
Option Base 1
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To i - Start
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(), Val(), Val(), Val())
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
Sort arr2()
= arr2(1)
= arr2(2)
= arr2(3)
= arr2(4)
End Sub
3.綜合應用(1小題,計30分)
在窗體上建立三個菜單(名稱分別為Read、Calc和Save,分別為“讀入數據”、“計算並輸出”、和“存盤”),然後畫一個文本框(名稱為Text1,MultiLine屬性設置為True,ScrollBars屬性設置為2)(如圖所示)。程序運行後,如果執行“讀入數據”命令,則讀入文件中的100個整數,放入一個數組中,數組的下界為1;如果單擊“計算並輸出”按鈕,則把該數組中小於50的元素在文本框中顯示出來,求出它們的和,並把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕,則把所求得的和存入考生文件夾下的文件中。
在考生文件夾下有一個工程文件,考生可以裝入該文件。窗體文件中的ReadData過程可以把文件中的100個整數讀入Arr數組中;而WriteData過程可以把指定的整數值寫到考生文件夾下指定的文件中(整數值通過計算求得,文件名為)。
Option Base 1
Dim Arr(100) As Integer
Dim Sum As Integer '存儲累加和
Sub ReadData()
Open & "" & "" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
-
2017年計算機二級考試VB習題及答案
計算機等級證書是我們找工作的敲門磚,現在越來越多人重視計算機等級考試。下面是本站小編為大家帶來的2017年計算機二級考試VB習題及答案,希望對大家的學習有幫助!1.在菜單編輯器中建立一個菜單,其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運行後,如果用鼠標...
-
2016年計算機二級C++逗號操作符應用方法詳解
不少C++newbie都會問到這問題,大家對+-*/自然是認識的了,對其他的%!&|之類的也不覺得陌生,但是逗號操作符?可能有一半的人會説不清楚它到底是幹啥的。其實,我們是經常會用到逗號操作符的,但是並不是所有代碼裏出現的逗號都是逗號操作符。讓我們先從一個類的示例...
-
計算機二級模擬試題及答案大綱
1、在面向對象方法中,不屬於對象基本特點的是A)一致性B)分類性C)多態性D)標識唯一性【答案】:A對象的基本特點:①標識唯一性;②分類性;③多態性;④封裝性;⑤模塊獨立性好。2、查詢所有目前年齡是22歲的學生信息:學號,姓名和年齡,正確的命令組是TEVIEWAGE_LISTAS;SELE...
-
2016年9月計算機二級MSoffice考前衝刺題及答案
選擇題1.下列敍述中正確的是().A.循環隊列是隊列的一種鏈式存儲結構B.循環隊列是隊列的一種順序存儲結構C.循環隊列是非線性結構D.循環隊列是一種邏輯結構2.下列關於線性鏈表的敍述中,正確的是().A.各數據結點的存儲空間可以不連續,但它們的存儲順序與邏輯順序必...