VB程序设计考试题（A卷）dd(1)

VB程序设计上机题（A卷）

年级： 姓名： 成绩：

一、 在D盘上新建一个名称是“2000年四教班”的文件夹，以后所有的程序

都放在此文件夹中，请认真完成此题。

二、 编写程序，用以判断输入的字符串中是否存在字母A，并找出其相应的

数目（如输入字符串DFGGAAA3333A，能判断出有4个字母A）。最后要求生成工程的可执行文件。

三、 编写程序，实现红黄绿三色交通灯的显示。

1、程序界面：三个Shape控件（Shape属性值是Circle）和三个标签控件（Caption属性值依次是红、黄、绿），要求控件排列整齐，大小一致，界面整体较为美观。

2、程序代码：依次给三个Shape控件添上红、黄、绿三色，每次只准有一个Shape控件显示三色之一，其他两个显示黑色。如第一个Shape控件显示了红色，其他两个显示黑色；下一次第二个Shape控件显示黄色，其他两个显示黑色。

3、如果用控件数组实现、控件命名符合标准，附加4分。

注意：随时记住保存文件，每次启动VB或新建工程就先保存在指定的文件夹中。机器不能保存的同学请注意，不能保存的原因是：执行文件菜单下的保存命令，不要单击工具栏上的保存按钮；打开保存对话框后，在保存位置单击向下的箭头后，不要拖动滚动条，可通过键盘上一对向上、向下的箭头找到D盘，双击之后，通过键盘上一对向左、向右的箭头来找到文件夹。

1

VB程序设计笔试题（A卷）

年级：

姓名：

成绩：

一、 单选题

1、下面表达式（ B）不符合VB标准格式：

A，x XOR y B，2<(O.5+6b) C，5\\2 Mod 2 D，5^-2 2、已知s=”Visual Basic”，b=False，则下面表达式（D ）的值为True：

A，s=”Visual Basic” And b B，s<>”Visual” And b C，s=”Visual” Or b D，s=”Visual” Or Not b 3、表达式Int(Rnd(0.1))+1的值为（D ）：

A，随机的 B，0 C，0.1 D，1 4、下面变量名（D ）是正确的：

A，3x B，a%b C，my name D，a_bc 5、关于VB提供的三种循环格式，下列说法错误的是（C ）：

A，使用计数循环时，For命令必须与Next命令配合使用； B，循环嵌套时，内层循环必须被完整地包含在外层循环当中； C，While …Wend循环先执行一遍循环体，再对条件进行测试； D，Do循环先执行一遍循环体，再对条件进行测试； 6、下面属性（A ）不是定时器控件Timer的属性：

A，Timer B，Enabled C，Interval D，Name

二、判断题（将答案填写在括号内）

（T ）1、赋值语句的作用是把等号右边的值赋给等左边的变量。 （F）2、在使用窗体变量前，必须先声明。

（F ）3、对表达式求值的运算顺序为函数运算、算术运算、逻辑运算、关系运

算、赋值运算。

（F ）4、DIM C（9）AS INTEGER定义了一组有9个元素的整数类型变量。 （F ）5、在Text控件中显示的内容由此控件的Caption属性决定。 （F ）6、当某控件的Enabled属性为False时，此控件是不可见的。

（F ）7、任意For…Next循环的执行次数为n2-n1+1（n2为循环变量的终值，

n1为初值）。

（ ）8、VB数据库应用程序一般是由用户界面和数据库组成。

三、 请用嵌套If … End If 语句重写下面程序段：

Select Case K Case 0 To 2 X=4 Case 3 To 5 X=3 Case 6 To 7

2

X=0 Case 8 To 10 X=2 End Select

3

四、 分析并写出下面程序的运行结果

Option Explicit Dim x%, y%

Private Sub p(x%, ByVal y%) y = x + y x = y Mod 4 Print x, y, End Sub

Private Sub Command1_Click() x = 4 y =5

Call p(y, x) Print x, y Call p(x, x) Print x, y Call p(y, x) Print x, y End Sub

4

本文来源：https://www.bwwdw.com/article/b4y6.html