VB程序设计编程考试题及答案
vb程序设计题及答案
vb 程序设计题及答案篇一：vb 程序设计试题及答案】txt> 一、单选题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 键，应在文本框的d 事件中判断。
(a) change (b)keydown(c) click (d)keypress5. 数学表达式3W xIO在vb中的逻辑表达式为d 。
(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。
(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ，3，2)执行后，a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ，下列说法正确的是c 。
(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式，y=I 为赋值语句(d) x=I 为赋值语句，y=I 为关系表达式9. 下面程序段表示求两个数中的大数，d 不正确。
(a) max=iif(xy ，x，y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时，窗体上显示的是c。
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程序设计试题及答案一、选择题（每题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程序设计编程考试题及答案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程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
vb编程题及答案
v b编程题及答案1. 在代码中引用一个控件时，应使用控件的(b)属性。
A.C ap t ionB.Na meC. TextD. Index2. 设变量X= 4, y =—1, a= 7, b =—8, 下面表达式(a)的值为“假＂。
A x+a <= b—yB x > 0 A N D y < 0C.a = b O R x>yD. x+y > a+b AN D NOT (y < b)3. 表达式I nt(Rnd71)+10产生的随机整数范围是(C)。
A. (10, 80)B. (10, 81)C. [10, 80]D. [10, 81]4. 函数Sgn(3. 1416)的返回值是(C)。
A. —1B. 0C. 1D. 以上都不对5.67890属于(d)类型数据。
A. 整型B.单精度浮点数C.货币型D.长整型6. 下列变量名中正确的是(d)。
A. 3SB.PrintC. Sel ect M y NameD.Sel ect—l7. 下列赋值语旬(a)是有效的。
A. u m= u m—u mB.x+2 = x + 2C.x + y = u mD. l as t= y / 08. 以下的控件或方法具有输入和输出双重功能的为(b)。
A.PrintB. Text b oxC.O t ionb u ttonD.C h eck b o x9. 若要获得列表框中被选中的列表项的内容，可以通过访问(d)属性来实现。
()。
A.Na me B.Li t lndex C.Li t C ou nt D. Text10. 下列代码的运行结果为(b)。
Priv a t e S u b m a nd l—cl ick()D i m m(lO)For k=1 T o10m(k) = 11—kN ext kX = 5Print m(2 + m(x))End S u bA. 2B. 3C.4D. 5标准控件不包括（）控件。
vb期末考试试题和答案
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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转换为不及格.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％x = Text1x1 = x Mod 10x2 = （x Mod 100）\ 10x3 = x \ 100Label1 = 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（)For i = 200 To 400If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd IfNext iFor i = 200 To 400If i Mod 5 = 0 And i Mod 7 = 0 ThenSum = Sum - iEnd IfNext iPrint “倍数之和="; SumEnd 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(不区分大小写)出现的次数。
Private Sub Command1_Click(）Dim c As String, a As Integerb = InputBox("请输入字符”)For i = 1 To Len（b）c = UCase(Mid（b，i，1)）If c = ”A" Thena = a + 1End IfNext iPrint ”a出现的次数：”；aEnd Sub13.我国目前有13亿人口，按人口年增长率0。
8％计算，多少年后我国人口将超过26亿.Private Sub Command1_Click()Dim a，ia = 13i = 0Do While a 〈26a = a * (1。
008）i = i + 1LoopPrint iEnd Sub14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少？Private Sub Command1_Click(）Dim a，ia = 1For i = 1 To 6a = 2 ＊（a + 1)Next iPrint "小猴原有桃”；a；”只"End Sub15.求100以内的素数Private Sub Command1_Click()Dim i，jFor i = 2 To 100For j = 2 To i — 1If i Mod j = 0 Then Exit ForNext jIf j = i Then Print iNext iEnd Sub16.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元，母鸡每只3元,编程求解购鸡方案。
Private Sub Command1_Click（）Print ”小鸡”；" ”；”母鸡"；””；”公鸡"Print ””For x = 1 To 100For y = 1 To 100For z = 1 To 100If 0.5 ＊x + 2 * y + 3 * z = 100 ThenPrint ”"；x; ” "；y；" "；zEnd IfNext zNext yNext xEnd Sub17.编程求斐波那契数列前11项。
（斐波那契数列：F（0）=f（1）=1, F（n)=F（n—1）+F(n-2)n〉=2 )Private Sub Command1_Click（）Dim F（11）, i As LongF（0) = 1F(1）= 1For i = 2 To 10F（i）= F(i - 1) + F（i - 2）Next iFor i = 0 To 11Print F（i）;Next iEnd Sub18.将输入的字符串以反序显示。
例如：输入“ASDFGT"，显示“TGFDSA”Private Sub Command1_Click（）Dim a，b，c, d，na = InputBox(”输入字符串”）n = Len（a）For b = 1 To Int（n \ 2)c = Mid（a, b, 1)Mid(a, b, 1）= Mid(a, n - b + 1, 1）Mid（a，n - b + 1，1）= cNext bPrint aEnd Sub19.随机产生10个［30，100]内的整数，求最大值及所对应的下标Private Sub Command1_Click（）Dim a(1 To 10），mRandomizeFor I = 1 To 10a（I）= Int（Rnd ＊71）+ 30Print a（I)Next IMax = a(1）For I = 2 To 10If a（I）〉Max Then Max = a（I）：m = INext IPrint ”max=”；MaxPrint ”max的下标为”；mEnd Sub20.随机产生10个［30，100］内的整数，求最大值、最小值和平均值。
Private Sub Command1_Click(）Dim a（1 To 10)For i = 1 To 10a（i）= Int(Rnd ＊71）+ 30Print a（i)Next iMax = a(1)Min = a(1)Avg = a(1)For i = 2 To 10If a（i) > Max Then Max = a（i)If a（i) 〈Min Then Min = a(i）Avg = Avg + a（i)Next iAvg = Avg / 10Print ”max="；MaxPrint "min="; MinPrint ”avg=”；AvgEnd Sub21.随机产生10个[30,100］内的整数,求最小值及所对应的下标。