VB模拟试题三
vb模拟试题及答案
vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。
VB模拟试卷三(含答案)
北京语言大学网络教育学院《VB》模拟试卷三注意：1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3.本试卷满分100分，答题时间为90分钟。
4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。
1、下面（ B ）不是VB控件的一类。
[A] 标准控件[B] 外部控件[C] ActiveX控件[D] 可插入对象（OLE）2、VB是微软推出的可视化、（ A ）、采用事件驱动的结构化设计语言。
[A]面向对象[B] 面向图形[C] 面向过程[D] 面向控件3、复制当前控件到窗体左上角，应该使用的快捷键是（ A ）。
[A] 先Ctrl+C然后Ctrl+V[B] 先Ctrl+V然后Ctrl+C[C] Ctrl+C[D] Ctrl+V4、通常创建的窗体都是矩形窗体，可以通过（ A ）函数创建非矩形窗体如椭圆、圆形等。
[A] SetWindowRgn()[B] splash()[C] CreatPolygonRgn[D] Fullpic5、下面哪一个不是键盘的事件（ B ）。
[A]KeyPress[B] KeyClick[C] KeyUp[D] KeyDown6、关于Data控件说法不正确的是（ D ）。
[A] ADO Data控件与内部Data控件以及Remote Data控件类似。
[B] ADO Data控件使用户能使用ADO快速创建一个到数据库的链接[C] DataGrid控件与Grid控件类似。
[D] DataGrid控件实际上是一个固定的行集合，每一行的列数不固定7、关于常用标准控件描述错误的是（ A ）。
[A] 计时器一般用于指定一个时间[B] 文本框提供一个编辑、显示、输入文本的区域[C] 单选按钮在运行程序以后，一次只能选择一个单选框[D] 列表框列出所有内容，用户可从中选择8、下面关于一句多行和多句一行描述正确的是（ B ）。
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机试模拟试题(十五套)
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
VB机试模拟题三
VB机试模拟题三重要提示：请先在D：盘下创建以自己的学号为名称的文件夹，该文件夹即为考生文件夹，考试过程中所产生的所有文件必须保存在该考生文件夹下才视为有效。
请注意，每道题的题面说明中已标注了需要保存文件的文件名称！一、请根据以下要求设计Visual Basic应用程序。
（15分）在窗体FORM1上画一个文本框，名称为TEXT1,TEXT属性为空白。
再画一个列表框，名称为LIST1,通过属性窗口向列表框中添加4个项目，分别为“1111”、“2222”,“3333”、“4444”。
再画一个命令按钮，名称为COMMAND1,标题为“添加”，请考生编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，如果单击“添加”按钮，则把文本框中的字符串添加到列表框中（事件过程只能写一条语句）。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图 1二、请根据以下要求设计Visual Basic应用程序。
（15分）在名称为 FORM1 的窗体上放置一个名为 TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。
（程序中不得使用任何变量，只能写一条语句）。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图 2三、请根据以下要求设计Visual Basic应用程序。
（20分）在名称为 FORM1 的窗体上画两个单选按钮,名称分别为OPTION1和OPTION2,标题分别为“添加项目”和“删除项目”，一个列表框，名称为LIST1,一个文本框，名称为TEXT1,如示例所示。
请编写适当的事件过程，要求程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意），并添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘输入要删除的项目的序号，将该序号对应的项目从列表框中删除。
VB程序设计期末模拟试题及答案
VB程序设计期末模拟试题及答案第一篇：VB程序设计期末模拟试题及答案《VB》期末复习题及答案综合复习题一、填空题1．创建一个VB应用程序三个主要的步骤是__创建应用程序界面_、_设置属性_和_编写代码_。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的__text__属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___Label_____控件；若允许用户输入文本，则应使用___TextBox___控件。
4．窗体的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是txtshow.text=“GOOD WORK” 6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6种类型的表达式是算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式，Visual Basic根据表达式的_运算符来确定表达式的类型。
8．表达式93 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c达式c>a And Not b10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print“30+60”, Print 30 + 60 ？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z五、编程题1．设计一个计算程序。
VB模拟 (五套)
模拟试题一单项选择题号：2311List1.Clear中的Clear是。
A、属性B、对象C、方法D、事件答案：C题号：5875表达式Round(7.8)+Round(-7.6)的结果是。
A、15B、-1C、1D、0答案：D题号：556在窗体上画出一个命令按钮，然后编写如下程序：Function Func(m As Integer, n As Integer) As IntegerFunc = IIf(m < n, m, n)End FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 50y = 40Print z = Func(x, y)End Sub程序运行后，单击命令按钮，则输出的结果是.A、FalseB、50C、10D、40答案：A题号：2942下列叙述错误的是.A、若定义过程时加上Static关键字，则该过程中的局部变量都是Static类型B、Sub过程中可以嵌套调用Sub过程C、Sub过程中不能嵌套定义Sub过程D、事件过程可以像通用过程一样由用户定义过程名答案：D题号：4192运算符"\"两边的操作数若类型不同，则先再运算。
A、四舍五入为Byte类型B、取整为Byte类型C、四舍五入为整型D、取整为Integer类型答案：C题号：6221Visual Basic IDE 窗体设计器的主要功能是。
A、建立用户界面B、显示文字C、画图D、编写源程序代码答案：A题号：1098Visual Basic用以下哪一条指令来绘制直线。
A、Circle方法B、Pset方法C、Point属性D、Line方法答案：D题号：3274表达式Int(-5.5)+Fix(7.99)是。
A、0B、1C、2D、3答案：B题号：315下列代码执行的结果是.Dim a(5)For i=1 to 5 :a(i)=i+2::next iPrint a(4)A、8B、24C、2D、6答案：D题号：845工程文件的扩展名为。
VB模拟题及参考答案
VB复习题一一、判断题：(每小题1分，共20分。
请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。
（）2.标签支持Dblclick事件。
（2 ）3.窗体中控件的位置由Height和Top属性确定。
（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。
（5 ）6.Vbred是Visual Basic 6.0允许的常量。
（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。
（7 ）8.逻辑运算符Not的优先级比Or高。
（8 ）9.Visual Basic 6.0中可以用print做变量名。
（9 ）10.表达式5 mod 4与5\4的结果相同。
（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。
（11 ）12.有select case 语句必须有End select语句与之相匹配。
（12 ）13.Exit for是Do循环的一个出口。
（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。
（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。
（15 ）16.可以用Ubound()函数返回数组下标的下界。
（16 ）17.过程体内可以再定义另外一个过程。
（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。
（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。
vb练习题第三章
vb练习题第三章VB第三章练习一、选择题1．关于Visual Basic程序的说法不正确的是________。
A) 一行可以写多条语句，语句之间用“:”隔开B) 一条语句可以写在多行上，用“空格”加“_”作为续行标志C) 程序中的大小写字母不区分D) 变量在使用之前必须先定义类型2．Visual Basic的一条语句可以写在多行，但要用续行符，续行符应为________。
A) 一个空格加一个下划字符(_) B) 一个下划字符(_)C) 直接回车 D) 一个空格加一个连字符(-)3．Visual Basic的一行可以写多条语句，语句之间用________隔开。
A) 逗号 B) 分号 C) 顿号_ D) 冒号4．下列说法不正确的是 ________。
A) 注释语句是非执行语句，仅对程序的有关内容其注释作用，它不被解释和编译B) 注释语句可以作为代码中的一行C) 注释语句不可以放在其他语句的后面D) 代码中加入注释语句的目的是提高程序的可读性5．下列说法不正确的是________。
A) 调试程序时，使用解释运行方式比较方便B) 解释运行方式比编译运行方式运行应用程序的速度慢C) 解释运行方式必须在Visual Basic集成环境下使用D) 解释运行方式和编译运行方式都必须在Visual Basic集成环境下使用6．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。
以下操作顺序正确的是________。
① 创建应用程序的界面② 编写程序代码，建立事件过程③ 设置对象属性④ 调试运行程序，生成可执行文件A) ①②③④ B)①③②④ C) ②①④③ D) ②③①④7．新建工程的快捷键是________ 。
A) Crtl+A B)Crtl+D C) Crtl+N D) Crtl+E8．工程文件的扩展名是________。
A) frm B) frx C) cls D)vbp9．假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为"Visual Basic Test"的语句为________。
全国计算机等级考试VB语言模拟试题(附答案)
全国计算机等级考试VB语言模拟试题（附答案）一、选择题（每题2分，共20分）1. 以下不属于VB的数据类型的是（）A. 整数类型B. 浮点数类型C. 字符串类型D. 布尔类型答案：D2. 在VB中，变量必须声明在（）A. 过程中B. 窗体中C. 模块中D. 以上都可以答案：A3. VB中，数组的默认下标范围是（）A. 0 到 10B. 0 到 65535C. -32768 到 32767D. 1 到 100答案：B4. 以下叙述错误的是（）A. VB是面向对象的程序设计语言B. VB中的窗体是VB应用程序的基本组成部分C. VB中的模块是VB应用程序的基本组成部分D. VB中的工程是VB应用程序的基本组成部分答案：C5. 在VB中，以下哪个不是事件过程？（）A. ClickB. LoadC. WriteD. Run答案：D6. 在VB中，要将字符串转换为数值型数据，应使用（）A. Val函数B. Int函数C. Str函数D. Date函数答案：A7. 下面哪个函数可以实现求绝对值的功能？（）A. Abs(x)B. Sqr(x)C. Int(x)D. Fix(x)答案：A8. VB中，DateDiff函数用于计算两个日期之间的（）A. 年数B. 月数C. 星期数D. 天数答案：D9. VB中，Randomize语句的作用是（）A. 初始化随机数发生器B. 生成一个随机数C. 清除随机数发生器D. 设置随机数的范围答案：A10. 下列哪个关键字用于定义常量？（）A. DimB. ConstC. LetD. Var答案：B二、填空题（每题2分，共20分）1. 在VB中，______用于声明一个变量。
答案：Dim2. VB中，______语句用于打开一个文件。
答案：Open3. 在VB中，______函数用于求一个数的平方根。
答案：Sqr4. VB中，______语句用于关闭打开的文件。
答案：Close5. 在VB中，______用于定义一个过程。
VB模拟试题试及参考答案
VB模拟试题试及参考答案2016VB模拟题第⼀套单项选择题得分：1: 计算机的基本⼯作原理是__C______。
A. 可靠性与可⽤性B. ⾼速度与⾼精度C. 存储程序与程序控制D. 具有记忆功能2: 计算机中数据的表⽰形式是____A____。
A. ⼆进制B. ⼋进制C. ⼗进制D. ⼗六进制3: 电⼦邮件标识中带有⼀个“别针”，表⽰该邮件_____C_。
A. 设有优先级B. 带有标记C. 带有附件D. 可以转发4: 安装防⽕墙的主要⽬的是__C______。
A. 提⾼⽹络的运⾏效率B. 对⽹络信息进⾏加密C. 保护内⽹不被⾮法⼊侵D. 防⽌计算机数据丢失5: 淘宝⽹的⽹上购物属于计算机现代应⽤领域中的___C___。
A. 计算机辅助系统B. 电⼦政务C. 电⼦商务D. 办公⾃动化6: Visual Basic中标准模块⽂件的扩展名是____D__。
A. FrmB. VbpC. ClsD. Bas7: 启动程序时，系统⾃动执⾏启动窗体的___A___事件过程。
A. LoadB. UnloadC. ClickD. DblClick8: 下列_____C_⽅法可以显⽰窗体。
A. HideB. UnLoadC. ShowD. WindowState9: 已知a="123456789"，则表达式Mid(a, 5, 2) + Left(a, 2)的值是_____B___。
A. "5689"B. "5612"C. 68D. 125610: 下列不正确的赋值语句是__C____。
A. x=30-yB. y=x+30C. x+y=30D. y=x\311: 下列选项中，合法的变量名是_B______ 。
A. 1_xB. x_1C. x-1D. x 112: 下列选项不是Visual Basic基本数据类型的是______A__。
A. CharB. StringC. BooleanD. Double13: 在下列表达式中，正确的⽇期型常量是__D____ 。
《VB程序设计》历年全真模拟试卷三及答案
《VB程序设计》历年全真模拟试卷三一. 选择题(每小题2分，共30分)下列各题A、B、C、D四个选项中，只有一个选项是正确的。
请将正确选项填在答题卡相应位置上，。
1、InputBox函数返回值的类型为（）。
A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）2、可以同时删除字符串前导和尾部空格的函数是（）。
A、 LtrimB、RtrimC、TrimD、Mid3、表达式1+ 45 \ 6 * 4 / 8 Mod 9 的值是（）A、4B、5C、6D、74、以下可以作为VB变量名的是 ( )A、SINB、AO1C、COS（X）D、X（-1）5、VB算术运算符乘或除、整除、求余的优先级，从高到低依次为（）。
A、乘或除、求余、整除B、整除、乘或除、求余C、整除、求余、乘或除D、乘或除、整除、求余6、表达式（）可以计算字符串变量x 的长度。
A、Str(x)B、Len(x)C、Len(x)-1D、Val(x)7、将文本框控件的( )属性设置为False，可正常显示文本但不可编辑。
A、LockedB、EnabledC、MultiLineD、Visible8、滚动条控件的（）属性用于指定用户单击滚动箭头时Value属性值的增量。
A、LargeChangeB、ChangeC、ValueD、SmallChange9、设窗体上有一个列表框控件List1，其中含有若干列表项。
且列表项只能单选,则以下能表示当前被选中的列表项文本内容的是（）.A、List1.ListB、List1.ListIndexC、List1.IndexD、List1. Text10、以下能够触发文本框Change事件的操作是（）A、文本框失去焦点B、文本框获得焦点C、单击文本框D、改变文本框的内容11、在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Click()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum + iNext iText1.Text = SumEnd Sub上述程序的运行结果是（）。
vb第三阶段复习题
第三阶段复习题菜单、文件、对话框、多重窗体菜单和对话框1．VisualBasic的对话框分为3类，这3类对话框是。
A．输入对话框、输出对话框和信息对话框B．预定义对话框、自定义对话框和文件对话框C．预定义对话框、自定义对话框和通用对话框D．函数对话框、自定义对话框和文件对话框【解答】C2．下列不能打开“菜单编辑器”窗口的操作是。
A．按Ctrl+E键B．单击工具栏中的“菜单编辑器”按钮C．执行“工具”菜单项中的“菜单编辑器”命令D．按Shift+Alt+M键【解答】D3．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为。
A．MenuItem.Enabled=False B．MenuItem.Enabled=TrueC．MenuItem.Visible=True D．MenuItem.Visible=False【解答】A4．以下叙述中错误的是。
A．在同一窗体的菜单项中，不允许出现标题相同的菜单项B．在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C．程序运行过程中，可以从新设置菜单的Visible属性D．弹出式菜单也在菜单编辑器中定义【解答】A5．对话框在关闭之前，不能继续执行其他操作，这种对话框属于。
A．输入对话框 B．输出对话框C．模式（模态）对话框 D．无模式对话框【解答】C6．假设在窗体上已经添加了通用对话框CommonDialog控件并设置好了属性，其名称是CommonDialogl，在程序中执行了CommonDialogl. Filter=All Files(*.*)|*.*| Windowsd源文件(|*.wmf)|*.wmf|位图(*.bmp)|*.bmpI语句后，在对话框的文件列表中出现的选项个数是。
A．1 B．3 C．6 D．该语句有错，不能执行【解答】B7．打开菜单编辑器的方法有4种，以下不能打开菜单编辑器的操作是。
可视化程序设计（VB）模拟试题
可视化程序设计（VB）模拟试题第一篇：可视化程序设计(VB)模拟试题可视化程序设计（VB）一、填空题（32分，共 8 题，每小题 4 分）1.要使用通用对话框控件，必须首先在“部件”对话框中选择______，将其添加到工具箱中。
2.运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： ______。
3.运行时，要使工具栏控件T oolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。
4.在用手工方式设计工具栏时，可以设置工具按钮的______ 属性为其添加功能提示。
5.用户自定义类型中的元素类型可以是字符串，但该字符串必须是 ______。
6.设a=sqr（2）*sqr（3），下列语句的输出结果分别是。
print format$（a，“000.00”）print format$（a，“###.#00”）print format$（a，“00.00E+00”）print format$（a，“－#.####”）7.如果需要将窗体载入内存却不显示，需要将该窗体的______ 属性设置为False，再用 ______ 语句装载。
8.随机产生一个范围是(100，300）的整数，表达式为 ______。
二、程序阅读题（24分，共 3 题，每小题 8 分）1.写出下列事件过程的执行结果。
Private Sub Command1_Click()s3(1)s3(1)End SubPrivate Sub s3(ByVal a As Integer)Dim x As Integer Static y As Integerx=x+ay=y+aPrint “x=”;x, “y=”;yEnd Sub2.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。
标准模块：Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20End Type窗体模块：Private Sub Command1_Click()D im n%, zgr As txr Open “d:txrf1.dat”For Random As #1Len = Len(zgr)zgr.num = InputBox(“输入新职工编号：”) = InputBox(“输入新职工姓名：”)zgr.tel = InputBox(“输入新职工电话号码：”)zgr.addr = InputBox(“输入新职工住址：”)n =(1)(2)Close #1End Sub3.本程序有一个标准模块和一个窗体模块。
vb模拟试卷3
1、打开工程文件st1.vbp,在窗体上从上到下添加两个文本框，名称分别为Text1、Text2；再添加1个命令按钮，名称为Command1，标题为"选中字符数是"。
程序运行时，在Text1中输入若干字符，选中部分内容后，单击"选中字符数是"按钮，则选中的字符个数显示在Text2中(如图所示)。
请编写按钮的Click事件过程。
要求：程序中不得使用变量，事件过程中只能写一条语句。
按照原名保存文件，不得重新命名。
Private Sub Command 1_Click ()Text 2=Text1.sellewEnd Sub2、打开工程文件st2.vbp,在窗体上添加一个名称为List1的列表框，通过属性窗口分别输入4个列表项："数学"、"物理"、"化学"、"语文"，如图所示。
请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为"英语"；单击窗体时，则删除最后一个列表项。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
按照原名保存文件，不得重新命名。
Private Sub Form_Form()List1.Remove Item List Count-1Private Sub Form_Load()List1.Add Item “英语”,43、打开工程文件st3.vbp,在窗体上添加一个命令按钮，名称为Command1，标题为"命令按钮"。
然后建立一个菜单，标题为"控件"，名称为menu0，包含两个子菜单顶，一个是"显示命令按钮"，名称为menu1；另一个是"隐藏命令按钮"，名称为menu2，如图所示。
编写适当的事件过程，使得程序运行时，如果选择"显示命令按钮"菜单命令，则显示命令按钮；而如果选择"隐藏命令按钮"菜单命令，则隐藏命令按钮。
VB试题3
单项选择==================================================表达式（-1）*sgn(-100+int(rnd*100))的值是__________.A、0B、1C、随机数D、-1答案：B赋值语句：a=123+MID("123456",3,2)执行后，a变量中的值是____________。
A、123B、"12334"C、157D、12334答案：C下面____________是不合法的整常数。
A、100B、&O100C、&H100D、%100答案：D表达式（7\3+1）*(18\5-1)的值是___________.A、8.67B、7.8C、6.67D、6答案：D以下不合法的常量是_____________.A、10^2B、100C、10E+01D、100.0答案：A下列字符串中________________是合法变量。
A、x \ y ,x>yB、exp,123,x * yC、char_1,student,No,a1234D、end ,1bcx答案：C要判断月收入在2000元以上（含2000元）且5000元以下（不含5000元的职工，应该使用的逻辑表达式是____________。
A、M>2000 Or M<=5000B、M>=2000 Or M<5000C、M>2000 AND M<=5000D、M>=2000 AND M<5000答案：D下面正确的赋值语句是____________。
A、x+y=30B、3y=xC、y=π*r*rD、y=x+30答案：DVB表达式Sqr(a+b)^3*2中优先进行运算的是________。
A、*B、Sqr函数C、+D、^答案：C语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为__________.A、Int(-13.2)=13.2B、Int(-13.2)=-14C、Int(-13.2)=-13.2D、Int(-13.2)=-13答案：B执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。
内蒙对口升学计算机VB模拟试题三带答案
23 在窗体上画一个名称为Label1的标签，然后编写如下事件过程_____。
Private Sub Form_Click（）Dim arr（10，10）As IntegerDim i As Integer，j As IntegerFor i = 2 To 4For j = 2 To 4arr（i，j）= i * jNext jNext iLabel1.Caption = Str（arr（2，2）+ arr（3，3））End Sub程序运行后，单击窗体，在标签中显示的内容是_____。
A）12 B）13 C）14 D）1524 设有如下程序，其功能是用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值，请选择程序中空处应为_____。
Option Base 1Private Sub Command1_Click（）Dim arr1Dim Min As Integer，i As Integerarr1 = Array（12，435，76，-24，78，54，866，43）Min = _____For i = 2 To 8If arr1（i）《Min Then Min=arr1（i）Next iPrint “最小值是：”; MinEnd SubA）-24 B）886 C）arr1（1）D）arr1（0）25 以下程序的输出结果是_____。
Option Base 1Private Sub Command1_Click（）Dim a（10），p（3）As Integerk=5For i=1 To 10a（i）=INext iFor i=1 To 3p（i）=a（i*i）Next IFor i=1 To 3k=k+p（i）*2Next iPrint kEnd subA）33 B）28 C）35 D）3726 以下程序段运行的结果是________。
Dim a（-1 To 5）As BooleanDim flag As Booleanflag=falseDim i As IntegerDim j As IntegerDo Until flag=TrueFor i=-1 to 5j=j+1If a（i）=False Thena（i）=TrueExit ForEnd IfIf i=5 Thenflag=TrueEnd IfNextLoopPrint jA）20 B）7 C）35 D）827 以下有关数组定义的语句序列中，错误的是______。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
模拟试题三一、单选题1. Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
(A) 事件驱动 (B) 按过程顺序执行(C) 从主程序开始执行 (D) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
(A) Backcolor (B) BorderStyle(C) Forecolor (D) Backstyle3. 在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。
(A) 文本框 (B) 命令按钮(C) 窗体 (D) 标签4. 要判断在文本框是否按下Enter键，应在文本框的 B 事件中判断。
(A) Change (B)KeyDown(C) Click (D)KeyPress5. 数学表达式3≤x<lO在VB中的逻辑表达式为 D 。
(A) 3<=x<10 (B) 3<=x AND x>10(C) x>=3 Or x<10 (D) x>=3 AND x<106. Rnd函数不可能为下列 B 值。
(A) 0 (B) 1 (C) 0.1234 (D) 0.00057. 赋值语句:a=123+Mid("123456"，3，2)执行后，a变量中的值是 D 。
(A) "12334" (B) 123 (C) 12334 (D) 1578. 对于语句If x=l Then y=l，下列说法正确的是 C 。
(A) x=l和y=l均为赋值语句(B) x=l和y=l均为关系表达式(C) x=l为关系表达式，y=l为赋值语句(D) x=l为赋值语句，y=l为关系表达式9. 下面程序段表示求两个数中的大数， D 不正确。
(A) Max=IIf(x>y，x，y) (B) If x>y Then Max=x Else Max=y(C) Max=x (D) Ify>=x Then Max=yIf y>=x Then Max=y Max=x10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C 。
Private Sub Text1_Change( )Print Text1;End Sub(A) ABCD (B) A (C) AABABCABCD (D) AB ABC ABCD ABCD11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B 。
(A) For i=1 to 4 (B) For i=1 to 4n=1 F or j=1 to iFor j=1 to I n=1n=n*j n=n*jNext j Next jPrint n Print nNext I Next i (C) n=1 (D) n=1For j=1 to4 j=1n=n*j Do While j<=4Print n n=n*jNext j Print nj=j+1Loop 12.如下数组声明语句，则数组a包含元素的个数有 B 。
Dim a(3, -2 to 2, 5)(A) 120 (B) 75 (C) 60 (D) 1313.以下程序的输出结果是 D 。
Dim aa=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a) to Ubound(a)a(i)=a(i)*a(i)Next iPrint a(i)(A) 49 (B) 0 (C) 不确定 (D) 程序出错14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。
(A) Dim (B) Private (C) Public (D) Static15.如下程序，运行的结果是 C 。
Dim a%, b%, c%Public Sub p1(x%, y%)Dim c%x=2*x: y=y+2: c=x+yEnd SubPublic Sub p2(x%, ByVal y%)Dim c%x=2*x: y=y+2: c=x+yEnd SubPrivate Sub Command1_Click( )a=2: b=4: c=6Call p1(a, b)Print “a=”; a; “b=”; b; “c=”; cCall p2(a, b)Print “a=”; a; “b=”; b; “c=”; cEnd Sub(A) a=2 b=4 c=6 (B) a=4 b=6 c=10a=4 b=6 c=10 a=8b=8 c=16(C) a=4 b=6 c=6 (D) a=4 b=6 c=14a=8 b=6 c=6 a=8 b =8 c=616.复选框的Value属性为1时，表示 B 。
(A) 复选框未被选中 (B) 复选框被选中(C) 复选框内有灰色的勾 (D) 复选框操作有误17.下面关于菜单的说法中，错误的是 B 。
(A) 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件(B) 除了Click事件之外，菜单项还能响应其他的，如DbClick事件(C) 菜单项的快捷键不能任意设置(D) 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择18.下面关于多重窗体的叙述中，正确的是 B 。
(A) 作为启动对象的Main子过程中能放在窗体模块中(B) 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体(C) 没有启动窗体，程序不能执行(D) 以上都不对19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D 。
(A) 发生DeActivate事件(B) 发生LostFocus事件(C) 发生DeActivate和LostFocus事件(D) DeActivate和LostFocus事件都不发生20.顺序文件是因为 D 。
(A) 文件中的数据按每行的长度从小到大排序好的(B) 文件中的数据按某个关键数据项从大到小进行排序(C) 文件中的数据按某个关键数据项从小到大进行排序(D) 数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出21.文件号最大可取值为 B 。
(A) 255 (B) 511 (C) 512 (D) 25622.Print #1, STR$1中的Print是 A 。
(A) 文件的写语句 (B) 在窗体上显示的方法(C) 子程序名 (D) 以上均不是23.以下的属性和方法中 D 可重定义坐标系。
(A)Drawstyle属性 (B) DrawWidth属性(C) Scale方法 (D) ScaleMode属性24.封闭图形的填充方式由下列 C 属性决定。
(A) DrawStyle, DrawMode (B) AutoRedraw, ClipControls(C) FillStyle, FillColor (D) ForeColor, BorderColor25.下列字符串中， D 不包含在ADO数据控件的ConnectionString属性中。
(A) Microsoft Jet 4.0 OLE DB Provider(B) Data Source=C:\Mydb.mdb(C) Persist Security Info=False(D) 2-adCmdTable二、填空题1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性只能在属性窗口设置2．在文本框中，通过 text 属性能活得当前插入点所在的位置。
3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 6 。
4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 true 。
5．要获得动态数组的上界通过 ubound函数，下界通过 lbound 函数。
6．由Array函数建立的数组，其变量类型必须是变体类型。
7．VB中的变量按其作用域分为全局变量、模块变量和全程变量。
8．复选框的 value 属性设置为2——Grayed时，变成灰色，禁止用户选择。
9．滚动条响应的重要事件有 scroll 和Change。
10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 commondialog1.showcolor 方法显示。
11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300, -150)，则X轴的正向向右，Y轴的正向向上。
12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π。
13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。
14．VB中工程文件的扩展名为 .vbp 。
15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 keypress 事件获得输入键值的ASCII码。
16．VB中对象的三要素是属性、方法和事件。
三、编程应用题1.程序阅读(1)Private Sub Command1_Click( )Dim s as String, i%s=＂abcd＂For i=Len(s) to 1 step -1Print Mid(s, i, 1)Next iEnd Sub答案：dcba(2)Sub Swap1(ByVal x%, ByVal y%)Dim t%t = x: x = y: y = tEnd SubSub Swap2(ByRef x%, ByRef y%)Dim t%t = x: x = y: y = tEnd SubSub Command1_Click()Dim a%, b%a = 10:b = 20Print "调用Swap1前 a和b的值为："; a; bCall Swap1(a, b)Print "调用Swap1后按传值方式 a和b的值为："; a; b a = 10: b = 20Call Swap2(a, b)Print "调用Swap2后按传地址方式 a和b的值为："; a; b End Sub答案：调用Swap1前 a和b的值为：10；20调用Swap2后按传地址方式 a和b的值为：20；10(3)Private Sub Command1_Click( )Dim x%, y%, z%x=242: y=44z=x*yDo Until x=yIf x>y Then x=x-y Else y=y-xLoopPrint x, z/xEnd Sub答案：22 4842.补充程序(1) 以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。