VB程序填空复习题
VB填空选择150题
ID sjh th 16001 17002 18003 19004 20005 21006 22007 23008 24009 250010 260011 270012 280013 290014 300015 15111 16112 17113 18114 19115 20116 21117 22118 23119 241110 251111 261112 271113 281114 291115 15221 16222 17223 18224 19225 20226 21227 22228 23229 242210 252211 262212 272213 282214 292215 1533116332 17333 18334 19335 20336 21337 22338 23339 243310 253311 263312 273313 283314 293315 15441 16442 17443 18444 19445 20446 21447 22448 23449 244410 254411 264412 274413 284414 294415 15551 16552 17553 18554 19555 20556 21557 22558 23559 245510 255511 265512 275513 285514 295515 15661 16662 1766318664 19665 20666 21667 22668 23669 246610 256611 266612 276613 286614 296615 15771 16772 17773 18774 19775 20776 21777 22778 23779 247710 257711 267712 277713 287714 297715 15881 16882 17883 18884 19885 20886 21887 22888 23889 248810 258811 268812 278813 288814 298815 15991 16992 17993 18994 1999520996 21997 22998 23999 249910 259911 269912 279913 289914 299915tg下面正确的语句行是________。
江苏省计算机二级考试VB程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
VB经典填空题
《VB》经典填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。
2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。
3、工程文件的扩展名为，窗体文件的扩展名为。
4、属性窗口分为4个部分，这4个部分分别是、、、。
5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。
6、为了选择多个控件，可以按住键，然后单击每个控件。
7、在用Visual Basic 开发应用程序时，一般需要、、 3步。
8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。
9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。
10、为了使标签覆盖背景，应把属性设置为1。
11、为了使标签中的内容居中显示,应把属性设置为2。
12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。
14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。
16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。
19、计时器事件之间的间隔通过属性设置。
20、有时候需要暂时关闭计时器，可以通过设置属性来实现。
21、可以同时删除字符串前导和尾随空格的函数是。
22、当某一按钮的属性设置为False 时，该按钮不可见。
23、属性用于设置或返回文本框中的文本。
24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。
26、要使标签透明，可将其backstyle属性的值设为27、滚动条的属性表示滚动框在滚动条中的当前位置。
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第次考试复习题单选判断程序填空改错练习————————————————————————————————作者：————————————————————————————————日期：一、判断共19题（共计19分）第1题（1.0分）题号:684在窗体的form_load事件过程里定义的变量是局部变量。
第2题（1.0分）题号:380VB规定窗体文件的扩展名是 .vbp。
3题（1.0分）题号:681对于动态数组，在过程中可多次使用redim语句改变数组的大小。
第4题（1.0分）题号:285所有的控件在程序运行以后都是可见的。
第5题（1.0分）题号:677通常用show方法来显示通用对话框第6题（1.0分）题号:683控件数组中的各个元素由caption属性区分。
第7题（1.0分）题号:680通用对话框控件在运行的时候，是不可见的。
第8题（1.0分）题号:361设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C的值是 False。
第9题（1.0分）题号:313“菜单编辑器”中至少要填“名称”和“标题”这两个框，才能真确完成菜单栏的设计。
第10题（1.0分）题号:325VB若同一个工程有许多窗体，可以指定任一窗体为启始窗体。
第11题（1.0分）题号:335通过改变属性窗口中的Name属性，可以改变窗体上显示的标题。
第12题（1.0分）题号:324如果一个菜单项的Visible属性为False，则它的子菜单也不会显示。
第13题（1.0分）题号:678鼠标mousedown事件可以返回一个参数button用于判断用户按下的是鼠标的左键、右键、还是滑轮。
第14题（1.0分）题号:254有的对象属性既可在属性窗口中设定又可在程序代码中设定。
第15题（1.0分）题号:686时钟控件的interval属性的单位是毫秒。
第16题（1.0分）题号:248对象的可见性用enabled属性设置，可用性用visible属性设置。
《vb程序设计》期末复习题及答案
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．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<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
程序设计语言VB填空题及答案
《程序设计语言VB》填空题1. Private Sub Command1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为。
2.设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = 2* iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是。
3.阅读下列程序段Option ExplicitPrivate Sub Command1_Click()Dim str1 As StringDim str2 As Stringstr1 = "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByVal a As String, b As String) Dim c As StringDim i As IntegerFor i = Len(a) To 1 Step -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“print”语句的输出结果是___ _。
4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = Int(Rnd) + 6If x ^ 2 > 25 Then y = x ^ 2 + 5x = Int(Rnd) + 4If x ^ 2 < 25 Then y = x ^ 2x = Int(Rnd) + 5If x ^ 2 = 25 Then y = x ^ 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为__ _。
VB试题(选择、填空)
一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单__C____的下拉菜单中找到相应的激活命令。
（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是__B____。
（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是____A__。
（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是__C____。
（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是___B___。
（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是___A___。
（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是____C__。
（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
在Command1_Click()中能完成这个功能的命令为___D___。
（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是___A___。
（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下___B___是正确的For …Next结构。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
二级VB程序设计练习程序填空1．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。
数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。
Private Sub Command1_Click()Dim b(30), j As Integer, k As IntegerDim y As Integer, x As Single, min As IntegerFor j = 1 To 30lb:x = RndIf x > 0.5 Then y = 1 Else y = -1b(j) = y * Int(Rnd*301)k = 1Do While k<jIf b(j) = b(k) Then Goto lbk = k + 1LoopPrint b(j);If j Mod 10=0 Then PrintNext jmin = b(1)For j = 1 To 30If b(j) < min Then min=b(j)Next jPrint minEnd Sub2．下面程序用于对9位的准考证号进行校验。
参数mno存放准考证号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。
产生校验位的算法为：取准考证号右边的8位之和关于9的模作为校验值，准考证号最左边的一位为校验位。
Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer)Dim msum As Integer, m As Stringmsum = 0for j=2 to 9m = Mid(mno, j, 1)msum = msum + Val(m)Next jmjy = msum mod 9If mjy =val(left(mno,1)) ThenTag = 1ElseTag = 0End IfEnd SubCommand1_Click事件用于调用foe子过程，对输入到文本框Text1的准考证号进行校验，如果校验正确，显示“正确”，否则显示“错误”，同时显示正确的校验码。
Private Sub Command1_Click()Dim nn As Integer, mtag As IntegerIf Len(Text1) <> 9 Or Not IsNumeric(Text1) ThenMsgBox "非法数据，请重新输入！"Text1 = ""Text1.SetFocusExit SubEnd IfCall foe(Text1, nn, mtag)If mtag ThenPrint "正确"ElsePrint “错误” ;nnEnd IfEnd Sub3．下面的程序按从小到大的顺序随机产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。
数组b(20)用于存放所产生的随机数，运行结果如图所示。
Private Sub Command1_Click()Dim b(20), i As Integer, j As Integer, sum As Singlej = 1Dore:b(j) = Int (Rnd*301+100)If b(j) = 400 Or j = 20 ThenExit DoElseIf b(j) <= b(j - 1) ThenGoTo reEnd Ifj=j+1Loopsum = 0For i = 1 To jPrint b(i);Sum=sum+b(i)Next iPrint "aver=";sum/jEnd Sub4．新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10-（前17位之和关于10的模）。
函数foe用于对18位的身份证进行校验。
参数mstr存放身份证号，md 为产生的校验位，若校验正确，函数返回“True”，否则返回“False”。
Public Function foe(ByVal mstr$, md%) As BooleanDim mp As String, msum As Integermsum = 0For i=1 To 17mp = Mid(mstr, i, 1)msum = msum + Val(mp)Next imd = 10 – msum mod 10If md = val(right(mstr,1)) Thenfoe = TrueElsefoe = FalseEnd IfEnd FunctionCommand1_Click事件用于调用foe子过程，对输入到文本框Text1的身份证号进行校验，如果校验正确，显示“True”，否则显示“False”和的校验码值。
Private Sub Command1_Click()Dim mm As IntegerIf Len(Text1) <> 18 Or Not IsNumeric(Text1) ThenMsgBox "非法数据，请重新输入！"Text1 = ""Text1.SetFocusExit SubEnd IfIf foe(Text1, mm) = True ThenPrint "True"ElsePrint “False”;mmEnd IfEnd Sub5．End Sub本程序随机产生N（15）个A到J的大写字母，按字母降序排序后，将连续出现的字用压缩形式显示。
例如，连续5个H字母显示为5*H，参见图例。
数组a()用于存放随机产生的字母。
Private Sub Command1_Click()Const N = 15Dim a(1 To N) As String * 1, cDim count%, i%, j%, k%For i = 1 To Na(i) = Chr(Int(Rnd*10+65 ))Print a(i);Next iPrintFor i = 1 To N - 1k = iFor j = i+1 To NIf a(j) > a(k) Then k=jNext jc = a(i): a(i) = a(k): a(k) = cNext iFor i = 1 To NPrint a(i); " ";Next iPrinti = 1Do While i <= Ncount = 1If i < N Then j = i + 1Do While a(i) = a(j)count = count+1If j < N Then j = j + 1 Else Exit DoLoopIf count = 1 Then Print a(i); " "; Else Print count; "*"; a(i); " ";i =i+countLoopEnd Sub6. 本程序的功能是在窗体随机产生10个长度为1~20之间的大写字母字符串，并同时显示最长字符串的字符数及内容，如图所示。
Private Sub Command1_Click()ClsDim st(1 To 10) As String, c As String * 1Dim i%, n%For i = 1 To 10___ _For j = 1 To nc = Chr(Int(Rnd * 26 + 65))st(i) = ___ ___Next jPrint st(i)Next imaxlen = 0maxstr = ""For i = 1 To 10If ____ _ Thenmaxlen = Len(st(i))maxstr = ______End IfNext i__ __End Sub7. 两素数的差为2，称此对素数为素数对，下列程序是成对显示100以内的素数对。
其中，函数isP 的功能是判断参数m是否为素数，若是返回True ，否则返回False 。
Public Function isP(m) As BooleanDim i%For i = 2 To Int(Sqr(m))If Then IsP = FalseNext iEnd FunctionPrivate Sub Command1_Click()Dim i%p1 = IsP(3) ' 第一个可能的素数For i =p2 = IsP(i)If Then Print i 2, i ' 相邻的两个是素数，则打印p1 = ' 处理下一个素数Next iEnd Sub8. 本程序的功能是求100以内的素数，结果分三列输出，如样例所示。
算法思想：从2开始，对每一个数判断是否是素数，若是就输出，否则就继续，直至到100。
Private Sub Command1_Click()Dim n As Integer, m As Integer, i As IntegerMe.ClsFor n = 2 To 100For m = 2 To n – 1If = 0 ThenEnd IfNext mIf ThenPrint n,i = i + 1If i Mod 3 = 0 ThenEnd IfNext nEnd Sub9. 子过程isH的功能是判断正整数n是否是回文数，若为回文数，则参数Tag返回True。
单击命令按钮，输出随机产生的10个[10，100]之间的回文数（数字左右对称的正整数称为回文数）。
Private Sub Command1_Click()Dim nn%, t As Boolean, i%For i = 1 To 10nn = Int(Rnd * 991 + 10)CallIf t Then Print nn; "是回文数"Next iEnd SubSub isH(ByVal n As Integer, )Dim length%, i%, s1$s1 = Trim(Str(n))tag =length =For i = 1 To length \ 2If Mid(s1, i, 1) <> Then tag = FalseNext iEnd Sub10. 本程序的功能是判断一个5位数的最后二位构成的数是否为素数。
在窗体的文本框Text1中输入一个5位数，判断该数的第4、5二位构成的数是否为素数，若是显示“是素数”否则为“非素数”。