下载文档原格式
Visual Basic程序设计综合练习一．选择题1．VB程序设计的完整步骤是（）。
（A）可视化程序设计（B）代码程序设计（C）可视化程序设计和代码程序设计（D）界面设计2．要求改变窗体的标题时，应当在属性窗口中改变（）的属性。
（A）Caption( B )Name( C )Text( D )Label3．下列变量命名正确的是（）。
（A）vb+1( B )myfile( C )page@2( D )cmd..14．窗体能响应的事件是（）。
（A）ActiveForm( B )Drive( C )Load( D )Change5．在事件中，Private表示（）。
（A）此过程可以被其它的过程调用（B）此过程只可以被本窗体模块中的其它过程调用（C）此过程不可以被任何其它的过程调用（D）此过程只可以被本工程的其它过程调用6．当执行以下的过程时，Lb1Result的标签框内将显示（）。
Private Sub cmdIt_Click( )Dim I,RR=0For I=1 to 5 Step 1R=R+INextLb1Result.Caption=Str$(R)End Sub( A )字符串15（B）整数15（C）字符串5（D）整数57．若要求从文本框中输入密码时在文本框中只显示*号，则应在此文本框的属性窗口中设置（）。
（A）Text属性值为*（B）Caption属性值为*（C）Password属性值为空（D）Passwordchar属性值为*8．（）控件可自动设置滚动条。
（A）复选框（B）框架（C）文本框（D）标签框9．（）属性能将文本框控件隐藏起来。
（A）Clear( B )Visible( C )Hide( D )New10．能够改变复选框中背景颜色的属性是（）。
（A）Value( B )FontColor( C )BackColor( D )Font11．往列表框中添加一个条目，应使用列表框的()方法。
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
VB试卷一、单项选择题(每题2分,共40分)1. 窗体的标题栏显示内容由窗体对象的属性决定。
A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。
A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。
A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。
A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。
A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。
A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。
A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。
A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。
A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。
A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。
A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。
A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。
vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。
（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。
（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。
（对）4. Visual Basic中的数组下标总是从0开始。
（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。
而对象是类的实例，具有类定义的属性和方法，并可以进行操作。
四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
vb试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
vb试题及答案基础一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. SetD. Const答案：A2. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. VB中，用于实现条件判断的语句是：A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A4. 下列哪个选项是VB中的过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C5. VB中，用于实现循环的语句是：A. For...NextB. Do...LoopC. While...WendD. All of the above答案：D6. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案：C7. VB中，用于创建用户界面的控件是：A. LabelB. TextBoxC. ButtonD. All of the above答案：D8. 在VB中，下列哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案：D9. VB中，用于实现错误处理的语句是：A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案：D10. 在VB中，下列哪个选项是正确的事件处理？A. ClickB. DoubleClickC. MouseDownD. All of the above答案：D二、填空题（每题2分，共20分）1. VB中，声明全局变量的关键字是________。
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
VB二级测试题一、选择题1．文本框控件中将Text的内容全部显示为所定义的字符的属性项是（）A．PasswordChar B．需要编程来实现C．Password D．以上都不是2．不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A．用Tab键 B．用鼠标C．用方向键 D．不能实现3．如果没有在列表框中选择项目，且列表框的MultiSelect属性值为默认值（0~None），则执行语名List1.RemoveItem List1.ListIndex的结果是（）A．删除列表框的最后一项 B．删除列表框的第一项C．出错 D．删除列表框中的最后添加的一项4．下列对象中没有焦点属性的是（）A．命令按钮控件 B．窗口控件C．文本框控件 D单选框控件5．不具有输入数据功能的控件是（）控件A．文本框 B．选项按钮 C．列表框 D．窗体6．常用控件的Style属性值是（）A．字符常量 B．逻辑常量D．数值常量 D．日期常量7．以下关于复选框的说法，正确的是（）A．一个窗体上的所有复选框一次只能有一个被选中B．一个容器中的所有复选框一次只能有一个被选中C．在一个容器中的复选框可以同时有多个被选中D．无论是在容器中还是在窗体中，都可以同时选中多个复选框8．要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（）A．P1.Cls B．P1.picture=LoadPicture(“”)C．P1.Print”” D．P1.piture””9．要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的（）属性A．Picture B．Alignment C．Border D．Align10．下列赋值语句正确的是（）A． Text1.text=Text.text+Text2.textB． =+C． Text1.Caption=T ext1.Caption+T ext2.CaptionD． Text1.Enable=Text1.Enable+Text2.Enable11．引用列表框的最后一项应使用（）A．List1.List(List1.ListCount-1) B．List1.List(List1.ListCount)C．List1.List(ListCount) D．List1.List(ListCount-1)12．要清除组合框Combol中的所有内容，可以使用（）语句A．Combo1.Cls B．Combo1.Clear C．Combo1.Delete D．Combo1.Remove 13．列表框控件中的列表内容是通过（）属性设置的A．Name B．Caption C．List D．Text14．可以用作其它控件容器的控件有（）A．窗体控件，列表控件，图像控件 B．窗体控件，文本框控件，框架控件C．窗体控件，框架控件，图片框控件 D．窗体控件，标签控件，图片控件15．组合框控件是将（）组合成一个控件A．列表框控件和文本框控件 B．标签控件和列表框控件C．标签控件和文本框控件 D．复选框控件和选项按钮控件16．要在命令按钮控件上显示图像应（）A设置Picture属性 B．实现不了C．先将Type设置为1，然后再设置Picture属性 D．以上都不对17．要在图片框P1中打印字符串“How Are You”，应使用语句（）A．Picture1.Print=“ How Are You”B．P1.Picture=LoadPicture(“How Are You”)C．P1.Print“How Are You” D．Print “How Are You”18．将字符串“hello”添加到列表框的最后，可使用（）请语句。
一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。
（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。
（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。
（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。
（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。
（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。
（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
在Command1_Click()中能完成这个功能的命令为___D___。
（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。
（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。
最佳答案我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！一、单项选择题（共10分）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 < 0C．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 -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（）。
A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。
A．Name 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表达式。
2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。
3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式。
4．函数Len(“abcdef”)的返回值是。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为。
8．要强制显式声明变量，使用__________语句完成。
9．在VB中，用户定义常量使用语句，声明变量使用语句。
三、将下列数学表达式转换为VB表达式。
（6分）1．a2+2ab+b2 __________________________2．__________________________3．8exln10 __________________________4．2sin(450)cos(450) _______________________________5．___________________________________________6．___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。
（）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（）3．保存工程时，窗体文件和工程文件的文件名不能相同。
（）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（）5．同一过程中，数组和简单变量可以同名。
（）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（）7．代码Const Number1=15：Number1=10合法。
（）8．允许将块If-Then语句结构中的所有语句都写在一行上（）9．定义数组语句Dim a(b) As Integer 是正确的（）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）五、根据题意，将下列程序补充完整。
（16分）1．产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()Dim a(1 To 20) As IntegerRandomizei = 0Do While i < 20i = i + 1a(i) = ( )If （）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 （）Next jPrint（）End Sub3．判断一个数是否素数Private Sub command1_click()x = InputBox("请输入一个整数")flag = 1For i = 2 To （)If x Mod i = 0 Thenflag = 0End IfNext iIf （）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()（）f(1) = 1 : f(2) = 1List1.AddItem f(1) : List1.AddItem f(2)For i = 3 To 15f(i) = （)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 Sub2．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 Sub3．设有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 Integerx = 1: y = 2: z = 3Print x, y, zCall p1(x, y)Print x, y, zEnd Sub4．Private Sub command1_click() k = 0For i = 1 To 3k = k + 1a = i * i * kPrint a;Next iEnd Sub5．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 Sub6．设有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七．编程题（共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) = tEnd 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。
