发布时间 : 星期四 文章VB语言程序设计B(2007-6)更新完毕开始阅读1fb272ea4afe04a1b171de00
武汉理工大学考试试
题（ B卷）06
一、填空题（每空2分，共20分）
1．Left(“Whuhan”，3)的值为 。
2. 表达式Ucase(Mid(“Homework”,3,2))的值是 。
3. 由Array函数建立的数组名字必须是 类型。 4．代数式|a-b|>6的Visual Basic表达式为 。
5. 扩展名为 .BAS 的文件称为 。
8. 当文本框ScrollBars属性值设置为（1有水平滚动条），却没有效果，原因是 。
A. 文本框的MultiLine属性为False B. 文本框中没有内容
C. 文本框的MultiLine属性为True D. 文本框的Locked属性为True
9．表达式16/4-2^5*8/4 Mod 5\\2的值为 。 A. 20 B. 14 C. 4 D. 2 10．数学关系3≤x<10表示成正确的VB表达式为 。
A. 3<=x<10 B. x>=3 OR x<10 C. x>=3
AND <10 D. x>=3 AND x<10 11．下面程序段: 6. 声明符号常量需使用 语句。
Dim x 7. 通用过程与事件过程不同的是 。
8. 要使一个命令按钮成为图形命令按钮，则应设置其 If x Then Print x Else Print x+2
运行后的结果是 。 属性值。
A. -2 9. 在VB中设置属性值有2种方法，分别是 B. 2 C. 0 D. 显示出错信息 12．下列循环能正常结束的是 。 和 。
A. I=6 B. I=5 二、单项选择题（共20题，每题1分，共20分）
Do Do 1．已知A$=”12345678”,则表达式
I=I-2 I=I+1
Val(Left(A$,4)+Mid(A$,4,2))的值为 。
Loop Until I=1 Loop Until I<0
A. 123445 B. 123456 C. 6 D. 8
C. I=1 D. I=10
2．下面正确的赋值语句是 。
Do Do
A. y=πr2 B. 3y=x C. x+y=30 D. I=I+2 I=I+1 y=x+30 Loop Until I=10 Loop Until I>0 3．赋值语句a=123+MID(“123456”,3,2)执行后，a变量13．列表框中的列表内容是通过 属性来设置的。 中的值是 。 A. List B. Columns C. Text D. Index
14．以下程序段的执行结果是 。 A. 123 B. 157 C. “12334” D. 12334
Dim A(5) 4．赋值语句a=123 & MID(“123456”,3,2)执行后，a变量
For I=1 To 5 中的值是 。
A(I)=I*I A. 123 B. 157 C. “12334” D. 12334
Next I
5．下面程序段求2个数中的最大数，不正确的是 。
Print A(I-1)
A. Max=x B. If y>=x Then
A. 0 B. 5 C. 25 D. 16
Max=y
15．以下程序输出结果是 。
If y>x Then Max=y Max=x Dim a C. Max=IIf(x>y,x,y) D. If x>y Then Max=x a=Array(1,2,3,4,5,6,7) Else Max=y For i=Lbound(a) To Ubound(a) 6．在运行时，系统自动执行启动窗体的 事件过程。 a(i)=a(i)*a(i) A. UnLoad B. Load C. GotFocus Next i
Print a(i-1) D. Click
7．若要使标签控件显示时不覆盖其背景内容，要对 A. 49 B. 不确定 C. 0 D. 程序出
错 属性进行设置。
A. BorderStyle B. ForeColor C. BackStyle D. BackColor
1
16．用于从字符串右边截取字符的函数是 。
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
17．数学式子sin30°写成Visual Basic表达式是 。 a = 10: b = 6 A. sin30 B. sin(30) C. sin(30*3.14/180) c = a * b
If a > b Then
D. sin(30°) a = a - b
Else 18．若要清除列表框的内容，可使用 方法来实现。
b = b - a
A. Clear B. Remove C. Add D. End If
Print a, b, c / b AddItem
End Sub
19．A=1,B=190,则INT(（B-A+1）*RND+A)的结果是介于 试问：当单击窗体后，输出为 。
(4 6 10) 之间的数。
7．一个窗体单击事件过程如下：
A. 0～190 B. 1～180 C. 1～190 D. Private Sub Form_Click()
Dim Score As Integer 0～199
Score = Val(Text1.Text)
20．若要向列表框新增列表项，则可使用的方法Print \该学生成绩：\
Select Case Score 是 。
Case 0 To 59
A. Add B. AddItem C. Clear D. Print \不及格\
Case 60 To 69 Remove
Print \及格\
三、阅读程序，填写结果（共4题，每题5分，
Case 70 To 79
共20分）
Print \中\
1．一个窗体单击事件过程如下：
Case 80 To 89
Private Sub Form_Click()
Print \良\
Dim n As Integer, x As String
Case 90 To 100
x = \
Print \优\
n = Val(Text1.Text)
Case Else
For i = 1 To 3
Print \成绩出错\
n = n \\ 2
End Select
x = x + Chr(Asc(\
End Sub
Next i
试问：如果Text1内已输入105，当单击窗体后，输出
Print x
为 。
End Sub
四、编程题（共4题，每题10分，共40分）
试问：如果Text1内已输入8，当单击窗体后，输出
1．单击某个命令按钮输出3～100之间的所有奇数、奇
为 。
数之和。将奇数显示于文本框Text1中，奇数之和显示
2．一个窗体单击事件过程如下：
于文本框Text2中。
Private Sub Form_Click()
2．输入 x,计算y 的值
x = Int(Rnd) + 3
1+4x (x≥0)
If x * x > 8 Then y = x * x + 1
y=
If x * x = 9 Then y = x * x * x
sin(x+3) (x<0)
If x * x < 8 Then y = x * x - 3
3．编写打印下列图案的程序。
Print y End Sub
试问：当单击窗体后，输出为 。 3．一个窗体单击事件过程如下：
A. Ltrim( ) B. Trim( ) C. Left( ) D. Right( )
2
4．编写求解一元二次方程ax2?bx?c?0 的实数根（假设a?0 ）的程序，程序界面自己设计。
武汉理工大学教务
处
试题标准答案及评分标准用纸
课
程
名
称
计算机技术基础VB （ B 卷） 一、填空题（每空2分，共20分）
1．Whu 2．ME 3．Variant 4．Abs(a-b)>6 5．标准模块文件 6．Const
7．与对象无关 8．Style 9．属性窗口直接设置 程序代码进行设置
二、单项选择题（共20题，每题1分，共20分）
ADBCD BCACD BDACA DCACB
三、阅读程序，填写结果（共4题，每题5分，共20分）
1. (ECB) 2. (27) 3. (4 6 10) 4. 该学生成绩：成绩出错
四、编程题（共4题，每题8分，共40分）
每小题评分要点：
程序结构正确 （4分） 程序语句基本正确 （2分） 程序正确 （4分） 1. Private Sub Command1_Click() s = 0 For i = 3 To 100 Step 2 Text1.Text = Text1.Text & i & \ \ s = s + i Next i Text2.Text = s End Sub 3
2. Private Sub Form_Click() x = Val(InputBox(\ If x >= 0 Then y = 1 + 4 * x Else y = Sin(x + 3) End If Print y End Sub 3. Private Sub Form_Click() For i = 1 To 5 Print Tab(5 - i + 1); For j = 1 To 5 Print \ Next j Print Next i End Sub 4. Private Sub Command1_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) d=b*b-4*a*c if d>0 then x1=(-b+Sqr(d))/(2*a) x2=(-b-Sqr(d))/(2*a) print x1,x2 elseif d=0 x=-b/(2*a) print x Else print “无实数根！” End If End Sub