vb题库程序设计
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. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在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. 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程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求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程序设计考试题库(6)
VB程序设计考试题库（6）一、单选题（每题1分，共50题）1.以下不是Visual Basic的特点的选项是（未填）。
错误正确答案：BA.可视编程B.算法设计C.事件驱动D.面向对象2.Visual Basic应用程序的运行是（未填）。
错误正确答案：CA.从一个建立的窗体模块开始执行B.以最后建立的窗体模块结束C.程序执行顺序不是预先完全确定好的D.执行顺序是预先确定好的3.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（未填）。
错误正确答案：DA.单击鼠标B.双击文本框C.鼠标滑过D.按键盘上的某个键4.确定一个控件的宽度的属性是（未填）错误正确答案：CA.TopB.LeftC.widthD.Height5.下列控件对象中，属于文本框控件对象是（未填）。
错误正确答案：CMAND1BEL2C.TEXT3D.OPTION46.标准模块文件的扩展名是（未填）。
错误正确答案：CA.frmB.vbpC.basD.vbg7.为了描述x>y和y>z同时成立，则下述选项中，正确的是（未填）。
错误正确答案：DA.x>y .and Y>zB.x>y>zC.x>y and >zD.x>y and y>z8.下面（未填）是合法的单精度型变量。
错误正确答案：AA.num!B.sum%C.xint$D.mm#9.表达式Int(5*Rnd+1)*Int(5*Rnd-1)的值的范围是（未填）。
错误正确答案：DA.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]10.下列符号中哪个是VB程序中合法的变量名（未填）。
错误正确答案：AA.ab7B.7abC.IfD.a*bc11.Abc%，abc!，abc$，abc#分别声明abc是（未填）。
湖南vb程序设计二级计算机考试题库答案
湖南vb程序设计二级计算机考试题库答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. ObjectD. Double答案：C2. 下列哪个函数用于计算数组中元素的平均值？A. UBoundB. LBoundC. SumD. Avg答案：D3. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Module答案：B4. 如果要在一个文本框中显示当前日期，应该使用哪个函数？A. NowB. DateC. TimeD. Format答案：B5. 在Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A6. 下列哪个事件用于处理文本框内容改变时的响应？A. ClickB. ChangeC. DblClickD. KeyPress答案：B7. 在Visual Basic中，以下哪个控件用于显示图像？A. LabelB. PictureBoxC. CommandButtonD. TextBox答案：B8. 下列哪个关键字用于退出当前过程？A. ExitB. ReturnC. EndD. Stop答案：A9. 在Visual Basic中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Name答案：A10. 下列哪个函数用于计算两个数之间的绝对差值？A. AbsB. RoundC. IntD. Sgn答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________函数可以获取当前的系统时间。
答案：Now2. 如果要声明一个变量用于存储字符串，可以使用________关键字。
VB程序设计考试(1)
VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。
正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。
正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是（）。
正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。
正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。
正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、程序设计'【程序设计】1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。
如：'两个数为15、20，结果显示"5"'要求使用Do ... Loop语句来实现。
答案：Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopfun = n2.'题目：判断一个数是否是素数。
答案：----------------------Dim i As IntegerPrime = TrueFor i = 2 To Int(Sqr(m))If m Mod i = 0 Then Prime = False: Exit ForNext i----------------------3,'题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
将结果存入变量SUM中。
答案：----------------------Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum4,'题目：(事件)单击窗体。
(响应)求1+2+3+……+100的值，并把结果输出在窗体上。
结果存入变量SUM中。
答案：----------------------Dim i As IntegerFor i = 1 To 100sum = sum + iNextPrint sum----------------------5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。
答案：----------------------Dim y As Doubley = 1Dim i As IntegerFor i = 1 To my = y * iEnd IfNextfun = y----------------------6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。
条件如下：mark大于等于90显示"优秀"mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中等"mark小于70且大于等于60显示"及格"mark小于60显示"不及格"要求使用Select语句来实现。
答案：Select Case markCase Is >= 90fun = "优秀"Case Is >= 80fun = "良好"Case Is >= 70fun = "中等"Case Is >= 60fun = "及格"Case Elsefun = "不及格"End Select7,'题目：(事件)双击窗体(响应)求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中答案：----------------------Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum----------------------8,'题目： (事件)单击窗体。
' (响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。
答案：------------------------------------For i = 100 To 200For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNextIf j > Int(Sqr(i)) ThenSum = Sum + iEnd IfNext------------------------------------9,'题目：将一个十进制整数m转换成→r(2－16)进制字符串。
方法：将m不断除 r 取余数，直到商为零，以反序得到结果。
下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串chr函数：将ascii码转换为对应字母。
答案：----------------------Dim strDecR$, iDecR%strDecR = ""Do While idec <> 0iDecR = idec Mod ibaseIf iDecR >= 10 ThenstrDecR = Chr$(65 + iDecR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec \ ibaseLoopTrDec = strDecR----------------------10,'题目： (事件)单击按钮。
(响应)随机产生N个两位正整数（N由输入对话框输入，且N>0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。
答案：--------------------------------x = InputBox("请输入x")n = 1t = xs = xDo Until Abs(t) < 0.00000001n = n + 1t = t * (-1) / ns = s + tLoopLabel1.Caption = "s=" & s--------------------------------'题目： (事件)单击窗体。
' (响应)已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。
使用do while...loop语句完成程序答案：----------------------Dim i As Integeri = 1p = 1Do While i <= 9p = p * iIf i Mod 2 = 1 Thens = s + 1 / pi = i + 1LoopPrint ssum=s----------------------'题目： (事件)单击窗体。
' (响应)求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用for...next语句完成程序答案：----------------------Dim i As Integersum=0for i=100 to 1000if i mod 3=0 thensum=sum+iif sum>3000 thenexit forendifendifi=i+1nextPrint sum----------------------'题目： (事件)单击窗体。
' (响应)求1-100中为5或7的倍数的和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用while...wend语句完成程序答案：----------------------Dim i As Integeri = 1While i <= 100If i Mod 5 = 0 Or i Mod 7 = 0 ThenSum = Sum + iEnd Ifi = i + 1WendPrint Sum----------------------'题目： (事件)单击窗体。
' (响应)求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。
答案：----------------------Dim i As IntegerDim j As IntegerDim k As IntegerDim b As Booleanb = FalseFor i =2 To 100j = CInt(Sqr(i))For k = 2 To jIf i Mod k = 0 Thenb = TrueEnd IfNextIf b = False Thensum = sum + iEnd IfNextPrint sum----------------------'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
结果存入变量L中。
答案：----------------------Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)----------------------'题目：编写函数fun，函数的功能是：求一个四位数的各位数字的立方和答案：----------------------Dim d As Integer, k As Integer, s As IntegerWhile n > 0d = n Mod 10s = s + d * d * dn = n / 10Wendfun = s----------------------第46题（1.0分）题号:490'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目： (事件)单击窗体。
' (响应)已知sum=1-1/4+1/9-1/16+1/25...-1/100,' 请将sum结果值输出到窗体上。
' 使用for...next语句完成程序'-------------------------------------------------答案：----------------------for i = 1 to 10sum = sum + (-1) ^ (i - 1) /(i*i)nextPrint sum----------------------第48题（1.0分）题号:478'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，其功能是:能计算从1开始到n的' 自然数中偶数的平方的和。