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
