VB编程题完整版 3
VB作业3
VB第三次作业（8～10章）一、选择题（每题2分，共2×20＝40分）1、要获得当前驱动器应使用驱动器列表框的属性是A．PathB．DriveC．DirD．Pattern2、设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是A．Alt+F2B．BBBBBC．随机出几个数D．文本框平均内容无变化3、下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFont=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd SubA．Text1的字体不发生变化B．Text1的字体发生变化C．Text1的字体和颜色发生变化D．程序出错！4、以下叙述中错误的是A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)C) KeyPress事件中不能识别键盘上某个键的按下与释放D) KeyPress事件中可以识别键盘上某个键的按下与释放5、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”6、以下叙述中正确的是A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input #语句可以从随机文件中读取数据7、目录列表框的Path属性的作用是A) 显示当前驱动器或指定驱动器上的目录结构B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 显示该路径下的文件8、设有语句open "c：\Test．Dat" For OutPut As#1则以下错误的叙述是A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息9、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键10、假定有如下事件过程：PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y AsSingle)If Button＝2 thenPopupMenu popFormEnd ifEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)popForm 是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2 表示按下的是鼠标左键11、当函数EOF（）的返回值为真时，表示文件的指针指向（）。
小学vb考试试题及答案
小学vb考试试题及答案一、选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A2. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. StrC. MidD. Left答案：A3. VB程序设计语言中，以下哪个选项是正确的注释方式？A. '// 这是一个注释'B. '/* 这是一个注释 */'C. ' 这是一个注释'D. " 这是一个注释"答案：C4. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As String(5)答案：A5. VB中，以下哪个选项用于实现循环结构？A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：B6. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Property答案：B7. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A8. 在VB中，以下哪个选项用于实现条件判断？A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案：A9. VB程序设计语言中，以下哪个选项是正确的事件处理方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Private Function Button1_Click()D. Public Function Button1_Click()答案：A10. 在VB中，以下哪个选项用于实现文件的打开操作？A. OpenB. CloseC. PrintD. Write答案：A二、填空题（每题2分，共20分）1. 在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期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
计算机vb试题及答案
计算机vb试题及答案1. 题目：使用编写一个程序，实现对一个整数数组的排序。
答案：```Module Module1Sub Main()Dim arr As New Integer() {5, 2, 9, 1, 5, 6}Console.WriteLine("原始数组:")PrintArray(arr)Array.Sort(arr)Console.WriteLine("排序后的数组:")PrintArray(arr)Console.ReadKey()End SubSub PrintArray(arr As Integer())For Each i As Integer In arrConsole.Write("{0} ", i)NextConsole.WriteLine()End SubEnd Module```2. 题目：编写一个程序，计算并输出一个数的阶乘。
答案：```Module Module1Sub Main()Dim number As Integer = 5Dim factorial As Long = Factorial(number)Console.WriteLine("{0} 的阶乘是 {1}", number, factorial)Console.ReadKey()End SubFunction Factorial(n As Integer) As LongIf n = 0 Or n = 1 ThenReturn 1ElseReturn n * Factorial(n - 1)End IfEnd FunctionEnd Module```3. 题目：使用创建一个程序，该程序可以计算一个圆的面积。
答案：```Module Module1Sub Main()Dim radius As Double = 5.0Dim area As Double = Math.PI * radius * radiusConsole.WriteLine("半径为 {0} 的圆的面积是 {1}", radius, area)Console.ReadKey()End SubEnd Module```4. 题目：编写一个程序，实现简单的字符串反转。
vb期末考试编程试题及答案
vb期末考试编程试题及答案VB期末考试编程试题一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. 以上都是答案：B2. VB中，用于循环遍历数组的关键字是：A. ForB. WhileC. DoD. Repeat答案：A3. 下列哪个是VB中的条件语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个不是内置数据类型？A. IntegerB. StringC. ObjectD. Array答案：D5. VB中，以下哪个是正确的函数调用方式？A. Call MyFunction()B. MyFunction()C. Both A and BD. None of the above答案：C二、简答题（每题10分，共30分）1. 解释VB中的类和对象的区别。
答案：类是对象的蓝图，它定义了对象的结构和行为。
对象是类的实例，是类的具体实现。
一个类可以创建多个对象，每个对象具有自己的状态和行为。
2. 描述如何使用VB中的事件。
答案：在VB中，事件是一种由对象引发的通知，用于通知其他对象发生了某些事情。
事件通常与事件处理器（也称为事件处理程序）一起使用。
事件处理器是响应事件的代码块。
要使用事件，首先需要定义一个事件，然后在对象上引发该事件，并编写事件处理器来处理该事件。
3. 解释VB中的继承和多态性。
答案：继承允许一个类（子类）继承另一个类（父类）的属性和方法。
这使得代码重用成为可能。
多态性是指允许不同类的对象对同一消息做出响应，但具体的行为会根据对象的实际类型而有所不同。
在VB中，多态性可以通过重载（方法名相同，参数不同）和重写（子类重写父类的方法）来实现。
三、编程题（每题25分，共50分）1. 编写一个VB程序，该程序可以接收用户输入的三个整数，并计算它们的平均值，然后输出结果。
VB程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
VB程序设计VB教程习题3答案
4. 将窗体的_________属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。
（A）ControlBox （B）Visible （C）Enabled （D）BorderStyle
参考答案为C
5. 以下说法正确的是___________。
（A）窗体文件的扩展名为 .vbp
MsgBox (Msg$)
End Sub
2. 编应用程序，在窗体上显示由如下“*”号构成的三角形图案。
*
* * *
* * * * *
* * * * * * *
* * * * * * * * *
参考答案：
设计界面如图，程序代码如下：
Private Sub Form_Click()
Form1.Print Tab(15); "*"
参考答案：Form窗体、Font
3.下述程序段在运行时的显示结果是_________。
Dim x As Single
Cls
x=1.344+8
Print Len(x)
参考答案：4
4. 以下语句Print Int（12345.6789*100+0.5）/100的输出结果是_________。
参考答案：12345.68
（B）一个窗体对应一个窗体文件
（C）Visual Basic中的一个工程只包括一个窗体
（D）Visual Basic中一个工程最多可以包含256个窗体文件
参考答案为B
6.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是_________。
（A）Load（B）Click（C）Unload（D）GotFocus
计算机二级vb试题题目及答案
计算机二级vb试题题目及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的字符串比较？A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案：B2. VB中，哪个函数可以用来计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Size答案：A3. 在VB中，以下哪个选项表示创建一个名为“myForm”的窗体？A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案：D4. VB中，下列哪个选项是正确的文件打开模式？A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案：D5. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. FloatD. All of the above答案：D6. VB中，哪个关键字用来声明一个变量？A. DimB. DeclareC. ConstD. All of the above答案：D7. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D8. VB中，哪个函数可以用来获取当前系统日期？A. NowB. DateC. TimeD. Today答案：D9. 在VB中，以下哪个选项表示创建一个名为“myButton”的按钮？A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案：D10. VB中，哪个关键字用来结束一个程序的运行？A. EndB. ExitC. StopD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
(完整word)VB_经典考试题及答案,推荐文档
目录一、填空题 (2)二、选择题 (5)三、程序填空 (18)四、阅读程序写结果 (25)五、编程题 (31)六、历年全国计算机二级等级考试真题(附答案) (33)2006年4月全国计算机等级考试二级VB笔试试卷 (33)2005年9月全国计算机等级考试二级VB笔试试卷 (43)2005年4月全国计算机等级考试二级VB笔试试卷 (50)2004年9月全国计算机等级考试二级VB笔试试卷 (57)一、填空题1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。
2、VB 集成发环境窗口，它包括了数个独立的窗口。
除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。
3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。
4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。
5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。
6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。
7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。
8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。
9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。
10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。
11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。
12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体.13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。
高中vb编程试题及答案
高中vb编程试题及答案高中VB编程试题及答案一、选择题（每题2分，共10分）1. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. DimD. Const答案：B2. 以下哪个选项不是VB中的控件？A. TextBoxB. LabelC. ButtonD. Panel答案：D3. VB中，以下哪个函数用于返回字符串的长度？A. Len()B. Mid()C. Left()D. Right()答案：A4. 在VB中，以下哪个语句用于结束一个循环？A. EndB. ExitC. LoopD. Next答案：D5. VB中，以下哪个选项表示十六进制数？A. &HB. &OC. &BD. &D答案：A二、填空题（每题2分，共10分）1. 在VB中，使用_________关键字可以定义一个变量。
答案：Dim2. VB中的_________控件用于显示文本，但不允许用户编辑。
答案：Label3. 使用_________函数可以将字符串转换为大写。
答案：UCase4. 在VB中，_________语句用于在数组中声明多个元素。
答案：ReDim5. VB中，_________事件用于响应按钮点击。
答案：Click三、简答题（每题5分，共15分）1. 描述VB中如何创建一个简单的窗体应用程序。
答案：在VB中创建一个简单的窗体应用程序，首先需要打开VB集成开发环境（IDE），然后选择新建项目，选择窗体应用程序模板。
接着，使用工具箱中的控件（如按钮、文本框等）在窗体上进行拖放，设置控件属性，编写相应的事件处理代码。
最后，通过编译和运行按钮测试应用程序。
2. 解释VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户的输入、系统消息等）触发。
在VB中，事件驱动编程意味着程序的执行依赖于用户的操作，如点击按钮、输入文本等，这些操作会触发相应的事件处理程序，从而执行特定的代码。
VB编程题及详细参考答案
二、编程题（本题20分，必做）新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。
窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。
(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为蓝色（5分）。
(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。
（20分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上Private Sub Command1_Click()Label1.ForeColor = &HFF0000Label1.Caption = "颜色已经改变"End SubPrivate Sub Command2_Click()Label1.FontSize = 28End Sub三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：(1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中（9分）。
(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数（9分）。
（提示：使用数组存储数据）（25分）本题要求填写源程序，请将你解答本题所写的源程序粘贴到下面请单击按钮上载文件，将你创建的frm文件上载到服务器上Dim a(100) As IntegerPrivate Sub Command1_Click()For i = 0 To 100a(i) = Int(Rnd * 100)List1.AddItem a(i), iEnd SubPrivate Sub Command2_Click()Dim s As Integers = 0For i = 0 To 100If a(i) Mod 2 = 1 ThenList2.AddItem a(i)s = s + 1If s >= 20 Then Exit ForEnd IfNext iEnd Sub四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）编写程序，求下面数列前30项的和。
VB语言程序设计习题3
《VB语言程序设计》习题3一、单项选择题1.图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是（）。
A、AutoSizeB、StretchC、AutoRedrawD、Appearance2.常用控件的Style属性值是（）。
A、字符常量B、逻辑常量C、数值常量D、日期常量3.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（）属性。
A、BackColorB、BorderStyleC、ForeColorD、BackStyle4.在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是（）。
A、MoveB、ChangeC、ScrollD、GetFocus5.为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（）。
A、VisbleB、TimerC、EnabledD、Interval6.在列表框中当前被选中的列表项的序号由（）属性表示。
A、ListB、IndexC、ListindexD、Tabindex7.保存一个工程至少应保存两个文件，这两个文件分别是（）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件8.为了装入一个Visual Basic应用程序，应当（）。
A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件9.要使Print方法在Form_Load事件中起作用，要对窗体的（）属性进行设置。
A、BackcolorB、ForeColorC、AutoRedrawD、BackStyle10.Cls方法可以清除窗体或图片框中的（）内容。
A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上均可11.当运行程序时，系统自动执行窗体的（）事件过程。
A、LoadB、ClickC、UnloadD、GotFocus12.Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。
高中vb试题题目及答案
高中vb试题题目及答案高中VB试题题目及答案一、选择题1. VB是一种面向对象的编程语言，它的全称是什么？A. Visual BasicB. Visual C++C. Visual FoxProD. Visual Pascal答案：A2. 下列哪个是VB中的保留字？A. MyNameB. DimC. IfD. Print答案：B3. 在VB中，以下哪个语句用于定义变量？A. SubB. FunctionC. DimD. For答案：C4. VB中，哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A5. VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A二、填空题1. 在VB中，________ 语句用于定义一个过程。
答案：Sub 或 Function2. VB中的________ 属性用于设置控件的可见性。
答案：Visible3. VB中，________ 方法用于在文本框中显示文本。
答案：Text4. VB中，________ 属性用于设置控件的标题。
答案：Caption5. VB中，________ 属性用于设置控件的背景颜色。
答案：BackColor三、简答题1. 简述VB中事件处理程序的作用。
答案：事件处理程序是VB中响应用户操作或系统生成的事件的代码块。
当特定的事件发生时，如按钮点击或表单加载，相应的事件处理程序会被执行。
2. 解释VB中的类和对象的区别。
答案：类是一个模板，定义了对象的结构和行为，而对象是类的实例，具有类定义的属性和方法，可以进行操作和交互。
四、编程题编写一个VB程序，实现以下功能：- 创建一个文本框，用于输入数字。
- 创建一个按钮，点击后将文本框中的数字转换为相反数，并在文本框中显示结果。
```vbPrivate Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.ClickDim num As Integernum = Val(TextBox1.Text)TextBox1.Text = (-num).ToString()End Sub```结束语通过本试题的练习，同学们应该对VB的基本语法、控件使用以及事件处理有了更深入的理解。
vb程序设计试题及答案
vb程序设计试题及答案为了帮助大家更好地理解和掌握VB程序设计，下面将为大家提供一套VB程序设计试题及答案。
通过完成这些试题，相信能够对VB程序设计有更深入的了解和应用。
请注意，以下试题中给出的是简要描写，实际编写程序时请适当完善。
试题一：计算两个数字的和与差要求：编写一个VB程序，输入两个数字，然后输出它们的和与差。
答案：```vbPrivate Sub btnCalc_Click()Dim num1, num2, sum, diff As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2diff = num1 - num2lblSum.Caption = "和：" & sumlblDiff.Caption = "差：" & diffEnd Sub```试题二：学生成绩统计要求：编写一个VB程序，输入3位学生的成绩，然后计算并输出平均成绩和最高成绩。
答案：```vbPrivate Sub btnCalc_Click()Dim score1, score2, score3, average, max As Integerscore1 = Val(txtScore1.Text)score2 = Val(txtScore2.Text)score3 = Val(txtScore3.Text)average = (score1 + score2 + score3) / 3max = WorksheetFunction.Max(score1, score2, score3)lblAverage.Caption = "平均成绩：" & averagelblMax.Caption = "最高成绩：" & maxEnd Sub```试题三：简单计算器要求：编写一个VB程序，实现一个简单的计算器功能，包括加减乘除四则运算。
VB考试试题三
18、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是______。（1分）
A、1个“$” B、4个“$”
C、不显示内容 D、“*”
A、面向过程 B、面向对象
C、事件驱动 D、可视化
6、能产生[10，32]之间随机整数的函数表达式为______。（1分）
A、Int(Rnd*22)+10 B、Int(Rnd*23)+10
C、Int(Rnd*22)+11 D、Int(Rnd*23)+11
7、下列各组中，两个函数功能完全相反的是______。（1分）
本卷共有3道大题:
一、单项选择题（40道小题，共40分）
1、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是______。（1分）
A、Load B、Click
C、DblClick D、MouseDown
2、每个对象的事件名称______。（1分）
A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键 B、选择图片框，然后按Del键
C、执行语句 Picture1.Picture = LoadPicture("") D、执行语句 Picture1.Picture = ""
5、Visual Basic的编程机制是______。（1分）
C、QUICK Basic Programing D、Quick BASIC Programing
37、Print DateDiff("m", #1/28/2004#, #1/31/2004#)的输出结果是______。（1分）
计算机程序设计-VisualBasic【VB】考试试题(3)
14、下列所列符号中，_________是 VB 中的合法变量名。
A、 7AB B、 AB7 C、 IF D、 A[B]7 正确答案： B 解析：
15、下列逻辑表达式中，值为 True 的是________。
A、 111. B、 11.10 C、 111.00 D、 11.1a 正确答案： A 解析：
28、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
A、 定时器 B、 滚动条 C、 多媒体 D、 框架 正确答案： C 解析：
3、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。
A、 属性窗口 B、 工具箱窗口 C、 工程资源管理器窗口 D、 代码窗口 正确答案： D 解析：
4、VB6.0 集成开发环境中，不能完成的功能是（ ）。
A、 编译生成可执行程序 B、 输入编辑源程序 C、 调试运行程序 D、 自动查找并改正程序中的错误 正确答案： D 解析：
A、 递归结构、选择结构、循环结构 B、 选择结构、过程结构、顺序结构 C、 选择结构、循环结构、顺序结构 D、 过程结构、输入输出结构、转向结构 正确答案： C 解析：
45、下列赋值语句中，正确的是__ ______。
A、 x+1=5 B、 a&="10e" C、 x!="abc" D、 s$=100 正确答案： D 解析：
31、如果 Sgn(x) 的值为 -1，则整型变量 x 的值是_______。
vb试题及答案
vb试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案：B2. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 以下哪个是VB的事件？A. ClickB. PrintC. DrawD. Open答案：A4. 在VB中，以下哪个语句用于结束程序？A. EndB. ExitC. StopD. Quit答案：A5. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、多选题（每题3分，共15分）1. VB中，以下哪些是合法的变量名称？A. 2variableB. variable2C. _variableD. variable$答案：B, C2. VB中，以下哪些是合法的常量声明方式？A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案：A, D3. 在VB中，以下哪些是控件的属性？A. NameB. CaptionC. TextD. Value答案：A, B, C4. VB中，以下哪些是控制流程语句？A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案：A, B, C, D5. VB中，以下哪些是数组的声明方式？A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案：A, B, D三、判断题（每题1分，共5分）1. VB是一种面向对象的编程语言。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（1）选择结构（2）循环结构（3）数组（4）过程1.输入3个数，输出最大的数2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！”4.输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
7.输入两个整数，求它们的最大公约数。
8.编程求200--400范围内5的倍数或7的倍数之和。
(一个数如果同时是7和5的倍数，则只能加一次。
9.计算100~300之间所有能被3和7整除的数之和10.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
11.某次歌曲大奖赛，有7个评委。
如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
12.输入一串字符，统计其中字母A(不区分大小写)出现的次数。
13.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？15.求100以内的素数16.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。
17.编程求斐波那契数列前11项。
（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ）18.将输入的字符串以反序显示。
例如：输入“ASDFGT”，显示“TGFDSA”19.随机产生10个[30,100]内的整数，求最大值及所对应的下标20.随机产生10个[30,100]内的整数，求最大值、最小值和平均值。
21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。
22.随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。
23.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。
24.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和25.已知有序数组a()，编程插入x（x的值为14）。
数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。
26.编写一函数，计算Double类型一维数组所有元素的平均值。
27.用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.28.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。
29.编一个函数，求一维数组a中的最大值，函数的形参自己确定。
30.编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函数或子过程）来实现。
调用该过程。
(提示：只能被1和自身整除的自然数称为素数。
)1.输入3个数，输出最大的数Private Sub Command1_Click()x = InputBox("键入第一个数")y = InputBox("键入第二个数")z = InputBox("键入第三个数")Max = xIf Max < y Then Max = yIf Max < z Then Max = zPrint "最大值"; MaxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel1= "方程有根"ElseLabel1 = "方程无根"End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！”Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > 60 ThenVal (MsgBox("恭喜！成绩通过！"))ElseVal (MsgBox("抱歉！成绩没有通过！"))End IfEnd Sub4.4输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = Val(Text1)If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenMsgBox (y & "年是闰年")ElseMsgBox (y & "年不是闰年")End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
Private Sub Command1_Click()a = Val(InputBox("请输入成绩"))If a > 100 Then Print "超出范围"If a >= 90 And a <= 100 Then Print "优秀"If a >= 80 And a < 90 Then Print "良好"If a >= 70 And a < 80 Then Print "中等"If a >= 60 And a < 70 Then Print "及格"If a < 60 Then Print "不及格"End Sub6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
Private Sub Command1_Click()Dim x%, x1%, x2%, x3%T ext1 = Int(Rnd * 900 + 100)x = Val(Text1)x1 = x Mod 10x2 = (x Mod 100) \ 10x3 = x \ 100T ext2 = x1 * 100 + x2 * 10 + x3End Sub7.输入两个整数，求它们的最大公约数private Sub Command1_Click()n1 = InputBox("输入n")m1 = InputBox("输入m")If m1 > n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopPrint "m n 的最大公约数是："; nEnd Sub8.编程求200--400范围内5的倍数或7的倍数之和。
(一个数如果同时是7和5的倍数，则只能加一次。
Private Sub Command1_Click()Dim s1%, s2%, s3%, i%s1 = 0s2 = 0For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 Thens1 = s1 + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 Thens2 = s2 + iEnd IfNext is3 = s1 - s2Print s3End Sub9、计算100~300之间所有能被3和7整除的数之和Private Sub Command1_Click()Dim iSum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iPrint SumEnd Sub10、分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNext iPrint "3的倍数"; s3Print "7的倍数"; s7End Sub11、某次歌曲大奖赛，有7个评委。
如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。
Private Sub Command1_Click()Dim max, a(1 To 7), min, sFor i = 1 To 7a(i) = Val(InputBox("输入第" & i & "个数"))Next imax = a(1)min = a(1)s = a(1)For i = 2 To 7If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)s = s + a(i)Next is = s - min - maxs = s / 5Print "平均分"; sEnd Sub12、输入一串字符，统计其中字母A(不区分大小写)出现的次数。