2021年VisualBasic题库有答案要点

第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 = "OK"
第36题下列()是字符型常量
A、"I am a student"
B、'江苏南京'
C、# 02 / 25 / #
D、123
第37题下列()是日期型常量
A、"I am a student"
B、'江苏南京'
C、# 02 / 25 / #
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("输入数值","0","示例")，程序运营后，如果从键盘上输入数值10并按回车键，则下列论述中对的是（）
A、在inputboxc对话框标题栏中显示是“示例”
B、变量X值是数值10
C、变量X值是字符串"10"
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(5) =" ；A(5) End Sub
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题执行如下Command1Click事件过程在窗体上显示________。

Option Base 1 Private Sub Command1_Click() Dim a
a=Array("a","b","c","d","e","f","g") Print a(1);a(3);a(5) End Sub
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 "c:\test.dat" For Output As #1”，则下列论述中错误是。

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种版本是学习版、_________和公司版。

答
第2题应用程序最背面向顾客窗口是_________，它相应于应用程序运营成果。

答
第3题如果打开了不需要菜单或对话框，可以用_________键关闭。

答
第4题当进入VB集成环境后，发现没有显示“工具箱”窗口，应选取
_________菜单_________选项，使“工具箱”窗口显示。

答
答
第5题 VB是一种面向_________程序设计语言，采用了_________编程机制。

答
答
第6题窗体是一种对象，由_________定义其外观，由_________定义其行为，由事件定义其与顾客交互。

答
答
第7题在VB中设立或修改一种对象属性办法有两种，它们分别是_________和代码窗口编程。

答
第8题在VB6.0集成开发环境中，可以编辑程序代码，但不能修改顾客界面工作模式是_________。

答
第9题 VB应用程序中窗体文献扩展名是_________，工程文献扩展名是
_________。

答
答
第10题 Visual Basic中控件分为3类，它们是原则控件、_________和可插入对象。

答
第11题 Visual BASIC应用程序普通由3类模块构成，即窗体模块、_________和类模块。

答
第12题 Visual Basic6.0中涉及窗体文献、原则模块文献、类模块文献、工程组文献、资源文献和_________六类文献。

答
第13题窗体设计器窗口简称_________，是应用程序最背面向顾客窗口。

答
第14题对象特性称为属性，对象可以执行操作称为_________，对象可以辨认操作称为_________。

答
答
第15题窗体上有一种命令按钮，事件代码如下： Private Sub Command1_Click() A = "1" B = "2" A = Val(A) + Val(B) B = Val("12") If A <> B Then Print A - B Else Print B - A End Sub 程序运营后，单击命令按钮，输出_________。

答
第16题如下语句输出成果是_________。

a% = 3.1425926 Print a%
答
第17题 a$ = LCase("Hello")，a$值是_________，b$ = UCase("Hello")，b$值是_________。

答
答
第18题表达式"12" + "34"值是_________，表达式12 + 34值是_________。

答
答
第19题整形变量M中存储了一种两位数，要将两位数互换位置，例如24
变成42，实现表达式为_________。

答
第20题代数式|y| + ln3xVisual Basic表达式为_________。

答
第21题 VB常量分为_________ 和符号常量、系统常量。

答
第22题在及时窗口中输入如下内容： A$=”I love Visual Basic”
x=instr(a$,”Visual”) Print x 则在及时窗口显示是_________
答
第23题在VB中用_________函数来产生一种0~1之间单精度随机数。

由于一种随机数序列也许重复浮现，VB提供了_________语句来消除这种状况。

答
答
第24题写出一种能产生取值范畴为[30,45]随机整数表达式_________
答
第25题算术表达式 14.3\3.1 和 14.3 mod 3.1 值分别是_________ 和_________
答
答
第26题 VB变量名最大字符为_________个
答
第27题 VB表达式Int（-4.8）*6\3^2+Fix（-4.8）值是_________
答
第28题设有如下程序段： a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1) 执行上面程序段后，变量b$值为________。

答
第29题下面程序运营后，输出成果为________。

Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai”
C$=Instr(Left（A$,2)+Right(B$,2),C$) Print C$ End Sub
答
第30题若要使文本框控件运营时不可见，应将______属性设立为_______。

答1:visible
答2: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 = "Visual Basic"中，表达对象是
___________，表达属性是 ___________。

答1:Label1
答2:Caption
第37题如果打印宽度 Width 是 80，并指定 Tab(90)则下一种打印将从列___________ 开始
答
第38题要判断在文本框中与否按了【Enter】键，应在文本框_________事件中进行判断。

答
第39题要锁定文本框Text内容，应将______属性设立为True。

答
第40题要使文本框中内容都被显示为“*”，则应将文本框__________属性修改为“*”。

答
第41题要使指定文本框成为焦点，则应采用文本框控件_________办法。

答
第42题下面事件过程功能是：输入3个整数x、y、z，按从大到小顺序输出这3个数，在横线上填上恰当内容。

Private sub command1_click() dim x!,y!,z！x=inputbox("x=") y=inputbox("y=") z=inputbox("z=")
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
答
答
第43题下面事件过程功能是：输入一种字符，若它是大写字母，则把它变成小写字母，若它是小写字母，则把它变成大写字母；若它是其她字符，则它值不变，在横线上填上恰当内容。

Private sub command1-click() dim ch as string*1 ch=inputbox("请输入一种字符") if_________then ch=lcase(ch) elseif_________then ch=ucase(ch) end if print ch end sub
答
答
第44题单行构造条件语句必要在_________行内书写完。

答
第45题鉴别变量X与否不不大于0，若不不大于0，则累加到变量s1中，否则，累加到s2中，使用单行构造条件语句为_________。

答
第46题 Private sub command1_click() dim year%,month%,days%
year=inputbox("请输入年份") month=inputbox("请输入月份") select
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;"年";month;"月有";days;"天" end sub
答
答
答
第47题设a=1,b=2,c=3，表达式a a or c>b and a<>b 值为_______。

答
第48题为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将控件_________属性设立为_________。

答
答
第49题设立一种单选按钮所代表选项选中状态，应当在属性窗口中变化________属性。

答
第50题用VB表达式来表达“x是不大于105非负数”为 _________。

答
第51题逻辑表达式not "a" >"b" and 9<3 or 9>3,成果是________。

答
第52题重复执行程序段称为（）；进入循环体条件称为（）；中断循环体执行条件称为（）。

答
答
答
第53题当x输入值为50，19，0，21和-1时，下列事件过程执行成果是什么？（20分） Private Sub Command1_Click() Dim x%，s% s = 0 x = InputBox("x=") While x >= 0 s = s + x x = InputBox("x=") Wend Print "s="；s End Sub
答
第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 "n="；n - 1 End Sub
答
答
第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
答
答
答
第56题下面事件过程功能是求Ｓ＝１＋（１*２）＋（１*２*３）＋…＋（１*２*…*n）值，在横线上填上恰当内容。

Private Sub Command1_Click() Dim n%，i%，j&，s& n = InputBox("n=") j = 1：s = 0 For i = 1 To n j = (1) (2) Next i Print "s="；s End Sub
答
答
第57题下面事件过程功能是打印图案 * *** ***** ******* ********* 在横线上填上恰当内容。

Private Sub Command1_Click() Dim i%，j% For i = 1 To 5 Print Spc( (1) )；For j = 1 To (2) Print "*"；Next j (3) Next i End Sub
答
答
答
第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
答
答
答
第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值。

请填空。

答
答
第60题下列循环构造控制循环次数是：( )。

i=1 do i=i+1 loop until i=10
答
第61题菜单分为_________菜单和_________菜单，菜单总与____________有关连，设计菜单需要在____________中设计。

答
答
答
答
第62题阅读下列程序段： Private Sub Form Click() Dim amr(10)As Integer For i=6 To 10 arr(i)=InputSox("请顺序输入1，2，3，4，5") Next i Print arr(6)+arr(arr(7))/arr(8) End Sub 程序运营后，单击窗体，在输入对话框中顺序输入1、2、3、4、5，输出成果为___________。

答
第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
答
第64题在窗体添加一种命令按钮，然后编写如下事件过程，该过程功能是用冒泡法将10个数排成升序，请在处将程序补充完整。

Private Sub Command1_Click() Dim a(10) For i=1 To 10 a(i)=val(InputBox("请输入数组元素值","数据输入",0) Next i For i=______________ For
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
答
第65题设某个程序中要用到一种二维数组，规定数组名为A，类型为字符串类型，第一维下标从1～5，第二维下标从-2～6，则相应数组声明为
_______________。

答
第66题 Visual Basic数组下标默以为________，可通过________________ 语句使数组下标从1开始。

答
第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 程序运营后，单击命令按钮，输出成果是______________。

答
第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
答
第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中最小值为："；max Print "最小值所在位置为："；index End Sub
答
第70题数组元素个数可以变化数组称为_________；数组元素可以存储不同类型数据数组称为__________.
答
第71题若要定义一种包括10个字符串元素，且下界为1一维数组s，则数组阐明语句为__________________。

答
第72题若要定义一种元素为整型数据二维数组a，且第一维下标从0到5，第二维下标从-3到6，则数组阐明语句为____________。

答
第73题控件数组是由一组类型和名字相似控件构成，共享__________。

答
第74题控件数组中每一种控件均有惟一下标，下标值由_________________属性指定。

答
第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
答
第76题程序中自动测试数组下界用__________函数来实现，上界用
__________函数来实现。

答
第77题当数组初次被声明时，对所有数值型数组默认初值是________；字符串数组默认初值是_________。

答
第78题当用ReDim语句要变化动态数组大小时，数组元素值会________；用__________核心字可保存数组元素本来值。

答。