2017年9月計算機二級考試VB復習題及答案

　　2017年計算機二級考試馬上就要開始了，你報考了VB科目嗎?為了方便考生備考計算機二級考試VB 科目。下面是小編為大家帶來的計算機二級考試VB復習題，歡迎閱讀。

　　復習題一：

　　1.以下程序是求最大公約數和最小公倍數的程序，在【】處填寫合適的關系運算符。

　　Private Sub Form_Click( )

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

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

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

　　n = n1

　　m = m1

　　If m

　　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 "最大公約數=", n

　　Print "最小公倍數= ", m1 * n1 / n

　　End Sub

　　2.下面是求100以內素數的程序。

　　Private Sub Command1_Click( )

　　Dim i As Integer, m As Integer, tag As Boolean

　　For m = 2 To 100

　　tag = True

　　For i = 2 To m - 1

　　If m Mod 【i】 = 0 Then tag = False

　　Next i

　　If tag Then Print m

　　Next m

　　End Sub

　　3.下面是求100以內素數的程序，下面說法正確的是(A)(單)

　　Private Sub Command1_Click( )

　　Dim i As Integer, m As Integer, tag As Boolean

　　For m = 2 To 100

　　tag = True

　　For i = 2 To m - 1

　　If m Mod i = 0 Then tag = False

　　Next i

　　If tag=true Then Print m

　　Next m

　　End Sub

　　A.tag為true時，表示m是素數

　　B.tag為false時，表示m是素數

　　C.語句m Mod i = 0，說明m是素數

　　D.以上說法都不正確

　　4.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元。現在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。

　　Private Sub Command2_Click( )

　　Dim x%, y%, z%

　　For x = 0 To 33

　　For y = 0 To 50

　　If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then

　　Picture2.Print x, y, 【100-x-y,10-y-x】

　　End If

　　Next y

　　Next x

　　End Sub

　　5.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元。現在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。

　　Private Sub Command1_Click( )

　　Dim x%, y%, z%

　　For x = 0 To 33

　　For y = 0 To 50

　　For z = 0 To 100

　　If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then

　　Picture1.Print x, y, z

　　End If

　　Next z

　　Next y

　　Next x

　　End Sub

　　6.隨機產生10個100～200之間的數，求它們的最大值程序如下：

　　Private Sub Command1_Click( )

　　Max = 100

　　For i = 1 To 10

　　x = Int(Rnd * 101 + 100)

　　Print x;

　　If x > Max Then 【】

　　Next i

　　Print

　　Print "最大值="; Max

　　End Sub

　　在此程序中，其中【】處應該填寫的是(C)(單)

　　A.Max = 100

　　B.Max =200

　　C.Max = x

　　D.Max = 0

　　7.隨機產生10個100～200之間的數，求它們的最大值程序如下：

　　Private Sub Command1_Click( )

　　Max = 100

　　For i = 1 To 10

　　x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】

　　Print x;

　　If x > Max Then Max=x

　　Next i

　　Print

　　Print "最大值="; Max

　　End Sub

　　8.隨機產生10個100～200之間的數，求它們的最大值程序如下：

　　Private Sub Command1_Click( )

　　Max = 100

　　For I = 1 To 10

　　x =Int(Rnd * 101 + 100)

　　Print x;

　　If 【】 Then Max=x

　　Next I

　　Print

　　Print "最大值="; Max

　　End Sub

　　在【】處應該填寫的是：(A)(單)

　　A.x > Max

　　B.x

　　C.x = Max

　　D.以上都不正確

　　9.以下是求1～100之間5或7的倍數的和，如下程序段：

　　Sum = 0

　　For i = 1 To 100

　　If i Mod 5 = 0 Or i Mod 7 = 0 Then

　　【】

　　End If

　　Next i

　　Print Sum

　　其中【】處書寫正確的是(B)(單)

　　A.Sum = i

　　B.Sum = Sum + i

　　C.Sum = Sum + 5+7

　　D.以上都不正確

　　10.以下是求1～100的5或7的倍數的和程序段：

　　Sum = 0

　　For i = 1 To 100

　　If i Mod 5 = 0 Or i 【mod】 7=0 Then

　　Sum = Sum + i

　　End If

　　Next i

　　Print Sum

　　11.以下敘述中錯誤的是(B)(單)

　　A.Visual Basic 是事件驅動型可視化編程工具

　　B.Visual Basic應用程序不具有明顯的開始和結束語句

　　C.Visual Basic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性

　　D.Visual Basic中控件的某些屬性只能在運行時設置

　　12.以下敘述中錯誤的是(A)(單)

　　A.在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件

　　B.以.BAS為擴展名的文件是標準模塊文件

　　C.窗體文件包含該窗體及其控件的屬性

　　D.一個工程中可以含有多個標準模塊文件

　　13.以下敘述中錯誤的是(B)(單)

　　A.雙擊鼠標可以觸發DblClick事件

　　B.在編程過程中，窗體或控件的事件的名稱可以由編程人員自由確定

　　C.移動鼠標時，會觸發MouseMove事件

　　D.控件的名稱可以由編程人員設定

　　14.以下不屬于Visual Basic系統的文件類型是(B)(單)

　　A..frm

　　B..bat

　　C..vbg

　　D..vbp

　　15.以下敘述中錯誤的是(C)(單)

　　A.打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件

　　B.保存Visual Basic程序時，應分別保存窗體文件及工程文件

　　C.Visual Basic應用程序只能以解釋方式執行

　　D.事件可以由用戶引發

　　16.以下聲明語句中錯誤的是(B)(單)

　　A.Const var1=123

　　B.Dim var2 = 'ABC'

　　C.Public a,b as integer

　　D.Static a as single

　　17.設窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內容的是(D)(單)

　　A.List1.List

　　B.List1.ListIndex

　　C.List1.Index

　　D.List1.Text

　　18.程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是(C)(單)

　　A.MouseDown

　　B.MouseUp

　　C.Load

　　D.Click

　　19.設a=10，b=5，c=1，執行語句Print a >b > c后，窗體上顯示的是(B)(單)

　　A.True

　　B.False

　　C.1

　　D.出錯信息

　　20.如果要改變窗體的標題，則需要設置窗體的(A)屬性(單)

　　A.Caption

　　B.Name

　　C.BackColor

　　D.BorderStyle

　　復習題二：

　　1.以下程序段運行的結果為(B)(單)

　　Private Sub Form_Click( )

　　MyDate = #7/21/1997#

　　Print Format(MyDate, "m/d/yy")

　　Print Format(MyDate,"yyyy年m月dd日")

　　End Sub

　　A.7/21/97 1997年7月21日

　　B.7-21-97 1997年7月21日

　　C.97/7/21 1997年7月21日

　　D.7/21/97 97年7月21日

　　2.以下程序段運行的結果為(B)(單)

　　Private Sub Form_Click( )

　　MyTime = #9:21:30 PM#

　　MyDate = #7/21/1997#

　　Print Tab(2); Format(MyDate, "mmmm-yy")

　　Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

　　End Sub

　　A.July-97 9:21:30 P

　　B.July-97 09:21:30 P

　　C.07-97 9:21:30 P

　　D.July-97 9:21:30

　　3.以下程序段運行的結果為(C)(單)

　　Private Sub Form_Click( )

　　MyDate = #7/21/1997#

　　Print Format(MyDate, "dddd,mmmm,dd,yyyy")

　　End Sub

　　A.21,07,1997

　　B.21,07,21,1997

　　C.Monday,July,21,1997

　　D.Monday,07,21,1997

　　4.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：

　　Private Sub Text1_LostFocus( )

　　If Not IsNumeric(Text1) Then

　　MsgBox "帳號有非數字字符錯誤"

　　Text1.Text = ""

　　Text1.SetFocus

　　else

　　MsgBox "帳號正確"

　　End If

　　End Sub

　　當在text1文本框中輸入字符"abc"之后，單擊命令按鈕，結果為(B)(單)

　　A.顯示對話框，提示信息為"帳號正確"

　　B.顯示對話框，提示信息為"帳號有非數字字符錯誤"

　　C.程序出錯

　　D.沒有任何提示

　　5.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：

　　Private Sub Text1_LostFocus( )

　　If Not IsNumeric(Text1) Then

　　MsgBox "帳號有非數字字符錯誤"

　　Text1.Text = ""

　　Text1.SetFocus

　　else

　　MsgBox "帳號正確"

　　End If

　　End Sub

　　當在text1文本框中輸入數字123456之后，單擊命令按鈕，結果為(A)(單)

　　A.顯示對話框，提示信息為"帳號正確"

　　B.顯示對話框，提示信息為"帳號有非數字字符錯誤"

　　C.程序出錯

　　D.沒有任何提示

　　6.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：

　　Private Sub Command1_Click( )

　　Dim I As Integer

　　If Text1.Text <> "Gong" Then

　　I = MsgBox("密碼錯誤", 5 + vbExclamation, "輸入密碼")

　　If I <> 4 Then

　　End

　　Else

　　Text1.Text = ""

　　Text1.SetFocus

　　End If

　　Else

　　MsgBox "密碼帳號正確!"

　　End If

　　End Sub

　　若在text1中輸入字符串"Gong"，則程序運行結果為(A)(單)

　　A.顯示對話框，提示"密碼帳號正確!"

　　B.顯示對話框，提示"密碼錯誤"

　　C.程序出錯

　　D.沒有任何提示

　　7.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：

　　Private Sub Command1_Click( )

　　Dim I As Integer

　　If Text1.Text <> "Gong" Then

　　I = MsgBox("密碼錯誤", 5 + vbExclamation, "輸入密碼")

　　If I <>4 Then

　　End

　　Else

　　Text1.Text = ""

　　Text1.SetFocus

　　End If

　　Else

　　MsgBox "密碼帳號正確!"

　　End If

　　End Sub

　　若在text1中輸入字符串"gong"，則程序運行結果為(B)(單)

　　A.顯示對話框，提示"密碼帳號正確!"

　　B.顯示對話框，提示"密碼錯誤"

　　C.程序出錯

　　D.沒有任何提示

　　8.在窗體中建立一個文本框text1和一個命令按鈕command1，編寫下面程序：

　　Private Sub Command1_Click( )

　　Dim I As Integer

　　If Text1.Text <> "Gong" Then

　　I = MsgBox("密碼錯誤", VbRetryCancle + vbExclamation, "輸入密碼")

　　If I <> 4 Then

　　End

　　Else

　　Text1.Text = ""

　　Text1.SetFocus

　　End If

　　Else

　　MsgBox "密碼帳號正確!"

　　End If

　　End Sub

　　若在text1中輸入字符串"123"，顯示"密碼錯誤"對話框，關于此對話框描述正確的是(A)(單)

　　A.顯示對話框中有“重試”按鈕

　　B.顯示對話框中有“確定”按鈕

　　C.顯示對話框中有“是”按鈕

　　D.以上說法都不正確

　　9.在窗體中建立三個文本框，名稱分別為text1、text2和text3，還有一個名稱為label1的標簽，一個名稱為command1的命令按鈕，編寫如下代碼：

　　Private Sub Command1_Click( )

　　Dim x!, y!, z!, t!

　　x = Text1

　　y = Text2

　　z = Text3

　　If x < y Then

　　t = x

　　x = y

　　y = t

　　End If

　　If y < z Then

　　t = y

　　y = z

　　z = t

　　If x< y Then

　　t = x

　　x = y

　　y = t

　　End If

　　End If

　　Label1.Caption = x & "," & y & "," & z

　　End Sub

　　當在文本框text1、text2 和 text3 中分別輸入5、3和8，則標簽顯示的結果為(C)(單)

　　A.3,5,8

　　B.5,3,8 C.8,5,3

　　D.3.8.5

　　10.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請輸入1-4之間的整數"))

　　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

　　窗體運行后，輸入1，則label1的標題顯示結果為(A)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　11.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請輸入1-4之間的整數"))

　　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

　　窗體運行后，輸入2，則label1的標題顯示結果為(B)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　12.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請輸入1-4之間的整數"))

　　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

　　窗體運行后，輸入3，則label1的標題顯示結果為(C)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　13.以下程序段：

　　Private Sub Form_Load( )

　　Dim Nop As Integer, Op As String * 1

　　Num1 = 3

　　Num2 = 2

　　Nop = val(Inputbox("請輸入1-4之間的整數"))

　　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

　　窗體運行后，輸入4，則label1的標題顯示結果為(D)(單)

　　A.3+2=5

　　B.3-2=1

　　C.3×2=6

　　D.3÷2=1.5

　　14.以下程序段的作用是(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個表達式

　　B.打印九九乘法表，一行7個表達式

　　C.打印ASCII碼表，一行8個表達式

　　D.以上說法都不正確

　　15.我國現在人口有13億，按人口增長0.8%計算，多少年后我國人口將超過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

　　16.以下程序的作用是(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.以上說法都不正確

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

　　Private Sub Form_Click( )

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

　　E = 0 ' 存放累加和結果

　　I = 0 ' 計數器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級數第I項值

　　Do While 【t>】 0.00001

　　e = e + t

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "計算了 "; I; " 項的和是 "; e

　　End Sub

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

　　Private Sub Form_Click( )

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

　　E = 0 ' 存放累加和結果

　　I = 0 ' 計數器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級數第I項值

　　Do While t>0.00001

　　e = e + 【t】

　　I = I + 1

　　n = n * I

　　t = 1 / n

　　Loop

　　Print "計算了 "; I; " 項的和是 "; e

　　End Sub

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

　　Private Sub Form_Click( )

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

　　E = 0 ' 存放累加和結果

　　I = 0 ' 計數器

　　n = 1 ' 存放階乘的值

　　t = 1 ' 級數第I項值

　　Do While t>0.00001

　　e = e + t

　　I = I + 1

　　n = n * 【I】

　　t = 1 / n

　　Loop

　　Print "計算了 "; I; "項的和是"; e

　　End Sub

　　20.以下程序是求最大公約數和最小公倍數的程序。

　　Private Sub Form_Click( )

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

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

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

　　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 "最大公約數=", n

　　Print "最小公倍數= ", m1 * n1 / n

　　End Sub

【9月計算機二級考試VB復習題及答案】相關文章：

9月計算機二級考試VB真題10-11

2023年9月計算機二級《VB》考題與答案09-05

2017計算機二級VB復習題及答案08-30

2017年3月計算機二級考試《VB》考試題及答案08-22

2013年3月計算機二級考試VB筆試題及答案08-23

2017最新計算機二級《VB》復習題及答案07-17

2017年9月計算機二級考試VB基礎題05-22

2016年9月計算機二級《VB》測試題及答案10-23

2017年9月計算機二級VB測試題及答案08-29

計算機二級考試《VB》操作試題及答案07-25