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练习题及答案VB（Visual Basic）是一种面向对象的编程语言，被广泛应用于软件开发中。
通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。
本文将提供一些VB练习题及其答案，帮助读者巩固VB编程技巧。
题目一：计算器程序设计一个简单的计算器程序，要求能够进行基本的加、减、乘、除运算。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“Calculator”。
首先，在窗体上添加一些按钮来表示数字和运算符。
然后，添加一个用于显示运算结果的文本框控件。
接下来，为数字按钮和运算符按钮分别添加点击事件处理程序。
在点击数字按钮时，将按钮对应的数字追加到文本框中。
在点击运算符按钮时，根据按钮的内容判断并执行相应的运算。
最后，通过运用VB的计算表达式功能和控件之间的交互，实现基本的加减乘除运算。
题目二：学生成绩管理设计一个程序用于管理学生成绩，要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“StudentGrade”。
首先，设计一个学生类（Student），包括学号、姓名、各科目成绩等属性。
然后，创建一个用于存储学生信息的集合（如数组或集合类）。
接下来，在窗体上添加文本框、按钮等控件，用于输入学生信息和进行相关操作。
通过按钮点击事件处理程序，实现以下功能：1.输入学生信息：获取文本框中的学生信息，并创建一个新的学生对象，将其添加到学生信息集合中。
2.查询学生成绩：根据学生学号或姓名等关键信息，在学生信息集合中查找对应学生，并显示其成绩信息。
3.计算学生平均成绩：遍历学生信息集合，计算每个学生的平均成绩，并显示在窗体上。
通过以上步骤，可以实现一个简单的学生成绩管理系统。
题目三：数据排序设计一个程序用于对一组数字进行排序，要求能够实现升序和降序排列。
解答：在VB中创建一个新的Windows窗体应用程序项目，命名为“DataSorting”。
VB程序练习
一、VB基本操作和设计1.设计窗体：输入圆的半径，求出圆的面积和周长。
r = Val(Text1.Text)Text2.Text = 3.14 * r * rText3.Text = 3.14 * r * 22.设计窗体：依次输入两个数，进行四则运算。
x = Val(Text4.Text) y = Val(Text5.Text)Text6.Text = x -+y/Text6.Text = x - yText6.Text = x * y/Text6.Text = x / y3.设计窗体：当单击窗体时，体现一个圆。
单击“同圆”时出现两个同心圆，单击“连环圆”时出现两个连环圆；单击“清屏”时窗体清屏。
（1）同圆 Form1.Circle (2000, 2000), 2000Form1.Circle (2000, 2000), 1000（2）两圆相接 Form1.Circle (3000, 1000), 1000Form1.Circle (1000, 1000), 1000（3）清屏 Cls注：（）中第一个数据是X（即横坐标），括号后是圆的半径。
将form1的属性load 改为click。
4.设计窗体：单击窗体时在标签中出现为30号、红色、楷体、背景绿色的“欢迎学习VB设计”字样。
Label1.caption=”欢迎学习VB设计”.backcolor=vbgreen backcolor:背景色.fontsize=30 fontsize：字体大小.fontcolor=vbred fontcolor：字体颜色5.设计窗体：依次输入两个数，单击“最大值”时显示最大值，单击“由小到大”时按从小到大显示。
x=val(text1.text) y=val(txt2.text)①最大值：if x>y print x Else print y最小值是相同设计，即将“>”改为“<”。
由大到小是相同的设计，即将打印条件交换。
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程序习题答案在学习Visual Basic（VB）编程的过程中，做习题是非常重要的一部分。
通过做习题，我们可以巩固所学的知识，提高编程能力。
下面是一些常见的VB程序习题及其答案。
1. 编写一个程序，计算1到100的所有偶数的和。
答案：```vbDim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextMsgBox("1到100的所有偶数的和为：" & sum)```2. 编写一个程序，找出一个数组中的最大值和最小值。
答案：```vbDim arr() As Integer = {5, 8, 3, 9, 2}Dim max As Integer = arr(0)Dim min As Integer = arr(0)For Each num In arrIf num > max Thenmax = numEnd IfIf num < min Thenmin = numEnd IfNextMsgBox("数组中的最大值为：" & max & "，最小值为：" & min)```3. 编写一个程序，将一个字符串反转。
答案：```vbDim str As String = "Hello, World!"Dim reversedStr As String = ""For i = str.Length - 1 To 0 Step -1reversedStr = reversedStr & str(i)NextMsgBox("反转后的字符串为：" & reversedStr)```通过做这些习题，我们可以加深对VB编程语言的理解，提高编程能力。
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练习题及答案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程序设计习题集
VB程序设计习题集VB程序设计习题集目录1·简介1·1 什么是 VB 程序设计1·2 学习 VB 程序设计的重要性2·VB 程序设计基础2·1 VB 的开发环境2·2 VB 的基本语法2·3 变量与数据类型2·4 运算符2·5 控制流程2·5·1 条件语句2·5·2 循环语句3·VB 程序设计进阶3·1 函数与过程3·2 数组与集合3·3 字符串处理3·4 文件操作3·5 错误处理与调试4·VB 程序设计实践4·1 用户界面设计4·2 数据库操作4·3 网络通信4·4 图形处理4·5 多媒体应用5·附录5·1 示例代码5·2 常用工具5·3 参考资料1·简介1·1 什么是 VB 程序设计VB（Visual Basic）是一种基于事件驱动的编程语言，它可以轻松创建 Windows 应用程序和图形用户界面。
VB 程序设计是利用VB 语言进行软件开发的过程，它广泛应用于商业软件、数据库应用、游戏开发等领域。
1·2 学习 VB 程序设计的重要性学习 VB 程序设计能够帮助您掌握快速开发 Windows 应用程序的技能。
VB 是一种易学易用的编程语言，适合初学者入门，并具有良好的图形用户界面设计能力。
掌握 VB 程序设计不仅可以提高开发效率，还能够加强对计算机科学基础的理解。
2·VB 程序设计基础2·1 VB 的开发环境VB 有多个版本，建议使用最新的 Visual Studio 等集成开发环境进行开发。
Visual Studio 提供了丰富的工具和功能，使得 VB 程序的开发更加便捷和高效。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
如下二维数组声明语句，________B____正确。
A、Dim a(n，n) As IntegerB、Dim a(3，4) As IntegerC、Dim a(34) As IntegerD、Dim a[3，4] As Integer下列语句可以用来正确地声明一个动态数组的是___B__。
A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(1 to n)D、Dim A(,) As Integer如下二维数组声明语句，______C__正确。
A、Dim a(34) As IntegerB、Dim a(n，n) As IntegerC、Dim a(3，4) As IntegerD、Dim a[3，4] As Integer下列语句中的语句可以用来正确地声明一个动态数组。
AA、Dim A() As IntegerB、Private A(n) As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)下面关于动态数组的叙述中，不正确的是__B________。
A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组D、在重新定义动态数组时，变量不可以出现在维界表达式中若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__D______关键字在该过程中定义局部变量。
A、DimB、PrivateC、PublicD、Static在调用Sub或Function过程时，采用___A___传送相应过程的变量名、数组名、常数或表达式。
A、实际参数B、形式参数C、对象参数D、数组参数给出下列程序代码，在单击命令按钮时的输出结果是___B_____。
Private Sub Command1_Click ( )Dim x As Integer, y As Integerx=1:y=1For n=1 TO 3z=FirstFunc (x, y)Print n, z ,Next nEnd SubPrivate Function FirstFunc (x As Integer, y As Integer) As IntegerDim n As IntegerDo While n <= 4x=x+yn=n+1LoopFirstFunc=xEnd FunctionA、1 2 3 4 5 6B、1 6 2 11 3 16C、2 1 3 1 3 3D、2 6 1 3 11 16要想在过程调用后返回两个结果，下面的过程定义语句合法的是___D____。
A、Sub Procl ( ByVal n , ByVal m)B、Sub Procl ( ByVal n , m)C、Sub Procl ( n , ByVal m)D、Sub Procl ( n , m)窗体上画一个按钮，然后编写如下的事件代码。
在按钮上单击，输出为_____B_____。
Private Sub fun( )Static a As Integera=a+2Print a;End SubPrivate Sub Command1_Click( )Dim m As IntegerFor m=1 To 3Call funNext mEnd SubA、0 0 0B、2 4 6C、2 2 2D、2 4 8下列程序Private Sub Command1_Click( )a=InputBox("请输入")b=InputBox("请输入")Print a+bEnd Sub运行时输入3和4输出的结果是 __D___ 。
A、7B、3+4C、出错D、34在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()Dim k As IntegerDim entry As String, item As Stringentry = "EDCBA"For k = Len(entry) To 1 Step -1item = LCase(Mid(entry, k, 1)) & kList1.AddItem itemNext kEnd Sub运行此程序，单击窗体,列表框第4行为__A___。
A、d2B、b2C、b4D、d3执行以下语句后，a的值为__A___。
Dim a As Integera=1Do Until a=100a=a+2LoopA、溢出B、100C、99D、101计算机算法可以分为两大类：一类是___D__算法，另一类是_____算法。
A、计算机辅助设计、财务B、排序、查找C、步骤管理、通信D、数值计算、非数值计算下列程序段的执行结果为_C____。
x = Int((69 - 60) * Rnd + 60)Select Case xCase Is >= 90Print "优秀"Case 80 To 89Print "良好"Case 60 To 79Print "合格"Case ElsePrint "不合格"End SelectA、优秀B、良好C、合格D、不合格表达式Len("123程序设计ABC")的值是____A________。
A、10B、20C、17D、14下列说法正确的是__A______。
A、a$="Visual",b$="Basic",则a$ & b$ 和a$ + b$结果都是"VisualBasic"B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是TrueC、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是TrueD、(Not True Or True) And (True Or False) 的结果是False表达式16/4-2^5*8/4 MOD 5/2的值为_______D_____。
A、2B、14C、20D、4数学关系3<=x<10表示成正确的VB表达式为_____C_______。
A、x>=3 OR x<10B、3<=x AND <10C、3<=x AND x<10D、3<=x<0下列没有类型说明符的变量是_____B____。
A、货币型B、日期型C、字符串型D、长整型要使文本框能显示多行文字，则需设定它的_C____属性为True。
A、PasswordCharB、SeletedC、MultiLineD、Caption决定控件上文字的字体、字型、大小、效果的属性是_B____。
A、NameB、FontC、TextD、Caption以下不属于标签属性的是___B__。
A、IndexC 、CaptionD 、Font在设计列表框时，若实现输入多行文字的目的，应使用__C___键实现文本的换行。
A 、Alt+EnterB 、EnterC 、Ctrl+EnterD 、Ctrl+Shift+Enter要使一个标签透明且具有边框，则应___B__。
A 、将其BackStyle 属性设置为1，BorderStyle 属性设置为1B 、将其BackStyle 属性设置为0，BorderStyle 属性设置为1C 、将其BackStyle 属性设置为0，BorderStyle 属性设置为0D 、将其BackStyle 属性设置为1，BorderStyle 属性设置为0一只白色的足球踢进球门，则白色、足球、踢、进球门是___D_____。
A 、对象、属性、方法、事件B 、属性、对象、方法、事件C 、对象、属性、事件、方法D 、属性、对象、事件、方法以下关于事件的说法，正确的是_B____。
A 、用户可以根据需要建立新的事件B 、事件是由系统预先定义好的，能够被对象识别的动作C 、不同类型的对象所能识别的事件一定不相同D 、事件的名称是可以改变的，由用户预先定义VisualBasic 集成的主窗口中包括__D___。
A 、标题栏B 、工具栏C 、菜单栏D 、以上三者均有能被对象所识别的动作与可执行的活动分别称为对象的__C___。
A 、方法、事件B 、过程、方法C 、事件、方法D 、事件、属性VisualBasic 是用于开发__B___环境下的应用程序的工具。
A 、UNIXB 、WindowsC 、DOSD 、DOS 和Windows[题目] 计算公式1217151311-+++++=n S Λ的和,当第n 项的值<10-5时结束。
【参考代码】sum = 0x = 1Do While x >= 0.0001sum = sum + xn = n + 1x = 1 / (2 * n - 1)LoopText1.Text = sum===============【考生代码】sum = 0n = 1x = 1Do While x >= 0.0001sum = sum + xn = n + 1x = 1 / (2 * n - 1)LoopText1.Text = sum[题目]编写程序，求出给定正整数的所有质因子，并将质因子全部输出。
如：342有质因子2，3，3，19。
【编程要求】【参考代码】DoIf x Mod i = 0 Thenn = n + 1ReDim Preserve a(n)a(n) = ix = x \ ii = 2Elsei = i + 1End IfLoop Until x = 1===============【考生代码】DoIf x Mod i = 0 Thenn = n + 1ReDim Preserve a(n)a(n) = ix = x \ ii = 2Elsei = i + 1End IfLoop Until x = 1[题目]顺序查找：给定一个数，在一个两位随机数数组中查找与此数相同的元素（该数组大小为10个元素）。
如果找到与给定数值相同的元素后输出该元素在数组中的位置；找不到则输出相应的提示信息。
[编程要求]【参考代码】Dim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1===============【考生代码】Dim i As IntegerL = UBound(b)For i = 1 To LIf b(i) = n Thensearch = iExit FunctionEnd IfNext isearch = -1。