中原工学院VB题库(含参考答案)4份整合+大题版.doc

首先声明这是crazygod5本人亲自由校网下载的题库，自己做和校对的，不能保证准确率（应该在90%以上），大题部分自己已经运行验证过了。之前长传的VB1 、VB2、 VB3、 VB4部分在百度文库是看不到大题的（实际上答题框是有参考答案的），自己下载下来之后发现金山的2013测试版是显示不出来选项的，OFFIC2003可以显示所有内容（但是大题的框内内容不能编辑），OFF9C2010是完全正常编辑的（建议用OFFIC2010），不过这次我把大题独立出来了（在最下面），所以OFFIC2003就可以足够观看和编辑了（WPS完全版没测试过）。上次上次的几份答案发现被转载到另外的网站（豆丁，道客巴巴）了，本人不希望未经过我的允许就转载我的辛苦劳动的，谢谢合作！ 如果发现我的参考答案有问题，欢迎发邮件到335147037和我交流。如果是VB老师，更是欢迎！【HNCE网上考试系统 v9.6】 本套软件使用权属于：中原工学院考试课程:高级语言程序设计（VB） 考试时间:100分钟 考场:第一考场 考试日期:2010.02.15考号：201200314399 姓名：帅哥剩余时间：99:48保存交卷退出帮助窗体顶端本卷共有4道大题:窗体底端一、单项选择题（20道小题，共20分）1、在VB.NET中每个对象都有三个基本要素，它们是 ( )。（1分）A、对象的名称，值和所属类。B、对象的属性，事件和方法。C、对象的大小，存储方式和内容。D、对象的访问方法、存储方式和名称。2、假定焦点已经位于TextBox1中，则能够触发KeyPress事件的操作是（ ）。（1分）A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键3、以下表达式的结果( )不是字符串类型。（1分）A、45 + 123B、45 & 123C、45 + 123D、全部4、表达式 Int(Rnd*55)+15 产生的随机数范围是( )。（1分）A、15，55B、15，69C、(15，55)D、(15，69)5、要使某个控件在运行时不显示，应对其( )属性进行设置。（1分）A、LockedB、EnabledC、VisibleD、ForeColor6、VB.NET程序中，( ) 显示一个内容为“this is a test”的对话框。（1分）A、MsgBox(this is a test)B、MsgBox.Show(this is a test)C、MsgBox.ShowDialog(this is a test)D、MsgBox.ShowMessageBox(this is a test)7、假设x、y、z的值是3、2、1，当执行语句x=y:y=z:z=x后，x、y、z的值分别是( )。 （1分）A、2、3、1B、2、1、2C、1、3、2D、3、1、28、以下Case语句中错误的是( )。（1分）A、Case 0 To 10B、Case Is10C、Case 3,5,Is10D、Case 10Is509、下列各语句中，正确的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Dim x(,) As Integer = 1,2,3,410、已知最多有10个元素的数组a，用变量n表示它的上界，则下列说法正确的是( )。（1分）A、n=UBound(a)且n=10B、n=UBound(a)且n=9C、n=LBound(a)且n=10D、n=LBound(a)且n=911、以下关于变量作用域的叙述中，正确的是( )。（1分）A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用B、全局变量必须在窗体或标准模块的通用段中声明C、模块级变量只能用Private关键字声明D、Static类型的变量的作用域是它所在的窗体或模块文件12、下列过程的定义，正确的是( )。（1分）（和别人的有出入）A、Public Function a(ByVal b As Integer)As DoubleB、Public Sub a(ByVal b As Integer)As DoubleC、Public Function a(ByVal b(5) As Integer)As DoubleD、Public Sub a(ByVal b(5) As Integer)As Double13、在下列说法中，正确的是( )。（1分）A、在程序运行时，时钟控件可以示在窗体上B、在程序运行时单击某个单选按钮，则该单选按钮的CheckChanged事件一定被触发C、在列表框中能够将项目按字母排序从大到小排列D、框架也有Click和DoubleClick事件14、若要向列表框中添加新项目，正确的语句是( )。（1分）A、ListBox1.Items.Add(How are you)B、ListBox1.Items.Insert(How are you)C、ListBox1.Items.Remove(How are you)D、ListBox1.Text=How are you15、要定义某个类为派生类，需要用( )语句来指明其基类。（1分）A、WithEventsB、EventC、InheritsD、Class16、在下列关于类的定义位置的说法中，错误的是( )。（1分）A、在标准模块中可以定义类B、在窗体的代码窗口中可以定义与Form1并列的类C、在类模块中可以定义类D、类的定义不能嵌套，即类中不能再定义17、要在下拉菜单中添加一个分隔线，则应将该菜单项的标题内容设置为( )。（1分）A、=B、-C、*D、&18、为对象指定上下文菜单的方法是修改菜单的( )属性。（1分）A、AutoToolTipB、DockC、ContextMenuStripD、Locked19、下列( )类的文件流既可以读也可以写。（1分）A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter20、打开文件或创建文件流时，经常要指定文件的打开模式，下列( )不会创建新文件。（1分）A、AppendB、CreateC、OpenD、OpenOrCreate二、判断题（10道小题，共10分）1、对象的所有属性既可以通过属性窗口设置，也可以在程序运行时修改。（1分）(例如name属性不能)正确错误2、在VB.NET中，AB和ab指代的是同一个变量的名字。（1分）（p25页）正确错误3、命令按钮对象上的文字可以设置多种对齐方式。（1分）正确错误4、标签对象上只可以显示文字，不能显示图像。（1分）正确错误5、块结构If语句中，Else和End If都可以略去不写。（1分）正确错误6、引用数组元素时,下标值应在数组声明时所指定的范围内。（1分）正确错误7、在过程内不能再定义过程，但可以调用其它Sub过程或Function过程。（1分）正确错误8、复选框对象主要用来实现多选一的操作目的。（1分）正确错误9、对象和类是一样的，都是可以直接操作的实体。（1分）正确错误10、在打开文件执行读写后，结束时一定要关闭文件，否则会造成文件损坏。（1分）正确错误三、填空题（16道小题，共34分）1、如图 a00-4 所示的数学表达式，写成 VB.NET表达式应为 。（这题因为图片在校网上没下载下来，没办法做，请去第一章P41课后第三题那里做几道）【附图13】（2分）2、如图 a00-1 所示的数学表达式，写成 VB.NET 表达式应为 。【附图9】（2分）3、如图 a00-2 所示的数学表达式，写成 VB.NET表达式应为 (注：使用数学函数时，可以直接使用函数名) 。【附图11】（2分）4、Visual Basic.NET中，所有对象都必须具有属性。（1分）5、算术表达式4+2*322*4的运算结果是。（1分）6、要使标签控件中显示的文本在垂直方向上居中，而在水平方向上靠右则应将其属性设置为MiddleRight。（1分）7、For i=3 To 27 Step 2 将循环次。（1分）8、如果要得到数组指定维数的上界大小，则可以使用函数。（1分）9、声明模块级变量用Private或关键字。（1分）10、程序运行过程中，要向列表框ListBox1中添加一项，应该使用方法。（1分）11、类的成员包括数据成员、事件和方法。（1分）12、若想让菜单标题显示为“文件(F)”,则应把菜单项的Text属性设置为。（1分）13、使用FileStream类的方法可将文件流的当前位置设置为指定值。（1分）14、根据题意，将程序补充完整。通过输入对话框inputbox输入一个年份，利用msgbox判断其是否是闰年。闰年的年份必须满足以下两个条件之一：（1）能被4整除，但不能被100整除的年份是闰年；（2）能被400整除的年份是闰年。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根据题意，将程序补充完整。下将用户输入的10个数显示到文本框TextBox1中，用选择法按照从大到小排序，将排序后的结果显示到文本框TextBox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, k, t As IntegerFor i = 0 To 9a(i) = InputBox(请输入第 & i + 1 & 个数)TextBox1.Text = TextBox1.Text & a(i) & Space(2)NextFor i = 0 To 8k = iFor j = To 9If a(k) a(j) Then NextIf Then t = a(i) : a(i) = a(k) : a(k) = tNextFor i = 0 To 9TextBox2.text = TextBox2.Text & a(i) & Space(2)NextEnd Sub（6分）16、根据题意，将程序补充完整。编写一个函数过程：求数列1+1/2+1/3+1/4+1/n的和，用户在文本框TextBox1输入一个值n，在Button1的click事件中调用此过程，求出结果并显示在文本框TextBox2中。Private Function sum(ByVal n As Integer) As SingleDim i As Integer, s As Singles = 0For i = 1 To nNextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Integern = Val(TextBox1.Text)End Sub（6分）四、编程题（4道小题，共36分）1、新建项目，在窗体上创建1个标签(Label1)、2个命令按钮(Button1,Button2)。(1) 在属性窗口中设置:标签文字为你的姓名，1个命令按钮上的文字为“日期”，1个命令按钮上的文字为“粗体”。(2) 编写代码，要求：运行程序，单击按钮“日期”，窗体标题栏上显示系统当前日期(要求使用函数)。单击按钮“粗体”，将标签文字改为粗体。【本题要求上传窗体文件】（8分）（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到下面或者上载源程序2、用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。【本题要求上传窗体文件】（10分）（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到下面或者上载源程序3、声明一个5行5列的二维数组，其元素由10,99之间的整数组成，要求计算主对角线及其上方三角形区域元素之和。要求：利用随机函数(随机数种子 Randomize(2) 产生上述整数。【本题要求粘贴源程序与第一次运行结果】（12分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序4、创建一个项目，项目的名称为“Student”，该项目中定义一个学生类Student（建议将该类定义为一个独立的.vb文件），该类包含的成员如下：（1）两个公有数据成员分别表示姓名（name）和性别(sex)，一个私有数据成员表示成绩（score）。（2）一个可读写私有数据成员score的公有属性Scoret。（3）一个公有方法Result，该方法用于返回一个字符串。当成绩大于等于80分时Result()方法返回“你很棒”字符串，否则为“继续努力!”字符串。最后在该项目的窗体中使用Student类来创建对象s1，通过文本框设置对象s1的姓名（name），单击“确定”按钮，在标签中根据对象是s1的成绩显示相应的信息(“你很棒”或者“继续努力!”)，窗体的界面如附图(b4-3)。【本题要求粘贴源程序】【附图21】（6分）（本题不要求填写运行结果）请将你解答本题所写的源程序粘贴到下面或者上载源程序窗体底端考号：201200314399 姓名：帅哥剩余时间：99:48保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览【HNCE网上考试系统 v9.6】 本套软件使用权属于：中原工学院考试课程:高级语言程序设计（VB） 考试时间:100分钟 考场:第一考场 考试日期:2010.02.15考号：211111111111 姓名：登录剩余时间：99:55保存交卷退出帮助窗体顶端本卷共有4道大题:窗体底端一、单项选择题（20道小题，共20分）1、在VB.NET中每个对象都有三个基本要素，它们是 ( )。（1分）A、对象的名称，值和所属类。B、对象的属性，事件和方法。C、对象的大小，存储方式和内容。D、对象的访问方法、存储方式和名称。2、若VB.NET 编程界面中的工具箱不见了，则可以通过 ( ) 菜单将其重新显示出来。（1分）A、工具B、视图C、格式D、文件3、表达式 Int(Rnd*55)+15 产生的随机数范围是( )。（1分）A、15，55B、15，69C、(15，55)D、(15，69)4、以下表达式的结果( )不是字符串类型。（1分）A、45 + 123B、45 & 123C、45 + 123D、全部5、设有 x，y 两个数值型变量，今欲将其以坐标的样式“(x，y)”显示在标签(Label1)上(注：x,y显示具体的数值），下面语句中正确的是( )。（1分）课本P28A、Label1.text=( & x & , & y & )B、Label1.text=(x,y)C、Label1.text=(x,y)D、Label1.text=(x,y)6、在窗体上有一文本框，名称为Textbox1，程序运行后，要求该文本框不能接收键盘输入，但能输出信息，以下设置正确的是( )。（1分）A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=07、假设x、y、z的值是3、2、1，当执行语句x=y:y=z:z=x后，x、y、z的值分别是( )。 （1分）A、2、3、1B、2、1、2C、1、3、2D、3、1、28、关于For.Next 循环，以下说法错误的是( )。（1分）(p88)A、每个For 都必须有与之相应的 NextB、步长Step 可以省略C、For 语句中的终值必须大于初值D、循环变量的名称必须符合变量的命名规则9、下列各语句中，正确的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Dim x(,) As Integer = 1,2,3,410、关于数组，以下说法正确的是( )。（1分）A、数组的下标都是从1开始的B、数组在定义后，其所含数据的个数不能改变C、数组的类型不能是可变类型D、数组命名与变量命名的规则相同11、以下关于变量作用域的叙述中，正确的是( )。（1分）A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用B、全局变量必须在窗体或标准模块的通用段中声明C、模块级变量只能用Private关键字声明D、Static类型的变量的作用域是它所在的窗体或模块文件12、下列过程的定义，正确的是( )。（1分）(有异议的答案)A、Public Function a(ByVal b As Integer)As DoubleB、Public Sub a(ByVal b As Integer)As DoubleC、Public Function a(ByVal b(5) As Integer)As DoubleD、Public Sub a(ByVal b(5) As Integer)As Double13、在设计状态，列表中的选项可以通过( )属性设置。（1分）A、ListB、Items.CountC、TextD、Items14、在下列说法中，正确的是( )。（1分）A、在程序运行时，时钟控件可以示在窗体上B、在程序运行时单击某个单选按钮，则该单选按钮的CheckChanged事件一定被触发C、在列表框中能够将项目按字母排序从大到小排列D、框架也有Click和DoubleClick事件15、要定义某个类为派生类，需要用( )语句来指明其基类。（1分）A、WithEventsB、EventC、InheritsD、Class16、类MyClass的定义中有Private data as string语句，则关键字Private在类的定义中的作用是( )。（1分）A、限定成员变量data只在本模块内部可以使用B、限定成员变量data仅在类MyClass的成员方法中可以访问C、限定成员变量data仅可在类以及子类的成员方法中可以访问D、限定类MyClass仅在本模块中可以使用17、为菜单对象添加快捷键的方法是修改其( )属性。（1分）A、NameB、ShortcutKeysC、TextD、ToolTipText18、要在下拉菜单中添加一个分隔线，则应将该菜单项的标题内容设置为( )。（1分）A、=B、-C、*D、&19、打开文件或创建文件流时，经常要指定文件的打开模式，下列( )不会创建新文件。（1分）A、AppendB、CreateC、OpenD、OpenOrCreate20、下列( )类的文件流既可以读也可以写。（1分）A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter二、判断题（10道小题，共10分）1、Visual Basic.NET支持结构化程序设计及事件驱动的编程机制。（1分）正确错误2、在VB.NET中，AB和ab指代的是同一个变量的名字。（1分）正确错误3、标签对象上只可以显示文字，不能显示图像。（1分）正确错误4、窗体显现时，最先执行的是Load事件过程。（1分）正确错误5、InputBox函数的返回值是字符串类型，常需要转换后才能赋值给变量。（1分）正确错误6、引用数组元素时,下标值应在数组声明时所指定的范围内。（1分）正确错误7、Sub过程和Function过程的重要区别是参数的传递方式不同。（1分）正确错误8、复选框对象主要用来实现多选一的操作目的。（1分）正确错误9、对象和类是一样的，都是可以直接操作的实体。（1分）正确错误10、在打开文件执行读写后，结束时一定要关闭文件，否则会造成文件损坏。（1分）正确错误三、填空题（16道小题，共34分）1、如图 a00-4 所示的数学表达式，写成 VB.NET表达式应为 。【附图13】（2分）2、如图 a00-3 所示的数学表达式，写成 VB.NET 表达式应为 。【附图10】（2分）3、如图 a00-5 所示的数学表达式，写成 VB.NET表达式应为 (注：使用数学函数时，可以直接使用函数名)。【附图12】（2分）4、Visual Basic.NET中应用面向对象的程序设计方法，采用的编程机制。（1分）5、算术表达式4+2*322*4的运算结果是。（1分）6、实现窗体隐藏的方法是。（1分）7、For i=3 To 27 Step 2 将循环次。（1分）8、如果要得到数组指定维数的上界大小，则可以使用函数。（1分）9、声明模块级变量用Private或关键字。（1分）10、程序运行过程中，要向列表框ListBox1中添加一项，应该使用方法。（1分）11、类的成员包括数据成员、事件和方法。（1分）12、若想让菜单标题显示为“文件(F)”,则应把菜单项的Text属性设置为。（1分）13、使用FileStream类的方法可将文件流的当前位置设置为指定值。（1分）14、根据题意，将程序补充完整。通过输入对话框inputbox输入一个年份，利用msgbox判断其是否是闰年。闰年的年份必须满足以下两个条件之一：（1）能被4整除，但不能被100整除的年份是闰年；（2）能被400整除的年份是闰年。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根据题意，将程序补充完整。下将用户输入的10个数显示到文本框TextBox1中，用选择法按照从大到小排序，将排序后的结果显示到文本框TextBox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, k, t As IntegerFor i = 0 To 9a(i) = InputBox(请输入第 & i + 1 & 个数)TextBox1.Text = TextBox1.Text & a(i) & Space(2)NextFor i = 0 To 8k = iFor j = To 9If a(k) 10C、Case 3,5,Is10D、Case 10Is509、已知最多有10个元素的数组a，用变量n表示它的上界，则下列说法正确的是( )。（1分）A、n=UBound(a)且n=10B、n=UBound(a)且n=9C、n=LBound(a)且n=10D、n=LBound(a)且n=910、下列各语句中，正确的是( )。（1分）A、Dim x(3) As Integer = 1,2,3,4B、Dim x() As Integer = 1,2,3,4C、Dim x(1,2) As Integer = 1,2,3,4,5,6D、Dim x(,) As Integer = 1,2,3,411、以下关于变量作用域的叙述中，正确的是( )。（1分）A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用B、全局变量必须在窗体或标准模块的通用段中声明C、模块级变量只能用Private关键字声明D、Static类型的变量的作用域是它所在的窗体或模块文件12、以下说法中正确的是( )。（1分）A、Sub过程不能返回值，而Function过程能返回值B、函数过程的形参类型与函数返回值的类型相同C、数组作为过程的参数时，既能以传值方式传递，也能以传递至方式传递D、Function过程可以有形参，而Sub过程不可以13、在设计状态，列表中的选项可以通过( )属性设置。（1分）A、ListB、Items.CountC、TextD、Items14、在下列说法中，正确的是( )。（1分）A、在程序运行时，时钟控件可以示在窗体上B、在程序运行时单击某个单选按钮，则该单选按钮的CheckChanged事件一定被触发C、在列表框中能够将项目按字母排序从大到小排列D、框架也有Click和DoubleClick事件15、类MyClass的定义中有Private data as string语句，则关键字Private在类的定义中的作用是( )。（1分）A、限定成员变量data只在本模块内部可以使用B、限定成员变量data仅在类MyClass的成员方法中可以访问C、限定成员变量data仅可在类以及子类的成员方法中可以访问D、限定类MyClass仅在本模块中可以使用16、在下列关于类的定义位置的说法中，错误的是( )。（1分）A、在标准模块中可以定义类B、在窗体的代码窗口中可以定义与Form1并列的类C、在类模块中可以定义类D、类的定义不能嵌套，即类中不能再定义17、为菜单对象添加快捷键的方法是修改其( )属性。（1分）A、NameB、ShortcutKeysC、TextD、ToolTipText18、为对象指定上下文菜单的方法是修改菜单的( )属性。（1分）A、AutoToolTipB、DockC、ContextMenuStripD、Locked19、在向文件流写入数据时，数据只是写入到文件缓冲区中，只有在缓冲区满时才真正写入到文件中去，所以写入数据后还应调用( )方法，以便将缓冲区中的数据实际写入到文件中去。（1分）A、OpenB、SeekC、PeekD、Flush20、下列( )类的文件流既可以读也可以写。（1分）A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter二、判断题（10道小题，共10分）1、对象的所有属性既可以通过属性窗口设置，也可以在程序运行时修改。（1分）正确错误2、编写代码时，不能出现多个语句写在一行上。（1分）正确错误3、每个对象都必须有Name属性。（1分）正确错误4、窗体显现时，最先执行的是Load事件过程。（1分）正确错误5、InputBox函数的返回值是字符串类型，常需要转换后才能赋值给变量。（1分）正确错误6、引用数组元素时,下标值应在数组声明时所指定的范围内。（1分）正确错误7、在过程内不能再定义过程，但可以调用其它Sub过程或Function过程。（1分）正确错误8、复选框对象主要用来实现多选一的操作目的。（1分）正确错误9、对象和类是一样的，都是可以直接操作的实体。（1分）正确错误10、在打开文件执行读写后，结束时一定要关闭文件，否则会造成文件损坏。（1分）正确错误三、填空题（16道小题，共34分）1、如图 a00-6 所示的数学表达式，写成 VB.NET表达式应为 (注：使用数学函数时，可以直接使用函数名) 。【附图14】（2分）2、如图 a00-5 所示的数学表达式，写成 VB.NET表达式应为 (注：使用数学函数时，可以直接使用函数名)。【附图12】（2分）3、如图 a00-4 所示的数学表达式，写成 VB.NET表达式应为 。【附图13】（2分）4、Visual Basic.NET中，所有对象都必须具有属性。（1分）5、算术表达式4+2*322*4的运算结果是。（1分）6、要使标签控件中显示的文本在垂直方向上居中，而在水平方向上靠右则应将其属性设置为MiddleRight。（1分）7、For i=3 To 27 Step 2 将循环次。（1分）8、有如下声明：Dim stu(4,5) As Single,则该声明建立一个有个元素的数组。（1分）9、声明模块级变量用Private或关键字。（1分）10、程序运行过程中，要向列表框ListBox1中添加一项，应该使用方法。（1分）11、类的成员包括数据成员、事件和方法。（1分）12、若想让菜单标题显示为“文件(F)”,则应把菜单项的Text属性设置为。（1分）13、使用FileStream类的方法可将文件流的当前位置设置为指定值。（1分）14、根据题意，将程序补充完整。通过输入对话框inputbox输入一个年份，利用msgbox判断其是否是闰年。闰年的年份必须满足以下两个条件之一：（1）能被4整除，但不能被100整除的年份是闰年；（2）能被400整除的年份是闰年。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim y As Integer，p1 As Boolean, p2 As Booleany = p1 = y Mod 4 = 0 And y Mod 100 0p2 = y Mod 400 = 0If ThenElseEnd IfEnd Sub（6分）15、根据题意，将程序补充完整。将用户输入的10个数显示到文本框textbox1中，用比较法按照从大到小排序，将排序后的结果显示到文本框textbox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9) As IntegerDim i, j, t As IntegerFor i = 0 To 9a(i) = InputBox(请输入第 & i + 1 & 个数)textbox1.text = textbox1.text & a(i) & Space(2)NextFor i = 0 To For j = To 9If Thent = a(i) : a(i) = a(j) : a(j) = tEnd IfNextNextFor i = 0 To 9textbox2.text = textbox2.text & a(i) & Space(2)NextEnd Sub（6分）16、根据题意，将程序补充完整。编写一个函数过程求包含10个元素的数组的最大值。产生一个由10个1，100元素组成的数组，在Button1的click事件中调用此过程,求出最大值并显示在文本框TextBox2中。Private Function max(ByVal a() As Integer) As Integer,Dim i As IntegerFor i = 1 To 9If a(i) max Then NextEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(9), i As IntegerFor i = 0 To 9a(i) = Int(Rnd() * 100) + 1TextB