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题库—程序填空
程序填空〖第1题〗『程序填空』(1分)(题号:59) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。
'-------------------------------------------------------Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'**********SPACE**********Case is > 0Label1.Caption = "+"Case Is < 0'**********SPACE**********Label1.Caption = "-"'**********SPACE**********Case is =Label1.Caption = "零"End SelectEnd Sub答案：1). Case Is > 02). Label1.Caption = "-"3). Case 0 或 Case Else 或 Case Is = 0〖第2题〗『程序填空』(1分)(题号:60) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。
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 对应的VisualBasic 表达式是： __ 。
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 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C）Else分支D) 程序出错4 以下关于MsgBox的叙述中，错误的是 D （见书P88-92）A）MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 DA）Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时，它的V alue属性的值是 CA) 3 B) 2 C) 1（复选框被选中显示1，不选中显示0）D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7，以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）VVV B) Vis C) sic D) 1113设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句，窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为 CA）13 B）14 C）27 D）1520 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）1 2 B） 1 2 3 C) 3 4 5 D）4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。
VB复习题
一、选择题（每题1分共20分）1、关于窗体，以下叙述中正确的是(1) 。
A．仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点B．一个VB工程只能从某个指定的窗体开始启动C．只有窗体可以作为控件的容器D．Unload Me和End语句的效果总是等同的2、若a为长整型变量，则执行a=12：Print Len(a)；Len(Str(a))；Len(CStr(a))后，在窗体上看到的是(2) 。
A．4 2 3B．2 3 2C．4 3 2D．2 2 33、表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是(3) 。
A．-8 B．-7 C．-6 D．-54、下列叙述中错误的是(4) 。
A）列表框与组合框都有List属性B）列表框有Selected属性，而组合框没有C）组合框有Style属性，而列表框没有D）组合框有Text属性、而列表框没有5、若要获得组合框中输入的数据，可使用的属性是(5) 。
A）ListIndex B）Caption C）Text D）List6、设a=5, b=6, c=7, d=8，执行语句X=IIf（（a＞b）And （c＞d）, 10, 20）后，x的值是 (6) 。
A）10 B）20 C）30 D）2007、以下关系表达式中，其值为True的是（7）。
A．"XYZ">"XYz" B．"VisualBasic"<>"visualbasic"C．"the"="there" D．"Integer"<"Int"8、以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是(8) 。
A．Left(s,i) & Right(s,Len(s)-i) B．Left(Right(s,Len(s)-i+1),i) C．Left(Right(s,i),Len(s)-i+1)D．Left(s,Len(s)-i) & Right(s,i)9、以下有关Function过程的说法中,正确的是(9) 。
vb期末复习题
Visual Basic 期末复习题一、填空题、判断题二、选择题、程序选择题三、编程题一、填空题、判断题1) 3abc为合法变量。
答案：错2) 局部变量是指那些在过程中用Dim语句或Static语句声明的变量。
答案：对3) 局部变量的作用域仅限于声明它的过程。
答案：对4) 逻辑表达式Not"a">"b" And 9<3 Or 9>3的值为true 。
对5) 使用a=b:b=a 语句可以将变量A和B的值互换。
答案：错6) 以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop 答案：117) 逻辑常量值为TRUE或_______。
答案：FALSE8) 表达式（2+8*3）/2的值是______。
答案：139) 下列程序的执行结果是____。
T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum 答案：5510) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。
答案：FALSE11) 表达式3>4 and 7=5的值是______。
答案：FALSE12) 下列程序段的执行时，共循环____次。
For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next cNext bnext a 答案：1213) 以下程序计算2到50间所有偶数的和，请补充完该程序Sub mult()Dim Sum As IntegerSum=0Dim I as integerFor___to 50If I MOD 2=___Then___Next IPrint sumEnd Sub 答案：I=2#0#SUM=SUM+IK=0DO While k<10K=k+1:______loopprint t 答案：T=T+K16) 下列程序是用来计算1＋2＋3……＋10的程序段，请补充完该程序。
《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. IntegerB. intC. longD. string答案：A2. VB中，以下哪个是正确的循环结构？A. forB. whileC. both A and BD. neither A nor B答案：C3. 在VB中，以下哪个是正确的条件语句？A. ifB. switchC. caseD. A and B答案：A4. VB中，以下哪个是数组声明的正确方式？A. Dim arr(10) As IntegerB. Dim arr = New Integer(10)C. Both A and BD. Neither A nor B答案：A5. VB中，以下哪个是调用函数的正确方式？A. Call functionName()B. functionName()C. Both A and BD. Neither A nor B答案：C二、填空题1. 在VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中的________关键字用于定义一个类。
答案：Class3. 要结束一个循环，可以使用________语句。
答案：Exit For 或 Exit Do4. 在VB中，________关键字用于定义一个子程序。
答案：Sub 或 Function5. VB中，________函数可以用来获取当前日期。
答案：Date三、简答题1. 请简述VB中的事件和委托的概念。
答案：事件是用户或程序触发的动作，如鼠标点击或键盘输入。
委托是一种特殊的多态类型，它允许将方法作为参数传递给其他方法，使得事件处理更加灵活。
2. 请解释VB中的继承概念。
答案：继承是面向对象编程的一个基本概念，它允许一个类（子类）继承另一个类（父类）的属性和方法，从而实现代码的复用。
四、编程题1. 编写一个VB程序，实现输入两个整数，计算并输出它们的和。
VB程序设计练习题及参考答案
VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。
3．在文本框中，通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。
6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置，例如，13变为31，表达式为。
8．表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。
10．int(-3.5)、int(3.5)值分别是、。
11．表达式ucase(mid(\的值是。
12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。
15．属性设置为1，单选按钮和复选框的标题显示在左边。
16．属性设置为1，单选按钮和复选框以图形方式显示。
17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
18．列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中，模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件，interval属性应设置为。
VB程序设计复习题答案
VB程序设计复习题1．Visual Basic是一种___D___的可视化程序设计语言。
A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。
A．标题栏 B．状态栏 C．工具栏 D．菜单栏3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。
A．Load B．Unload C．DblClick D．KeyPress4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是____A______。
A．单击窗体上没有控件的地方 B．单击任一个控件C．双击任一个控件 D．双击窗体上没有控件的地方5、要设置窗体上各控件的属性，可在 ____C___ 中进行。
A．窗体布局窗口 B．工程资源管理器窗口C．属性窗口 D．窗体窗口6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。
A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A)7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。
A．="统计程序" B．Form1.Caption="统计程序"C. Forml.Caption=统计程序 D．=统计程序8．函数String(n, "str")的功能是 B 。
A．把数值型数据转换为字符串B．返回由n个字符组成的字符串C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串9、定义变量如下：Dim MyVarMyVar =”come see me “若在立即窗口中显示MyVar的值，下面正确的是（ A ）A．Debug.Print MyVar B、? MyVar C．Printer.Print MyVar D、Print MyVar 10．设置复选框或单选按钮标题对齐方式的属性是（ D ）A．Align B．value C．Sorted D. Alignment11、滚动条控件的LargeChange属性所设置的是（ A ）A．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量B．滚动条中滚动块的最大移动位置C．滚动条中滚动块的最大移动范围D．滚动条控件无该属性12、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ D ）A．Caption B．Name C．Text D．value13、在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )a=Text1.textb=Text2.textC=Lcase(a)D=Ucase(b)Print C;DEnd Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是（ A ）A．abcEFG B．abcefg C．ABCefg D．ABCEFG14．假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ A ）A．Label1.BackStyle=0 B．Label1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1C．Label1.BackStyle=True D．Label1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False15．当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D ）A．Move B．Change C．SetFocus D．Scoll16．比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ C ）A．两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小B．两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分C．当图片框（PictureBox）的AutoSize属性为FaLse时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸D．当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框17．当利用Line方法进行绘图时，以下正确的说法是（ B ）A．有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B．使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C．可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BFD．可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F18．下面语句中错误的是（ B ）A． Redim Preserve Matrix(10,Ubound(Matrix,2)+1)B． Redim Preserve Matrix(Ubound(Matrix,1)+1,10)C． Redim Preserve DynArray(Ubound(DynArray)+1)D． Redim DynArray(Ubound(DynArray)+1)19．可以唯一标识控件数组中的每一个控件的属性是（ C ）A．Name B．Caption C．Index D．Enabled20、下面（ D ）不是VB的文件类控件A．DriveListBox控件 B．DirListBox控件C．FileListBox控件 D、MsgBox21、关于Open语句不正确的叙述是（ D ）（A）Open语句可以打开顺序文件（B）Open语句可以打开随机文件（C）Open语句可以打开二进制文件（D）Open语句可以打开一个窗体22、下列语句所声明的数组的元素个数为（ A ）Dim Ary(3 To 6,-2 To 2)（A）20 （B）16 （C）24 （D）2523、下面对控件数组叙述正确的是（ A ）（A）在窗体上添加第二个相同类型的控件时，VB不会提示创建一个控件数组（B）控件数组使用Index属性来标识控件元素，其范围必须从0开始（C）控件数组使用的资源比用几个单独同类型的控件占用的资源要多（D）如果有一个命令按钮数组，各个按钮都有自己的Click事件过程24、在框架Frame1和图片框Piture1中各有一组复选框CheckBox，其作用是（ D ）（A）两组复选框中只有一个能被选中（B）因有两组复选框，无一可被选中（C）两组复选框中各有一个能被选中（D）两组复选框中各有多个被选中25、要从For...Next循环中中退出循环，使用的语句是 (B)（A）Exit Do （B）Exit For （C）Continue （D）Stop二、多项选择题1、要清除文本框Textl中的内容，使其内容为空字符串，可以采用（ AC）。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、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〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 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= “副教授〞 Thenn=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=0引用列表框 (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 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔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复习题
C) $ED) &E
26、语句Print“5*5”的执行结果是
A)25B)5*5C)出现错误提示D) “5*5”
27、放置控件到窗体中的最迅速方法是
A)拖动鼠标B)单击工具箱中的控件
C)双击工具箱中的控件D)单击工具箱中的控件并拖动鼠标
28、以下合法的Visual Basic标识符是
12
13
14
答案
10
Picture1.Picture=LoadPicture(“C:\moon.jpg”)
用来删除列表中指定的项目
三、选择题
1、Visual Basic 6.0分为3种版本，不属于这3种版本的是
A)学习版B)专业版
C)企业版D)业余版
2、Visual Basic集成的主窗口中不包括
A)属性窗口B)标题栏C)菜单栏D)工具栏
21、下面说法不正确的是
A)变量名的长度不能超过255个字符
B)变量名可以包含小数点或者内嵌的类型声明字符
C)变量名不能使用关键字
D)ual Basic变量名的是
A) BookB) 2_Seek
C) 123.58D) Book－1
23、在Visual Basic中，下列两个变量名相同的是
3、在Visual Basic中，被称为对象的是
A)窗体B)控件
C)控件和窗体D)窗体、控件和属性
4、下列说法正确的是
A)在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件
B)若一个控件上有4个黑色的小方块，表明该控件是活动的
C)窗体中活动控件只能有一个
D)非活动控件在窗体上是隐藏的
A) 11.25B) 3
VB期末考试复习题
VB期末考试复习题一一、填空题1. 如果要指明mystring为固定15个字长的全局变量，应该在标准模块中用以下说明语句定义：__________2。
设X$ =“abc123456”则“a”+str＄（val(right（X＄,4）)）的值是______________ 3. 拖动滚动条中的滚动框将会产生_________________、_________________4。
请写出清除以下对象内容的语句:文本框___________,窗体_ _______,列表框__ ______,组合框__ _____5. 变量min＠表示_ ____类型的变量。
6。
如果：I=11:J=3：I=int（—8。
6)+I\J+13/3 MOD 5，则I值是_____________7。
请写出满足以下条件的VB表达式：0＜X＜10，_________.X为［0—100］之间的数，能被2整除,但不能被3整除____ ___。
8. 下列循环语句控制的循环次数为FOR K=1 TO 10 STEP –19. 设I=5，则由下列循环语句控制的循环次数是。
DoI=I+2Loop While I〈=1510. 表达式32\7 MOD 3^2 的值是。
11. 按照数据文件的存储方法的不同，文件可以分为三种不同的类型：______________、_______________和二进制文件.12. VB 的工作模式可分为三种：“_______”、“______”以及“_____”13. 下列表达式返回的值为True还是False__________.9>4+3 Or 5+3〉10 And Not ( 4+2〉5 EQV 3+5>2 )2。
一个控件在窗体上的位置由________和________属性决定。
6. 在Visual Basic中最基本的对象是____________。
7。
“属性窗口”的功能是________。
VB复习题
VB复习一、选择题：1.若要使命令按钮不可操作，要对其( )属性设置。
A. EnabledB. VisibleC. BackColorD. Caption2. 下面可以作为Visual Basic变量名的是( )。
A. tabB. t*abC. ta_bD. 5tab3. 下列关于“面向对象”编程的说法中，不正确的是( )。
A. 属性就是描述对象特性的数据B. 事件是能被对象识别的操作C. 方法是指示对象的行为D. Visual Basic程序采用的运行机制是“面向对象”4. 以下关于局部变量的叙述中错误的是( )。
A. 在过程中用Dim语句或Static语句声明的变量是局部变量B. 局部变量的作用域是它所在的过程C. 在过程中用Static语句声明的变量是静态局部变量D. 过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放5. 在以下属性中，每个对象都具有的属性是( )。
A. IndexB. NameC. Caption D . Enabled6. 结构化程序设计所规定的三种基本控制结构是( )。
A. 输入、处理、输出B. 树形、网形、环形C. 顺序、选择、循环D. 主程序、子程序、函数7. 在文本框中输入内容时，要求在超过文本框的宽度时自动换行输入，则应将文本框的( )属性设置为True。
A. EnabledB. VisibleC. MultiLineD. ScrollBars8. 要判断在文本框中是否按了Enter键，应在文本框的( )事件中判断。
A. ChangB. KeyDownC. ClickD. KeyPress9. 要想统计列表框或组合框中项目的总数，应通过其( )属性。
A. ListB. ListIndexC. ListCountD. Text10. 在Visual Basic中，组合框可以看成是列表框和( )的组合。
A. 文本框B. 命令按钮C. 复选框D. 单选按钮11. 下列控件中没有Caption属性的是（）。
VB复习题
复习题1一、选择题（每题2分,共30分）1．以下四个VB的变量名中，合法的是_________。
A. SumB. R$eC. PrintD. 3xy2．在声明一个过程中必须有的是_________。
A．Private关键字B．SUB关键字C．返回值类型说明D．参数3．把Form1的标题改为“文档资料”的语句是_________。
A．Form1.Text=“文档资料”B．Form1.Text=文档资料C．Form1.Caption=“文档资料”D．Form1.Title=“文档资料”4．下面在文本框Text1内显示变量ST内容的语句是_________。
A．ST=Text1.TextB．Text1.show STC．Text1.Text=STD．Text.Text1=ST5．要在设计的菜单中出现分隔条需要_________。
A．在标题框内输入"————————"B．在标题框内输入"—"C．在名称框内输入"—"D．在名称框内输入"&—"6．下列选项中窗体载入事件为_________。
A. Load事件B. Click事件C. DblClick事件D. Unload事件7．在块结构条件语句If-Then / Endif中_________。
A. 必须至少有一个Elseif语句B. 可以有任意多个ElseIf-Then语句C. 如果没有Else语句，运行时将出现错误D. 给定的条件只能是关系表达式或逻辑表达式8．以下Case语句中错误的是_________。
A. Case 10 To 1B. Case Is>10C. Case Is>10 , Is<50D. Case 3,5,Is>109．对Do Until…Loop循环，正确的是_________。
A．如果循环条件为常数0，则一次循环也不执行B．如果循环条件为常数0，则至少执行一次循环C．如果循环条件是不为0的常数，则至少执行一次循环D．无论循环条件是否为"True"，则至少执行一次循环10、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。
VB程序设计复习模拟试题一及答案
VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。
- 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)) Then Tag = 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) Then MsgBox "非法数据，请重新输入！"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) Then MsgBox "非法数据，请重新输入！"Text1 = ""Text1.SetFocusExit SubEnd IfIf foe(Text1, mm) = True ThenPrint "True"ElsePrint “False”;m mEnd 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二位构成的数是否为素数，若是显示“是素数”否则为“非素数”。
例如，32517最后二17构成的数是素数。