VB编程题目及答案

第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入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程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox("输入第" & i & "个数"))If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是" ; 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 ThenLabel4 = "方程有根"ElseLabel4 = "方程无根"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整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年份")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年！"))ElseVal (MsgBox("平年！"))End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。

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初级测试题及答案一、选择题（每题2分，共20分）1. VB中用于声明变量的关键字是？A. VarB. DimC. LetD. Set答案：B2. 下列哪个是VB中的保留字？A. MyB. MeC. YouD. It答案：B3. 在VB中，用于输出信息到立即窗口的函数是？A. MsgBoxB. PrintC. Debug.PrintD. Console.WriteLine答案：C4. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D5. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足特定条件？A. Do...LoopB. For...NextC. While...WendD. If...Then答案：A6. VB中，哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在VB中，如何将字符串转换为整型？A. StrConvB. CIntC. ValD. CStr答案：B8. VB中，哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. NowD. Format答案：A9. 在VB中，如何声明一个数组？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Dim myArray(5)D. Dim myArray As Integer答案：A10. VB中，哪个属性用于获取或设置表单的标题？A. CaptionB. TextC. TitleD. Name答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________函数可以打开一个文件进行读取。

答案：Open2. VB中的________属性用于设置或返回一个控件的可见性。

答案：Visible3. 使用________函数可以在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考试题及答案VB考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个是正确的整型变量声明？A. Dim a% As IntegerB. Dim a As Integer%C. Dim a As IntegerD. Dim a Integer答案：C2. VB中的Print方法用于在窗体上显示输出，以下哪个是正确的输出语句？A. Print "Hello, World!"B. Print "Hello, World!", 1C. Print 1, "Hello, World!"D. Print "Hello, World!"; 1答案：A3. 在VB中，以下哪个是正确的布尔型变量声明？A. Dim b BooleanB. Dim b As BooleanC. Dim b Boolean AsD. Dim b As Boolean As答案：B4. VB中，以下哪个函数用于获取当前日期？A. Now()B. Date()C. Time()D. Today()答案：B5. 在VB中，以下哪个是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr As Integer(5)D. Dim arr As Integer(5 To 10)答案：A6. VB中，以下哪个是正确的字符串连接操作？A. str1 & str2B. str1 + str2C. str1 || str2D. str1.Concat(str2)答案：A7. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 ElseD. If x > 0 End If答案：A8. VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 1 To 10 DoC. For i = 1 To 10 LoopD. For i = 1 To 10 Next答案：A9. 在VB中，以下哪个是正确的函数声明？A. Function MyFunction() As IntegerB. Function MyFunction As IntegerC. Function MyFunction() IntegerD. Function MyFunction Integer答案：A10. VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Click()B. Private Sub Form_Click As IntegerC. Private Sub Form_Click() IntegerD. Private Sub Form_Click() As Integer答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是______。

高中vb编程试题及答案 高中VB编程试题及答案 1. 以下哪个选项是Visual Basic的编程语言？ A. C++ B. Java C. Python D. VB.NET 答案：D

2. 在VB.NET中，下列哪个关键字用于定义一个类？ A. Function B. Sub C. Class D. Module 答案：C

3. 在VB.NET中，如何声明一个名为“myVar”的整型变量？ A. Dim myVar As Integer B. Declare myVar As Integer C. Var myVar Integer D. Integer myVar 答案：A

4. VB.NET中，哪个函数用于计算两个数的和？ A. Sum B. Add C. Aggregate D. +（运算符） 答案：D

5. 在VB.NET中，以下哪个选项是正确的循环结构？ A. For Each B. Do While C. Repeat Until D. All of the above 答案：D

6. 在VB.NET中，如何使用条件语句判断一个变量是否大于10？ A. If myVar > 10 Then B. If > myVar 10 Then C. If myVar = 10 Then D. If myVar > 10 Else 答案：A

7. VB.NET中，以下哪个选项是正确的事件处理程序？ A. Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click B. Function Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) C. Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) D. Function Button_Click(ByVal sender As System.EventArgs) 答案：A

实验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章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。

选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。

（2）设置对象属性，见表。

（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。