VB 过程练习题
VB编程题练习及答案
4.编写程序生成一个二维数组A(5, 5)，求两条对角线元素之和Option ExplicitPrivate Sub Command1_Click()Dim a(5, 5) As IntegerDim i As IntegerDim j As IntegerDim x As IntegerDim y As IntegerFor i = 0 To 5For j = 0 To 5a(i, j) = Int(100 * Rnd) '随机产生一个0~100的整数If i = j Then x = x + a(i, j)If i + j = 5 Then y = y + a(i, j)NextNextMsgBox "两条对角线元素之和分别是" & x & "," & yEnd Sub5.编写程序将文本框Text1中的大写字母放到文本框Text2中。
Dim n As IntegerFor i = 1 To Len(Text1)n = Asc(Mid(Text1.Text, i, 1))Text2 = Text2 & IIf(n >= 65 And n <= 90, Chr(n), "")Next6.随机生成20个两位正整数存放到Text1中，找出其中的偶数并以与找出相反的顺序存放到Text2中。
Private Sub Form_Load()RandomizeDim a(20), iText1 = ""Text2 = ""For i = 1 To 20a(i) = Int(Rnd * 90 + 10)Text1 = Text1 & a(i) & " "If a(i) Mod 2 = 0 ThenText2 = " " & a(i) & Text2End IfNextEnd Sub7.编写程序将窗体上文本框Text1中的字符串中的所有大写字母找出，并按逆输出到文本框Text2中。
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
10.VB过程练习题
VB过程练习题一、选择题1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。
A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n)2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。
A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递3．Sub过程与Function过程最根本的区别是_______。
A． Sub过程可以直接使用过程名调用，而Function过程不可以B． Function过程可以有参数，而Sub过程不可以C．两种过程参数传递方式不同D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。
A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。
A．添加过程 B．通用过程 C．添加模块 D．添加窗体6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。
A，2A． Cir 3,8 B． Call Cir x, yC． Call Cir 2*x, y D． Call Cir (3,8, y)7．在窗体模块的通用声明中声明变量时，不能使用_______关键字。
A． Dim B． Public C． Private D． Static 8. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private x As IntegerPrivate Sub Command1_Click()a = 6:b = 4Call sub1(a, b)Label1.Caption = aLabel2.Caption = bEnd SubPrivate Sub sub1(ByVal x As Integer, ByVal y As Integer)a = x * xb = y * yEnd Sub程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
vb程序设计试题及答案
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程序习题集（附答案）VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、⼀个对象的属性可分为外观、⾏为若⼲类B、不同属性可能具有不同的数据类型C、⼀个对象的所有属性都可在属性窗⼝的列表中进⾏设置D、属性窗⼝中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应⽤程序的基⽯，也是其他控件的容器。
A、⽂本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、⽅法、属性C、对象、属性、值D、属性、对象、值4、⽤窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有⼀个⽂本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使⽂本框显⽰的容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗⼝有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
VB程序设计例题12例
索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。
再画一个命令按钮，其名称为C1，Visible属性为False。
编写适当的事件过程。
程序运行后，如果在文本框中输入字符，则命令按钮出现。
二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。
程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。
（要求在未输入半径前两个按钮呈灰色不可用。
）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。
程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。
四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。
程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。
单击退出按钮则程序退出。
五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。
（2）收入在200~400元，超过200元的部分纳税3%。
（3）收入超过400元的部分，纳税4%。
（4）当收入达5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
六、给定三角形的三条边的边长，计算三角形的面积。
编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。
当输入-1时结束程序。
七、编程求100以内的全部素数。
八、编程打印钻石图案。
九、输出杨辉三角形。
十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
最新VB经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
练习题一、选择题1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。
A．Sub swap(By V al m，By V al n) B．Sub swap(m, By V al n)C．Sub swap(m, n) D．Sub swap(By V al m, n)2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。
A．按参数传递B．按数值传递C．按地址传递D．按位置传递3．Sub过程与Function过程最根本的区别是_______。
A．Sub过程可以直接使用过程名调用，而Function过程不可以B．Function过程可以有参数，而Sub过程不可以C．两种过程参数传递方式不同D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。
A．ByV al B．ByRef C．V alue D．reference5．可以执行“工具”菜单中的_______命令来建立通用过程。
A．添加过程B．通用过程C．添加模块D．添加窗体6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。
A，2A．Cir 3,8 B．Call Cir x, yC．Call Cir 2*x, y D．Call Cir (3,8, y)7．在窗体模块的通用声明中声明变量时，不能使用_______关键字。
A．Dim B．Public C．Private D．Static8. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private x As IntegerPrivate Sub Command1_Click()a = 6:b = 4Call sub1(a, b)Label1.Caption = aLabel2.Caption = bEnd SubPrivate Sub sub1(ByV al x As Integer, ByV al y As Integer)a = x * xb = y * yEnd Sub程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
A．36和4 B．6和4 C．36和8 D．6和89．以下叙述中错误的是_______。
A．不能在标准模块中定义Static型变量。
B．语句Dim a, b As Integer声明了两个整形变量C．窗体级变量必须先声明后使用D．在事件过程或通用过程内定义的变量是局部变量10．设有如下通用过程：Public Function fun(x As Integer)Dim y As Integerx = 30: y = 4fun = x * yEnd Function在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integerx = 20: y = 10y = fun(x)Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。
A．20 10 B．30 10 C．20 4 D．30 12011．以下叙述中，不正确的是_______。
A．过程中的形式参数是局部变量。
B．不同的过程中可以使用相同名字的局部变量。
C．在一个过程内定义的变量只在本过程范围内有效。
D．在一个过程内的局部变量与全局变量同名时，起作用的是全局变量。
12.以下关于过程的叙述中，错误的是_______。
A．函数过程的返回值可以有多个。
B．事件过程是由某个事件触发而执行的过程。
C．不能在事件过程中定义通用过程。
D．可以在事件过程中调用过程。
13．以下关于过程参数的叙述中，错误的是_______。
A．按值传递参数，形参和实参的类型可以不同，只要相容即可。
B．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合。
C．形参的数据类型如果是String，它可以是定长的，但在调用时对应的实参只能是定长的。
D．在过程被调用之前，形参未被分配内存，只是说明形参的类型和在过程中的作用。
14．假设有如下过程：Public Sub sfun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体中添加一个命令按钮（名为Command1），编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 5:b = 4Call sfun(a, b)MsgBox a & Chr(10) + Chr(10) & bEnd Sub打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为_______。
A．1和1 B． 1.25和1 C． 1.25和4 D．5和415. 使用Function语句定义一个函数过程，其返回值的类型为_______。
A．只能是符号常量B．是除数组之外的简单数据类型C．可在调用时由运行过程决定。
D．由函数定义时As子句声明16. 为达到把a、b中的值交换后输出的目的，某人编程如下：Private Sub Command1_Click()a% = 10: b% = 20Call swap(a, b)Print a, bEnd SubPrivate Sub swap(ByV al a As Integer, ByV al b As Integer)c = a: a = b: b = cEnd Sub在运行时发现输出结果错了，需要修改。
下面列出的错误原因和修改方案中正确的是_________。
A．输出语句错误，应改为：“Print "a", "b"”B．调用swap过程的语句错误，应改为“Call swap a,b”C．过程的形式参数有错，应改为：“swap(ByRef a As Integer,ByRef b As Integer)”D．swap中3条赋值语句的顺序是错误的，应改为“a=b:b=c:c=a”17．下面程序的输出结果是_______：Private Sub proc(ch As String)s = " "For k = Len(ch) To 1 Step -1s = s & Mid(ch, k, 1)Next kch = sEnd SubPrivate Sub Command1_Click()ch$ = "ABCDEF"proc chPrint chEnd SubA．ABCDEF B．A C．FEDCBA D． F18．在窗体上绘制一个名为Command1的命令按钮和两个名为Label1、Label2的标签，然后编写如下程序：______Private x As IntegerPrivate Sub proc(a As Integer, ByV al b As Integer)x = a * ay = b + bEnd SubPrivate Sub Command1_Click()x = 5: y = 3Call proc(x, y)Label1.Caption = xLabel2.Caption = yEnd SubA．25和3 B．5和3 C．25和6 D．5和619. 有如下函数：Function fun(a As Integer, n As Integer) As IntegerDim m As IntegerWhile a >= na = a - nm = m + 1Wendfun = mEnd Function该函数的返回值是________。
A．a加b的和B．a减n的差C．a乘以n的乘积D．a除以n的商（不含小数部分）20．以下是一个能返回数组a中最大数的函数过程代码：Function maxval(a() As Integer) As IntegerDim max%max = 1For i = 2 To 10If a(i) > a(max) Then max = kNext imaxval = maxEnd Function程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是______。
A．语句“max = 1”应改为“max = a(1)”B．语句“For i = 2 To 10”应改为“For i = 1 To 10”C．if语句“max = k”应改为“max = a(k)”D．语句“maxval = max ”应改为“maxval = a(max)”二、判断题1．Sub过程中不能嵌套定义Sub过程。
( )2．事件过程可以像通用过程一样同用户定义过程名。
( )3．函数过程形参的类型与函数返回值的类型没有关系。
（）4．在函数过程中，过程的返回值可以有多个。
（）5．用数组作为过程的参数时，既能以传值方式传递，也能以传地址方式传递。
（）6．形式参数是数组时，不能进行维数说明，只能以一对空括号表示，且括号不能省略。
（）7．形式参数只在所在过程中有效，因此属于局部变量。
（）8．在不同的模块中可以声明定义相同名字的模块级变量，它们代表不同的对象，而且作用域范围不同，因此互不干扰。
（）9．过程名前加Static，表示该过程内的局部变量都是静态变量。
（）10．事件过程有无参数，由VB所提供的具体事件本身所决定，用户也可以添加。
（）11．过程中引用的变量，总是同名变量中作用范围最小的那一个。
（）12．Sub子过程的过程名不能和同一级别的变量重名。
（）13．如果形参的数据类型是String，它只能是定长的，但在调用时对应的实参可以是定长的。
（）14．函数只能出现在表达式中，其功能是求得函数的返回值。
（）15．按值传递参数，形参和实参的类型可以不同，只要相容即可。
（）16．若形参是按地址传递的参数，形参和实参不能以按值传递方式进行形实结合。
（）17．当实参是常量、表达式形式，则不论其对应形参前定义成什么方式，系统都强制按值传递参数。
( )18．在标准模块中定义的全局变量，在本应用程序的任何一个过程中都可直接用它的变量名来访问。
（）19．当访问其他窗体模块中定义的全局变量时，用定义它的窗体模块名作为全局变量的前缀或可以直接用它的变量名来访问它，都能正确地引用。
（）20．窗体中凡被声明为Private的变量只能在某个指定的过程中使用。