《[考試中心]安徽省計算機二級VB筆試權威模擬試題及答案2》由會員分享，可在線閱讀，更多相關《[考試中心]安徽省計算機二級VB筆試權威模擬試題及答案2(9頁珍藏版)》請在人人文庫網上搜索。

1、全國高等學校(安徽考區)計 算 機 水 平 考 試 試 卷(二級 Visual Basic 語言)一、單項選擇題(每題1分，共40分)1計算機硬件系統中最核心的部件是 1 。 A)內存儲器 B)輸入/輸出設備 C)CPU D)硬盤2計算機最早的應 用領域是 2 。A)科學計算 B)圖形處理 C)過程控制 D)人工智能3下列屬于文字處理軟件的是 3 。A)Windows B)Word C)PowerPointD)Excel4在計算機系統內部，所有數據都是采用 4 表示。A)十六進制 B)十進制 C)八進制 D)二進制5在Windows系統中，下面文件命名合法的是 5 。A)A*.DOC B)AB。

2、.DOC C)A?.DOC D)A.DOC6計算機可以播放DVD等音像制品, 主要運用的是 6 技術。A)多媒體 B)人工智能 C)數據庫 D)數據挖掘7將文件從FTP服務器傳輸到本地計算機的過程稱為 7 。A)上傳 B)瀏覽 C)查找 D)下載8下列IP地址中，錯誤的是 8 。A)219.231.10.155 B)192.168.5.1 C)219.260.20.12 D)192.10.6.7 9下列關于計算機病毒的敘述中，正確的是 9 。 A)加密文件不會感染計算機病毒 B)系統軟件不會感染計算機病毒C)有防火墻的計算機系統也會感染病毒D)壓縮的文件不會感染計算機病毒10計算機能直接運行的。

3、是 10 。A)目標程序B)機器語言程序 C)匯編語言程序D)高級語言程序11下列選項中是Visual Basic的合法變量名的是 C 。A)1_abc B)abc-1 C)abc_1 D)abc.112對正整數X、Y，有下列表達式，不能判斷X能被Y整除的是 C 。A)X/Y=Int(X/Y) B)X Mod Y =0 C)XY=Fix(X/Y) D)XY=X/Y13下面可以正確定義2個整形變量和一個字符型變量的語句是 B 。A)Dim x, y As Integer, n As StringB) Dim x%, y As Integer, n As StringC) Dim x%, y$, 。

4、n As StringD) Dim x As Integer, y, n As String14下面表達式中， A的運算結果與其他三個不同。A)Exp(-3.5)B)Int(-3.5)+0.5 C)-Abs(-3.5) D)Sgn(-3.5)-2.515將任意一個正的兩位整數N的個位數與十位數對換的表達式為 A。A)(N-Int(N/10)*10)*10+Int(N/10)B)N-Int(N)/10*10+Int(N)/10C)Int(N/10)+(N-Int(N/10)D)(N-Int(N/10)*10+Int(N/10)16執行語句s = Mid(VisualBasic,1,6)后，s的值。

5、是 A 。A) Visual B) Basic C) 6 D) 1117表達式5 Mod 3+35*2的值是 B 。A)0 B)2 C)4 D)618選拔性別S是女，身高T超過1.6米且體重W小于62.5公斤的人，表示該條件的表達式為 C 。A) S=女 And T=1.6 And W1.7 Or W1.6 And W=62.519可以強行中斷程序運行的操作是 DA) 按Ctrl+C鍵B) 按Ctrl+Z鍵C) 按Ctrl+V鍵D) 按Ctrl+Break鍵20在默認條件下有數組聲明語句：Dim A(2, -2 to 2, 3)，則數組A包含 D 個元素。A) 200 B) 120 C) 75。

6、 D) 60 21已設置數組元素下標從1開始，下列程序段運行時會提示出錯，出錯的原因是 C 。a = Array(1, 2, 3, 4)For i = 4 To 1 Step -1Print a(i)Next iPrint a(i)A)第三行，數組元素a(i)下標越界 B)第一行，數組沒定義，不能直接賦值C)第五行，數組元素a(i)下標越界 D)第二行，循環語句格式不對22下列語句不合法的是 D。A)x = 1: y = 2 B)Print x; y; C)Print x, y, D)x=1;y=223當0z) Or z=8B)x=7D)x Max ThenMax = (7) End ifNe。

7、xt iPrint 最大值是：; MaxEnd Sub6. 下列程序的功能是計算(N是偶數)，試填空完成以下程序。Private Sub Command2_Click()Dim S As DoubleDim I As Integer, N As IntegerDim C As IntegerS = 0: I = 1: C = 1N = Val(InputBox(請輸入大于零的偶數N：)DoS = S + C * I * IC = (8) 正負號切換I = (9) 循環變量增加Loop While (10) 循環結束條件End Sub三、閱讀理解題(每小題4分，共20分)1執行下列程序后，輸出的。

8、結果是： (1) Private Sub Form_Click()Dim x As Integerx = 10Select Case xCase Is = 10Print x & xCase 7, 8, 9Print x + xCase 0 To 6Print xEnd SelectEnd Sub 2執行下列程序后，輸出的結果是： (2) Private Sub Form_Click()Dim i As IntegerDim t As Stringst = For i = 1 To 12 字符串逐字符處理If i Mod 3 = 0 Thenst = Mid(Visual Basic, i, 。

9、1) + stEnd IfNext iPrint stEnd Sub 3執行下列程序后，輸出的結果是： (3) Private Sub Form_Click()Dim s As Integer, n As Integers = 0n = 1 Dos = s + n * nIf s 50 ThenExit Do 強制跳出循環End Ifn = n + 1 循環變量自增Loop Until n 6Print sEnd Sub 4執行下列程序后，輸出的結果是： (4) Option Base 1Private Sub Form_Click()Dim a(4, 4) As IntegerDim i A。

10、s Integer, j As IntegerDim count As Integer, s As Integercount = 1For i = 1 To 4 給二維數組賦值并累加特殊位置的元素值For j = 1 To 4a(i, j) = count count = count + 1If i = 1 Or i = 4 Or j = 1 Or j = 4 Thens = s + a(i, j)End IfNext jNext iPrint sEnd Sub 5執行下列程序后，E盤下tdata.txt文件中的內容是： (5) Private Sub Form_Click()For i = 。

11、1 To 5s = s + fun(i)Next iOpen e:tdata.txt For Output As #1 打開順序文件Print #1, sClose #1End SubPrivate Function fun(ByVal i As Integer) As IntegerStatic aa = a + 1fun = a * iEnd Function 四、編程題(共20分)1編寫一個Function函數fun，求解如下分段函數的值(x為實型變量的函數形參)(6分)Y=-x x102編寫程序，利用隨機函數產生10個10，100之間的整數，并存入數組中，求出該數組中最大數與最小數之差。

12、并在窗體上輸出結果。(7分)3假定在E盤下有一文件data.dat，其內容為三個點的坐標，內容樣式如下4,82,63,8每一行的前1個數據表示點的橫坐標x，后一個數據表示點的縱坐標y。編寫程序讀取文件中的數據，并判斷該三點能否構成三角形。(7分)提示：利用任意兩邊之和大于第三邊來判定三角形。邊長L= ，其中(x1,y1)及(x2,y2)為兩點坐標。Visual BASIC程序設計(語種代號：211)(B)卷參考答案及評分標準一、單項選擇題(每題1分，共40分)1 - 5 CABDB6-10ADCCB11-15CCBAA16-20ABCDD21-25CDCAA26-30BAADD31-35ACB。

13、DB36-40ABCDD二、填空題(每空2分，共20分)1(x+y)3*(t+u)2/t/(x-y)662x=-7.57arr1(i)3y mod 4=0 and y mod 100 a(i) Then min = a(i)Next iPrint 最大及最小數之差為; max - min 參考程序2：(排序計算)Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next iFor i = 0 To 8For j = i + 1 To 9 If a(i) l3 And l2 + l3 l1 And l1 + l3 l2 ThenMsgBox (文件中三點能構成三角形)ElseMsgBox (文件中三點不能構成三角形)End If程序正確得7分，其中：正確使用文件打開語句得2分文件數據正確讀取得2分求邊長表達式正確得1分三角形判定表達式正確得1分輸出語句正確使用得1分注：其他解法可參照給分。

總結

以上是生活随笔為你收集整理的安徽省计算机二级VB笔试题,[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。