- 相關推薦
全國計算機二級Visual Basic單選題及答案
試題的練習能夠幫助考生們加深對知識點的理解和鞏固，以下是百分網小編搜索整理的一份全國計算機二級Visual Basic單選題及答案，供參考練習，預祝考生們考出自己理想的成績!想了解更多相關信息請持續關注我們應屆畢業生考試網!
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 "最大值="; 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 "最大值="; 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 "最大值="; 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
【全國計算機二級Visual Basic單選題及答案】相關文章：
全國計算機二級考試重點：Visual Basic對象04-10
計算機二級考試Visual Basic自測題及答案03-23
2017計算機二級Visual Basic考試題及答案03-12
計算機二級《VB》復習重點：Visual Basic的特點04-17
計算機二級Visual Basic復習重點：數據類型02-27
計算機二級《VB》考試基礎知識：Visual Basic的特點和版本03-12
計算機二級Visual FoxPro練習試題及答案04-18
全國計算機二級Java考試單選題及答案05-29