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。
vb习题（含答案）
vb习题（含答案）⼀、单项选择题（50道⼩题，共50分）1、VB程序中，通常不会产⽣错误提⽰的是( )。
（1分）A、编译错误B、逻辑错误C、运⾏时错误D、实时错误2、在设计阶段，双击窗体上任⼀空⽩处，打开的窗⼝是( )。
（1分）A、⼯程资源管理器窗⼝B、代码窗⼝C、⼯具箱窗⼝D、属性窗⼝3、下列说法中，正确的说法是( )。
（1分）A、窗体名称和该窗体⽂件名必须⼀致B、窗体名称和该窗体⽂件名可以不相同C、窗体名称和该窗体⽂件名不能使⽤汉字D、窗体名称不能使⽤汉字、但该窗体⽂件名能使⽤汉字4、Visual Basic有完备的Help联机帮助功能，可以通过按下功能键( )得到帮助。
（1分）A、F9B、F8D、F55、以下( )控件可作为容器使⽤。
（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、将窗体的BoderStyle属性设置为( )可使窗⼝不显⽰标题栏。
（1分）A、0B、1C、2D、57、⽂本框没有( )属性（1分）A、TextB、NameC、CaptionD、BorderStyleA B C D A B C D A B C D A B C D A B C D A B C D A B C D A BC D A B C D A B C D A B C D A B C D A B C D A B C D A B C D23、下列( )是不合法的常量。
（1分）A、100B、10E02D、10e0.524、下列对变量的定义中，定义X为变体型变量的是( )。
（1分）A、Dim X as DoubleB、Dim XC、Dim X!D、X%=2325、设有如下变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达⽅式是( )。
（1分）A、TextDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TextDate=date("1/1/2002")D、TestDate=Format("m/d/yy","1/1/2002")26、在⽴即窗⼝中运⾏以下语句，a="Beijing" :b="ShangHai" :Print a,b对其输出结果的描述中，正确的是( )。
vb实验试题及答案
vb实验试题及答案VB实验试题及答案一、选择题1. VB中，用于定义变量的关键字是：A. DimB. SetC. ConstD. Function答案：A2. 下列哪个选项是VB中声明数组的正确方式？A. Dim arr(10)B. Dim arr[10]C. Dim arr(10) As IntegerD. Dim arr[10] As Integer答案：C二、填空题1. 在VB中，使用________关键字可以创建一个新过程。
答案：Sub2. 要将一个字符串变量的值赋给另一个字符串变量，可以使用________运算符。
答案：=三、简答题1. 请简述VB中如何实现循环结构。
答案：VB中实现循环结构主要有两种方式：`For...Next` 循环和`Do...Loop` 循环。
`For...Next` 循环适用于已知循环次数的情况，而 `Do...Loop` 循环适用于循环次数不确定的情况。
2. 描述VB中如何使用条件语句。
答案：VB中使用条件语句主要通过 `If...Then...Else` 结构实现。
首先使用 `If` 关键字检查条件，如果条件为真，则执行 `Then` 后的语句；如果条件为假，则执行 `Else` 后的语句。
四、编程题1. 编写一个VB程序，实现计算并输出1到100之间所有偶数的和。
答案：```vbDim sum As Integersum = 0For i As Integer = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMessageBox.Show("Sum of even numbers between 1 and 100 is: " & sum)```2. 编写一个VB函数，接受一个字符串参数，返回该字符串中字母'a'的个数。
答案：```vbFunction CountA(ByVal str As String) As IntegerDim count As Integer = 0For Each c As Char In strIf c = "a" Thencount = count + 1End IfNextReturn countEnd Function```。
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操作题库完整版
第01套 基本操作题★★（1）在名称为Forml 的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
（2）在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为"操作"，名称为M1，此菜单下含有两个菜单项，名称分别为Copy 和Clear ，标题分别为"复制"、"清除"，请编写适当的事件过程，使得在程序运行时，单击"复制"选项菜单，则把Text1中的内容复制到Text2中，单击"清除"选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。
第01套 简单应用题★★（1）在考生文件夹下有一个工程文件sjt3.vbp ，窗体上已经有一个标签Label1，请添加一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再添加一个名称为Text1的文本框。
窗体文件中已经给出了Op1的Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"，如图所示。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
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.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是( )。
vb各章练习题
第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了（A ）的编程机制。
（A）事件驱动(B) 按过程顺序执行（C）从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是（c ）模式。
(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（ C ）。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口4. 保存新建工程时，默认的路径是（B ）。
（A）My Documents （B）VB98 （C）\ （D）Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是（A ）。
（A）运行的机器上无VB系统（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对6. VB6.0集成开发环境可以（D ）。
（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. VB6.0集成环境的主窗口中不包含（B ）。
（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C ）。
（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是VB6.0工具箱的标准控件的是（C ）。
（A）滚动条（B）定时器（C）多媒体（D）框架10. VB6.0的（C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。
（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（A ）。
（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（B ）。
vb的操作题（有答案）
vb的操作题（有答案）第一篇：vb的操作题(有答案)1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。
程序刚运行时，会生成一个有10个元素的整型数组。
若选中“查找最大值”（或“查找最小值”）单选按钮，再单击“查找”按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。
请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。
最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10 If Option1.Value = True Then If a(i)x Thenx = a(i)End If ElseIf a(i)< y Then y = a(i)End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。
画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。
将窗体的标题设为“图形控件”。
单击列表框中的某一项，则将所选的值作为形状控件的填充参数。
例如，选择3，则形状控件中被竖线填充。
如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。
List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为T ext1；再画二个命令按钮，名称分别为C1、C2，标题分别为“隐藏”、“显示”（如图所示）。
vb练习题,电子版 第9章 过程
第九章过程教学要求：了解VB 6.0过程的分类，掌握Sub过程和Function过程的建立、定义、调用的不同方法；掌握形参、实参的概念，掌握引用、传值、可选参数、可变参数以及对象参数的概念；掌握数组参数、窗体参数、控件参数的概念和使用，熟练使用Sub过程和Function过程设计应用程序；局部内存分配方法；过程嵌套调用和递归调用；Shell函数的使用。
知识点：Sub过程和Function过程的定义、调用；形参和实参的语法和使用；各种类型的参数传递；局部内存分配方法;过程嵌套调用和递归调用;Shell函数的使用。
内容导航：一、过程（一）Sub过程1．建立Sub过程通用Sub过程的一般格式如下：[Static][Private][Public]Sub 过程名[(参数列表)]语句块[Exit Sub][语句块]End Sub2．调用Sub过程调用引起过程的执行。
也就是说，要执行一个过程，必须调用该过程。
Sub过程的调用有两种方式如下：第一种方式：把过程的名字放在Call语句中，调用格式为：Call 过程名[(实际参数)]第二种方式：把过程名作为语句来使用，在调用Sub过程时，如果省略关键字Call，就成为调用Sub过程的第二种方式。
3．通用过程与事件过程控件事件过程的一般格式为：[Private| Public]Sub 控件名_事件名(参数表)语句组End Sub窗体事件过程的一般格式为：[Private|Public]Sub Form_事件名(参数表)语句组End Sub（二）Function过程1．建立Function过程Function过程定义的格式如下：[Static][Private][Public] Function 过程名[(参数列表)][As 类型][语句块][过程名= 表达式][Exit Function][语句块]End Function2．调用Function过程Function过程的调用比较简单，因为可以像使用Visual Basic内部函数一样来调用Function 过程。
18个VB经典例题
18个VB经典例题18个VB经典例题1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。
Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = Int(Rnd * 201 + 100)y = Int(Rnd * 201 + 100)z = Int(Rnd * 201 + 100)If x + y > z And x + z > y And y + z > x Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z))Print "三角形面积是：" & sElsePrint "构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人100,数。
Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 '产生60名学生的分数x = Rnd * 101 '产生0－100的分数Print x;If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x >= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。
VB经典例题(附答案)
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
- 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的变量只能在某个指定的过程中使用。