2006年4月全国VB笔试.doc

一、选择题：（11） 以下关于Visual Basic特点的叙述中，错误的是A) Visual Basic是采用事件驱动编程机制的语言B) Visual Basic程序既可以编译运行，也可以解释运行C) 构成Visual Basic程序的多个过程没有固定的执行顺序D) Visual Basic程序不是结构化程序，不具备结构化的三种基本结构（12） 以下叙述中，错误的是A) 一个Visual Basic应用程序可以含有多个标准模快文件B) 一个Visual Basic工程可以含有多个窗体文件C) 标准模快文件可以属于某个指定的窗体文件D) 标准模快文件的扩展名是.bas(13) 以下叙述中，错误的是A) 在Visual Basic中，对象所能响应的事件是有系统定义的B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C) Visual Basic中允许不同对象使用相同名称的方法D) Visual Basic中的对象具有自己的属性和方法（14） 设有如下语句：Dim a, b As Integer c = VisualBasicd = #7/20/2005#以下关于这段代码的叙述中错误的是A) a被定义为Integer类型变量B) b被定义为Integer类型变量C) c中的数据是字符串D) d中的数据是日期类（15）以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是 A) Left B) Mid C) String D) Instr（16）设a=4, b=3, c=2,d=1, 下列表达式的值是 a b+1 Or c= 10, Is 90 Then Exit For NextEnd Sub对于该事件过程，以下叙述中错误的是 A) a数组中的数据是30个100以内的整数B) 语句For Each arritem In a有语法错误C) If arritem Mod 7 = 0 语句的功能是输出数组中能够被7整除的数D) If arritem 90语句的功能是当数组元素的值90时退出for循环（22） 设有命令按钮command1的单击事件过程，代码如下：Private Sub Command1_Click() Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i * j + i Next j Next i Sum = 0 For i = 1 To 3 Sum = Sum + a(i, 4 - i) Next i Print SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 C) 16 D)17（23）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a = 0 For i = 1 To 2 For j = 1 To 4 If j Mod 2 0 Then a = a - 1 End If a = a + 1 Next j Next i Print aEnd Sub程序运行后，单击命令按钮，输出结果是A） 0 B） 2 C） 3 D）4（24） 窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示，程序运行后，如果单击某个单按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号（？）处应填入的内容是 Private Sub Option1_Click(Index As Integer) If Text1.Text Then Select Case ? Case 0 Text2.Text = Val(Text1.Text) Case 1 Text2.Text = Val(Text1.Text) * 10 Case 2 Text2.Text = Val(Text1.Text) * 100 End Select End IfEnd SubA) Index B) Option1.indexC)Option1(index) D) Option1(index).Value（25）在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To 10 a(i) = 8 + i Next x = 2 Print a(f(x) + x)End SubFunction f(x As Integer) x = x + 3 f = xEnd Function程序运行后，单击命令按钮，输出结果为A) 12 B) 15 C) 17 D) 18（26） 以下关于过程的叙述中，错误的是A） 事件过程是由某个事件触发而执行的过程B） 函数过程的返回值可以有多个C） 可以在事件过程中调用通用过程D） 不能在事件过程中定义函数过程（27）在窗体上画3个文本框（名称分别为Text1、Text2和 Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序：Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = f(x, y)End SubFunction f(ByVal x As Integer, ByVal y As Integer) Do While y 0 tmp = x Mod y x = y y = tmp Loop f = xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是A）4 B）6 C） 8 D） 12（28）窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（？）处应填入的内容是Private Sub Text1_LostFocus() Call checkinput(Text1, 500)End SubPrivate Sub Text2_LostFocus() Call checkinput(Text2, 1000)End SubSub checkinput(t As ？, x As Integer) If Val(t.Text) x Then MsgBox 请重新输入! End IfEnd SubA) Text B) SelText C)Control D) Form（29）在窗体上画1个文本框，其名称为Text1,然后编写如下过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 2)End Sub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为A) A B) A C) A D) AA B C D（30）为了使列表框中的项目呈多列显示，需要设置的属性为A) Columns B) Style C) List D) multiselect（31）在窗体上画1个命令按钮，名称为Command1,然后编写如下程序：Dim flag As BooleanPrivate Sub Command1_Click() Dim intNum As Integer intNum = InputBox(请输入：) If flag Then Print f(intNum) End IfEnd SubFunction f(X As Integer) As Integer If X Max Then Max = arr(i) End If If arr(i) Min Then Min = arr(i) End If Next i Print max=; Max, min=; MinEnd Sub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。（8）在窗体上画1个名称为Command1的命令按钮和2个名称为分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function fun(x As Integer, ByVal y As Integer) As Integer x = x + y If x 0 Then fun = x Else fun = y End IfEnd FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = -10: b = 5 Text1.Text = fun(a, b) Text2.Text = fun(a, b)End Sub程序运行后，单击命令按钮，Text1、Text2文本框显示的内容分别是 -5 和 5 。（9） 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click() Text1.Text = Left(UCase(SaveAll), 4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)End Sub程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是 ABCD 。（10）在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click() CommonDialog1.DialogTitle = 打开文件 CommonDialog1.Filter = All Files (*.*)|*.* CommonDialog1.InitDir = C: CommonDialog1.ShowOpenEnd Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“All Files (*.*)”，并显示C盘根目录下的所有文件，请填空。（11）在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Open d:tempdat.txt For Output As #1 Text1.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Int