下载文档原格式
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
江苏省计算机二级vb笔试怎么考试答案江苏省计算机二级VB笔试主要考察考生对Visual Basic编程语言的理解和应用能力。
考试内容涵盖了VB的基本语法、程序设计基础、控制结构、数组、过程、文件操作等多个方面。
以下是一些可能的考试题目及其答案。
1. 简述Visual Basic中的事件驱动编程机制。
答案：事件驱动编程是一种编程范式，程序的执行流程由事件（如用户操作、系统消息等）触发。
在Visual Basic中，事件通常与控件关联，当控件接收到特定的事件（如点击、输入等）时，就会调用相应的事件处理程序执行代码。
2. 写出一个VB程序，实现计算并输出1到100之间所有偶数的和。
答案：```vbDim sum As Integersum = 0For i As Integer = 2 To 100 Step 2sum += iNextMsgBox("1到100之间所有偶数的和为：" & sum.ToString())```3. 描述Visual Basic中如何使用数组。
答案：在Visual Basic中，数组是一种可以存储多个相同类型数据的变量。
声明数组时需要指定数组的类型、名称和大小。
例如，声明一个整型数组并初始化：```vbDim myArray(9) As IntegerFor i As Integer = 0 To 9myArray(i) = i * 2Next```4. 简述Visual Basic中的过程（Procedure）和函数（Function）的区别。
答案：过程（Procedure）和函数（Function）都是Visual Basic中的代码块，用于封装可重用的代码。
过程不返回值，而函数返回一个值。
过程使用`Sub`关键字定义，函数使用`Function`关键字定义。
5. 如何在Visual Basic中实现文件的读取和写入操作？答案：在Visual Basic中，可以使用`Open`语句打开文件，`Close`语句关闭文件。
江苏省计算机二级vb考试题库及答案一、单项选择题（每题2分，共20分）1. VB中的变量声明语句是：A. Dim x As IntegerB. Integer xC. Declare x As IntegerD. Var x As Integer答案：A2. 在VB中，下列哪个函数用于计算两个数的绝对差值？A. AbsB. SgnC. RoundD. Int答案：A3. VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A4. 在VB中，要实现一个按钮的点击事件，应该使用哪个关键字？A. OnClickB. ClickC. ButtonClickD. Button答案：A5. VB中，下列哪个数据类型用于存储日期和时间？A. DateB. TimeC. DateTimeD. String答案：C6. 在VB中，下列哪个操作符用于比较两个字符串是否相等？A. =B. ==C. <>D. <>=答案：B7. VB中，下列哪个函数用于计算一个数的平方？A. SqrB. PowC. ExpD. Log答案：B8. 在VB中，下列哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A9. VB中，下列哪个控件用于显示和编辑多行文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：B10. 在VB中，下列哪个关键字用于定义一个子程序？A. FunctionB. SubC. PropertyD. Class答案：B二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________函数可以将小数四舍五入到最接近的整数。
答案：Round3. 在VB中，使用________属性可以设置窗体的标题。
计算机等级考试二级VB的复习方法：复习过程简单的说就是细看书，勤做题，最后练上机。
细看书，就是在开始的一个月内，以看书为主，越细越好，把书上的知识点（考试大纲里要求的）看懂看透，暂时不明白的或者不理解的先用笔记本记下。
教材后有习题，一定要看过此章后立刻做，不会的记录下来（好脑子不如烂笔头）。
这样你的笔记本就有每章你不懂的知识点和题目了一、选择题：共35题，每题2分，共70分。
(1)最简单的交换排序方法是A)快速排序B)选择排序C)堆排序D)冒泡排序【命题目的】让考生加深对各种排序方法特点的了解。
【解题要点】冒泡排序是一种最简单的交换类排序方法，它是通过相邻数据元素的交换逐步将线性表变成有序。
【错解分析】交换排序方法有冒泡排序和快速排序，显然选项B）和选项C）错误，冒泡排序比较简单，其算法也容易理解，但快速排序本身较为复杂，且采用了递归调用，其算法理解也稍难。
【考点链接】插入排序、选择排序、归并排序、基数排序等排序方法的特点。
(2)栈通常采用的两种存储结构是A)线性存储结构和链表存储结构B)散列方式和索引方式C)链表存储结构和数组D)线性存储结构和非线性存储结构【命题目的】考查栈的存储结构的基本知识。
【解题要点】和线性表类似，栈也有两种存储方法，一是顺序栈，二是链式栈。
栈的顺序存储结构是利用一组地址连续的存储单元一次存储自栈底到栈顶的数据元素，同时附设指针top指示栈顶元素的位置，由于栈的操作是线性表操作的特例，相对而言，链式栈的操作更易于实现。
【考点链接】这3种运算方法在各种存储结构中的应用。
(3)线性表的顺序存储结构和线性表的链式存储结构分别是A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构【命题目的】考查有关线性表存储结构的基本知识。
【解题要点】顺序存储结构中，数据元素存放在一组地址连续的存储单元中，每个数据元素地址可通过公式LOC(ai)=LOC(a1）+(i-1)L计算得到，从而实现了随机存取。
一、常量常量(也称常数)，是在程序运行期间其值始终保持不变的量。
注意π不是常量。
定义常量的语法格式：[Public|Private]Const 常量名[As数据类型] = 表达式Const前不能使用Dim在窗体的通用声明处不能使用Public定义常量、定长字符串、数组定义常量的语句可以在过程内部，也可以在通用声明处= 后边的表达式不能是函数二、变量定义变量的语法格式：Dim|Private|Static|Public 变量名[As数据类型][，变量名[As数据类型]…] 使用Dim|Private|Static|Public定义变量后会将变量进行初始化使用Dim定义变量的语句可以在过程内，也可以在通用声明处；使用static定义变量的语句只能在过程内；使用public、private定义变量的语句只能在通用声明处在过程内部使用dim定义的变量是局部的过程级的变量，即该变量的生命周期和作用域很小。
其作用域为本过程，即只在本过程中能用，出了本过程就不能使用其值。
其生命周期为从该变量定义的位置开始变量在内存中存在，它所在的过程结束（遇到End Sub）该变量就从内存消失 在通用声明处用Dim定义的变量是模块级的变量；其作用域为本模块，即在本窗体或模块的所有过程中都能使用该变量，在其他窗体或模块中不能使用该变量的值；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失使用static定义的变量是局部的静态变量。
其作用域为本过程（同局部的dim定义的变量）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失使用private定义的变量是模块级的变量，其作用域和生命周期同模块级的dim定义的变量使用public定义的变量是全局变量，其作用域为整个程序，即在整个程序的所有窗体或模块的所有过程中都可以使用此变量（但是注意，如果是在窗体的通用声明处定义的public类型的变量，则在其他窗体或模块使用该变量时需加上窗体的名字）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失三、数组数组是一组按一定顺序排列的数据的集合，数据的类型可以不相同，数组的维数不得超过60维1.静态数组定义静态数组的语法格式：public|private|static|Dim 数组名([下界To] 上界) [As数据类型]若省略下界时，表示下标的取值是从0开始，等价于“0 To上界”可以使用Dim 或public 或private 或static 定义分别使用这4个关键字进行定义数组的语句可以出现的位置不同（同变量的定义）、数组的生命周期和作用域不同（同变量的作用域和生命周期）定义静态数组时小括号内的下标不能使用变量在同一个作用域内不能定义同名的静态数组（即：在同一个作用域内不能多次定义同一个数组），在不同的作用域内可以定义同名的静态数组（同名数组的使用和同名变量的使用相同） 数组的定义语句中的下界和上界可以是常量或表达式（即：可以是整数、实数、正数、负数），下界不必须是0或1静态数组定义的同时将被初始化静态数组一旦定义后，数组名、数组大小、数组的类型就确定了在程序的窗体模块或标准模块的通用声明处用Option Base n语句可重新设定数组的下界。
江苏省计算机二级vb笔试怎么考试答案江苏省计算机二级VB笔试主要考查考生对Visual Basic编程语言的掌握程度，包括基本语法、程序设计、算法实现等。
考试内容涵盖了VB程序设计基础、控制结构、数组、过程、文件操作、图形用户界面设计等。
以下是一些可能的考试题目及答案：1. VB中，用于声明变量的关键字是什么？答案：Dim2. VB中，如何实现一个循环，直到满足某个条件才结束？答案：可以使用Do Loop Until语句。
3. VB中，如何声明一个数组？答案：可以使用Dim关键字后跟数组名和括号中的元素数量，例如Dim myArray(10) As Integer。
4. VB中，如何调用一个过程？答案：使用过程名后跟括号中的参数列表，例如Call MyProcedure(arg1, arg2)。
5. VB中，如何打开一个文件进行读取？答案：使用Open语句，例如Open "filename.txt" For Input As #1。
6. VB中，如何创建一个按钮控件？答案：在Visual Basic的集成开发环境（IDE）中，可以使用工具箱中的Button控件拖放到窗体上。
7. VB中，如何捕获并处理异常？答案：使用Try...Catch...Finally语句块，例如Try...Catch ex As Exception...Finally。
8. VB中，如何实现一个二维数组？答案：声明时使用两个括号，例如Dim myArray(5, 5) As Integer。
9. VB中，如何使用条件语句选择执行不同的代码块？答案：可以使用If...Then...Else语句，例如If condition Then...Else...End If。
10. VB中，如何声明一个类？答案：使用Class关键字后跟类名，例如Class MyClass。
考生在准备江苏省计算机二级VB笔试时，应重点掌握以上知识点，并进行大量的编程实践，以提高解题能力和编程技巧。
江苏省计算机等级考试（二级VB）复习资料—洪蕾江苏省等级考试二级VB语言复习资料江苏省等级考试题型如下选择题：计算机基础题20个VB基本知识选择题10个阅读程序写出运行结果4－5题（其中字符处理一题，过程调用至少两题，数组一题）补充代码题4－5题（其中数论2题左右，文件操作一题，字符处理一题）上机考试二题，一题改错（3个错），另一题编程。
补充代码题复习和解题方法关于补充代码题，是所有题型中难度较大的，学生普遍感到无从下手，下面谈谈关于代码补充题的复习方法。
1、熟悉VB基本语法，能够阅读代码写出结果是完成代码补充题型最基本的前提。
阅读程序写出结果是VB等级考试中的一种重要题型，考察的实际是正向思维，即给出程序，然后模拟程序执行，最后分析出结果。
相对于补充代码这种考察逆向思维的题型，难度应该是比较小的。
综合历年考题，我们可以将阅读程序写结果考察的知识侧重点不同分为四类。
题型一：分支与循环1．单击窗体后在窗体上显示的内容是；若将程序中的A 语句与B语句位置互换，再次执行程序，单击窗体后在窗体上显示的内容是：。
Option ExplicitPrivate Sub Form_Click()Dim Sum As Integer, i As IntegerFor i = 7 To 4 Step -1Select Case iCase 4, 7Sum = Sum + i ‗A语句Case 3, 5Sum = Sum + 2 ‗B语句Case ElseSum = Sum + 1End SelectNext iPrint "Sum="; SumEnd Sub2．在过程中有语句：For I=N1 to N2 Step N3，在该循环体内有下列四条语句，其中会影响循环执行的次数。
① N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3A. ①②B. ①②③C. ③D. ①②③④3．执行下面的程序，在窗体上显示的输出结果的第一行：，第二行是：Option ExplicitPrivate Sub Form_Click()Dim M As Integer, N As Integer, K As IntegerN = -3For M = 6 To 1 Step NM = M + 1N = N - MK = K + 1Next MPrint KPrint NEnd Sub题型二：字符串处理1．执行下面的程序，在窗体上显示的输出结果的第一行是，第二行是。
备战计算机二级二、VB 部分的基础知识1、属性决定对象的外观和行为，常见的属性有：Lable1.caption Text1.Text Command1.Caption List1.List List1.Listcount Picture1.Picture2、方法是一个对象自身等做的动作，也可以理解为对象自带的过程和函数，常见的方 法有：cls 、setfocus 、unload 、move3、事件是对象能识别的别的对象对它的动作。
常见的事件有：click 、load 、unload4、CALL 用法：（1）Call 不但可以调用Sub 过程，也可以调用Function 函数（2）当用Call 调用Function 函数的时候，将忽略返回值（3）事件过程也可以用Call 调用。
如Call 、Command 、Click（4）Call 的几种用法（这几种写法也可以写在Function 上）5 VB 中三种容器：Form 、Picture 、Frame 。
6关于形参：形参处不可以出现：定长的字符——Private Function f(a as string*3)定长的数组——Private Function f （a （ 2）as integer ） Call F(x,y)F x,y写Call 一定保证逗号被括起来了 逗号不被括起来，就不写Call F(x),yCall F （（x ），y ） x 看成表达式 两行等价但可以出现：定长的动态数组——Private Function f（a（）as string*3）形参不写Byval或不写Byref不一定就按地址传递不可以用Dim对形参进行说明，也就是说，Dim不可以出现在形参处形参处若有数组，只能是动态的数组，而且不可以加Byval，即数组只能按地址传递5、如果要在菜单项目之间加一条分割线，使用一对菜单加快捷键，使用&，如&A表示快捷键是Alt+A6、关于数组：（1）数组使用Dim定义时候不可以在括号中出现变量；（2）数组必须确定以后才能使用；（3）可以使用ReDim定义新数组；（4）Option Base后面只能写1或0，而且没有强制性，即哪怕有Option Base，也可以使用Dim A（0 To 3）定义（5）数组的下标可以从任何数开始，只要这个数在Long的范围中，如下标是小数，按照CInt的规则转化为整数7、Dim可以使用在任何地方。
二级Visual Basic全真模拟试卷一1．信息处理系统是综合使用信息技术的系统。
下面有关信息处理系统的叙述中错误的是____1____。
A．信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的B．应用领域很广泛。
例如银行是一种以感知与识别为主要目的的系统C．信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的一种系统D．从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用的2．下面关于集成电路的叙述中，错误的是2。
A．集成电路是20世纪50年代出现的B．现代集成电路使用的半导体材料通常是硅或砷化镓C．集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成D．集成电路按用途可分为通用和专用两大类。
微处理器和存储器芯片都属于专用集成电路3．在通信系统的性能指标中，3是指数据传输中出错数据占被传输数据总数的比例。
A．信道带宽B．误码率C．数据率D．端-端延迟4．以下数据最大的是4。
A．01110110B B．120D C．7DH D．177Q5．从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU）、内存储器、外存储器、输入设备和输出设备等，它们通过5互相连接。
A．总线B．控制线C．数据线D．地址线6．6接口是一种新的I/O接口，它是一种可以连接多个设备的总线式串行接口，2.0版的数据传输速率可高达480Mb/s（60MB/s），最多可以连接127个设备。
A．USB B．IEEE1394 C．SCSI D．并行7．下列不属于无线局域网设备的是7。
A．无线网卡B．蓝牙C．无线HUB D．无线网桥8．FA T16、FAT32、NTFS是三种不同的文件系统，Windows 2000/XP操作系统支持___8___。
A．FA T32 和FAT16文件系统B．NTFS文件系统C．FAT32和NTFS文件系统D．FA T16、FAT32和NTFS文件系统9．下列关于CD-ROM存储器描述中，错误的是9。
2007年秋季vb考试真题21.下列语句中，正确的是__________A．Textl．SetFocus B．Forml．Clear C．Labell．SetFocus D．Listl．Cls22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。
A．文件($F) B．文件(&F) C．文件(#F) D．文件(％F)23．数学表达式的VB算术表达式为_______ 。
A．Sin(27)+Sqr(X+Exp3)／(X+Y)B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y)C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y)D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y)24．以下说法不正确的是____________。
A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25．下列____________是合法的变量名。
A．abs B．-al C．cdc d D．Abe_1026．要向文件datal．txt添加数据，正确的文件打开命令是_____________。
A．Open”datal．txt”For Output As #1B．Open”datal．txt”For Input As #1C．Open”datal．txt”For Append As #5D．Open“datal．txt“For Write As #527．以下对数组参数的说明中，错误的是___________ 。
A．在过程中可以用Dim语句对形参数组进行声明B．形参数组只能按地址传递c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界D．只需把要传递的数组名作为实参，即可调用过程28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。
A．True B．False C．1 D．出错29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。
①Val(Right(X，1)&Left(X，1))②Val(Right(Str(X)，1)＆Left(Str(X)，1))③Val(Right(CStr(X)，1)＆Left(CStr(X)，1))④Val(Mid(X，2，1)+Mid(X，1，1))A．①②B．②③c．②④D．①③④30．下列______是正确的VB常量。
A．D-6 B．E-6 C．5D D．5E-6二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1．执行下面程序，单击Commandl，则窗体上显示的第一行是(1) ，第二行是(3) ，第三行是(3) 。
Private Sub Commandl—Click()Dim a As String，i As IntegerDim X As String，z As Stringa=‟‟iamstudent‟‟i=InStr(5，a，”d”)Dox=Mid(a，i，3)z=Right(X，1)z=UCase(x＆Z)i=i-2Print zLoop Until i=1End Sub2．执行以下程序，单击Commandl，则在Picturel上显示的第一行是(4) ，第二行是(5) ，第三行是(6) 。
Option ExplicitPrivate Sub Commandl_Click()Dim A(3，3)As Integer，i As Integer，J As IntegerDim k As Integeri=3：j=2：A(i，j)=l：k=1Do Until k>9k=k+1If i+1>3 Aod j+1<=3 Theni=1：J=j+1ElseIf i+1<=3 And j+1>3 Theni=i+1：j=1Elself i+1>3 And j+1>3 Theni=i-1ElseIf i+1<=3 And j+1<=3 And A(i+1，j+1)<>0 Theni=i-1Elsei=i+1：j=j +1End IfA(i,j)=kLoopFor i=1 To 3For j=1 To 3Picture1.Print A(i,J);Next JNext IEnd Sub3．执行下面的程序，单击Commandl，则窗体上第一行显示的是(7) ，第二行显示的是(8) 。
Dim X As IntegerPrivate Sub Commandl_Click()Dim Y as IntegerX=10：Y=2Call process(Y)Print X，YCall process((Y))Print X，YEnd SubPrivate Sub process(n As Integer)Dim Y As IntegerIf n>0 ThenX=X—nY=XElseX=X+nY=X+2End Ifn=-nEnd Sub4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有(9) 个元素；数组元素A(2)的值是(10) ，A(4)的值是．(11) 。
Option ExplicitOption Base 1Private Sub Commandl_Click()Static A()As Integer，n As IntegerDim i As Integer，k As Integerk=n …n=n +2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To nPrint A(i)；Next iPrintEnd Sub5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是(12) ，第二行是(13) ，第三行是(14) ，第四行是(15) 。
Option ExplicitPrivate Sub Commandl_Click()Dim a As Integer，b As Integer，i As Integeri=1218a=i\100b=i Mod 100If b<>0 ThenPrint aPrint b．Print Lcd((a)，(b))；a；bPrint Lcd(a，b)；a；bEnd IfEnd SubPrivate Function Lcd(x As Integer，Y As Integer)As IntegerDim d As Integer ‟If xd=x：x = Y：Y = dEnd Ifd=XDoIf x Mod Y=0 ThenLcd=xExit DoElseX=x+dEnd IfLoopEnd Function6.本程序的功能是利用无穷级数求cos(x)的近似值,已知:当第n项的绝对值小于等于10^-7时计算终止。
Option ExplicitPrivate Sub Commandl_Click()Dim X As Single，n As Integer，sum As SingleDim a As Singlex=Textl( 16 )a=1n=1Doa=-aa=( 17 )sum=sum+an=n+1Loop Until( 18 )Text2=sumEnd Sub7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。
以下程序的功能是求一个4×4方阵的范数。
该方阵的数据是随机生成的-20～20之间的整数。
Option ExplicitOption Base 1Private Sub Commandl_Click()Dim a(4，4) As IntegerDim i As Integer，j As IntegerFor i=1 T0 4For j=1 To 4a(i，j)= ( 19 )Picturel．Print Right(" "&Str(a(i，j))，4)；Next jPicturel．PrintNext iTextl.Text= ( 20 )End SubPrivate Function fan(a()As Integer)As IntegerDim b(4) As Integer，max As IntegerDim i As Integer，j As IntegerFor i=1 To 4For j=1 To 4b(j)=( 21 )Next JNext imax=b(1)For i=2 To 4If maxNext ifan=maxEnd Function8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不同数字组成。
算法提示：函数V alidate用于验证一个4位数是否由4个不同数字组成。
在函数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。
Option ExplicitPrivate Sub Commandl_Click()Dim i As Integer，Flg As BooleanFor i=1234 To 4321( 22 )Call Prime(i，Flg)If Flg ThenIf Validate(i)ThenTextl=Textl & i & vbCrLf．End IfEnd IfNext iEnd SubPrivate Sub Prime(n As Integer，f As Boolean)Dim k As IntegerFor k=2 To Sqr(n)( 23 )Next kf=TrueEnd SubPrivate Function Validate(n As Integer)As BooleanDim A(0 To 9)As Integer，s As String，i As IntegerDim sl As String*1．( 24 )For i=1 To Len(s)sl=Mid(s，i，1)( 25 )Next iIf A(1)+A(2)+A(3)+A(4)=4 Then( 26 )End IfEnd Function9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。
