VB程序填空复习题
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
江苏省计算机二级考试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考试基础试题
一、选择题：1、Visual Basic是一种面向( )的程序设计语言A、用户B、事件C、程序D、对象2、Visual Basic主要用于开发哪种环境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一个逻辑型变量在内存当中占的存储空间是（）A、一个字节B、两个字节C、四个字节D、八个字节4、在Visual Basic6.0中规定窗体文件的扩展名是：A、frmB、forC、vbpD、bas5、一辆黑色汽车驶进车站，则驾驶、黑色、汽车、进站依次对应__________A、对象，属性，事件，方法B、属性，对象，事件，方法C、方法，属性，对象，事件D、事件，属性，对象，方法6、在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加( )A、逗号（，）B、冒号（：）C、单引号（’）D、问号（?）7、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）A、Label 控件B、TextBox 控件C、Timer 控件D、CommandButton 控件8、如果要改变窗体的标题,需要设置窗体对象的_____属性。
A、CaptionB、NameC、BackColorD、BorderStyle9、要在C盘当前文件夹下建立一个名为Stu1.txt的顺序文件，应先使用( )语句：A、Open " Stu1.txt" For Output As#2B、Open "C：Stu1.txt" For lnput As#2C.、Open "C：Stu1.txt" For Output As#2 D、Open " Stu1.txt " For lnput As#210、Private Sub Command1_Click()Static X As IntegerDim Y As IntegerY = Y + 5 : X = X + 5Print X, YEnd Sub程序运行时，第三次单击命令按钮Commandl后，窗体上显示的结果为( ) A．5 5 B．15 5 C. 15 15 D．5 1511、在Visual Basic中，以下选项中表示窗体的装入事件的是：A、KeyUpB、ClickC、ActivateD、Load12、如果每一秒激发一次计时器事件，则设置计时器（Timer）控件的Interval属性为（）：A、1000B、100C、10D、113、下列标识符书写正确的是（）A、9xB、X1+X2C、C*D、X614、表达式运算结果Int(-5.2)是（）A、-5B、5C、-6D、615、下列（）属性是每个控件都有的。
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重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。
2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。
3.VB6.0集成开发环境不包括DOS界面窗口。
4.当运行程序时，系统自动执行启动窗体的Load事件过程。
5.下面关于对象的描述中，对象就是自定义结构变量是错误的。
6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。
7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。
8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。
9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。
10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。
11.要使命令按钮不可操作，需对其Enabled属性进行设置。
12.文本框没有Caption属性。
13.不论何种控件，共同具有的是Name属性。
14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。
15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。
15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。
15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。
16.保存新建的工程时，默认的路径是Windows。
17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。
18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
程序设计语言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、以下程序的功能是从键盘上随意输入一个数，判断这个数是正数、负数、仍是零，并输出判断结果。
程序中有三处错误，请改正。
程序以下：Private Sub Command1_Click()Dim a As SingleDim py As Stringa=Val(Text1)If a>0 Then py="正数"If a=0 Then py="零"If a<=0 Then py="负数"=aEnd Sub①_________________________ ② ___________________________ ③ _____________________2、完美程序，使其能输出：1-2+3-4+5-6+...+99-100的值。
程序以下：Private Sub Command1_Click()s=_____For i=1 To _____s=s+((-1)^(______))*iNext iPrint sEnd Sub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，此中 a 不等于0。
编写程序，求方程的根，要求：假如方程无实数根，则输出“无实数根”，不然输出两个实数根。
程序以下：Private Sub Command1_Click()Dim a,b,c,d As SingleDim x1,x2 As Singlea=Valb=Valc=Vald=b^2-4*a*cIf d________ Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)=x1=x2_______=______End IfEnd Sub4、假以下边程序履行后输出的结果是132，请将程序增补完好：Private Sub Command1_Click()i = 12: s = 1Do While _________________s = s * ii = i - 1LoopMsgBox (s)END Sub5、下边的程序是求7! （ 7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向___对象_______的可视化程序设计语言，采取了____事件驱动______的编程机制。
2、在VB中工程文件的扩展名是___vbp_________，窗体文件的扩展名是_____frm_______，标准模块文件的扩展名是_____bas_______。
3、执行“工程”菜单下的____部件______命令，可选择并添加ActiveX控件。
控件。
4、Visual Basic 6.0用于开发___windows______环境下的应用程序。
环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（C ）A．设计模式．汇编模式 D．中断模式．中断模式．运行模式 C．汇编模式．设计模式 B．运行模式2、可视化编程的最大优点是（C ）A．具有标准工具箱．具有标准工具箱B．一个工程文件由若干个窗体文件组成．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象．不需要编写大量代码来描述图形对象D．所见即所得．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D ）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（D ）A．可视化．面向图形 D．事件驱动．事件驱动．面向对象 C．面向图形．可视化 B．面向对象三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用___tabstop___________属性。
vb考试试题及答案
vb考试试题及答案一、选择题1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Option答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVarB. var2C. 123variableD. my$Var答案：C3. VB中，下列哪个选项是正确的条件语句？A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案：A4. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 在VB中，下列哪个选项是正确的循环结构？A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案：D二、填空题1. 在VB中，声明一个整型变量并赋值为100的语句是：________。
答案：Dim myVar As Integer = 1002. VB中，用于输出信息到立即窗口的函数是：________。
答案：Debug.Print3. VB中，用于暂停程序执行的函数是：________。
答案：Sleep4. VB中，用于获取当前日期的函数是：________。
答案：Date5. VB中，用于将字符串转换为整型的函数是：________。
答案：CInt三、简答题1. 简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。
2. 描述VB中如何实现多线程编程。
答案：在VB中，可以使用Thread类或BackgroundWorker组件来实现多线程编程。
VB填空题及答案
二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。
全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。
Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。
Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。
x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。
x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。
（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的Visual Basic 表达式是： __ 。
sqr （s*（s-a ）*（s-b ）*（s-c ））8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。
（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。
5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。
2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。
C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。
│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。
VB程序设计
《VB程序设计》综合复习资料一、填空题1.在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
2.一个控件在窗体的位置由______和________属性决定，其大小由__________和_________属性决定。
3.变量的声明分为两种方法:__________和____________。
4.使用____________方法可在窗体中进行文本的输出,用____________方法可画圆，用____________方法可画直线。
5.类是具有相同性质的对象的_________.6.利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点.7.文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。
8.在VB中,用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。
9.在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”.运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2中。
请填空。
Private Sub Command1_Click（）Sum = 0For i=0 To 4Sum=Sum+____Next i_____=SumEnd Sub10.在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。
vb程序设计考试题库及答案
vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. VB中，使用________函数可以将一个字符串转换为小写。
VB填空题题库
VB填空题题库1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。
答案：122) 语句a%=3.14156:Print a%的输出结果是______。
答案：33) 以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop答案：114) Fix(5.8)的值是______答案：55) 下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A答案：A=116) 表达式3/6*5的值是_______。
答案：2.57) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
If a<b Thend=a:a=b:b=dEndIfIf a<c Thend=a:a=c:c=dEndIfIf_____Thend=b:b=c:c=dEndIfPrint a,b,c答案：b<c8) 在Select case 结构中应至少包含一个______子句。
答案：CASE9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。
答案：赋值10) 有如下Sub过程:Sub ind(a As Integer)Static x As Integerx = x+aPrint x;End Sub以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。
Private Sub Command1_Click()Ind(2)End Sub答案：211) 逻辑常量值为TRUE或_______。
答案：FALSE12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。
答案：413) 表达式（2+8*3）/2的值是______。
答案：1314) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。
VB考试试题及答案
二、选择题1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown2、滚动条控件(如图所示)的Max属性所设置的是 A 。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select * Form student 中的*表示 B 。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 C 。
A、EnabledB、CaptionC、Default D、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。
A、CaptionB、NameC、Text D、Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。
A、CaptionB、NameC、Text D、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。
A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示 A 。
Private Sub Command1_Click( )Print "VB";Print "Hello! ";Print "VB"End SubA、VBHello!VBB、VBHello!VBC、VBD、VBHello! VBHello!VB9、语句Print "The answer is:";20/4-2的结果为 B 。
A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 B 。
Visual_Basic程序设计·选择填空题[打印版]
![Visual_Basic程序设计·选择填空题[打印版]](https://img.taocdn.com/s3/m/edf298c59ec3d5bbfd0a74ff.png)
Visual Basic程序设计一、选择题1、在设计应用程序时，可以查看到应用程序工程所有组成部分的窗口是（D）。
A、窗体设计B、代码C、属性D、工程资源管理器窗口2、窗体的load事件的触发时机是（B）。
A、用户单击窗体时B、窗体被加载时C、窗体显示之后D、窗体卸载时3、与传统的程序设计语言相比，Visual Basic 最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术4、VB6.0集成开发环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏5、如果对象的名称为Mytext ,而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（B）。
A、 text.MytextB、Mytext.TextC、Mytext.(Text)D、Mytext*Text6、下列可以激活属性窗口的操作是（D）。
A、用鼠标双击窗体的任何部位B、执行“工程“菜单中的”属性窗口“命令C、按Ctrl+F4D、按F47、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（A）。
A、单击窗体上没有控件的地方B、单击任一个控件C、不执行任何操作D、双击窗体的标题栏8、如果要在文本框键入字符时，只显示某个字符，如果（*），应设置文本框的（B）属性。
A 、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中的内容在运行时不能编辑，需要文本框的（A）属性设置为True.A Locked B、MultiLine C、TabStop D、Visible10 对于定时器（Tiner）控制，设置其定时是否开启的属性是（C）A、IndexB、TagC、EnabledD、Left11、要在窗口体Fornl 内显示“myfrm”使用的语句是（ C）A、Form.caption=“myfrm”B、Fornl.caption=“myfrm”C、forml.print“myfrm”D、form.print“myfrm”12、对象的性质和状态特征称为（C）A、事件B、方法C、属性D、类13、下列正确的赋值语句是（B）A、x+y=20B、y=x+20C、3x=yD、s=14、当使用上下文相关的帮助时，选择要帮助的内容，然后按（D）键，就可出现MSDN窗口直接显示所需的帮助信息A、HelpB、F10C、EseD、F115、将调试通过的工程经“文件”菜单的“生成.exe文件“编绎成名.exe后，将该可执行文件放到其它机器上不能运行的主要原因是（D）。
vb题库-填空题（上海海事）
vb题库-填空题（上海海事）vb题库-填空题(上海海事)1、写出用随机函数产生一个200至300之间整数的VB表达式【1】.答案：200★+★Int(★Rnd*100★) 或200★+★Int(★100*Rnd★)2、已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.答案：DE3、VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条或滚动条4、想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上【1】.答案：&5、列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表或列表6、设置控件背景颜色的属性名称是【1】.答案：backcolor7、如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有【1】个元素.答案：218、定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次【1】事件.答案：Timer9、写出清除标签Label1的显示信息的语句为【1】.答案：Label1.caption="" 或Label1="" 或Label1.Caption=""10、写出清除图片框的文字或图形信息的语句【1】.答案：Picture1.cls 或cls11、滚动条控件有水平滚动条和【1】滚动条. 答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E访问,应设置属性【1】.答案：Caption14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性. 答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案：form1.scale (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案：lstBooks.AddItem "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*1522、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3) 23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\Calc.exe,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\Calc.exe") 或shell("calc.exe")24、设置计时器控件只能触发【1】事件.答案：timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案：form1.circle (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】. 答案：Picture1.move 200,100,picture1.width/sqr(2),picture1.height/sq r(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll和【1】事件.答案：Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.pic1.Circle (pic1.width/2,pic1.height/2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案：interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案：CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false.答案：MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案：click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：Command1.SetFocus 或SetFocus38、滚动条控件主要支持两个事件,它们是scroll 和【1】事件.答案：change39、文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件或随机40、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案：041、循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】.答案：042、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案：043、VB中,变量的声明可分为两种方法:【1】数组和动态数组.答案：静态44、Option Base 1的作用是确定数组的下界为【1】. 答案： 145、VB中,变量的声明可分为两种方法:隐式声明和【1】.答案：显式声明46、一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式【1】.答案：a<>0★and★b^2-4*a*c>=047、在VB 6.0中,设Single型变量XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】.答案：STR 或CSTR48、由Dim a (10) As single定义的数组占用【1】字节的内存空间.答案：4449、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】.答案：V AL 或Cint50、在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案：MultiLine51、大于X 的最小整数的VB表示形式为【1】. 答案：Int(x)+1 或Int(x)★+★152、一个工程可以包括多种类型的文件,其中扩展名为.bas的文件表示【1】文件.答案：标准模块或模块53、在VB 6.0中,变量名最长可达【1】个字符. 答案：25554、在VB中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案：Caption55、在控件之中,【1】不能从工具箱中被删除. 答案：内部控件或标准控件56、在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.答案：Option Explicit57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name和【1】.答案：caption58、一个工程可以包括多种类型的文件,其中ActiveX控件的文件扩展名为【1】.答案：OCX59、在利用Visual Basic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误60、要使一个按钮无效,则可把它的Enable属性设为【1】.答案：False61、在VB中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互.答案：方法62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：工程63、一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案：窗体64、要使同一类型控件组成一个控件数组,必须要求【1】.答案：Name 相同或名称相同65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案：Default66、在VB中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义.答案：ReDim67、在控件之中,【1】单独保存在.OCX文件中,在必要时可以加入到工具箱中.答案：ACTIVEX控件68、VB中的变量按其作用分为全局变量,模块变量,【1】.答案：局部变量69、在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant 和【1】.答案：Integer70、设x为大于零的实数,则大于x的最小奇数的Visual Basic表达式是【1】.答案：IIF(int(x) mod 2=0,int(x)+2,int(x)+1) 71、说明变量类型有隐含类型说明和【1】两种方法.答案：强制类型或强制类型说明72、表达式(-3) Mod 8的值为【1】.答案：–373、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】.答案：a345674、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】.答案：False75、String(3, "abc")的结果为【1】.答案：aaa76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】".答案：中断77、VB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符.答案：连接78、Integer类型的变量占用【1】字节空间.答案： 279、表达式81\7 MOD 2^2 的值是【1】.答案： 380、设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】.答案：(x mod 10)★*★10★+★int(x/10)81、求x与y之积除以z的余数的VB表达式为【1】.答案：x*y★Mod★z82、变量min&表示【1】类型的变量.答案：长整型83、A和B同为正整数或同为负整数的VB表达式为【1】.答案：A=INT(A)★AND★B=INT(B)★AND ★A*B>084、Val("123.55ab456")的值是多少【1】.答案：123.5585、表达式"[A]"Like "[A]"的值为【1】.答案：False86、sst="ABC12DE",则Val(sst)=【1】.答案：087、VB表达式9^2 MOD 45 \2 *3 的值【1】. 答案：488、表达式32\7 MOD 3^2 的值是【1】. 答案： 489、默认情况下,所有未经显示声明的变量均视为Variant 类型,如果要强制变量的声明,应在模块的声明段使用【1】语句.答案：Option Explicit90、征兵的条件:男性(sex)年龄(age)在18—20岁之间,身高(size)在 1.65米以上;或者女性年龄在16—18岁之间,身高在1.60以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>=1.65 ) or (notsex and age>=16 and age<=18 and size>=1.60 )91、把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：False92、a 和b 中有仅只有一个为1,相应的VisualBasic逻辑表达式为【1】.答案：a=1★xor★b=193、设x=2,y=4,a=4,b=6,表达式(a>x Xor b答案：True94、把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案：True95、如果:I=12:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-196、如果:I=11:J=3:I=int(-8.6)+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】. 答案：x>=1 and x<12 或x<12 and x>=198、声明单精度常量g(重力加速度)代表9.8可写成【1】.答案：const g=9.8 或const single g=9.8100、X=2:Y=8:PRINT X+Y=10的结果是【1】. 答案：True101、声明单精度常量P1代表3.14159的语句为答案：Const PI=3.14159 或Const pi As Single = 3.14159102、VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、VB6.0的连接运算符包括【1】运算符和【2】运算符两种.答案：（1). & 或+ （2). & 或+ 105、表达式1 and 0的值【1】.答案：False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案：True108、设x为大于零的实数,则大于x的最小偶数的Visual Basic 表达式是【1】.答案：iif(int(x) mod 2=0,int(x)+2,int(x)+1) 109、声明定长为10个字符变量Sstr的语句为答案：Dim Sstr as String*10 或Sstr as String*10110、表达式(-3) And 8 的值为【1】.答案：True111、Print "x=" & (2=4) 的结果为【1】.答案：x=False。
VB试题及答案
VB试题及答案（二）一、填空题1. 在Visual Basic6.0中，按变量作用域的不同可将变量分为全局变量和局部变量两种；声明静态变量的关键字为 Static ;2. 在Viual Basic6.0中，程序结构有顺序、选择、循环 3种结构。
3. 控制控件是否可见的属性为 Visible ；控制控件是否可用的属性为 Enabled ；控件的位置是由 Left 和 Top 属性来确定的；控件的大小是由 Width 和 Height 属性来确定；控件上所显示的文本是由 Caption 属性来设定的；4. 与鼠标有关的事件包括 Click 、 DblClick 、MouseDown 、 MouseUp MouseMove ，其中 Click 事件在单击控件时被激发， MouseDown 事件在鼠标键被按下时被激发， MouseUp 事件在鼠标被松开时被激发。
5. 与键盘有关的事件包括 KeyPress 、 KeyDown 、 KeyUp ，其中 KeyPress 事件在单击键盘键时被激发， KeyDown 事件在按下键盘键时被激发， KeyUp 事件在松开键盘键时被激发。
6. 向列表框和组合框中添加列表时，可使用 AddItem 方法；删除选定的列表，可使用 RemoveItem 方法；删除全部列表项，可使用 Clear 方法。
7. 定时器控件能够响应的唯一事件为 Timer ，并且该事件被激发的时间间隔由 Interval 属性来给定。
8. 弹出式菜单一般不直接显示在窗体上，因此菜单的 Visible 属性一般设为False。
要显示弹出式菜单可以用 PopupMenu 方法。
9. 工具栏一般显示在菜单栏下面，由命令按钮组成；状态栏一般显示在窗体的底部，由窗格（Panels）组成。
10. 在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色，其中线条类型由 DrawStyle 属性来设置，线条宽度 DrawWidth 属性来设置，绘图模式由 DrawMode 属性来设置，填充样式由 FillStyle 属性来设置。
- 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"ElsePri nt “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二位构成的数是否为素数，若是显示“是素数”否则为“非素数”。