Visual Basic题库（有答案）

第1题 Visual Basic版本有3个版本，按功能从强到弱的顺序是（） A、工程版、专业版、学习版 B、专业版、工程版、学习版 C、企业版、专业版、学习版 D、专业版、企业版、学习版 第2题 以下叙述中，错误的是()

A、一个Visual Basic 应用程序可以含有多个标准模块文件 B、一个visual Basic 工程可以含有多个窗体文件 C、标准模块文件可以属于某个指定的窗体文件 D、标准模块文件的扩展名是.bas 第3题 以下叙述中错误的是() A、一个工程可以包括多种类型的文件

B、Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 C、程序运行后，在内存中只能驻留一个窗体

D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样 第4题 Visual Basic的窗体设计器主要是用来() A、建立用户界面

B、添加图形、图像、数据等控件 C、编写程序源代码

D、设计窗体的布局

第5题 Visual Basic是一种结构化高级程序设计语言，它采用的是()驱动方式

A、键盘 B、鼠标 C、事件 D、函数

第6题 Visual Basic程序设计语言属于() A、面向过程的语言 B、机器语言 C、面向对象的语言 D、汇编语言

第7题 Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该()

A、进入设计模式 B、进入运行模式 C、进入中断模式 D、不用进入任何模式

第8题 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是()

A、只保存窗体模块文件

B、分别保存窗体模块、标准模块和工程文件 C、只保存窗体模块和标准模块文件 D、只保存工程文件

第9题 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是()

A、窗体布局窗口 B、立即窗口 C、代码窗口 D、监视窗口

第10题 保存新建的工程时，默认的路径是() A、My Documents B、VB98 C、\\ D、Windows

第11题 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是()

A、运行的机器上无VB系统所需的动态连接库 B、缺少.frm窗体文件 C、该可执行文件有病毒 D、以上原因都不对

第12题 在VB环境中，工程文件的扩展名是()

A、.frm B、.bas C、.vbp D、.frx

第13题 将一个VB程序保存在磁盘上，至少会产生的文件是() A、.doc、.txt B、.com、.exe C、.vbp、.frm D、.bat、.sys

第14题 下面关于对象的描述中，错误的是() A、对象就是自定义结构变量

B、对象代表正在创建的系统中的一个实体 C、对象是一个状态和操作（或方法）的封装体 D、对象之间的信息传递是通过消息进行的

第15题 下面4项中不属于面向对象系统三要素的是() A、变量 B、事件 C、属性 D、方法

第16题 下面各种高级语言中，不是面向对象程序设计语言的是()

A、Visual Basic B、C++ C、Pascal D、Java

第17题 VB6.0集成开发环境可以()

A、编辑、调试、运行程序，但不能生成可执行程序 B、编辑、生成可执行程序、运行程序，但不能调试程序 C、编辑、调试、生成可执行程序，但不能运行程序 D、编辑、调试、运行程序，也能生成可执行程序 第18题 英文“Visual”的含义是() A、可视化 B、集成 C、结构化 D、调试

第19题 不能打开属性窗口的操作是() A、单击工具栏中的“属性窗口”按钮

B、选取“视图”菜单中的“属性窗口“子菜单项

C、在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项 D、选取“工程”菜单中的“属性窗口”子菜单项 第20题 VB6．0集成开发环境的工作模式有()

A、一种 B、两种 C、三种 D、四种

第21题 以下关于VB特点的叙述中，错误的是() A、VB是采用事件驱动编程机制的语言 B、VB程序既可以编译运行，也可以解释运行 C、构成VB程序的多个过程没有固定的执行顺序

D、VB程序不是结构化程序，不具备结构化程序的三种基本结构 第22题 以下叙述中错误的是() A、VB是事件驱动型可视化编程工具

B、VB应用程序不具有明显的开始和结束语句

C、VB工具箱中的所有控件都具有宽度(width)和高度(height)属性 D、VB中控件的某些属性只能再设计时设置

第23题 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在()设置

A、“属性”对话框 B、“程序代码”窗口 C、“选项”对话框 D、对象浏览器

第24题 通过以下()窗口可以在设计时直观的调整窗体在屏幕上的位置。 A、代码窗口 B、窗体布局窗口 C、窗体设计窗口 D、属性窗口

第25题 VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是()

A、窗体文件的扩展名为.frm，每个窗体对应一个窗体文件 B、标准模块是一个纯代码性质的文件，它不属于任何一个窗体

C、用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.bas

D、资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑 第26题 与传统的程序设计语言相比，Visual Basic最突出的特点是() A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术

第27题 Visual Basic6.0集成环境的主窗口中不包括() A、标题栏 B、菜单栏 C、状态栏

D、工具栏

第28题 当运行程序时，系统自动执行启动窗体的()事件 A、Load B、Click C、Unload D、GotFocus

第29题 以下关于name属性叙述正确的是()

A、窗体的Name属性指定窗体的名称，用来表示一个窗体 B、窗体的Name属性的值是显示在窗体标题栏中的文本 C、可以在运行期间改变对象的Name属性的值 D、对象的Name属性值可以为空

第30题 关于对象的属性不正确的叙述是() A、对象的属性一般有属性名和属性值 B、可通过属性窗口设置属性的值 C、可通过程序代码设置属性值 D、对象所有属性值均可以在设计时设置

第31题 确定一个控件在窗体上的位置的属性是() A、Width或Height B、Width和Height C、Top或Left

D、Top和Left

第32题 下列叙述中正确的是() A、只有窗体才是Visual Basic中的对象 B、只有控件才是Visual Basic中的对象 C、窗体和控件都是Visual Basic中的对象 D、窗体和控件都不是Visual Basic中的对象

第33题 为了同时改变一个活动控件的高度和宽度，正确的操作是() A、拖拉控件4个角上的某个小方块 B、只能拖拉位于控件右下角的小方块 C、只能拖拉位于控件左下角的小方块 D、不能同时改变控件的高度和宽度

第34题 下列符号中不能作为VB中变量名的是() A、ABCD B、E0065700 C、123TWDFF D、zxy

第35题 下列符号常量的声明中，()是不合法的 A、Const a As Single = 1.1 B、Const a As Integer = 111211 C、Const a As Double = sin (l)

D、Const a = \

第36题 下列()是字符型常量 A、\B、'江苏南京' C、# 02 / 25 / 2013 # D、123

第37题 下列()是日期型常量 A、\B、'江苏南京' C、# 02 / 25 / 2013 # D、123

第38题 下列()是双精度型变量 A、AAA % B、BBB $ C、CCC ! D、DDD #

第39题 可以同时删除字符串前导和尾部空白的函数是() A、Ltrim B、Rtrim C、Trim

D、Mid

第40题 设有如下变量声明：Dim X As Integer，如果Sgn(X）的值为一1，则X的值是()

A、整数

B、大于O的整数 C、等于O的整数 D、小于0的整数

第41题 从键盘上输人两个字符串，分别保存在变量strl , str2中。确定第二个字符串在第一个字符串中起始位置的函数是()

A、Left B、Mid C、String D、Instr

第42题 设有语句x=inputbox(\输入数值\示例\，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）

A、在inputboxc对话框标题栏中显示的是“示例” B、变量X的值是数值10 C、变量X的值是字符串\D、0是默认值

第43题 设x=7.9,则执行x=iif(x<> A、3.45

B、3 C、2.3 D、2

第44题 在下列程序中： private sub command1_click() b=1:a=2 print a=iif(a>b,a,b) end sub

A、0 B、1 C、true D、false

第45题 用情况选择语句select case x,选择|x|>5的情况的语句是case() A、not(-5 to 5) B、5 to -5 C、is<-5,is>5 D、abs(x)>5

第46题 单击窗体后程序的输出结果是（） private sub form_click() a=1:b=2:c=3 if a<>3 or b<>3 then a=b-a:b=c-a:c=b+a end if print a+b+c end sub

A、16 B、3 C、6 D、8

第47题 在窗体上添加一个名称为TEXT1的文本框，然后编写以下代码： private sub form_activate() a=int(rnd)+7 if a>6 then x=1 elseif a>7 then x=2 elseif a>8 then x=3 elseif a>9 then x=4 end if text1.text=x end sub

A、1 B、2 C、3 D、4

第48题 下列For－Next循环的循环体的执行次数为（ ）。 For I=1 to 11 I=I+1 Next I

A、5 B、11 C、6

D、有语法错误

第49题 下列程序的输出结果是（ ）。 P＝0 For I=1 to 4 p=p*I Next I Print p

A、24 B、4 C、0 D、10

第50题 下列程序段的输出为（ ）。 S=0 For I=1 to 10 I=I+1:s=s+I Next I Print s

A、55 B、66 C、30 D、60

第51题 以下程序段的输出结果是（ ）。 While n<=100 n=n+1 : s=s+n wend Print s

A、4949 B、5050 C、4950 D、5151

第52题 以下程序段的输出结果是（ ）。 X=1:y=4 do until y>4 x=x*y：y=y+1 loop Print x

A、1 B、4 C、8 D、20

第53题 以下程序段的输出结果是（ ）。 N=4：k=1：I=0 For I=1 to n k=k*I Next I Print I

A、2 B、3 C、4

D、5

第54题 以下程序段的输出结果是（ ）。 N=4：k=1：I=0 For I=1 to n k=k*I Next I Print k

A、21 B、22 C、23 D、24

第55题 以下程序段的输出结果是（ ）。 Num=0 While num<=2 num=num+1 Print num; Wend

A、1 2 3 B、1 1 1 C、3 2 1 D、2 1 3

第56题 假定有以下程序段 For I=1 to 3 For j=5 to 1 step –1 Print I*j Next j,I 则语句Print I*j的执行次数是（ ）。

A、15 B、16 C、17 D、18

第57题 假定有以下循环结构 ，则正确的描述是（ ）。 Do While 条件 循环体 Loop

A、如果“条件”是一个为1的常数，则一次循环体也不执行 B、如果“条件”是一个为1的常数，则无限次执行循环体 C、如果“条件”是一个不为1的常数，则至少执行一次循环体 D、不论“条件”是否为“真”，至少要执行一次循环体

第58题 下面程序运行时内层循环的循环总次数是（ ）。 For m=1 to 3 For n=0 TO m-1 Next n Next m

A、6 B、5 C、3 D、4

第59题 以下程序段的输出结果是（ ）。 N=1:s=0 do s=s+n : n=n+1 loop while n<=100 Print s

A、4949 B、5050 C、4950 D、5049

第60题 以下程序段的输出结果是（ ）。 N=1:s=0 do until n>=100 s=s+n : n=n+1 loop Print s

A、4949 B、5050 C、4950

D、5049

第61题 以下程序段的输出结果是（ ）。 For x=5 to 2.5 step –7 Next x Print x

A、2.2 B、2.5 C、2.9 D、-2

第62题 以下程序段的输出结果是（ ）。 A=0 For j=1 TO 15 a=a+(j MOD 3) Next j Print a

A、0 B、15 C、90 D、120

第63题 以下程序段的输出结果是（ ）。 Sum=0 For j=1 to 10 if j=10 then sum=sum+j end if Next j Print sum

A、10 B、55 C、100 D、0

第64题 以下程序段的输出结果是（ ）。 X=0:n=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Print n

A、1 B、2 C、3 D、4

第65题 Do循环语句是根据条件决定循环的语句的，下列说法正确的是（ ）。 A、While是当条件为真时执行循环，而Until是在条件变为真的之前重复 B、Until是当条件为真时执行循环，而While是在条件变为真的之前重复 C、While和Until都是当条件为真时执行循环 D、While和Until都是在条件变为真的之前重复循环

第66题 执行下面的程序段后，I 的值为 （ ）。 X=5 For I=1 To 10 Step 2 x=x+( I \\3) Next I

A、9 B、10 C、11 D、12

第67题 执行下面的程序段后，a的值为 （ ）。 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k, j, I

A、3 B、9 C、14

D、21

第68题 要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（ ）字符。

A、/ B、@ C、& D、\\

第69题 打开通用对话框的“打开”对话框的方法是（ ） A、ShowOpen B、ShowSaveAs C、ShowColor D、ShowFont

第70题 下列数组声明语句中正确的是（ )。 A、Dim a[2;3] As Integer B、Dim a[2,3] As Integer C、Dim a(2;3) As Integer D、Dim a(2,3) As Integer

第71题 在窗体上添加一个名称为Command1的命令按钮数组，以下说法正确的是（ ）。

A、命令按钮的索引值（Index）相同

B、在代码中访问任意一个命令按钮只需使用名称Command1 C、命令按钮分享相同的事件过程

D、命令按钮的Caption属性值一定为Command1

第72题 下列程序运行时单击Command1，输出的结果是（ ）。 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 - k Next Print a(3 + a(6)) End Sub

A、5 B、4 C、3 D、2

第73题 在使用动态数组时，如果改变数组的大小而又不丢失数组中的数据，应使用具有关键字（ ）的ReDim语句。

A、Private B、Preserve C、Public D、Static

第74题 控件数组中的名字是由下列哪个属性决定的（ ）？ A、Text B、Index C、名称 D、TabIndex

第75题 下列程序运行时单击Command1，输出的结果是（ ）。 Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = j - i Next Next For m = 1 To 2 For n = 1 To 2 Print a(n, m); Next Next End Sub

A、0 1 -1 0 B、0 -1 1 0 C、0 -1 -1 0 D、0 1 1 0

第76题 下列程序段的功能是将以2为首的前100个素数存入数组中。请在 __ 处选择正确答案，将程序补充完整（ ）。 Dim a(100) As Integer Private Sub Form_Load() a(1) = 2 :x = 3: i = 2 Do While i <= 100 flag = 0 For k = 2 To Int(Sqr(x)) If x Mod k = 0 Then flag = 1 Next If flag = 0 Then ____ End If x = x + 1 Loop End Sub

A、A．a(i) = x : i = i + 1 B、a(i) = k : i = i + 1 C、a(i) = x D、a(i) = k

第77题 下列程序运行的结果为（ ）。 Option Base 1 Dim S() As Integer Private Sub Form_Click() ReDim S(1) :S(1) = 5 ReDim Preserve S(4) S(2) = 3 :Print S(1); ReDim S(6) :Print S(2) End Sub

A、5 3 B、0 0

C、0 3 D、5 0

第78题 下列事件过程的功能是：对已知存放在数组A中的N个数，用选择排序法按递增顺序排序后放回数组A中，请填空将程序补充完整。 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer For i = 1 To n - 1 k = i For j = ____ To n If a(k) > a(j) Then ____ Next j If k <> i Then temp = a(k): a(k) = a(i): a(i) = temp End If Next i End Sub

A、i+1;k=j B、i;k=j C、k;a(k)=a(j) D、i?1;k=j?1

第79题 VB允许多维数组的最大维数是（ ）。 A、50 B、60 C、80 D、90

第80题 用下面的语句所定义的数组元素的个数是（ ）。 Dim Var(4 To 6, ?3 To 3)

A、24 B、36 C、21

D、18

第81题 下面关于VB语言中数组下标的几种说法，错误的是（ ）。 A、数组下标的下界默认为1 B、数组下标的下界可以为负数 C、数组下标的下界必须小于上界 D、数组下标的上界可以为负数

第82题 下列程序段的执行结果为（ ）。 Private Sub Command1_Click() Dim A(10), B(5) For I=1 to 10 A(I)=I Next I For J=1 to 5 B(J)=J*20 Next J A(5)=B(2) Print \

A、A(5) = 5 B、A(5) = 10 C、A(5) =20 D、A(5) =40

第83题 运行下列程序会出现出错信息，产生错误的原因是（ ）。 x=5 Dim a(x) For i=1 To 6 a(i)=i+1 Next i

A、数组元素a（i）的下标越界 B、变量x没有定义 C、循环变量的范围越界

D、Dim语句中不能用变量x来定义数组的下标

第84题 下列程序段的执行结果是（ ）。 Dim a(?5 to 6) For i=Lbound(a,1) To Ubound(a,1) a(i)=i Next i Print a(Lbound(a,1));a(Ubound(a,1))

A、0 0 B、?5 0 C、?5 6 D、0 6

第85题 如下数组声明语句中正确的是（ ）。 A、Dim A(4 5) As Integer B、Dim A(n,n) As Integer C、Dim A(4,5) As Integer D、Dim A[4,5] As Integer

第86题 语句Option Base 1:Dim a(3,4)定义的数组所包含的数组元素的个数是（ ）。

A、7 B、12 C、15 D、20

第87题 用下面语句定义的数组元素个数是（ ）。 Dim A(-3 To 5) As Integer A、6 B、7 C、8 D、9

第88题 语句Dim arr(-3 To 5,2 To 6) As Integer定义的数组元素有（ ）。 A、45 B、44 C、11 D、54

第89题 在窗体上面画一个命令按钮，然后编写如下事件过程：（ ） Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub

A、4321 B、12 C、34 D、1234

第90题 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是________。

A、12 B、13 C、14 D、15

第91题 设有如下程序： Option Base 1 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的值是________。

A、5 4 3 2 B、6 5 4 3 C、4 3 2 1 D、7 6 5 4

第92题 执行以下Command1的Click事件过程在窗体上显示________。 Option Base 1 Private Sub Command1_Click() Dim a

a=Array(\

A、abc B、bdf C、ace D、出错

第93题 设有如下程序： Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m,n)=(m-1)*3+n Next n Next m For m=2 To 3 For n=1 To 2 Print a(n,m); Next n Next m 运行后输出的结果是 ________。

A、2 5 3 6 B、2 3 5 6 C、4 7 5 8 D、4 5 7 8

第94题 当发生Command1_Click事件，以下程序的输出结果是________。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To 4 Print a(i)-a(i-1); Next i End Sub

A、1 1 1 1 1 B、1 1 1 1 C、1 1 1 D、2 2 2

第95题 下面关于控件数组与一般控件的叙述中正确的是________。 A、控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件。 B、控件数组的索引属性值Index值为0，而一般控件的Index值为空。 C、控件数组的Index值为1，而一般控件的Index值为0。 D、控件数组的建立通过Dim语句声明，而一般控件不需要声明。 第96题 Function子程序模块用的结束语句是（ ）。 A、Exit Sub B、Exit Function C、End

D、End Function

第97题 在窗体模块的通用声明中声明变量时，不能使用_______关键字。 A、Dim B、Public

C、Private D、Static

第98题 以下叙述中错误的是_______。 A、不能在标准模块中定义Static型变量。 B、语句Dim a, b As Integer声明了两个整形变量 C、窗体级变量必须先声明后使用

D、在事件过程或通用过程内定义的变量是局部变量

第99题 设有语句“Open \\\test.dat\述中错误的是 。

A、该语句打开C盘根目录下一个已存在的文件test.da B、该语句在C盘根目录下建立一个名为test.dat的文件 C、该语句建立的文件的文件号为1

D、执行语句后，就可通过Print #语句向文件test.dat中写入信息 第100题 Cls命令可清除窗体或图形框中 ________的内容。 A、Picture属性设置的背景图案 B、设计时放置的图片

C、程序运行时产生的图形和文字 D、以上全部A～C

提交审核

第1题 Visual Basic 6.0分为3种版本，这3种版本是学习版、_________和企业版。 答1:专业版 第2题 应用程序最终面向用户的窗口是_________，它对应于应用程序的运行结果。 答1:窗体设计器< 第3题 如果打开了不需要的菜单或对话框，可以用_________键关闭。 答1:ESC 第4题 当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择_________菜单的_________选项，使“工具箱”窗口显示。 答1:答2:视图 工具箱第5题 VB是一种面向_________的程序设计语言，采用了_________编程机制。 答1:答2:对象 事件驱动第6题 窗体是一种对象，由_________定义其外观，由_________定义其行为，由事件定义其与用户的交互。 答1:答2:属性 方法第7题 在VB中设置或修改一个对象的属性的方法有两种，它们分别是_________和代码窗口编程。 答1:属性窗口设置 第8题 在VB6.0集成开发环境中，可以编辑程序代码，但不能修改用户界面的工作模式是_________。 答1:中断模式<|> 第9题 VB应用程序中窗体文件的扩展名是_________，工程文件的扩展名是_________。 答1:答2:.frm .vbp第10题 Visual Basic中的控件分为3类，它们是标准控件、_________和可插入对象。 答1:ActiveX控件 第11题 Visual BASIC应用程序通常由3类模块组成，即窗体模块、_________和类模块。 答1:标准模块 第12题 Visual Basic6.0中包括窗体文件、标准模块文件、类模块文件、工程组文件、资源文件和_________六类文件。 答1:工程文件 第13题 窗体设计器窗口简称_________，是应用程序最终面向用户的窗口。 答1:窗体 第14题 对象的特征称为属性，对象能够执行的操作称为_________，对象能够识别的操作称为_________。 答1:答2:方法 事件

第15题 窗体上有一个命令按钮，事件代码如下： Private Sub

Command1_Click() A = \<> B Then Print A - B Else Print B - A End Sub 程序运行后，单击命令按钮，输出_________。 答1:-9 第16题 以下语句的输出结果是_________。 a% = 3.1425926 Print a% 答1:3 第17题 a$ = LCase(\，a$的值是_________，b$ = UCase(\，b$的值是_________。 答1:答2:hello HELLO第18题 表达式\的值是_________，表达式12 + 34的值是_________。 答1:答2:1234 46第19题 整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为_________。 答1:((M mod 10) 第20题 代数式|y| + ln3x的Visual Basic表达式为_________。 答1:Abs(y) + Lo 第21题 VB的常量分为_________ 和符号常量、系统常量。 答1:直接常量 第22题 在立即窗口中输入如下内容： A$=”I love Visual Basic” x=instr(a$,”Visual”) Print x 则在立即窗口显示的是_________ 答1:8 第23题 在VB中用_________函数来产生一个0~1之间的单精度随机数。由于一个随机数序列可能反复出现，VB提供了_________语句来消除这种情况。 答1:答2:rnd randomize第24题 写出一个能产生取值范围为[30,45]的随机整数的表达式_________ 答1:Int(rnd*16+ 第25题 算术表达式 14.3\\3.1 和 14.3 mod 3.1 的值分别是_________ 和_________ 答1:答2:4 2第26题 VB的变量名的最大字符为_________个 答1:255 第27题 VB表达式Int（-4.8）*6\\3^2+Fix（-4.8）的值是_________ 答1:-7 第28题 设有如下程序段： a$=\

b$=Mid(a$,InStr(a$,\执行上面的程序段后，变量b$的值为________。 答1:Shanghai 第29题 下面程序运行后，输出的结果为________。 Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left（A$,2)+Right(B$,2),C$) Print C$ End Sub

答1:0 第30题 若要使文本框控件运行时不可见，应将______属性设置为_______。 答1:答2:visible False第31题 可以实现x和y变量内容进行交换的算法是________。 答1:t=x ：x=y ： 第32题 若要使标签控件显示时不覆盖其背景内容则要对___________属性进行设置。 答1:BackStyle 第33题 在Visual Basic中Print、Cls属于_________。 答1:方法 第34题 为了使文本框同时具有水平和垂直滚动条应先把MultiLine属性设置为True然后再把ScrollBars属性设置为______ 。 答1:3 第35题 当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，则需要通过代码 Text1.SelStart = ______ 和 Text1.SelLength = 5来实现。 答1:0 第36题 在程序代码Label1.Caption = \中，表示对象的是 ___________，表示属性的是 ___________。 答1:答2:Label1 Caption第37题 如果打印宽度 Width 是 80，并指定 Tab(90)则下一个打印将从列___________ 开始

答1:10 第38题 要判断在文本框中是否按了【Enter】键，应在文本框的_________事件中进行判断。 答1:keypress 第39题 要锁定文本框Text的内容，应将______属性设置为True。 答1:locked 第40题 要使文本框中的内容都被显示为“*”，则应将文本框的__________属性修改为“*”。 答1:passwordcha 第41题 要使指定的文本框成为焦点，则应采用文本框控件的_________方法。 答1:setfocus 第42题 下面事件过程的功能是：输入3个整数x、y、z，按从大到小的顺序输出这3个数，在横线上填上适当内容。 Private sub command1_click() dim x!,y!,z! x=inputbox(\if________then t=x:x=y:y=t if________then t=x:x=z:z=t if y< z then t=y:y=z:z=t print x,y,z end sub 答1:答2:x

string*1 ch=inputbox(\请输入一个字符\elseif_________then ch=ucase(ch) end if print ch end sub 答1:答2:ch>=\ ch>=\第44题 单行结构条件语句必须在_________行内书写完。 答1:一<|>单 第45题 判别变量X是否大于0，若大于0，则累加到变量s1中，否则，累加到s2中，使用的单行结构条件语句为_________。 答1:if x>0 then 第46题 Private sub command1_click() dim year%,month%,days% year=inputbox(\请输入年份\请输入月份\case________ case 1,3,5,7,8,10,12 days=31 _________ days=30 case 2 if___________then days=29 else days=28 end if end select print year;\年\月有\天\答1:答2:答3:month case 4,6,9,year mod 4=第47题 设a=1,b=2,c=3，表达式aa or c>b and a<>b 的值为_______。 答1:true 第48题 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将控件的_________属性设置为_________。 答1:答2:interval 500

第49题 设置一个单选按钮所代表选项的选中状态，应当在属性窗口中改变________属性。 答1:value 第50题 用VB表达式来表示“x是小于105的非负数”为 _________。 答1:x>=0 and 第51题 逻辑表达式not \结果是________。 答1:true 第52题 反复执行的程序段称为（ ）；进入循环体的条件称为（ ）；中止循环体执 行的条件称为（ ）。 答1:答2:答3:循环体 循环条件结束循环条第53题 当x的输入值为50，19，0，21和-1时，下列事件过程的执行结果是什么？（20分） Private Sub Command1_Click() Dim x%, s% s = 0 x = InputBox(\While x >= 0 s = s + x x = InputBox(\Wend Print \s End Sub 答1:s=90 第54题 设t=1×2×3×?×n，下列事件过程的功能是求t不大于1000时最大的n值，在横线上填 上适当内容。 Private Sub Command1_Click() Dim t%, n% t = 1: n = 1 Do While (1) n = n + 1 (2) Loop Print \Sub 答1:答2:t<=1000 t=t*n第55题 下面事件过程的功能是：输出100以内个位数为8且能被３整除的所有数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, a% For i = 0 To (1) a = i * 10 + 8 If (2) Then GoTo l (3) l: Next i End Sub 答1:答2:答3:9 a Mod 3<>Print a第56题 下面事件过程的功能是求Ｓ＝１＋（１*２）＋（１*２*３）＋?＋（１*２*?*n）的值，在横线上填上适当内容。 Private Sub Command1_Click() Dim n%, i%, j&, s& n = InputBox(\(1) (2) Next i Print \答1:答2:j*i s=s+j第57题 下面事件过程的功能是打印图案 * *** ***** ******* ********* 在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j% For i = 1 To 5 Print Spc( (1) ); For j = 1 To (2) Print \End Sub 答1:答2:答3:5-i 2*i-1Print第58题 下面事件过程的功能是求２～100以内的素数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j%, m% m = 0 For i = 2 To 100 j = 2 Do While (1) If i Mod j = 0 Then (2) j = j + 1 Loop If (3) Then Print i,: m = m + 1 If m Mod 5 = 0 Then Print Next i End Sub

答1:答2:答3:j<=sqr(i) Exit Doj>sqr(i)第59题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f = 1 s = 1 For i = 1 To n t = (1) : s = s + t: f=(2) Next Print s End Sub 该事件过程的功能是计算1/1-1/2+1/3-1/4+1/5的值。请填空。 答1:答2:f/I f*(-1)第60题 下列循环结构控制的循环次数是：( )。 i=1 do i=i+1 loop until i=10 答1:10 第61题 菜单分为_________菜单和_________菜单，菜单总与____________相关连，设计菜单需要在____________中设计。 答1:答2:答3:答4:下拉式 弹出式窗体菜单编辑器第62题 阅读下列程序段： Private Sub Form Click() Dim amr(10)As Integer For i=6 To 10 arr(i)=InputSox(\请顺序输入1，2，3，4，5\i Print arr(6)+arr(arr(7))/arr(8) End Sub 程序运行后，单击窗体，在输入对话框中顺序输入1、2、3、4、5，输出结果为___________。 答1:1 第63题 下列过程的运行结果是________ 。 Private Sub Form_Click() Dim X(4) As Integer For I = 1 To 4 X(I) = I * I Next Print X(I) End Sub 答1:编译错误， 第64题 在窗体添加一个命令按钮，然后编写如下事件过程，该过程的功能是用冒泡法将10个数排成升序，请在 处将程序补充完整。 Private Sub Command1_Click() Dim a(10) For i=1 To 10 a(i)=val(InputBox(\请输入数组元素值\数据输入\

j=_______________ If a(j)>a(j+1) Then b=a(j) : a(j)=a(j+1): a(j+1)=b End If Next j Next i For K=1 to 10 Print a(k); Next k End Sub 答1:1 To 9 ; 第65题 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1～5，第二维下标从-2～6，则相应的数组声明为 _______________。 答1:Dim A(1 T 第66题 Visual Basic的数组下标默认为________，可通过________________ 语句使数组下标从1开始。 答1:0； optin 第67题 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Form_Click() Dim a(0 To 10) Dim p(1 To 3) K=0 For I=1 To 4 a(i)=I For j=1 To 3 P(j)=a(j*j) Next j For j=1 To 3 K=K+p(j)*2 Next j Print k Next i End Sub 程序运行后，单击命令按钮，输出结果是______________。 答1:2 4 6 16 第68题 下列程序的输出结果为________。 Private Sub Command1_Click() Dim a(1 To 20) Dim i For i=1 To 20 a(i)=i Next i For Each i In a() a(i)=20 Next i Print a(2) End Sub 答1:20 第69题 下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，并求a中的最小值及最小值在数组a中的位置，在横线上填上适当内容。 Private Sub Command1_Click() Dim a(10) As Integer, i%, max%, index% Randomize For i = 1 To 10 a(i) = Int(91 * Rnd + 10) Print a(i); Next i Print max = a(1): index = 1 For i = 2 To 10 If ________ Then max = a(i): _________ Next i Print \数组a中的最小值为：\最小值所在位置为：\答1:a(i) < ma 第70题 数组元素个数可以改变的数组称为_________；数组元素可以存放不同类型数据的数组称为__________. 答1:可调数组; 第71题 若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为__________________。 答1:Dim s(1 T 第72题 若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为____________。 答1:Dim a(0 T 第73题 控件数组是由一组类型和名字相同的控件组成，共享__________。 答1:同一个事件 第74题 控件数组中的每一个控件都有惟一的下标，下标值由_________________属性指定。 答1:Index 第75题 窗体上已有命令按钮Command1和标签Labe1，下列程序运行后，单击Command1按钮，标签Label1中显示的内容是________。 Option base 0 Private Sub Command1_Click() Dim a(5）As Integer, n As Integer For i = 1 To 5 a(i）= i n = n + a(i) Next i Label1 = n End Sub 答1:15 第76题 程序中自动测试数组的下界用__________函数来实现，上界用__________函数来实现。 答1:Lbound ; 第77题 当数组首次被声明时，对所有数值型数组默认初值是________；字符串数组默认初值是_________。 答1:0 ; 空 第78题 当用ReDim语句要改变动态数组的大小时，数组元素的值会________；用__________关键字可保留数组元素原来的值。 答1:

提交审核丢失 ; Pr

本文来源：https://www.bwwdw.com/article/fv23.html