vb综合试题及答案

vb综合试题及答案一、选择题（20分，共10题，每题2分）1.下列哪个不是VB的数据类型？A.IntegerB.StringC.CharD.Boolean2.在VB中，下列哪个关键字用于声明常量？A.DimB.ConstC.StaticD.Public3.下列哪个控件用于显示文本且用户不能修改？A.TextBoxB.LabelC.ComboBoxD.ListBox4.在VB中，下列哪个事件在窗体加载时触发？A.ClickB.LoadC.ActivateD.Resize5.下列哪个函数用于获取字符串的长度？A.Len()B.Length()C.Size()D.Count()6.在VB中，下列哪个循环语句至少执行一次循环体？A.For...NextB.DoWhile...LoopC.Do...LoopWhileD.ForEach...Next7.下列哪个是VB中正确的数组声明？A.Dimarr(5)AsIntegerB.Dimarr[5]AsIntegerC.Dimarr{5}AsIntegerD.Dimarr(5,)AsInteger8.在VB中，下列哪个方法用于打开文件进行读取？A.FileOpen(1,"file.txt",OpenMode.Input)B.FileOpen(1,"file.txt",OpenMode.Output)C.FileOpen(1,"file.txt",OpenMode.Append)D.FileOpen(1,"file.txt",OpenMode.Random)9.在VB中，下列哪个是正确的条件语句？A.ifx>5thenB.ifx>5ThenC.Ifx>5thenD.ifx>5Then10.在VB中，下列哪个是正确的注释符号？A.//B./C.'D.二、填空题（20分，共10题，每题2分）1.VB中声明变量时，可以使用____关键字声明全局变量。2.在VB中，____函数用于将字符串转换为数值。3.在VB中，____控件用于显示下拉列表。4.在VB中，____语句用于跳出循环。5.在VB中，____函数用于获取当前系统日期。6.在VB中，____方法用于将数据写入文件。7.在VB中，____关键字用于定义函数。8.在VB中，____属性用于设置控件的可见性。9.在VB中，____事件在窗体关闭时触发。10.在VB中，____函数用于将数值转换为字符串。三、程序阅读题（20分，共2题，每题10分）1.阅读以下VB代码，写出程序运行后的输出结果：```vbDimiAsIntegerDimsumAsInteger=0Fori=1To10Step2sum+=iNextiMsgBox("Sum="&sum)```2.阅读以下VB代码，写出程序运行后的输出结果：```vbDimstrAsString="VBProgramming"DimresultAsString=""DimiAsIntegerFori=1Tostr.LengthIfiMod2=0Thenresult&=str(i-1)EndIfNextiMsgBox(result)```四、程序设计题（20分，共2题，每题10分）1.编写VB程序，实现以下功能：输入一个整数，判断该数是否为素数，并输出结果。2.编写VB程序，实现以下功能：计算1到100之间所有偶数的和，并输出结果。五、综合应用题（20分）设计一个简单的学生信息管理系统，包含以下功能：1.添加学生信息（学号、姓名、成绩）2.显示所有学生信息3.按学号查询学生信息4.按成绩排序学生信息5.删除学生信息要求使用数组或集合存储学生信息，并提供相应的界面控件。标准答案及解析一、选择题1.答案：C解析：在VB中，基本数据类型包括Integer、String、Boolean等，但没有Char数据类型。VB中的字符类型实际上是通过String类型来表示的。2.答案：B解析：在VB中，使用Const关键字来声明常量，例如：ConstPIAsDouble=3.14159。Dim用于声明变量，Static用于声明静态变量，Public用于声明公共变量。3.答案：B解析：Label控件用于显示文本且用户不能修改，而TextBox控件允许用户输入和修改文本。ComboBox和ListBox都是列表类控件，但用户可以选择其中的项目。4.答案：B解析：Load事件在窗体加载时触发，Click事件在单击控件时触发，Activate事件在窗体成为活动窗口时触发，Resize事件在窗体大小改变时触发。5.答案：A解析：在VB中，Len()函数用于获取字符串的长度，例如：Len("Hello")返回5。VB中没有Length()、Size()或Count()函数用于获取字符串长度。6.答案：C解析：在VB中，Do...LoopWhile循环至少执行一次循环体，因为条件判断在循环体之后。For...Next循环和ForEach...Next循环的执行次数是确定的，DoWhile...Loop循环如果条件不满足则不会执行循环体。7.答案：A解析：在VB中，正确的数组声明是使用圆括号，例如：Dimarr(5)AsInteger。方括号和花括号不是VB中数组声明的语法，而Dimarr(5,)AsInteger是多维数组的声明方式，但需要指定第二个维度的上限。8.答案：A解析：在VB中，OpenMode.Input用于打开文件进行读取，OpenMode.Output用于打开文件进行写入（覆盖原有内容），OpenMode.Append用于打开文件进行追加写入，OpenMode.Random用于打开文件进行随机访问。9.答案：B解析：在VB中，条件语句的关键字是不区分大小写的，但VB的命名约定是关键字首字母大写，其余字母小写，因此正确的写法是：Ifx>5Then。10.答案：C解析：在VB中，注释符号是单引号(')，例如：'这是一个注释。VB不支持C++风格的注释符号(//或//)。二、填空题1.答案：Public解析：在VB中，使用Public关键字声明全局变量，全局变量可以在整个应用程序的任何模块中访问。例如：PublicGlobalVarAsInteger。2.答案：Val()解析：在VB中，Val()函数用于将字符串转换为数值，例如：Val("123")返回123。如果字符串中包含非数字字符，Val()函数会从左到右转换，直到遇到第一个非数字字符为止。3.答案：ComboBox解析：ComboBox控件用于显示下拉列表，用户可以从列表中选择项目或输入新项目。它结合了TextBox和ListBox的特点。4.答案：ExitFor解析：在VB中，ExitFor语句用于跳出For循环。类似地，ExitDo用于跳出Do循环，ExitWhile用于跳出While循环，ExitSelect用于跳出SelectCase语句。5.答案：Date解析：在VB中，Date函数用于获取当前系统日期，例如：DimtodayAsDate=Date。Time函数用于获取当前系统时间，Now函数用于获取当前系统日期和时间。6.答案：Write()解析：在VB中，Write()方法用于将数据写入文件，WriteLine()方法用于将数据写入文件并在末尾添加换行符。Print()方法也可以用于写入文件，但它不格式化输出。7.答案：Function解析：在VB中，使用Function关键字定义函数，函数可以返回一个值。使用Sub关键字定义过程，过程不返回值。例如：FunctionAdd(ByValxAsInteger,ByValyAsInteger)AsIntegerReturnx+yEndFunction。8.答案：Visible解析：在VB中，Visible属性用于设置控件的可见性，例如：Button1.Visible=False将隐藏按钮。如果设置为True，控件可见；如果设置为False，控件隐藏。9.答案：Form_Closing解析：在VB中，Form_Closing事件在窗体关闭时触发。可以在该事件中添加代码，例如询问用户是否确定关闭窗体，或在关闭前保存数据。10.答案：Str()解析：在VB中，Str()函数用于将数值转换为字符串，例如：Str(123)返回"123"。CStr()函数也可以用于将数值转换为字符串，但Str()函数会在转换后的字符串前添加一个空格。三、程序阅读题1.答案：程序运行后的输出结果为"Sum=25"解析：这段代码使用For循环计算1到10之间所有奇数的和。循环变量i从1开始，每次增加2，依次取值为1、3、5、7、9。将这些值累加到sum变量中，得到1+3+5+7+9=25。最后通过MsgBox函数显示结果。2.答案：程序运行后的输出结果为"BPrng"解析：这段代码遍历字符串"VBProgramming"中的每个字符，并提取偶数位置的字符（即第2、4、6、8、10、12、14个字符）。原字符串中的字符位置如下：-第1个字符：'V'-第2个字符：'B'-第3个字符：''-第4个字符：'P'-第5个字符：'r'-第6个字符：'o'-第7个字符：'g'-第8个字符：'r'-第9个字符：'a'-第10个字符：'m'-第11个字符：'m'-第12个字符：'i'-第13个字符：'n'-第14个字符：'g'提取偶数位置的字符后，得到"BPrng"。四、程序设计题1.判断素数的VB程序：```vbPrivateSubCheckPrimeButton_Click(senderAsObject,eAsEventArgs)HandlesCheckPrimeButton.ClickDimnumAsIntegerDimisPrimeAsBoolean=True'获取输入的数字IfInteger.TryParse(NumTextBox.Text,num)Then'检查数字是否小于2Ifnum<2ThenisPrime=FalseElse'检查是否有因数ForiAsInteger=2ToMath.Sqrt(num)IfnumModi=0ThenisPrime=FalseExitForEndIfNextiEndIf'输出结果IfisPrimeThenResultLabel.Text=num&"是素数"ElseResultLabel.Text=num&"不是素数"EndIfElseResultLabel.Text="请输入有效的整数"EndIfEndSub```解析：-这个程序首先尝试将输入文本转换为整数，如果转换失败则提示用户输入有效的整数。-然后检查数字是否小于2，因为小于2的数都不是素数。-对于大于等于2的数，程序从2到该数的平方根之间检查是否有因数。如果有因数，则该数不是素数。-最后根据检查结果输出相应的信息。2.计算1到100之间所有偶数的和的VB程序：```vbPrivateSubCalculateButton_Click(senderAsObject,eAsEventArgs)HandlesCalculateButton.ClickDimsumAsInteger=0DimiAsInteger'计算1到100之间所有偶数的和Fori=2To100Step2sum+=iNexti'输出结果ResultLabel.Text="1到100之间所有偶数的和是："&sum.ToString()EndSub```解析：-这个程序初始化一个变量sum为0，用于存储累加和。-使用For循环从2开始，每次增加2，遍历1到100之间的所有偶数。-将每个偶数加到sum变量中。-最后显示计算结果。五、综合应用题学生信息管理系统的VB程序：```vb'学生类PublicClassStudentPublicPropertyIDAsStringPublicPropertyNameAsStringPublicPropertyScoreAsIntegerPublicSubNew(idAsString,nameAsString,scoreAsInteger)Me.ID=idMe.Name=nameMe.Score=scoreEndSubEndClass'主窗体代码PublicClassMainFormPrivatestudentsAsNewList(OfStudent)'添加学生信息PrivateSubAddButton_Click(senderAsObject,eAsEventArgs)HandlesAddButton.ClickDimidAsString=IDTextBox.Text.Trim()DimnameAsString=NameTextBox.Text.Trim()DimscoreAsIntegerIfString.IsNullOrEmpty(id)OrElseString.IsNullOrEmpty(name)ThenMessageBox.Show("学号和姓名不能为空！","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnEndIfIfInteger.TryParse(ScoreTextBox.Text,score)Thenstudents.Add(NewStudent(id,name,score))MessageBox.Show("学生信息添加成功！","成功",MessageBoxButtons.OK,MessageBoxIcon.Information)ClearInputs()UpdateStudentList()ElseMessageBox.Show("成绩必须是整数！","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)EndIfEndSub'显示所有学生信息PrivateSubShowAllButton_Click(senderAsObject,eAsEventArgs)HandlesShowAllButton.ClickUpdateStudentList()EndSub'按学号查询学生信息PrivateSubSearchButton_Click(senderAsObject,eAsEventArgs)HandlesSearchButton.ClickDimidAsString=SearchIDTextBox.Text.Trim()IfString.IsNullOrEmpty(id)ThenMessageBox.Show("请输入学号！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)ReturnEndIfDimfoundStudent=students.FirstOrDefault(Function(s)s.ID=id)IffoundStudentIsNotNothingThenResultTextBox.Text=$"学号:{foundStudent.ID}"&vbCrLf&$"姓名:{foundStudent.Name}"&vbCrLf&$"成绩:{foundStudent.Score}"ElseResultTextBox.Text="未找到该学号的学生信息！"EndIfEndSub'按成绩排序学生信息PrivateSubSortButton_Click(senderAsObject,eAsEventArgs)HandlesSortButton.ClickDimsortedStudents=students.OrderBy(Function(s)s.Score).ToList()DisplayStudents(sortedStudents)EndSub'删除学生信息PrivateSubDeleteButton_Click(senderAsObject,eAsEventArgs)HandlesDeleteButton.ClickDimidAsString=DeleteIDTextBox.Text.Trim()IfString.IsNullOrEmpty(id)ThenMessageBox.Show("请输入要删除的学生学号！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)ReturnEndIfDimstudentToDelete=students.FirstOrDefault(Function(s)s.ID=id)IfstudentToDeleteIsNotNothingThenstudents.Remove(studentToDelete)MessageBox.Show("学生信息删除成功！","成功",MessageBoxButtons.OK,MessageBoxIcon.Information)DeleteIDTextBox.Clear()UpdateStudentList()ElseMessageBox.Show("未找到该学号的学生信息！","错误",MessageBoxB