VB1练习题
全国计算机考试一级vb试题及答案
全国计算机考试一级vb试题及答案全国计算机考试一级VB试题及答案一、选择题1. VB中，以下哪个选项是合法的变量名？A. 2variableB. variable2C. _variableD. variable-2答案：B2. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A3. VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above答案：D4. 在VB中，以下哪个选项是正确的循环结构？A. For...NextB. While...End WhileC. Do...LoopD. All of the above答案：D5. VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Select CaseC. If...ThenD. All of the above答案：D二、填空题1. VB中，________函数用于将字符串转换为小写。
答案：LCase2. 在VB中，________关键字用于声明常量。
答案：Const3. VB中，________函数用于获取当前日期。
答案：Date4. 在VB中，________语句用于结束程序的执行。
答案：End5. VB中，________函数用于计算两个数的和。
答案：Val三、简答题1. 请简述VB中如何声明一个整型变量并赋值。
答案：在VB中，声明一个整型变量并赋值可以通过以下方式实现：Dim myVar As Integer。
然后使用赋值运算符“=”给变量赋值，例如：myVar = 10。
2. 描述VB中如何使用For循环结构。
答案：在VB中，使用For循环结构的基本语法是：For counter = start To end [Step step]。
其中，counter是循环计数器，start是循环开始的值，end是循环结束的值，step是每次循环增加的值（可选，默认为1）。
vb一级考试试题及答案
vb一级考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. LetC. ConstD. Function答案：A2. 下列哪个选项不是Visual Basic中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 递归结构答案：D3. 在Visual Basic中，以下哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. IntD. Sgn答案：A4. Visual Basic中，以下哪个事件是当窗体被双击时触发的？A. ClickB. DblClickC. MouseDownD. MouseUp答案：B5. 在Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A6. Visual Basic中，以下哪个关键字用于循环结构？A. ForB. WhileC. DoD. All of the above答案：D7. 在Visual Basic中，以下哪个方法用于打开一个文件？A. OpenB. CloseC. WriteD. Print答案：A8. Visual Basic中，以下哪个函数用于将字符串转换为数值？A. StrB. ValC. ChrD. Asc答案：B9. 在Visual Basic中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. NameD. Title答案：A10. Visual Basic中，以下哪个控件用于显示图像？A. LabelB. PictureBoxC. ImageD. Shape答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个子程序。
答案：Sub2. 如果需要在Visual Basic中创建一个数组，可以使用________关键字。
vb练习一含答案
练习题一一、选择题1、假设变量bool_flag是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（）A）bool_flag="False" B）bool_flag= .False.C）bool_flag=#False# D）bool_flag=False2、限制文本框输入的字符不超过15个，应设置文本框的（）属性。
A）maxlength B）visible C）caption D）name3、表达式Len("123程序设计ABC")的值是（）。
A）10 B）14 C）20 D）174、设有数组声明语句：Option Base 0Dim B(-1 To 1,2 To 4,2) As Integer则数组B中共有（）个元素。
A）27 B）36 C）12 D）245、清除列表框中的所有内容用（）方法。
A）Clear B）RemoveItem C）Print D）AddItem6、表达式5 Mod 3+7\2的值是（）。
A）2 B）4 C）5 D）67、设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A）“中华民国”B）“中国人民”C）“中共人民”D）“人民共和”8、下列表达式的值为2123的是（）A）Val("123asd") & 2000 B）Val("123asd") + 2000C）Str(123) & "2000" D）Str(123)+"2000"9、如下数组声明语句，（）是正确的。
A）Dim a[3,4] As Integer B）Dim a(3,4) As IntegerC）Dim a(n,n) As Integer D）Dim a(3 4) As Integer10、下列叙述不正确的是（）。
A）InputBox函数返回值为字符型B）MsgBox函数返回值为所单击按钮的键值C ）MsgBox 语句返回值为所单击按钮的键值D ）Shell 函数返回值为所执行文件的工作代码11、下列各程序段中，语法正确的是（ ）A ） If a < 10 Then a=a+10B ） If a> 10 Then a= a+1 Else a= a+ 5 End IfC ） If a <=10 Then a=a + 1ElseEnd IfD ）If a <=10 Thena=a + 1Else If a <=20 Thena=a + 10End If12、假设X 的值为5，则在执行以下语句时，其输出结果为“OK ”的Select Case 语句是（）A ）B ．D ）13、有如下程序Private Sub From_Activate()Dim aa=Array(1 ,2 ,3, 4, 5)For i=LBound(a) To UBound(a)a(i)=i*a(i)Next iSelect Case X Case 10 to 1 Print "OK" End Select SelectB ） Select Case XCase Is > 5,Is <5Print "OK"End SelectC ） Select Case X Case Is > 5,1,3 to 10 Print "OK" End Select Select Case XCase 1,3 Is > 5Print "OK"End SelectPrint i,LBound(a),UBound(a),a(i)End SubA ）4 0 4 25B ）5 0 4 25C ）不确定D ）出现下标越界的错误14、下面程序运行后，窗体Form1中输出的结果是（ ）Private Sub Form_Load( )Form1.AutoRedraw=Truex= -17.8Print Sgn(x)*Int(Abs(x))End SubA ）-17B ）17C ）-18D ）1815、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )A=″12″B=″34″C=″56″Print A ＋B ＋CEnd Sub程序运行后，单击命令按钮，输出结果是（ ）A ）″123456″B ）123456C ）102D ）显示出错信息16、下面过程语句说明，合法的是（ ）。
vb大一考试题库
vb大一考试题库Visual Basic（以下简称VB）是一种便于学习和使用的编程语言，广泛应用于各个领域。
大一学生学习VB编程时，考试题库是他们检验自己所掌握知识的重要途径。
下面将介绍一些常见的VB大一考试题库题目，供学生们进行复习和准备。
1. 请简述什么是VB编程语言？简要说明其特点和应用领域。
VB编程语言是一种由Microsoft开发的事件驱动编程语言，它结合了BASIC语言的易学易懂和Windows GUI程序设计的优点，适合用于快速开发Windows应用程序。
其特点包括易学易用、兼容性好、GUI 设计简单，被广泛应用于各类Windows应用程序的开发中。
2. 请编写一个VB程序，实现输入两个数字并计算其和、差、积、商的功能。
```vbDim num1, num2 As Doublenum1 = InputBox("请输入第一个数字：")num2 = InputBox("请输入第二个数字：")MsgBox "两个数字的和为：" & num1 + num2MsgBox "两个数字的差为：" & num1 - num2MsgBox "两个数字的积为：" & num1 * num2MsgBox "两个数字的商为：" & num1 / num2```3. 请问VB中的变量命名有什么要求？举例说明。
在VB中，变量的命名需要遵循以下规则：- 变量名必须以字母开头，可以包含字母、数字、下划线和句点。
- 变量名不区分大小写，但区分大小写是好的编程风格。
- 变量名不得与关键字或保留字相同。
例如，正确的变量命名方式包括`num1`、`total_amount`，错误的命名方式包括`1num`、`end`。
4. 请简要介绍VB中的条件语句和循环语句的使用方法。
VB考试试卷及答案一
VB考试试卷及答案一第一篇：VB考试试卷及答案一Visual Basic程序设计基础试题一（每小题2分，共10分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。
【程序】Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e试题二（每小题2分，共8分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序说明】程序界面如下图所示，程序运行时要求有以下功能：1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。
一级vb考试试题及答案
一级vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个是VB中的保留关键字？A. IfB. ThenC. ElseD. All of the above答案：D3. 在VB中，以下哪个函数用于计算数组中元素的和？A. SumB. CountC. AverageD. Max答案：A4. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B5. 在VB中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. All of the above答案：D6. VB中的哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor答案：A7. 在VB中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. VB中的哪个函数用于将字符串转换为数字？A. StrB. ValC. CIntD. CDbl答案：B9. 在VB中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B10. VB中的哪个属性用于设置或返回一个控件的背景颜色？A. BackColorB. ForeColorC. TextColorD. BorderColor答案：A二、填空题（每题2分，共20分）1. VB中的________函数用于获取当前日期。
答案：Date2. 在VB中，________关键字用于定义一个过程。
答案：Sub3. VB中的________属性用于设置或返回一个控件的前景色。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
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中，使用___________关键字可以声明一个全局变量。
VB1-5章练习题
VB1~5章练习题第一章一、单选题1.VB6.0集成开发环境可以（）A) 编辑、调试、运行程序，但不能生成可执行程序B）编辑、生成可执行程序、运行程序，但不能调试程序C）编辑、调试、生成可执行程序，但不能运行程序D）编辑、调试、运行程序，也能生成可执行程序2.英文“Visual”的含义是（）A）可视化B）集成C）结构化D）调试3.标准模块文件的扩展名是（）A）.frmB）.vbpC）.basD）.vbg4.与传统的程序设计语言相比，VB最突出的特点是（）A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术5.VB6.0是（）应用程序的开发工具A）8位B）16位C）32位D）64位6.英文缩写“OOP”的含义是（）A）时间驱动的编程机制B）结构化程序设计语言C）面向对象的程序设计D）可视化程序设计二、简答题1.什么是对象的属性、事件和方法？三、编程题1.编写程序，并且有三个功能：①显示“欢迎使用VB6.0中文版”②清除之前显示的“欢迎使用VB6.0中文版”③退出此程序第二章一、单选题1.在Visual Basic中，下列优先级最高的运算符是（）A）*B）\C）<D）Not2.以下关系表达式中，其值为假的是（）A）”XYZ”<”XYz”B）”VisualBasic”=”visualbasic”C）”the”<>”there”D）”Integer”>”Int”3.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Dim b As Integerb = b + 1End Sub运行程序，第3次单击命令按扭后，变量b的值为（）A）0 B）1 C）2 D）34.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程：Private Sub Command1_click()Static a As Integera = a + 1End Sub运行程序，第3次单击命令按扭后，变量a的值为（）A）0 B）1 C）2 D）35.在Visual Basic中，数值1234&的类型是（）A）整型B）长整型C）字符串型D）双精度型6.从键盘上输入2个字符串，分别保存在变量str1、str2中，则确定第2个字符串在第1个字符串中起始位置的函数是（）A）Left B）Mid C）String D）InStr7.设a = ”Visual Basic”，则以下使b = “Basic”的语句是（）A）b = Left(a,8,12)B）b = Mid(a,8,5)C）b = Right(a,8,5)D）b = Left(a,8,5)8.设a = 5,b = 10，则执行c = Int((b-a)* Rnd + a) + 1后，c的值为（）A）5~10B）6~9C）6~10D）5~99.以下声明语句中错误的是（）A）Const varl = 123B）Dim var2 = …ABC‟C）DefInt a-zD）Static var3 As Integer二、简答题1.下列哪些可作为Visual Baisc的变量名，那些不行？4*Delta Alpha 4ABC ABπReadData Filename A(A+B) C254D Read2.Visual Basic中是否允许出现下列形式的数？±25.74 3.457E-10 .368 1.87E+50 10^(1.256) D32 2.5E 12E3 8.75D+6 0.2583.把下面的数写成普通的十进制数：（1）2.65358979335278D-006 （2）1.21576654590569D+019（3）8.6787E+8 （4）2.567E-124.指出下列Visual Basic表达式中的错误，并写出正确的形式。
VB1-3章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。
Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
全国计算机考试一级vb试题及答案
全国计算机考试一级vb试题及答案一、选择题（每题2分，共40分）1. VB中，用于声明变量的关键字是（）。
A. DimB. SetC. LetD. Const2. 在VB中，用于表示逻辑“与”的运算符是（）。
A. AndB. OrC. NotD. Xor3. 下列哪个选项是VB中正确的函数声明方式？（）A. Function MyFunction()B. Sub MyFunction()C. Function MyFunction() As IntegerD. Sub MyFunction() As Integer4. VB中，用于结束程序执行的语句是（）。
A. EndB. ExitC. StopD. Quit5. 在VB中，下列哪个选项是正确的字符串连接操作？（）A. "Hello" + "World"B. "Hello" & "World"C. "Hello" || "World"D. "Hello" || "World"6. VB中，用于定义一个过程的关键字是（）。
A. FunctionB. SubC. PropertyD. Event7. 在VB中，下列哪个选项是正确的数组声明方式？（）A. Dim arr(5)B. Dim arr(5) As IntegerC. Dim arr() As IntegerD. Dim arr As Integer(5)8. VB中，用于执行循环操作的关键字是（）。
A. ForB. WhileC. DoD. All of the above9. 下列哪个选项是VB中正确的条件判断语句？（）A. If condition ThenB. If conditionC. When condition ThenD. If condition Else10. 在VB中，用于打开文件的函数是（）。
vb练习题及答案
vb练习题及答案vb练习题1VB练习题一一、选择题1．Visual Basic程序设计的主要的步骤是CA、可视性程序设计B、代码程序设计C、可视性程序设计和代码程序设计D、界面设计2．窗体能响应的事件是CA、ActiveFromB、DriveC、LoadD、Change3．获得系统时间的函数是BA、data$ B. time$ C. date$ D. gettime$ 4．在设计一个计算器时，必须要使用的控件是CA、滚动条B、图片框C、文本框D、单选框5．下列运算符号中属于关系运算符的是_____。
BA、—B、=C、ANDD、+6.Visual Basic规定工程文件的扩展名是CA、.forB、.frmC、.vbpD、.bas7. OOP是面向_______的程序设计的简称。
CA、用户B、问题C、对象D、操作者8. 设置对象中的字体应用___属性.CA、CaptionB、NameC、FontD、Text9.设置文本框中显示的内容应用___属性。
DA、CaptionB、NameC、FontD、Text10.逻辑型又称_____。
CA、数值型B、字符串型C、布尔型D、整型11.三种逻辑运算符号优先次序为：____。
CA、AND、NOT、ORB、NOT、OR、ANDC、NOT、AND、OR D、OR、NOT、AND12.关于高级语言，下列那一项叙述是正确的。
(A)A、以类似英文的句子来表示B、写成的程序执行速度最快C、不必编译即可直接执行D、受电脑机种限制大13.可将高级语言翻译成机器语言的程序为。
BA、汇编程序B、编译程序C、解释程序 4、以上皆可。
14.下列（）属性是每个控件都有的。
AA、名称B、CaptionC、FontD、Interval15.下列运算符号中属于逻辑运算符的是_____。
AA、NOTB、<>C、=D、<=16.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval 属性值应该等于：BA、5000B、500C、50D、517.下列逻辑运算结果为―true‖的是（）CA、flase or not trueB、flase and not trueC、true or not trueD、true and not true18.已知变量x 、y为整数型，且x=4 , y=12 ,s为字符串型，且s=―a‖，Label1为标签控件，下列赋值语句合法的是（）AA、s = Label1.CaptionB、Label1.Caption=s=xC、x*3=yD、Y=x*s19.下列关于CommandButton 控件的叙述正确的是（）AA、CommandButton 控件的Caption 属性决定按钮上显示的内容B、单击VB应用程序中的按钮,则系统激活按钮控件对应的Change 事件C、CommandButton 控件的name 属性决定按钮上显示的内容D、以上都不对20.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是( )。
VB1
第一阶段练习题一、选择题1．Visual Basic窗体文件的扩展名是____C____。
A．VBW B．VBP C．FRM D．BAS2．在Visual Basic中，工程文件的扩展名是____B____。
A．BAS B．VBP C．CLS D．VBW3．Visual Basic应用程序保存在磁盘上，至少会有以____D____为扩展名两个文件。
A．.DOC和.TXT B．.COM和.EXE C．.VBW和.BAS D．.VBP和.FRM 4．代码窗是专用于编辑或查看程序代码的窗口，下面____D_____无法打开该窗口。
A．使用项目窗中的有关按钮B．双击有关控件C．通过视图菜单有关命令D．通过编辑菜单有关命令5．在Visual Basic集成环境创建VB应用程序时，除了工具箱窗口、窗体窗、属性窗外，必不可少的窗口是____C____。
A．窗体布局窗B．立即窗口C．代码窗口D．监视窗口6．要使文本框获得输入焦点，则应采用文本控件的哪个方法B。
A．GotFocus B．SetFocus C．KeyPress D．LostFocus7．如果设计时在属性窗口中将命令按钮的B属性设置为True，则运行时单击回车键与单击命令按钮的作用是相同的。
A．Enabled B．Default C．Visible D．DisbledPicture8．Text1控件在运行时不可见，是设置下列C属性的结果。
A．Enabled B．Cancel C．Visible D．ControlBox9．要使标签所在处透明显示背景，应把其BackStyle属性设置为D。
A．True B．False C．1D．010．下列C属性可以给标签控件加上边框。
A．BackStyle B．WordWrap C．BorderStyle D．Alignment 11．Visual Basic是一种面向对象的可视化程序设计语言，采取了A的编程机制。
A．事件驱动 B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行12．在Visual Basic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。
vb第一阶段复习题及答案
第一阶段复习题（来自大二的，跟老师的相同，但有部分题老师删了，如：1，3，5，7，9，15，17等等等等，自己看着办吧，想看的就多看点吧！）一、选择题（单选题）1、在Visual Basic语言中，对象能够执行的动作是BA）事件B）方法C）属性D）事件过程2、要求窗体文件main.frm运行后, 将焦点设置到name=text1的控件上, 命令是:_B_ A．name.setfocus B．text1.setfocusC．name.setfocus =true D．text1.setfocus =true3、在窗体上设置了一个形状shape1控件，要求显示为“正方形”模式，属性设置语句是：__A____A．shape1.shape=1 B．shape1.shape = 3C．shape1.boderstyle=1 D．shape1. boderstyle =34、将数学表达式写成Visual Basic的表达式，其正确的形式是: AA) 5*exp(2) + Sin(a+b)^2 B) 5*exp(2) +Sin^2(a+b)C) 5*ln(2) + Sin(a+b)^2 D) 5*ln(2) +Sin^2(a+b)5、单选框1被选中时, 其属性值是:____C____A．check1.value = true B. check1.value =1C．option1.value= true D．option1.value=1６、将变量va的值输出到标签控件上显示，使用的语句是：＿C＿＿A．text1.value= va B．text1.caption =vaC．label1.caption= va D．label1.value= va７、程序运行中将“CPU”添加入列表框1，作为其新项目，其操作命令是:__B_____ A．list1. additem =”CPU”B．list1.additem”CPU”C．combo1. additem =”CPU” D．combo1.additem “CPU”８、设置按钮command1用鼠标单击不发生click事件，设置属性语句是:__D___ A．command1.visible=true B．command1.visible=false C．command1.enabled= true D．command1.enabled= false9、将组合框1当前选择的项目内容赋值给a变量，命令语句是:__A____A．a= combo1. text B．a= combo1. valueC．a= list1.text D．a= lidt1. value10、在文本框text1中输入数据，当焦点一旦离开，就能引发对象事件过程的执行的事件是：___C____Ａ．click Ｂ．change Ｃ．lostfocus Ｄ．gotfocus11、对象．Print方法是vb程序中用于输出数据的方法，对象1是指：_B___A． form, picturebox, printer, label1 Ｂ．form, picture1, printer, debug Ｃ．form, picture1, label1, text1 Ｄ．form, picture1, label1 , printer 1２、下面程序的运行结果是：BPrivate Sub Form_Click()Dim money!, tax!money = Val(InputBox("money=", "input", "3500"))Select Case moneyCase Is <= 1000Print "money="; money, "Tax="; 0Case 1000 To 3000Print "money="; money, "Tax="; (money - 1000) * 0.1 Case 3000 To 6000Print "money="; money, "Tax="; (money - 3000) * 0.15 + 200 Case ElsePrint "money="; money, "Tax="; (money - 6000) * 0.2 + 650 End SelectEnd SubA．money=1000 tax=0 Ｂ．money=3500 tax=275Ｃ．money=4500 tax=425 Ｄ．money=6500 tax=75013、下面程序的运行结果是：APrivate Sub Form_Click()Dim year1%, leap!year1 = Val(InputBox("now year=", "input", "2004"))If year1 Mod 100 = 0 ThenIf year1 Mod 400 = 0 Thenleap = 1Elseleap = 0End IfElseIf year1 Mod 4 = 0 Thenleap = 1End IfIf (leap) ThenPrint year1; "is leap"ElsePrint year1; "is not leap"End IfEnd SubA．2004 is leap Ｂ．2004 is 1 Ｃ．2004 is not leap Ｄ．2004 is not 0 14、下面程序的运行结果是：BPrivate Sub Form_Click()Dim m%, n%m = 1For n = 1 To 10 Step 2m = m + nn = n + 1Next nPrint "n="; n, "m="; mEnd SubA．n=10 m=22 Ｂ．n=11 m=23Ｃ．n=13 m=36 Ｄ．n=13 m=2315、下面程序的运行结果是：BPrivate Sub Form_Click()Dim score%, n%score = Val(InputBox("scorer=", "input", 85))n = score \ 10if n<=0 then n=1On n GoTo 1, 2, 3, 4, 5, 6, 7, 8, 9, 101:2:3:4:5: Print "D" : GoTo 116:7: Print "C" : GoTo 118: Print "B" : GoTo 119:10: Print "A"11:End SubA．A Ｂ．B Ｃ．C Ｄ．D16、下面程序的运行结果是：CPrivate Sub Form_Click()Dim num%, sum%, n%sum = 0: n = 1: num = 6While n < numIf num Mod n = 0 ThenPrint "+"; n;sum = sum + nEnd Ifn = n + 1WendPrint "="; sumEnd SubA．sum=6 Ｂ．1;2;3=6 Ｃ．+1+2+3=6 Ｄ．+1+2+3+4+5+6=21 17、下面程序的运行结果是：APrivate Sub Form_Click()Dim a, au%, al%, s%, n%a = Array(1, 5, 8, 4, 7, 9, 3)al = LBound(a)au = UBound(a)s = 0: n = 0For Each x In an = n + 1Next xPrint "al,au,n,s="; al, au, n, sEnd SubA．al,au,n,s= 0 6 7 37 Ｂ．"al,au,n,s=” 1 9 6 37 Ｃ．al,au,n,s= 1 6 6 37 Ｄ．al,au,n,s= 1 3 7 3718、下面程序的运行结果是：CPrivate Sub form_click()Dim s%, t%, m%, n%, K%m = 3: s = 0Print " s=";For n = 1 To mPrint "+"; n; "!";t = 1For K = 1 To mt = t * KNext Ks = s + tNext nPrint "="; sEnd SubA．s=6 Ｂ．S=+1+2+3= 6Ｃ．S=+1!+2!+3!=18 Ｄ．+1!+2!+3!=1819、下面程序的运行结果是：BPrivate Sub Form_Click()Dim str1$, chr1$str1 = InputBox("string=", "input", "Visual_basic是可视化面向对象的结构化高_级程序设计语言")chr1 = Left(str1, 1) + Mid(str1, 8, 1) + Right(str1, 6)Print chr1End SubA．Va计语言Ｂ．Vb程序设计语言Ｃ．V+a+计语言Ｄ．V+b+程序设计语言20、下面程序的运行结果是：CPrivate Sub Form_Click()Dim str1$, nText1.Text = "microsoft_visual_basic_programming"Text1.SelStart = 17Text1.SelLength = 5Text1.SelText = "Foxpro"str1 = Text1.Textn = Len(str1)Print str1, nA．m icrosoft_visual_basic_ programming 34 Ｂ．Foxpro 6Ｃ．microsoft_visual_Foxpro_ programming 35 Ｄ．Foxpro_ programming二：程序结果分析试题，将程序结果填于答卷对应位置.1、本程序输出结果是：_________ private sub form_click( )dim m%, n% , p%m=24: n=36print m, nwhile( n<>0)p=m mod n : m=n: n=pprint m, n, pwendend sub2、本程序输出结果是：_+0+0+0+0+0+0=0________private sub form_click( )dim a%, b%, sum%, k%a=0: b=0: sum=a+bfor k= 1 to 3a=a+b : b=a+b : sum=sum+a+bprint “+”; a ;”+”; b;next kprint “=”;sumend sub3、本程序输出结果是：__3 2 9 2 _______Private Sub Form_Click()Dim a(3) As Integer , num&, k%num = Val(InputBox("请输入数据num=?", "输入框", 2923)) Call pro1(num, a( ))For each x in aPrint x;Next kEnd Sub-----------------------------------Public Sub pro1(ByVal m As Long, ByRef s() As Integer)n = 0Do While m > 0s(n) = m Mod 10 ：m = m \ 10 ：n = n + 1LoopEnd Sub4、本程序输出结果是：_________ private sub form_click( )Dim m%, n%, cmn%m = Val(InputBox("请输入数据m=?", "输入框", 4))n = Val(InputBox("请输入数据n=?", "输入框", 2))cmn = f(m) / f(n) / f(m - n)Print "c("; m; ","; n; ")="; cmnEnd Sub-----------------------------Public Function f(ByVal p%) As IntegerDim k%, t%t = 1For k = 1 To pt = t * kNext kPrint p; "!="; tf = tEnd Function5.Private sub form-click( )Dim k1, k2, sum, try, tem, red, yuk1 = 2005try =k1 Mod 10: k1 =k1 \ 10tem = k1 Mod 10: k1 = k1 \ 10red = k1 Mod 10: k1 = k1 \ 10yu = k1 Mod 10sum = yu+red + tem + tryk2 =try * 1000 + tem * 100 +red * 10 +yuPrint "k1="; k1, "k2="; k2Print "sum="; sumEnd sub本程序输出结果是：_________6. Private Sub form_click()Dim sum%, p%, m%,i%, K%m = 3: sum= 0Print " sum=";For i = 1 To mPrint "+"; i; "!";p = 1For K = 1 To mp = p * KNext Ksum = sum + pNext iPrint "="; sumEnd Sub本程序输出结果是：___sum=+1!+2!+3!=18______7. Private Sub form_click()Dim a%,b%,c%a=5:b=9:c=12a=a+bc=c-bif a-c>b-c then a=b+cif a-b>b-c then b=a-cprint a,b,cEnd Sub本程序输出结果是:12 9 38. 下面程序的运行结果是：letter=4 number=2 other=4____________________ Private Sub Form_Click()Private sub form_click( )Dim str1$, letter%, number%, other%, n%Letter=0: number=0: other=0Str1=inputbox$(“输入字符串=”,”输入框”,”ab3+c,d_5$”)For n=1 to len(str1)Select case mid$(str1,n,1)Case “a” to “z”Letter=letter+1Case 1 to 9Number=number+1Case elseOther=other+1End selectNext nPrint “letter=”;letter ,”number=”;number ,”other=”;otherEnd subEnd Sub9. 下面程序的运行结果是：sum=+1!+2!+3!=18____________________ private sub form_click( )Dim sum%, C%, m%, n%, K%m = 3: sum = 0Print " sum=";For n = 1 To mPrint "+"; n; "!";C = 1For K = 1 To nC = C * KNext Ksum = sum + CNext nPrint "="; sumend sub10. 下面程序的运行结果是：___2,5,5,5________private sub form_click( )Dim a() Asa = Array(2, 4, 3, 5, 1)Call pro1(a())For Each x In aPrint x; ",";Next xend sub-----------------------------public sub pro1( p() as Variant)dim k%for k=0 to 4p(k)=p(k)+knext kend sub11. 下面程序的运行结果是：__9 7_________Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a－1Loop While a <= 0Print s; aEnd Sub12. 下面程序的运行结果是：______33_____ Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10, 12, 21, 32, 24)For i = 1 To 5If x(i) > c Thend = d + x(i)c = x(i)Elsed = d－cEnd IfNext iPrint dEnd Sub13. 下面程序的运行结果是：_____10______ Public Sub Fun(a(), ByVal x As Integer) For i = 1 To 5x = x + a(i)NextEnd SubPrivate Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)print nEnd Sub14. 下面程序的运行结果是：___13________ Private Sub Command1_Click()For n = 1 To 12If n Mod 3 <> 0 Then m = m + n \ 3Next nPrint nEnd Sub15. 下面程序的运行结果是：____27_______Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub16. 下面程序的运行结果是：__4 5_________Option Base 1Private Sub Command1_Click()Dim a As Varianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub三：程序设计题1. 编程，输入x 值，按下式计算并输出y 值。
vb基础知识第一章试题及答案
vb基础知识第一章试题及答案一、选择题（每题2分，共20分）1. Visual Basic的简称是什么？A. VBB. VBAC. VBSD. VBScript答案：A2. VB中用于声明变量的关键字是？A. DimB. ConstC. SubD. Function答案：A3. 下列哪个选项是VB中的字符串数据类型？A. IntegerB. StringC. DateD. Boolean答案：B4. VB中用于循环结构的关键字是？A. ForB. NextC. DoD. Loop答案：A5. VB中用于条件判断的关键字是？A. IfB. ThenC. ElseD. All of the above答案：D6. 在VB中，如何声明一个名为“myVar”的整型变量？A. Dim myVar As IntegerB. Declare myVar As IntegerC. Integer myVarD. Var myVar As Integer答案：A7. VB中用于定义函数的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：A8. 在VB中，如何将文本框（TextBox）的文本内容赋值给一个字符串变量？A. Dim text As String = TextBox.TextB. Dim text As String = TextBox.TextC. Dim text As String = TextBox.TextD. Dim text As String = TextBox.Text答案：A9. VB中用于退出循环的关键字是？A. ExitB. BreakC. ContinueD. Return答案：A10. 在VB中，如何调用一个名为“myFunction”的函数？A. myFunction()B. Call myFunctionC. myFunctionD. Call myFunction()答案：D二、填空题（每题2分，共20分）1. 在VB中，声明一个名为“count”的整型变量，其初始值为10，应使用语句________。
第一套vb试题(练习一带答案)
第一套vb 试题1.下列叙述中正确的是(C)A.只有窗体才是Visual Basic 中的对象B.只有控件才是Visual Basic 中的对象C.窗体和控件都是Visual Basic中的对象D.窗体和控件都不是Visual Basic2.确定一个控件在窗体上的位置的属性是(D)A.Width 或HeightB.Width 和HeightC.Top 或LeftD.Top 和Left3、为了同时改变一个活动控件的高度和宽度，正确的操作是(A)A.拖拉控件4个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度4、用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为： ( A )A、面向对象的程序设计B、结构化程序设计C、事件驱动的编程机制D、可视化程序设计5、VB6 共有三个版本，按功能从弱到强的顺序排列应是( C )A、学习版、专业版和工程版B、学习版、工程版和专业版C、学习版、专业版和企业版D、学习版、企业版和专业版6、VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是( B )A、设计状态B、编写代码状态C、运行状态D、中断状态7、工程文件的扩展名是( B).frm B、.vbp C、.bas D、.frx8、窗体文件的扩展名是( A).frm B 、.vbp C、.bas D、.frx9、VB 集成开发环境可以( D )A 、编辑、调试、运行程序，但不能生成执行程序B 、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D 、编辑、调试、运行程序，也能生成执行程序10、标准模块文件的扩展名是( C).frm B 、.vbp C、.bas D、.vbg11、用于获得字符串S从第5个字符开始的3个字符的函数是(A )。
A．Mid(S,5,3) B.Middle(S,5,3) C.Right(S,5,3) D.Left(S,5,3)12、用于从字符串左边截取字符的函数是( D)。
vb初级测试题及答案
vb初级测试题及答案一、选择题（每题2分，共20分）1. VB中用于声明变量的关键字是？A. VarB. DimC. LetD. Set答案：B2. 下列哪个是VB中的保留字？A. MyB. MeC. YouD. It答案：B3. 在VB中，用于输出信息到立即窗口的函数是？A. MsgBoxB. PrintC. Debug.PrintD. Console.WriteLine答案：C4. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D5. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足特定条件？A. Do...LoopB. For...NextC. While...WendD. If...Then答案：A6. VB中，哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在VB中，如何将字符串转换为整型？A. StrConvB. CIntC. ValD. CStr答案：B8. VB中，哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. NowD. Format答案：A9. 在VB中，如何声明一个数组？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Dim myArray(5)D. Dim myArray As Integer答案：A10. VB中，哪个属性用于获取或设置表单的标题？A. CaptionB. TextC. TitleD. Name答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________函数可以打开一个文件进行读取。
答案：Open2. VB中的________属性用于设置或返回一个控件的可见性。
答案：Visible3. 使用________函数可以在VB中计算两个数字的和。
第一次VB习题(整理).doc
一、判断题I.图像框中的Stretch属性为True是，可调整适当大小。
（Y）3.在表达式中，运算符两端数据类型要求一致。
（Y）5.只要用拖拽的方法，将工具箱中所需控件拖到Form中即可。
（N）6.Picture图片框既可用来显示图片和绘制图形，也可用Print方法来显示文字。
（N）7.在VB中，可通过函数Now返回计算机系统的日期和时间。
（Y）8.在VB中，函数F（x）（.3, 6）的返回值是・4。
（N）9.若要新建一•个磁盘上的顺序文件，可用output, append方式打开文件。
（Y）10.标签没有change事件和SetFocus方法。
（N）II.在VB中，可以将在Picture控件中绘制的图形以文件的形式保存在磁盘上。
（Y）12.Variant是一种数据类型，因此只能存放象其他数据类型一样，无特殊值。
（N）13.列表框中的项目不可以多列显示。
（N）14.在Sub过程中，可以用Return语句退出Sub过程。
（Y）15.方法是VB对象可以响应的与用户操作。
（N）16.有的对象属性既可在属性窗口中设定又可在程序代码中设定。
（Y）17.框架控件和形状控件都不能响应拥护的鼠标的单击事件。
（Y）18.如果一个列表框一共有5个选项，而当选中第三项时，这时列表框的Listindex属性为2。
（Y）19.Dim i,jas integer表明i和j都是整型变量。
（N）20.在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。
（Y）二、选择题1.已知A,B,C中C最小，则判断A,B,C可否构成三角形三条边长的逻辑表达式是（B）。
A： A>=B And B>=C And C>0B: A+C>B And B+C>A And C>0C：（A+C）>=C And A-C<=C And C>0D： A+B>C And A-B>C And C>02.下面（B）对象在运行时一定不可见。
vb习题1答案
vb习题1答案
VB习题1答案
在学习Visual Basic编程语言的过程中，练习题是非常重要的一部分。
通过解答练习题，我们可以加深对语法和逻辑的理解，提高编程能力。
下面是VB习题1的答案，希望对大家的学习有所帮助。
1. 编写一个程序，计算并输出1到100之间所有偶数的和。
答案：
```vb
Dim sum As Integer
sum = 0
For i = 1 To 100
If i Mod 2 = 0 Then
sum = sum + i
End If
Next
Console.WriteLine("1到100之间所有偶数的和为：" & sum)
```
2. 编写一个程序，输出1到100之间所有的质数。
答案：
```vb
Dim isPrime As Boolean
For i = 2 To 100
isPrime = True
For j = 2 To i / 2
If i Mod j = 0 Then
isPrime = False
Exit For
End If
Next
If isPrime Then
Console.Write(i & " ")
End If
Next
```
通过以上两道习题的答案，我们可以看到在VB编程中，通过循环和条件判断可以实现各种复杂的逻辑。
希望大家在学习编程的过程中能够多多练习，不断提高自己的编程能力。
祝大家学习进步！。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.菜单设计（10分）请设计一个如图1与图2所示的下拉菜单，各菜单的名称属性如表2所示，要求使用菜单编辑器设置各级菜单及相应热键。
图2 文件下拉菜单图3 格式下拉菜单2.编写程序实现以下功能：，单击“计算”（如图1），弹出（如图2所示）输入框，在输入框中输入一半径数（如10），则圆的面积就会在标签（label1）中显示出来（如图3）。
（10分）图1图2图3Private Sub Command1_Click()Const pi As Single = 3.14 2分Dim r As Single 1分Dim s As Double 1分r = Val(InputBox("请输入圆的半径：", "输入圆的半径提示框")) 3分s = pi * r ^ 2 2分Label2.Caption = s 1分End Sub3.编写程序实现以下功能：在文本框中输入用户名“小红”，密码框中输入“2011VBKS”，单击“确定”按钮（如图1），如果输入数据正确，则弹出信息框“欢迎参加VB考试!”（如图2），输入数据不正确，则弹出警告框“输入数据有误！请重新输入……”如图3。
(10分)图1图2 图3Private Sub Command1_Click()a=Text1.Textb= Text2.TextIf a = "小红" And b = "2011VBKS" Then 3分Y=MsgBox ("欢迎参加VB考试!" ) 2分Else 1分Y=MsgBox ("输入数据有误！请重新输入……", 1 + 48, "数据确认框：") 3分End If 1分End Sub4.编写程序实现以下功能：程序运行时，单击窗体，弹出如图1所示对话框，在对话框中输入一个整数，系统判断是奇数或者偶数，若为奇数则显示如图3中所示结果，若为偶数如图2中显示结果。
（10分）图1图2Private Sub Form_Click()Dim x As Integer 1分x = Val(InputBox("请输入一个整数！")) 2分if x mod 2=0 then 2分Print "x=" & Str(x); " x是一个偶数！" 2 分Else 1 分Print "x=" & Str(x); " x是一个奇数！" 1 分End If 1 分End Sub5.编写程序实现以下功能：在文本框中输入一个整数，单击“确定”按钮（如图1），如果输入的数能被5整除，则弹出信息框“此数能被5整除”（如图2），否则弹出信息框“这是一个不能被5整除的整数……”如图3。
(10分)图1图2图3Private Sub Command1_Click()Dim x As Integer 1 分x = Val(Text1.Text) 1分If x Mod 5 = 0 Then 2分MsgBox "此数能被5整除！" 2分Else 1分MsgBox "这是一个不能被5整除的整数……", 1 + 48, "数据确认框：" 2分End If 1分End Sub1使用Rnd函数生成10个两位数的随机整数，并放于picture1中，单击命令按钮，找出这10个数中的最大数与最小数，并降序重新排列这10个数。
将运行结果分别置于text1、text2以及picture2中（如图1中）。
（10分）参考答案：Option Base 1Private Sub Command1_Click()Dim max As Integer '存储最大数0.25分Dim min As Integer '存储最小数0.25分Dim i As Integer '循环变量0.25分Dim j As Integer '循环变量0.25分Dim t As Integer '交换变量0.25分Dim a(10) As Integer 0.25分'*****初始化随机数（*******For i = 1 To 10 0.5分a(i) = Int(Rnd * 90 + 10) 1分Picture1.Print a(i); 0.5分Next I 0.25分'*********求最大最小值**********max = a(1) 0.25分min = a(1) 0.25分For i = 2 To 10 0.25分If max < a(i) Then max = a(i) 1分If min > a(i) Then min = a(i) 1分Next I 0.25分Text1.Text = max 0.25分Text2.Text = min 0.25分'********排序（4分）*********For i = 1 To 9 0.25分For j = i + 1 To 10 0.25分If a(i) > a(j) Then 0. 5分t = a(i): a(i) = a(j): a(j) = t 0.5分End If 0.25分Next j 0.25 Next I 0.25For i = 1 To 10 0.25 Picture2.Print a(i); 0.25分Next I 0.25End Sub2、使用Rnd函数生成10个[0~100]之间的随机整数，并在窗体加载时在Label2中显示，当单击“升序排序”后以升序排列在Label4中显示。
窗体格式如图（16分）参考程序：Dim a(1 To 10) As Integer 1分Private Sub Command1_Click()Dim i, j, t As Integer' 选择法排序7分For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j): a(j) = a(i): a(i) = tEnd IfNext jNext i‘输出排序后的数据序列2分For i = 1 To 10Label4.Caption = Label4.Caption & a(i) & " "Next iEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Next i‘输出原始数据2分For i = 1 To 10Label2.Caption = Label2.Caption & a(i) & " "Next iEnd Sub3．编程实现如图1所示的程序代码：随机生成10个100以内的整数置于picture1中，升序后的10个数放在picture2中，降序后的10个数放在picture3中。
（10分）Option Base 1 0.5分Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer 0.25分For i = 1 To 10 0.25分a(i) = Int(Rnd * 100) 0.5分Picture1.Print a(i); 0. 5分Next I 0.25分For i = 1 To 9 0.25分For j = i + 1 To 10 0.5分If a(i) > a(j) Then 0.5分t = a(i): a(i) = a(j): a(j) = t 0.5分End If 0.25分Next j 0.25分Next I 0.25分For i = 1 To 10 0.25分Picture2.Print a(i); 0. 5分Next I 0.25分For i = 1 To 9 0.25分For j = i + 1 To 10 0. 5分 If a(i) < a(j) Then 0.5分 t = a(i): a(i) = a(j): a(j) = t 0.5分 End If 0.25分Next j 0.25分Next I 0.25分For i = 1 To 10 0.25分Picture3.Print a(i); 0.25分Next i 0.25分End Sub 0.25分Private Sub Command2_Click()Picture3.Cls 0.25分Picture2.Cls 0.25分Picture1.Cls 0.25分End Sub4、编写一个能计算全班成绩的总分（置入Label5中）、平均分（置入Label6中）、最高分（置入Label7中）、最低分（置入Label8中）并能统计各分数段0—59（置入Text1中），60—84（置入Text2中），85—100（置入Text3中）人数的程序代码，人数由输入框输入，成绩由系统随机产生，下图为参考界面。
（10分）参考程序：界面设计Private Sub Command1_Click()Dim a() As Integer （0.25分）Dim ave As String （0.25分）Dim i, sum, max, min, s1, s2, s3 As Integer （0.25分）sum = 0: max = 0: min = 110 （0.25分）n = Val(InputBox("请输入班级人数：")) （0.5分）ReDim a(n) （0.5分）For i = 1 To n （0.25分）a(i) = Int(100 * Rnd + 1) （0.5分）Next （0.25分For i = 1 To n （0.25分）sum = sum + a(i) （0.5分）If a(i) < 60 Then s1 = s1 + 1 （0.25分）If a(i) >= 60 And a(i) < 85 Then s2 = s2 + 1 （0. 5分）If a(i) >= 85 Then s3 = s3 + 1 （0. 5分）If max < a(i) Then max = a(i) （0.5分）If min > a(i) Then min = a(i) （0.5分）Next i （0.25分）ave = sum / n （0.5分）Label5.Caption = sum （0.5分）Label6.Caption = ave （0.5分）Label7.Caption = max （0.5分）Label8.Caption = min （0.5分）Text1 = s1 （0.25分）Text2 = s2 （0.25分）Text3 = s3 （0.25分）End Sub。