下载文档原格式
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
vb期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。
答案：类是对象的蓝图，它定义了对象的结构和行为。
对象是类的实例，是类的具体实现。
一个类可以创建多个对象，每个对象具有自己的状态和行为。
2. 描述如何使用VB中的事件。
答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。
事件通常与事件处理器（也称为事件处理程序）一起使用。
事件处理器是响应事件的代码块。
要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。
3. 解释VB中的继承和多态性。
答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。
这使得代码重用成为可能。
多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。
在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。
三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
2022-2023学年度第二学期22计2、22计3《VB》期末考试题说明：考试范围是第一章至第四章内容。
满分100分。
一、选择题（每小题1分，共100 分）1．打开属性窗口的快捷键是（）A．F1获得帮助 B、F2 C、F4 D、F52．在VB6.0中，语句Dim M1#,Abc as variant ,Xyz As integer定义的M1、Abc 和Xyz的类型分别是（）A．双精度、整数型、单精度 B．双精度、单精度、单精度C．双精度、变体类型、整数型 D．双精度、可变类型、单精度3．在VB6.0中，下列不正确的Integer型常数是（）A． 32768 B． 0 C． 37% D．–222224．在VB中，12345678&的类型是（）A．整数型 B．长整数型 C．字符常数 D．双精度常数5．在VB6.0中，合法的字符串常量是（）A． ABC$ B．‘ABC’ C．“” D．‘3+4’6．方法Print 20\30输出结果是（）A．“20\30” B．20\30 C.0 D．错误7．假定Bln1是逻辑型变量，下面赋值语句中正确的是（）A． Bln1=’True’ B．Bln1=.T.C． Bln1=#True# D．Bln1=3<48．在以下运算符中，优先级最低的是（）A． / B． \ C． Mod D．+9．VB 6.0表达式sqr（25）+ABS（-1）+len（“11”）的值是( )A． 5 B．6 C． 7 D．810．设a为整型变量，不能正确表达数学关系6<a<15的VB6.0表达式是（）A． 6<a<15 B． Not(a<=6) And a<15C． a>6 And a<15 D． a>6 And Not (a>=15)11．逻辑运算符And,Or和Not的优先顺序，从高到低是（）A． Or-And-Not B．And-Not-OrC． Not-And-Or D．Not-Or-And12．计算b的自然对数使用的Visual Basic表达式是（）A． Log(b) B．Lg(b) C． Loge(b) D．Lge(b) 13．方法Print -28 Mod –15 输出结果是（）A．“28 Mod –15” B． 28 Mod –15C． -13 D．1314．已字母A的ASCII码为十进制的65，表达式Asc（“A”）+Asc（“C”）的值是（）A． 6567 B．132 C．“AC” D．AC15．若X=5、Y=6，则表达式X+Y=11的值是（）A． X+Y=11 B．11 C． True D．False16．VB表达式-10^-2的值是（）A．–100 B．0.01 C． 100 D．–0.0117．下面( )是不合法的单精度浮点表示法。
VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假设以下程序段，执行后k的值为：（a）forI=1到3k=I+2nextia、 5b.4c.3d.62。
以下控件可以用作容器控件（b）a．image图像框控件b．picturebox图片框控件c．textbox文本框控件d．listbox 列表框控件3.关于image控件和picturebox控件的说明，其中错误的是（b）a．image 控件和picturebox控件都有picture属性b．image控件和picturebox控件都支持print 方法c、图像控件和pieturebox控件都可以使用loadpicture函数将图形文件加载到控件中。
d.image控件和PictureBox控件都可以在属性窗口中加载图形文件，并且都可以在操作期间加载图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(timer事件)，则应将其interval 属性值设置为(d)a、 5b.500c.10d.50005。
显示表单的方式是（b）。
a．visibleb．showc．newd．open6.msgbox函数中有四个参数，其中必须指定的参数是（c）A.指定显示按钮的数量B.对话框的标题c.提示信息D.所有参数都是可选的7.如果在代码窗口中编写：msgbox （“AAAA”，vbokonly，“BBBBBB”）语句，生成的信息框的标题是（c）a．aaaab．空c．bbbbd．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（d）方法。
a．gotfocusb．lostfocusc．keypressd．setfocus9.为了把焦点移到某个指定的控件，所使用的方法是（a）a．setfoeusb．visiblec．refreshd．getfocus10.语句if3*4>=10thena=1elsea=2endif执行后，a的值为（d）。
一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（C）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个Visual Basic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、Visual Basic 6.0集成环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
vb基础期末考试题库及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的数据类型？A. IntegerB. intC. StringD. str答案：A、C2. 下列哪个选项不是VB的控件？A. TextBoxB. ButtonC. LabelD. ComboBox答案：B3. VB中，用于声明一个变量的关键字是：A. DimB. DeclareC. FunctionD. Sub答案：A4. 在VB中，以下哪个是正确的函数用于将字符串转换为整数？A. StrToIntB. CIntC. ValD. Convert.ToInt32答案：B5. Visual Basic中，哪个属性用于设置文本框的文本？A. TextB. CaptionC. ValueD. Label答案：A6. 下列哪个是VB中用于循环的语句？A. IfB. ForC. WhileD. Select答案：B、C7. VB中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B8. 在VB中，以下哪个是正确的事件处理程序？A. OnClickB. OnClickC. ClickD. OnClick答案：A、C9. VB中，下列哪个选项用于声明一个常量？A. ConstB. DimC. StaticD. Public答案：A10. 在VB中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. StructureD. Interface答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________关键字来结束一个程序。
答案：End2. VB中，________关键字用于声明一个数组。
答案：Dim3. 使用________函数可以将一个数字转换为字符串。
答案：Str4. 在VB中，________关键字用于定义一个全局变量。
vb考试题库及答案大一一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明语句？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a As Integer答案：C2. VB中，以下哪个是正确的字符串连接操作符？A. +B. ||C. &D. *答案：C3. 在VB中，以下哪个函数用于将字符串转换为数值？A. Val()B. Str()C. CInt()D. CDbl()答案：A4. 在VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 Print "Positive"C. If x > 0 Then Print "Positive" Else Print "Negative"D. If x > 0 Then "Positive"答案：C5. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 Step -1C. For i = 10 To 1D. All of the above答案：D6. 在VB中，以下哪个是正确的数组声明语句？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(10)答案：B7. 在VB中，以下哪个是正确的函数声明语句？A. Function myFunction() As IntegerB. Function myFunction As IntegerC. Function myFunction() IntegerD. Function myFunction Integer答案：A8. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Click(ByVal sender As Object)D. Private Sub Form_Click(ByVal e As EventArgs)答案：A9. 在VB中，以下哪个是正确的窗体属性？A. CaptionB. TextC. NameD. All of the above答案：D10. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用___________关键字可以声明一个全局变量。
VB期末考试试卷及答案一·选择题1。
Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B ) A属性、控件和方法B属性、事件和方法C窗体、控件和过程 D控件、过程和模块2。
所有控件都有一个共同的属性，这个属性是（C ）A textB fontC nameD caption3。
下列叙述中错误的是（A ）A 工程文件扩展名是。
vbgB 标准模块文件的扩展名是.basC 窗体模块的扩展名是.frmD 类模块的扩展名是.cls4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（A ）A 新建一个工程B 编写代码C 设置属性D 添加Active X控件5. 下面控件中,没有caption属性的是（B ）A 框架B 组合框C 命令按钮D 复选按钮6。
在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B ）A MultiLineB PasswordCharC TextD selText7。
若要将窗体从内存中卸载出去,其实现的方法是( D ）A ShowB HideC LoadD UnLoad8. 下列关于过程叙述不正确的是（D )A 过程的传值调用是将实参的具体值传值传递给形参B 过程的传址调用是将实参在内存的地址传递给形参C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D 无论过程传值调用还是传地址调用，参数传递都是双向的9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C ）A 在Form1的Load事件过程中加入语句Load Form2B 在Form2的Load事件过程中加入语句Form2.ShowC 在“过程属性”对话框中把“启动对象”设置为Form2D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为210。
第一套一、判断题1、Visual Basic程序开发的特点是面向对象的事件驱动。
（√）2、Print_Text是一个不合法的变量名。
（×）3、窗体的AutoRedraw属性实现了屏幕图像的重建。
（√）4、设置字体大小应使用Font属性（×）5、Sub过程可以实现嵌套调用（√）6、IIF函数中的三个参数都不能省略。
（√）7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。
（√）8、当终值小于初值时，步长为负数。
（√）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。
（√）10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用(√)二、单项选择题1．Print Format（123，”####”）执行之后的结果为【答案】BA）＃123 B）123 C）123＃D）＃＃＃＃2．下面可以表示注释语句开头的为【答案】CA）Re B）R C）Rem D）dim3．下列选项中窗体载入事件为【答案】AA）Load事件B）Click事件C）DblClick事件D）Unload事件4．Timer控件可以使用下列哪种事件【答案】BA）Click事件B）Timer事件C）Dblclick事件D）Change事件5．在InputBox函数中哪一个参数是必须的【答案】AA）Prompt B）Buttons C）Title D）Context6．以下叙述中错误的是：【答案】CA）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程C）Sub过程可以嵌套调用Sub过程D）事件过程可以像通用过程一样由用户定义过程名7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。
【答案】CA）文件B）视图C）工程D）工具8．在块结构条件语句If-Then / Endif中【答案】B(A) 必须至少有一个Elseif语句(B ) 可以有任意多个ElseIf-Then语句(C) 如果没有Else语句，运行时将出现错误(D ) 给定的条件只能是关系表达式或逻辑表达式9．以下Case语句中错误的是【答案】A(A) Case 10 To 1 (B) Case Is>10(C)Case Is>10 , Is<50 (D) Case 3,5,Is>1010．对Do Until…Loop循环，正确的是(【答案】B)。
大一的vb期末考试题和答案1．在代码中引用一个控件时，应使用控件的（）属性。
A．Caption B．Name C．Text D．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。
A．x+a <=b-y B．x>0 AND y<0 C．a =b OR x>y D． x+y > a+b AND NOT (y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函数Sgn(3.1416)的返回值是（）。
A．-1 B．0 C．1 D．以上都不对5．67890属于（）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是（）。
A．3S B．Print C．Select My Name D．Select_17．下列赋值语句（）是有效的。
A.sum=sum-sumB.x+2=x+2C.x+y =sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（）。
A．Print B．Textbox C．Optionbutto n D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。
B.ListIndex C．ListCount D．Text10．下列代码的运行结果为（）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 - kNext kx = 5Print m(2 + m(x))End SubA．2 B．3 C．4 D．5二、填空题（10分）1．写出整数n能同时被13和17整除的Basic表达式n Mod 13=0 And n Mod17=0 。
2．代码窗口中有两个下拉列表框：左侧是对象列表框，右侧是过程列表框。
3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式 LEFT("VisualBasic6.0",6) 。
4．函数Len(“abcdef”)的返回值是 6 。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为 False 。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置 Autosize 属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为 : 。
8．要强制显式声明变量，使用_OptionExplist__语句完成。
9．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim 语句。
三、将下列数学表达式转换为VB表达式。
（6分）1．a2+2ab+b2 a^2+2*a*b+b^22． __________________________3．8exln10 8__________________________4．2sin(450)cos(450) _____________________________ __5． ___________________________________________ 6． ___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。
（ 0 ）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（ 1 ）3．保存工程时，窗体文件和工程文件的文件名不能相同。
（ 0 ）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（ 1 ）5．同一过程中，数组和简单变量可以同名。
（ 0 ）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（ 1 ）7．代码Const Number1=15：Number1=10合法。
（ 0 ）8．允许将块If-Then语句结构中的所有语句都写在一行上（ 0 ）9．定义数组语句Dim a(b) As Integer 是正确的（ 0 ）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（ 1 ）五、根据题意，将下列程序补充完整。
（16分）1．产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()Dim a(1 To 20) As IntegerRandomizei = 0Do While i < 20i = i + 1a(i) = ( int(rnd*91)+10 )If （ I<10 ）ThenPrint a(i);End IfIf i = 10 Then Print a(i)If i > 10 Then Print a(i);LoopEnd Sub2．打印九九乘法表Private Sub command1_click()For i = 1 To 9For j = 1 To 9Print （ i*J ）Next jPrint（ Next i ）End Sub3．判断一个数是否素数Private Sub command1_click()x = InputBox("请输入一个整数")flag = 1For i = 2 To （ int(sqr(x))或者x-1 ) If x Mod i = 0 Thenflag = 0End IfNext iIf （ flag=1 ）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()（ dim f(15) as integer ）f(1) = 1 : f(2) = 1List1.AddItem f(1) : List1.AddItem f(2)For i = 3 To 15f(i) = （ f(I-1)+f(I-2) )List1.AddItem f(i)Next iEnd Sub六、写出下面程序的输出结果。
（每题3分，共18分）1． Private Sub command1_click()x = InputBox("enter x") ' x 的输入值为-8Select Case Sgn(x) + 2Case 1Print "y="; x ^ 2 + 1Case 2Print "y="; x - 4Case 3Print "y="; x ^ 3 + 100End SelectEnd Suby=652． Private Sub command1_click()Dim a, b, c, d, e As Stringa = "Zheng Zhou"b = "Zhong Yuan Gong Xue Yuan"c = a + " " + bd = Left(a, 1) + Mid(a, 7, 1)e = Left(b, 1) + Mid(b, 12, 1)Print cPrint d; eEnd SubZheng Zhou Zhong Yuan Gong Xue Yuan ZZZG 3．设有Sub过程：Private Sub p1(x As Integer, ByVal y As Integer) x = 4 ：y = 5 ：z = 6End Sub则如下程序段的运行结果是:Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 2: z = 3Print x, y, zCall p1(x, y)Print x, y, zEnd Sub1 2 34 2 34． Private Sub command1_click() k = 0For i = 1 To 3k = k + 1a = i * i * kPrint a;Next iEnd Sub1 8 275． Private Sub command1_click() Dim a(5, 5) As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = i * 2 + jPrint a(i, j);Next jPrintNext iEnd Sub3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 156．设有Function过程:Private Function f1(b, a)a = a * a:b = b * bf1 = a - bEnd Function则如下程序段的运行结果是什么？Private Sub command1_click()a = 4:b = 3a = f1(a, b)Print aEnd Sub -7七．编程题（共30分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；其他学生做第1、2、3、4 小题。
1．给出一个百分制的成绩，要求输出成绩的相应等级。
（7分）90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
2．求n!,n由键盘输入。
（7分）3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。
（8分）4．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。
（8分）VB试题答案及评分标准一、单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D6．D 7．A 8．B 9．D 10．B二、填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=01、对象3．LEFT(“Visual Basic 6.0”,6)4．65．False6．Autosize7．： 8．Option Explict 9．Const Dim 三、将下列数学表达式转换成VB表达式（每题1分，共6分）1、 a^2+2*a*b+b^22、 x^(1/3)*y^(1/4)3、 8*exp(x)*log(10)4、 2*sin(3.1416/4)*cos(3.1416/4)5、 (x+y+z)/sqr(x^2+y^2+z^2)6、 log(1+abs((a+b)/(a-b)))四、判断题（每题1分，共10分）1．× 2．√ 3．× 4．√ 5．×6．√ 7．× 8．× 9．× 10．√五、根据题意，将下列程序补充完整（每空1分，共10分）1．（1） int(rnd*91)+10 （2） I<102．（1） i*j （2） next i3．（1）int(sqr(x))或者x-1 （2） flag=14．（1）dim f(15) as integer （2）f(I-1)+f(I-2)六、写出下面程序的输出结果（每题4分，共24分）1、 y=652、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 34 2 34．1 8 275．3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 156．-7七、编写程序1. private sub command1_click()dim x as integer,grade as string 1分x=text1.text 1分select case x 4分case 90 to 100grade=”A”case 80 to 89grade=”B”case 70 to 79grade=”C”case 60 to 69grade=”D”case is<60grade=”E”case elsemsgbox “请重新输入”end selectprint “该学生成绩为”+grade 1分end sub2．Private Sub command1_click()Dim n as integer,f as long 1分n=text1.text 1分 f=1for I=1 to n 3分 f=f*Inext Itext2.text=f 2分 end sub3． Private Sub Command1_Click()Dim a(1 To 20) As Integer ' 1分RandomizeFor i = 1 To 20 2分 a(i) = Int(Rnd * 100)Print a(i);NextPrintFor i = 1 To 19 3分For j = i + 1 To 20If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = t End IfNext jNext iFor i = 1 To 20 2分Print a(i);Next iEnd Sub4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6) As Integer ' 1分Dim aver As SingleRandomizeFor i = 1 To 6 3分 For j = 1 To 6If i = j Or i + j = 7 Thena(i, j) = 1Elsea(i, j) = Int(Rnd * 30)End IfPrint a(i, j);Next jPrintNext iPrintMax = 0: Min = 30 4分For i = 1 To 6s = 0For j = 1 To 6s = s + a(i, j)Next javer = s / 6If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next iPrint row_max, row_minEnd Sub5． Private Sub Command1_Click()Dim i As Integer, c As IntegerDim s As IntegerFor i = 1 To 100 4分s = s + iIf i Mod 17 = 0 Then c = c + 1Next iPrint "1+2+...+100=";s 2分Print "能被17整数的数据有"; c; "个" 2分End Sub6． Private Sub Command1_Click()Dim x As Integerx = InputBox("x=") 1分 Print x;Max = x: Min = x: s = x 2分For i = 2 To 10 3分 x = InputBox("x=") ：Print x;s = s + xIf x > Max Then Max = xIf x < Min Then Min = xNext iPrint s / 10 1分Print Max, Min 1分End Sub。
