點(diǎn)擊查看：2018年9月計(jì)算機(jī)二級(jí)VB考試鞏固練習(xí)及答案匯總

　　1.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請(qǐng)輸入1-4之間的整數(shù)"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗體運(yùn)行后，輸入2，則label1的標(biāo)題顯示結(jié)果為(B)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　2.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請(qǐng)輸入1-4之間的整數(shù)"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗體運(yùn)行后，輸入3，則label1的標(biāo)題顯示結(jié)果為(C)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　3.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請(qǐng)輸入1-4之間的整數(shù)"))

　　Select Case Nop

　　Case 1

　　Op = "+"

　　Result = Num1 + Num2

　　Case 2

　　Op = "-"

　　Result = Num1 - Num2

　　Case 3

　　Op = "×"

　　Result = Num1 * Num2

　　Case 4

　　Op = "÷"

　　Result = Num1 / Num2

　　End Select

　　Label1= Num1 & Op & Num2 & "=" & Result

　　End Sub

　　窗體運(yùn)行后，輸入4，則label1的標(biāo)題顯示結(jié)果為(D)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　4.以下程序段的作用是(A)(單)

　　Private Sub Picture1_Click( )

　　Dim asci As Integer, i As Integer

　　i = 0

　　For asci = 32 To 126

　　Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;

　　i = i + 1

　　If i = 7 Then i = 0: Picture1.Print

　　Next asci

　　A.打印ASCII碼表，一行7個(gè)表達(dá)式

　　B.打印九九乘法表，一行7個(gè)表達(dá)式

　　C.打印ASCII碼表，一行8個(gè)表達(dá)式

　　D.以上說(shuō)法都不正確

　　5.我國(guó)現(xiàn)在人口有13億，按人口增長(zhǎng)0.8%計(jì)算，多少年后我國(guó)人口將超過(guò)26億。

　　Private Sub Command1_Click( )

　　Dim x, n

　　x = Val(Text1)

　　n = 0

　　Do While 【x】<26

　　x = x * (1 + 0.008)

　　n = n + 1

　　Loop

　　Text2 = Str(n)

　　End Sub

　　6.以下程序的作用是(B)(單)

　　For i = 1 To 9

　　For j = 1 To 9

　　se = i & "×" & j & "=" & i * j

　　Picture1.Print Tab((j - 1) * 9 + 1); se;

　　Next j

　　Picture1.Print

　　Next i

　　A.打印ASCII碼表

　　B.打印九九乘法表

　　C.打印加法表

　　D.以上說(shuō)法都不正確

　　7.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來(lái)求自然數(shù)e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和結(jié)果

　　I = 0 ' 計(jì)數(shù)器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級(jí)數(shù)第I項(xiàng)值

　　Do While 【t>】 0.00001

　　e = e + t

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "計(jì)算了 "; I; " 項(xiàng)的和是 "; e

　　End Sub

　　8.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來(lái)求自然數(shù)e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和結(jié)果

　　I = 0 ' 計(jì)數(shù)器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級(jí)數(shù)第I項(xiàng)值

　　Do While t>0.00001

　　e = e + 【t】

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "計(jì)算了 "; I; " 項(xiàng)的和是 "; e

　　End Sub

　　9.求自然數(shù)e的近似值，誤差小于0.00001，近似公式為：e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用來(lái)求自然數(shù)e。

　　Private Sub Form_Click( )

　　Dim I%, n&, t!, e!

　　E = 0 ' 存放累加和結(jié)果

　　I = 0 ' 計(jì)數(shù)器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級(jí)數(shù)第I項(xiàng)值

　　Do While t>0.00001

　　e = e + t

　　I = I + 1

　　n = n * 【I】

　　t = 1 / n

　　Loop

　　Print "計(jì)算了 "; I; "項(xiàng)的和是"; e

　　End Sub

　　10.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序。

　　Private Sub Form_Click( )

　　Dim m1, n1, m, n, r As Integer

　　n1 = InputBox("輸入自然數(shù)n", "輸入數(shù)")

　　m1 = InputBox("輸入自然數(shù)m", "輸入數(shù)")

　　n = n1

　　m = m1

　　If m < n Then

　　t = m: m = n: n = t

　　End If

　　r = m Mod 【n】

　　Do While (r<>0)

　　m = n

　　n = r

　　r = m Mod n

　　Loop

　　Print "最大公約數(shù)=", n

　　Print "最小公倍數(shù)= ", m1 * n1 / n

　　End Sub

　　11.下列可以激活屬性窗口的操作是(D)(單)

　　A.用鼠標(biāo)雙擊窗體的任何部位

　　B.執(zhí)行"文件"菜單中的"屬性窗口"命令

　　C.執(zhí)行"編輯"菜單中的"屬性窗口"命令

　　D.按F4鍵

　　12下列能打開(kāi)工具箱窗口的操作是(A)(單)

　　A.執(zhí)行"視圖"菜單中的"工具箱"命令

　　B.按Alt鍵

　　C.單擊屬性窗口上的"工具箱"按鈕

　　D.按Ctrl鍵

　　13.假定已在一個(gè)窗體上畫(huà)了多個(gè)控件，并有一個(gè)控件是活動(dòng)的，為了在屬性窗口中設(shè)置該窗體的Name屬性，預(yù)先應(yīng)執(zhí)行的操作是(D)(單)

　　A.單擊窗體上有控件的地方

　　B.單擊任一個(gè)控件

　　C.不執(zhí)行任何操作

　　D.雙擊窗體的標(biāo)題欄

　　14.為了把窗體上的某個(gè)控件變?yōu)榛顒?dòng)的，應(yīng)執(zhí)行的操作是(B)(單)

　　A.單擊窗體的空白處

　　B.單擊該控件的內(nèi)部

　　C.雙擊該屬性列表框

　　D.雙擊窗體

　　15.確定一個(gè)控件在窗體上的位置的屬性是(D)(單)

　　A.Width或Height

　　B.Top和Height

　　C.Top或Width

　　D.Top和Left

　　16.確定一個(gè)窗體或控件的大小的屬性是(A)(單)

　　A.Width或Height

　　B.Top和Width

　　C.Top或Left

　　D.Top和Left

　　17.為了同時(shí)改變一個(gè)活動(dòng)控件的高度和寬度，正確的操作是(A)(單)

　　A.拖拉位于控件左上角

　　B.只能拖拉位于控件右下角

　　C.只能拖拉位于控件左下角

　　D.不能同時(shí)改變控件的高度和寬度

　　18.面向?qū)ο蟮某绦蛟O(shè)計(jì)指滿足(B)(單)

　　A.虛擬化、結(jié)構(gòu)化、動(dòng)態(tài)化

　　B.封裝性、繼承性、多態(tài)性

　　C.對(duì)象的鏈接、動(dòng)態(tài)鏈接、動(dòng)態(tài)數(shù)據(jù)交換

　　D.ODBC、DDE、OLE

　　19.用戶在屏幕上畫(huà)出應(yīng)用程序界面，并設(shè)置好對(duì)象的屬性，系統(tǒng)便可以自動(dòng)生成程序代碼，這稱(chēng)為(A)(單)

　　A.面向?qū)ο蟮某绦蛟O(shè)計(jì)

　　B.結(jié)構(gòu)化程序設(shè)計(jì)

　　C.事件驅(qū)動(dòng)的編程機(jī)制

　　D.程序設(shè)計(jì)

　　20.VB集成開(kāi)發(fā)環(huán)境開(kāi)發(fā)的應(yīng)用程序不適宜的運(yùn)行環(huán)境是(A)(單)

　　A.WINDOS 32

　　B.WINDOWS 9X

　　C.WINDOWS NT

　　D.WINDOWS 2000

　　相關(guān)推薦：

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試必做試題匯總(各科目)

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018全國(guó)計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級(jí)考試報(bào)考指南