資源簡介

2008年1月上機操作題答案
一、界面題:
第1題：
新建一個VB工程，工程文件名稱為：“工程1.vbp”，并添加一個窗體文件：“Form1.frm”，保存在“考生文件夾VB\221\”文件夾下。按下表的要求添加控件，并設置其屬性，操作后保存！
對象 對象名 屬性名 屬性值
Label Label1 Caption 長
Label Label2 Caption 寬
TextBox Text1 Text 3厘米
TextBox Text2 Text 4厘米
CommandButton Command1 Caption 求長方形周長
第2題：
新建一個VB工程，工程文件名稱為：“工程1.vbp”，并添加一個窗體文件：“Form1.frm”，保存在“考生文件夾VB\148\”文件夾下。 按下表的要求添加控件，并設置其屬性，操作后保存！
對象 對象名 屬性名 屬性值
Label Label1 Caption 電視機
Label Label2 Caption 洗衣機
TextBox Text1 Text 12件
TextBox Text2 Text 13件
CommandButton Command1 Caption 總數
第3題：
新建一個VB工程，工程文件名稱為：“工程1.vbp”，并添加一個窗體文件：“Form1.frm”，保存在“考生文件夾VB\151\”文件夾下。 按下表的要求添加控件，并設置其屬性，操作后保存！
對象 對象名 屬性名 屬性值
Label Label1 Caption 選修1
Label Label2 Caption 選修2
TextBox Text1 Text 45
TextBox Text2 Text 38
CommandButton Command1 Caption 計算總人數
第4題：
新建一個VB工程，工程文件名稱為：“工程1.vbp”，并添加一個窗體文件：“Form1.frm”，保存在“考生文件夾VB\158\”文件夾下。 按下表的要求添加控件，并設置其屬性，操作后保存！(注：Text1的屬性值為半角字符)
對象 對象名 屬性名 屬性值
Form Form1 Caption 計時
Label Label1 Caption 倒計時
Label Label1 Width 1000
TextBox Text1 Text 5:00
CommandButton Command1 Caption 開始計時
第5題：
新建一個VB工程，工程文件名稱為：“工程1.vbp”，并添加一個窗體文件：“Form1.frm”，保存在“考生文件夾VB\153\”文件夾下。 按下表的要求添加控件并置其屬性，操作后保存！
對象 對象名 屬性名 屬性值
Label Label1 Caption 用戶名
Label Label2 Caption 密碼
TextBox Text1 Text 李輝
TextBox Text2 Text ******
CommandButton Command1 Caption 登錄
二、填寫代碼題
第1題：
打開"考生目錄VB\143\"文件夾中的文件："d1.vbp" 進行以下操作后并保存！
在VB代碼窗口指定位置修改完善程序代碼實現，求1到50之間所有的奇數和。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
'刪除<1>，填入正確的代碼
For i = 1 To 50 Step 2
s = s + i
Next i
'刪除<2>，填入正確的代碼
Print "1到50的所有奇數和是："; s
End Sub
第2題：
打開"考生目錄VB\222\"文件夾中的文件："d3.vbp"進行以下操作后并保存！
在VB代碼窗口指定位置修改完善程序代碼實現，求1*3*5*7*9的積。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
'刪除<1>，填入正確的代碼
s = 1
'刪除<2>，填入正確的代碼
For i = 1 To 10 Step 2
s = s * i
Next i
Print "求1*3*5*7*9的積："; s
End Sub
第3題：
打開"考生目錄VB\152\"文件夾中的文件："d4.vbp" 進行以下操作后并保存！
在VB代碼窗口指定位置修改完善程序代碼實現，1到100之間能被6整除的個數。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 1 To 100
'刪除<1>，填入正確的代碼
If i Mod 6 = 0 Then s = s + 1
Next i
'刪除<2>，填入正確的代碼
Print "1到100之間能被6整除的個數是："; s
End Sub
第4題：
打開"考生目錄VB\146\"文件夾中的文件："d2.vbp"進行以下操作后并保存！
在VB代碼窗口指定位置修改完善程序代碼實現，求1到100之間能被5整除的個數。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
'刪除<1>，填入正確的代碼
s = 0
For i = 1 To 100
'刪除<2>，填入正確的代碼
If i Mod 5 = 0 Then s = s + 1
Next
Print "1到100之間能被5整除的個數是："; s
End Sub
第5題：
打開"考生目錄VB\156\"文件夾中的文件："d5.vbp"進行以下操作后并保存！
在VB代碼窗口指定位置修改完善程序代碼實現，求1×2×3×4×5×……×10的值。
Private Sub Command1_Click()
Dim i As Integer
Dim s As Long
'刪除<1>，填入正確的代碼
s = 1
For i = 1 To 10
'刪除<2>，填入正確的代碼
s = s * i
Next i
Print "10的階乘是："; s
End Sub
三、編寫完整代碼題:
第1題：
打開"考生目錄VB\150\"文件夾中的文件："k3.vbp"進行以下操作后并保存！
在窗體"k3.frm"的"Command1_Click"事件中編寫代碼(請不要隨便更改其它代碼)，使之能夠實現如下功能：從text1文本框中輸入一個數，判斷能否被3整除，并在text2文本框中輸出結果"能"或"不能"。
測試數據
在text1文本框中輸入9，在text2文本框中輸出：能；
在text1文本框中輸入8，在text2文本框中輸出：不能。
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a Mod 3 = 0 Then
Text2.Text = "能"
Else
Text2.Text = "不能"
End If
End Sub
第2題：
打開"考生目錄VB\154\"文件夾中的文件："k4.vbp"進行以下操作后并保存！
在窗體"k4.frm"的"Command1_Click"事件中編寫代碼(請不要隨便更改其它代碼)，使之能夠實現如下功能：從text1文本框中輸入一個數,判斷這個數是否為零或正負整數，并在text2文本框中輸出結果。
測試數據
在text1文本框中輸入0，在text2輸出:0。
在text1文本框中輸入2，在text2輸出:正數。
在text1文本框中輸入-2，在text2輸出:負數。
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a = 0 Then Text2.Text = "0"
If a > 0 Then Text2.Text = "正數"
If a < 0 Then Text2.Text = "負數"
End Sub
第3題：
打開"考生目錄VB\157\"文件夾中的文件："k5.vbp"進行以下操作后并保存！
在窗體"k5.frm"的"Command1_Click"事件中編寫代碼(請不要隨便更改其它代碼)，使之能夠實現如下功能：分別從text1、text2文本框中輸入一個正整數a和b，判斷a能否被b整除，若能，則在text3文本框中輸出"能"，否則則輸出："不能"。
測試數據
在text1文本框中輸入20，text2文本框中輸入5，則text3文本框中輸出：能。
在text1文本框中輸入20，text2文本框中輸入3，則text3文本框中輸出：不能。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a Mod b = 0 Then
Text3.Text = "能"
Else
Text3.Text = "不能"
End If
End Sub
第4題：
打開"考生目錄VB\147\"文件夾中的文件："k2.vbp"進行以下操作后并保存！
在窗體"Form1.frm"的"Command1_Click"事件中編寫代碼(請不要隨便更改其它代碼)，使之能夠實現如下功能：分別在text1和text2文本框中輸入a和b兩個數，比較a和b的大小，并在text3文本框中輸出較小的數。
測試數據
在text1文本框中輸入3，在text2文本框中輸入2，輸出 2；
在text1文本框中輸入4，在text2文本框中輸入7，輸出 4。
Private Sub Command1_Click()
Dim a As Single
Dim B As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Text3.Text = b
Else
Text3.Text = a
End If
End Sub
第5題：
打開"考生目錄VB\144\"文件夾中的文件："k1.vbp"進行以下操作后并保存！
在窗體"Form1.frm"的"Command1_Click"事件中編寫代碼(請不要隨便更改其它代碼)，使之能夠實現如下功能：分別在text1和text2文本框中輸入a和b兩個數，比較a和b的大小，并在text3文本框中輸出較大的數。
測試數據
在text1文本框中輸入3，在text2文本框中輸入2，text3文本框輸出 3；
在text1文本框中輸入4，在text2文本框中輸入5，text3文本框輸出 5。
Private Sub Command1_Click()
Dim a As Single
Dim B As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Text3.Text = a
Else
Text3.Text = b
End If
End Sub
注：不得分代碼：
Private Sub Command1_Click()
dim a,b as Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Text3.Text = b
Else
Text3.Text = a
End If
End Sub
錯誤出現在聲明語句上。
只要將dim a,b as Integer 更改為：
Dim a As Integer
Dim b As integer
或者更改為： Dim a As Integer,b As Integer
又或者干脆不聲明
上述三種修改，在評分中都能得分。2008年1月上機選擇題答案
一、常量類型判斷：
1.下列屬于整型常量的是
A. 3.14
B. 2008
C. "2008"
D.會考
2．下列屬于數值型常量的是
A. 3.14
B. abcd
C. #abc123#
D. "2008北京奧運會"
3．下列屬于日期型常量的是
A. word
B.北京奧運會
C. #2007/12/30#
D. "1234"
4．下列屬于整型常量的是
A.一千零一夜
B. "1997"
C. 1997
D. ABC
5．下列屬于整型常量的是
A. 59999
B. 4.5
C. 123
D. "45"
二、執行循環程序后，變量s的值：
1.以下程序段執行后，整型變量s的值為
s = 4
For i = 1 To 4
s = s - 1
Next i
A. 0
B. -1
C. 4
D. 5
2.以下程序段執行后，整型變量s的值為
s = 1
For i = 1 To 4
s = s * i
Next i
A. 1
B. 4
C. 24
D. 36
3.以下程序段執行后，整型變量s的值為
s = 0
For i = 1 To 10
If i mod 2 <> 0 then
s = s + i
end if
Next i
A. 0
B. 9
C. 20
D. 25
4.以下程序段執行后，整型變量s的值為
s = 1
For i = 1 To 3
s = s * i
Next i
A. 0
B. 1
C. 3
D. 6
5.以下程序段執行后，整型變量s的值為
s = 0
For i = 1 To 5
s = s + 1
Next i
A. 0
B. 1
C. 5
D. 15
三、執行程序段后，整型變量的值
1.以下程序段執行后，整型變量a的值為
a = 2
b = 8
b = b - a
a = b - a
A. 2
B. 3
C. 4
D. 6
2.以下程序段執行后，整型變量b的值為
a=3
b=5
a=b-a
b=a+b
A. 2
B. 5
C. 7
D. 11
3.以下程序段執行后，整型變量a的值為
a=4
b=5
b=b+a
a=a+b
A. 5
B. 8
C. 13
D. 18
4.以下程序段執行后，整型變量a的值為
a=5
b=8
b = b - a
a = a - b
A. 2
B. 3
C. 5
D. 8
5.以下程序段執行后，整型變量a的值為
a=2
b=3
b = b + a
a = a * b
A. 10
B. 5
C. 6
D. 3
四、判斷邏輯表達式的值
1.下列邏輯表達式的值為“假”的是
A. 2 + 4 > 8
B. 3 + 12 = 15
C. 5 > 0 And 4 > 3
D. 10 / 5 <3
2．在VB語言中，表示“a大于0且b小于12” 的正確表達式是
A. 12 >b and a > 0
B. b > 12 And a < 0
C. a > 12 Or a < 0
D. a > 0 And b < 12
3．下列邏輯表達式的值為“真”的是
A. 3 < 10 - 6
B. 12 + 6 <> 2 * 9
C. 12 - 5 < 5
D. 6 / 4 > 2
4．在VB語言中，表示“a大于5或b小于0” 的正確表達式是
A. 0 < b or a < 5
B. a > 5 And b < 0
C. a > 5 Or b < 0
D. a > 0 And b < 5
5．下列邏輯表達式的值為“假”的是
A. 3 + 5 > 10
B. 4 + 12 <> 15
C. 4 / 2 = 2
D. 5 < 2 * 3
6．下列邏輯表達式的值為“假”的是
A. 3 + 5 > 7
B. 8 / 4 < 4
C. 5 > 3 And 3 > 2
D. 4 + 11 > 20
五、對象屬性：
1.設置窗體標題時，應改變窗體的
A. Name屬性
B. Font屬性
C. BackColor屬性
D. Caption屬性
2．設置TextBox的背景顏色時，應改變窗體的
A. Name屬性
B. Caption屬性
C. BackColor屬性
D. Font屬性
六、變量名命名：
1.下列合法的變量名是
A. 22s
B. s12
C. 2s2
D. 22
2．在VB語言中，下列合法的變量名是
A. 34ab
B. ab34
C. *abc
D. c\c
3．在VB語言中，下列合法的變量名是
A. 22aa
B. VB
C. a+b
D. a&2
4．在VB語言中，下列合法的變量名是
A. aa
B. a*b
C. 7ab
D. dim
5．在VB語言中，下列合法的變量名是
A. 5566
B. a-c
C. ab&34
D. x1
七、流程圖完善：
1．如圖所示的流程圖為計算圓周長的算法。根據算法，流程圖中①處的內容是
A. L = 3.14 * 2 * R
B. L = 3.14 * R * R
C. L= 3.14 * R
D. L=2*π*R
2.如圖所示的流程圖為計算圓周長和面積的算法。根據算法，流程圖中①處的內容是
A.輸入面積S
B.輸出R
C. pi=3.14
D.輸入半徑R
3．如圖所示的流程圖是求從1累加到10的算法，根據算法，流程圖中①處的內容是
A. S = S + I
B. S = 10
C.從1到10
D. S≤10
4．如圖所示的流程圖為計算圓周長的算法。根據算法，流程圖中①處的內容是
A. C = 3.14 * R
B. C = 2 * 3.14 * R
C. C = 3.14 * R * R
D.輸出R
5．如圖所示的流程圖是求從1累加到10的算法，根據算法，流程圖中①處的內容是
A. I = I + 1
B. I = 10
C.從1到10
D. I = 1
八、代數式對應的VB表達式：
1.代數式 對應的VB表達式是
A. (a + b)/(c - d)
B. (a + b)/c - d
C. a + b/(c - d)
D. a + b/c - d
2．代數式 對應的VB表達式是
A. a + b / cd
B. (a + b) / c * d
C. a + b / (c * d)
D. (a + b) / (c * d)
3．代數式 對應的VB表達式是
A. 2 * a /(c + d)
B. (2 * a)/c + d
C. 2a /c + d
D. 2a /(c + d)
4．代數式 對應的VB表達式是
A. a + b / 2 * c
B. (a + b )/ 2 / c
C. a + b / (2 * c)
D. (a + b) / 2 *c
5．代數式 對應的VB表達式是
A. a -b / c / 2
B. (a - b) / (c / 2)
C. a - b / (c / 2)
D. (a - b) / c / 2
九、賦值語句：
1.在VB語言中，下列正確的賦值語句是
A. a + b = c
B. a = 9
C. a + 2 = b - 3
D. a/2 = c
2．在VB語言中，下列正確的賦值語句是
A. b + 1 = a
B. a + b - 2 = c
C. 2 * a = 3 * b
D. a = b + 1
3．在VB語言中，下列正確的賦值語句是
A. a + a = 2
B. 3 * a = c - 5
C. a = 2 * a
D. a + 3 = b
4．在VB語言中，下列正確的賦值語句是
A. a + 4 = c
B. a = 2 + c
C. a + 4 = b - 5
D. a / 2 = c * 3
5．在VB語言中，下列正確的賦值語句是
A. 5 = c
B. 3a = 5 c
C. -c = c - 3
D. a=b+c
十、常用函數：
1.函數Sqr(9)返回的值是
A. 1
B. 3
C. 4
D. 9
2．函數Sqr(16)返回的值是
A. 1
B. 3
C. 4
D. 16
3.函數Abs(-10)返回的值是
A. 3
B. 4
C. 9
D. 10
4．函數Abs(-4)返回的值是
A. 1
B. 2
C. 4
D. -4
5．函數Abs(5)返回的值是
A. 1
B. -5
C. 25
D. 5
十一、Print輸出
1.若a = 8，b = 5，則運行Print a; "-"; b; "="; a - b的結果是
A. a -b = 3
B. a - b = a - b
C. 3
D. 8 - 5 = 3
2.若a = 4，b = 5，則運行Print a; "+"; b; "="; a + b的結果是
A. 4 + 5 = 9
B. a + b = 9
C. a + b = a + b
D. 9

展開更多......

收起↑