南京工业大学2012VB考试题库6
南京工业大学2012VB考试题库六套题涵盖所有题目
B、True
C、1
D、0
答案：
D
Picture控件AutoSize属性设置为_____，在运行时当往图片框加载或复制图片时，VB会自动扩展该控件
到恰好显示整个图片为止。
A、False
B、3
C、无
D、True
答案：
D
当用户单击命令按钮时，_____属性可以使得命令按钮对激发事件无效。
过程模板。
A、Dblclick
B、Change
C、Gotfocus
D、Click
答案：
B
在用菜单编辑器设计菜单时，必须输入的项有_____。
A、索引
B、名称
C、标题
D、快捷键
答案：
B
当对象失去焦点时，将会发生_____事件。
A、LostFocus
B、Focus
Print A(M,N);
Next N
Next M
A、0 0 0
0 0 0
0 0 0
B、1 1 1
1 1 1
1 1 1
C、1 0 0
0 1 0
0 0 1
D、1 0 1
0 1 0
1 0 1
答案：
D
Option Base 1
Private Sub Command1_Click()
的输出为_____。
Private Sub Command1_Click( )
For i = 1 To 4
x = 3
For j = 1 To 3
For k = 1 To 3
VB期末考试2012版复习题(含答案)
第 6 题 （2.0 分） 题号:5675 下列关于变量名命名规则，不正确的是（）。 A:以字母或汉字开头，后可跟字母、数字或下划线组成，长度小于等于 40 个字符。 B:变量名的长度不能超过 255 个字符。 C:Visual Basic 中区分变量名的大小写。
D:不能使用 Visual Basic 中的关键字。
Private Sub fun(score() As Integer, average As Integer, sum As Integer)
'**********Program**********
'********** End ********** End Sub
'要求必须包含 for next 语句
'-------------------------------------------------
'注意： 请在指定的事件内编写代码
'
代码只能写在两行标识之间
'
不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
'-------------------------------------------------
答案：C
第 17 题 （2.0 分） 题号:5666 关于使用 MouseIcon 属性自定义鼠标的说法正确的是(). A:只有窗体才具有 MouseIcon 属性 B:一般在 MousePointer=99 时使用 C:MouseIcon 属性可以使用动态鼠标 D:MouseIcon 属性要求图标文件大小一定
=======(答案 2)======= 1 To i
四、程序设计 共 1 题 （共计 20 分） 第 1 题 （20.0 分） 题号:291 '------------------------------------------------'【程序设计】 '------------------------------------------------'题目：编写函数 fun，函数的功能是： '计算出成绩数组 score()的平均分与总分
南京工业大学VB考试[1]
![南京工业大学VB考试[1]](https://img.taocdn.com/s3/m/629eca2f87c24028915fc335.png)
vbzj523满分：60分姓名：________一、单项选择题(本题共计40分)C 1、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
( )A、方法B、属性C、事件D、工程2、执行语句X2Print Format(1234.567,“##,##0.00”) 后，输出结果是____________。
( )A、1234.57B、1,234.57C、1，234.567D、1,234.56X3、想要设置窗体状态为不显示控制菜单，应设置下列____________属性。
( )A、StyleB、PictureC、ControlBoxD、CaptionD 4、用于字符串连接的运算符是________。
( )A、&B、+C、AndD、A、B选项皆可D 5、VisualBasic是一种面向________的程序设计语言。
( )A、过程B、用户C、方法D、对象B6、执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。
( )A、5459.48B、5,459.48C、5,459.478D、5,459.477、执行下列程序，输出结果为___________。
Private Sub Command1_Click( )Dim b As SingleB=2 / 3Print bEnd Sub ( )A、0.6666666666667B、1C、0D、0.6666667B 8、VisualBasic中的标准模块文件的扩展名是____________。
( )A、.regB、.frmC、.basD、.vbp@B 9、下面程序的内层循环次数是____。
For i=1 TO 3For j=1 TO iFor k=j TO 3...Next kNext jNext i ( )A、3B、14C、9D、2110、以下有关对象属性的说法中错误的是____________。
2012年vb计算机考试试题及答案
2012年vb计算机考试试题及答案第一部分：选择题（共40题，每题2分，总分80分）1. VB是以下哪种类型的编程语言？A. 解释性编程语言B. 面向对象编程语言C. 编译型编程语言D. 结构化编程语言2. 在VB中，以下哪个符号用于表示不等于？A. !=B. <>C. ==D. =3. 下列关于VB的说法中，不正确的是：A. VB可以用于开发Windows应用程序B. VB是Visual Basic的缩写C. VB可以与数据库进行交互D. VB只能运行在Windows操作系统上4. 在VB中，以下哪个选项用于声明整数变量？A. DimB. IntC. IntegerD. String5. 以下哪个是VB中的逻辑运算符？A. +B. /C. &&D. >6. VB中的控件是用来进行什么操作的？A. 数据存储B. 用户界面交互C. 网络通信D. 文件操作7. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. ButtonC. TextBoxD. ComboBox8. 以下哪个事件是在VB窗体加载时触发的？A. MouseClickB. KeyPressC. LoadD. FormOpen9. VB中用于执行特定任务的代码块被称为什么？A. 函数B. 过程C. 类D. 对象10. 在VB中，以下哪个函数可以将字符串转换为整数？A. CInt()B. CStr()C. CDbl()D. CBool()11. VB中的数组是用来存储什么类型的数据？A. 字符串B. 整数C. 浮点数D. 所有以上类型的数据12. 在VB中，以下哪个选项用于打开一个对话框来选择文件？A. OpenFileDialogB. MessageBoxC. InputBoxD. SaveFileDialog13. VB中的Do While循环是什么类型的循环结构？A. 前测试循环B. 后测试循环C. 无限循环D. 选择循环14. 在VB中，以下哪个选项用于释放对象所占用的资源？A. UsingB. FreeC. DisposeD. End15. VB中的Try...Catch语句用于处理什么类型的错误？A. 语法错误B. 逻辑错误C. 运行时错误D. 编译时错误...（继续撰写剩余试题及答案）第二部分：主观题（共3题，每题40分，总分120分）请根据以下问题进行简答：问题一：请解释VB中的常用数据类型及其区别。
VB期末考试试卷2012版(含答案)
'********** End ********** fun = Sum End Function Private Sub Form_Load() Show Print fun() NJIT_VBபைடு நூலகம்End Sub Private Sub NJIT_VB() Dim i As Integer Dim s As String Dim fOut As Integer fOut = FreeFile Open App.Path & "\out.dat" For Output As #fOut Print #fOut, fun() Close #fOut End Sub
8
C:DrawWidth 属性 D:DrawStyle 属性
答案：B 第 19 题 （2.0 分） 关于顺序文件和随机文件的说法错误的是(). A:顺序文件中记录的逻辑顺序与存储顺序是一致的 B:随机文件的结构特点是固定记录长度以及每条记录均有记录号 C:随机文件的操作与顺序文件相同 D:随机文件读写操作比顺序文件灵活
答案：A 第 17 题 （2.0 分） 在 VB 中没有提供下列()事件. A:MouseDown B:MouseUp C:MouseOver D:MouseMove
答案：C 第 18 题 （2.0 分） 在 VB 中,坐标轴的默认刻度单位是缇,用户可以根据实际需要使用()来改变刻度单位. A:Scale 属性 B:ScaleMode 属性
答案：C 第 15 题 （2.0 分） 下列程序： Sub mtv(ByVal m As Integer, ByVal n As Integer) m = m+7 n = n* 5 Print"m=";m;"n="n; End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 8: b = 7 mtv a,b
南京工业大学VB期末考试模拟题6
南京工业大学V B期末考试模拟题6work Information Technology Company.2020YEAR安全土木化工化学vb练习题4满分：111分姓名：________ 1、单项选择题(本题共计60分)1、在过程调用中，参数的传递可以分为________________和________________两种方式。
( )A、按值传递按地址传递B、按地址传递按参数传递C、按参数传递按值传递D、按位置传递按参数传递2、下面的过程定义语句中合法的是________________________。
( )A、Sub Procl (ByVal n () )B、Sub Procl ( n ) As IntegerC、Function Procl (Procl )D、Function Procl (ByVal n )3、在参数传递过程中，使用关键字________________来修饰参数，可以使之按值传递。
( )A、ByValB、ByRefC、ValueD、Reference4、要想在过程调用后返回两个结果，下面的过程定义语句合法的是________________。
( )A、Sub Procl ( ByVal n , ByVal m)B、Sub Procl ( n , ByVal m)C、Sub Procl ( n , m)D、Sub Procl ( ByVal n , m)5、通用过程可以通过执行“工具”菜单中的____________命令来建立。
( )A、添加过程B、通用过程C、添加窗体D、添加模块6、可以在窗体模块的通用声明段中声明的是________________。
( )A、全局变量B、全局常量C、全局数组D、全局用户自定义类型7、当运行程序时，系统自动执行启动窗体的____________事件过程。
( )A、LoadB、ClickC、UnLoadD、GotFocus8、在语句Public Sub Sort(i As Integer)中i是一个按________传递的参数。
南京工业大学2012VB代码编程考试范围
南京工业大学2012VB代码编程考试范围1．求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为："; maxPicture1.Print "最小数为："; minPicture1.Print "平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_Activate()Dim i As Integer, j As Integer, k As Integer, n As IntegerFor i = 1 To 100For j = 1 To 100For k = 1 To 100If i * a + j * b + k * c = 100 Thenn = n + 1List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k End IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_Click() Dim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd IfNext iEnd Sub5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出end（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid$(n,i,1)) next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数（感觉题目类型太多）8. 级数有限项求和问题（题目类型太多）9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:"))I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A, B) 'x存入最大值Y = IIf(A <= B, A, B) 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数= YEnd Function3.冒泡排序过程Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = InputBox("输入整数")NextSort aFor i = 0 To 9Print a(i)NextEnd SubPrivate Sub Sort(ByRef a() As Integer) Dim i As IntegerDim j As IntegerDim t As IntegerFor i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1If a(j - 1) > a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint "原数组:"For i = 1 To 10a(i) = Rnd * 10Print "a(" & i & ") =" & a(i) & Space(2), If i Mod 2 = 0 Then PrintNext iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iPrint "从小到大排序后数组:"For i = 1 To 10Print "a(" & i & ") =" & a(i) & Space(2), If i Mod 2 = 0 Then PrintNext iEnd Sub5. 判断回文数过程建一个T ext1,Text2,Command1。
2012年9月全国计算机二级VB考试真题
2012年9月全国计算机二级VB考试真题二级VB一、选择题（每小题2分，共70分）（1）下列链表中，其逻辑结构属于非线性结构的是A）循环链表 B）双向链表 C）带链的栈 D）二叉链表（2）设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35，现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为A）16 B）20 C）0或35 D）15（3）下列关于栈的叙述中，正确的是A）栈顶元素一定是最先入栈的元素 B）栈操作遵循先进后出的原则C）栈底元素一定是最后入栈的元素 D）以上三种说法都不对（4）在关系数据库中，用来表示实体间联系的是A）二维表 B）树状结构 C）属性 D）网状结构（5）公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A）m:1联系 B）1:m联系 C）1:1联系 D）m:n联系（6）有两个关系R和S 如下:则由关系R得到关系S的操作是A）自然连接 B）选择 C）并 D）投影（7）数据字典（DD）所定义的对象都包含于A）程序流程图 B）数据流图（DFD图） C）方框图 D）软件结构图（8）软件需求规格说明书的作用不包括A）软件可行性研究的依据 B）用户与开发人员对软件要做什么的共同理解C）软件验收的依据 D）软件设计的依据（9）下面属于黑盒测试方法的是A）逻辑覆盖 B）语句覆盖 C）路径覆盖 D）边界值分析（10）下面不属于软件设计阶段任务的是A）数据库设计 B）算法设计C）软件总体设计 D）制定软件确认测试计划(11)以下叙述叙述中错误的是A)vbp是工程文件,一个工程可以包括.bas文件B).frm文件是窗体文件,一个窗体可以包含.bas文件C) vbp是工程文件,一个工程可以由多个.frm文件组成D).vbg文件是工程组文件,一个工程组可以由多个工程组成(12)以下叙述中错误的是A)在Visual Basic的窗体中,一个命令按钮是一个对象B)事件是能够被对象识别的状态变化或动作C)事件都是由用户的键盘操作或鼠标操作触发D)不同的对象可以具有相同的方法(13)设x=3.3, y=4.5, 表达式x-Int(x)+Fix(y)的值是A)3.5 B)4.8 t C)4.3 D)4.7(14)窗体上有一令名称为Command1的命令按钮, 其中部分代码如下: Private Sub Command1_Click()Dim a(10)As IntegerDim n As Integer... ...Call calc(a, n)... ...End Subcalc过程的首行应该是A)Sub talc(x()As Integer, n As Integer)B)Public Sub calc(x() As Integer)C)Private Sub calc(a(n) As Integer, n As Integer)D)Public Sub calc(a As Integer, n As Integer)(15)设有如下程序:Sub f(x As Integer,ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer,b As Integera=6:b=35Call f(a, b)Print a, bEnd Sub程序运行后, 单击命令按钮Command1, 输出结果为A)6 47 B)12 47 C)6 35 D)12 35(16)以下叙述中正确的是A)窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B)在工程中只有启动窗体可以建立菜单c)窗体名称必须与窗体文件的名称相同D)程序一定是从某个窗体开始执行的(17)窗体上有一个名称为Command1的命令按钮, 其单击事件过程代码如下: Private Sub Command1_Click()Static x As Variantn=0x=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)while n<=4x(n)=x(n+5)Print x(n);n=n+1WendEnd Sub运行程序, 单击命令按钮Command1, 窗体上显示的是A)1 2 3 4 5 B)6 7 8 9 10 C)2 3 4 5 6 D)6 2 3 4 5(18)窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。
2012秋VB笔试试卷
第4页 Visual Basic第二部分 Visual Basic 程序设计一、 选择题（用答题卡答题，答案依次填在21～30答题号内）21．可以设置为VB 程序运行启动对象的是 21 。
① 工程文件 ② 任意一个窗体③ 窗体模块中的Main()过程 ④ 标准模块中的Main()过程A. ①②③B. ②③④C. ②③D. ②④22．若要引用列表框List1中最后一个数据项的内容，应使用 22 。
A ．List1.List(List1.Count)B ．List1.List(List1.Count - 1)C ．List1.ListIndexD ．List1.Text23．以下关于变量的说法中，错误的是 23 。
A. 在不同窗体中用Public 语句定义的变量可以同名B. 在过程中用Dim 语句声明的变量都是局部变量，过程运行结束它们将不再存在C. 静态变量在过程结束时其值仍保留，以供再次调用该过程时使用，因此它不是局部变量D. 在窗体通用声明部分声明的模块级变量，可以在本窗体内的所有过程中使用24．对应数学表达式n e y x Sin x 102log )30(-+++︒的VB 表达式是 24 。
A ．Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n) / Log(10)B ．Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n) / Log(10)C ．Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n)D ．Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n)25．以下关于If 分支结构语句的说法中，正确的是 25 。
A ．有If 一定有与之配对的ElseB ．有If 一定有与之配对的ElseIfC ．有If 一定有与之配对的End IfD ．有End If 一定有与之配对的If26．设有字符串变量s ，其值为"abcd"，可将s 的值替换为"aabcd"的语句是 26 。
2012年VB真题
2012秋第一套[1]. Web网页有___________ 网页和动态网页两大类，前者通常指那些内容固定不变的网页。
[2]. CD光盘片根据其制造材料和信息读写特性的不同，可以分为CD-ROM、CD-R和CD-RW。
CD-R光盘指的是________。
A．只读光盘B．随机存取光盘C．只写一次式光盘D．可擦写型光盘[3]. 下列4种输入设备中功能和性质不属于同一类型的是________。
A．鼠标器B．触摸屏C．轨迹球D．手持式扫描仪[4]. 十进制整数256使用无符号整数表示时，在PC中使用________个二进位表示最合适。
A．4B．8C．16D．32[5]. 为了解决异构网互连的通信问题，IP协议定义了一种独立于各种物理网络的数据包格式，称之为IP________，用于网络之间的数据传输。
[6]. 数码相机中将光信号转换为电信号的芯片是________。
A．Flash ROMB．DSP C．CCD或CMOSD．A/D[7]. 以下Windows（中文版）文件系统中有关文件命名的叙述中，错误的是_____________ 。
A．每个文件或文件夹必须有自己的名字B．同一个硬盘（或分区）中的所有文件不能同名C．文件或文件夹的名字长度有一定限制D．文件或文件夹的名字可以是中文也可以是西文和阿拉伯数字[8]. 下面关于因特网服务提供商（ISP）的叙述中，错误的是_______。
A．ISP指的是向个人、企业、政府机构等提供因特网接入服务的公司B．因特网已经逐渐形成了基于ISP的多层次结构，最外层的ISP又称为本地ISPC．ISP通常拥有自己的通信线路和许多IP地址，用户计算机的IP地址是由ISP分配的D．家庭计算机用户在江苏电信或江苏移动开户后，就可分配一个固定的IP地址进行上网[9]. USB接口是一种通用的串行接口，通常可连接的设备有移动硬盘、优盘、鼠标器、扫描仪等。
[10]. 在启动PC机的过程中，用户可以通过按下键盘上的一个特定键运行存储在BIOS 中的_____程序，从而修改CMOS芯片中保存的系统配置信息。
2012VB高考题
8 分）
92．顺序文件有哪几种访问方式？（ 九．综合题 （ 13 分）
3 分）
93．一个具有 10 个元素的一维数组，下标从 函数产生的 [200 ，500] 之间的随机整数。要求：用 出该数组中的最小值及其下标，并输出结果。
1 到 10，每个元素的值是由随机 Visual Basic 语言写一个程序，求
可以作为 Visual Basic 中变量名。 A ． a+b B． abc C ． 2a D ． Then
34．符合 Visual Basic 6.0 规范的表达式是 A ． a +ab C ． a*[a+b]
2
B． a(a+b) D ． a*(a+b)
35．表示 x 位于闭区间 [-3 ， 3] 的 Visual Basic 表达式是 A ． -3<=x<=3 C ． x>= - 3 And x<=3 36．程序执行过程中其值不变的量称为 A ．表达式 B．常量 C ．变量 D ．函数 B． x>= - 3 Or x<=3 D． x>= - 3 Xor x<=3
39．假设变量 a=5 ， b=3 ，执行 t=a:a=b:b=t 语句以后， a 和 b 的值分别是 A． 3 和 5 B． 5 和 3 C． 3 和 3 D． 5 和 5
40．获得当前系统日期的函数是 A ． Hour C ． Date 41．程序段： s=1 For i=1 To 10 Step 2 s=s*i i=i+1 Next i Print s,i 执行结束后，输出的结果是 A ． 280 13 B． 280 11 C ． 945 11 D ． 945 13 B． Time D ． Year
南京工业大学vb考试(含答案)
vbzj523满分：60分姓名：________1、单项选择题(本题共计40分)1、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
( )A、方法B、属性C、事件D、工程2、执行语句Print Format(1234.567,“##,##0.00”)后，输出结果是____________。
( )A、1234.57B、1,234.57C、1，234.567D、1,234.563、想要设置窗体状态为不显示控制菜单，应设置下列____________属性。
( )A、StyleB、PictureC、ControlBoxD、Caption4、用于字符串连接的运算符是________。
( )A、&B、+C、AndD、A、B选项皆可5、VisualBasic是一种面向________的程序设计语言。
( )A、过程B、用户C、方法D、对象6、执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。
( )A、5459.48B、5,459.48C、5,459.478D、5,459.477、执行下列程序，输出结果为___________。
Private Sub Command1_Click( )Dim b As SingleB=2 / 3Print bEnd Sub ( )A、0.6666666666667B、1C、0D、0.66666678、VisualBasic中的标准模块文件的扩展名是____________。
( )A、.regB、.frmC、.basD、.vbp9、下面程序的内层循环次数是________。
For i=1 TO 3For j=1 TO iFor k=j TO 3...Next kNext jNext i ( )A、3B、14C、9D、2110、以下有关对象属性的说法中错误的是____________。
2012江苏省全国计算机等级考试二级VB笔试试卷及参考答案考试题库
20、计算机病毒主要（ D ）的损坏。
A、软盘 B、磁盘驱动器 C、硬盘 D、程序和数据
21、表示字符的连续两个字节为31H，41H，则（ D ）
6、微型计算机中的外存储器，现在普遍采用（ B ）
A、电子管储器 B、磁表面存储器
C、半导体存储器 D、磁芯存储器
7、软件系统主要由（ B ）
A、操作系统和数据库管理系统组成 B、系统软件和应用软件组成
C、办公自动化 D、人工智能
13、具有多媒体功能的微型计算机系统中，常用的的WORM是（ C ）
A、只读型大容量软盘 B、只读型光盘
C、一次性写入光盘 D、半导体只读存储器
C、保持各种控制状态 D、控制机器各个部件协调一致地工作
30、为防止计算机病毒的传播，在读A、打开软盘的写保护小孔
B、用消病毒软件检查该软盘有无计算机病毒
C、检查硬盘有无计算机病毒，并关掉软盘写保护小孔
A、声卡的字长 B、计算机的字长
C、计算机总线的宽度 D、声卡的采样精度
29、微型计算机中，控制器的基本功能是（ D ）
A、进行算术运算和逻辑运算 B、存储各种控制信息
C、应用软件和操作系统组成 D、系统软件和操作系统组成
8、对待计算机软件正确的态度是（ C ）
A、计算机软件不需要维护
B、计算机软件只要能复制得到就不必购买
C、受法律保护的计算机软件不能随便复制
D、计算机软件不必有备份
9、计算机的内存中有一项占据4个字节的数据，内容依次为61H、41H、31H、51H，这项数据可能是（ C ）
VB6.0 2012年考题(编程题) 加答案 注意(不可能出现2013年的考题因为还没开考所有标榜2013者都是假的)
5630101：答：设置Text1 的属性MultiLine为true和ScrollBarsFalsecommand1的属性Enabled 为Text1.FontBold = TrueEnd SubPrivate Sub Op2_Click()Text1.FontBold = FalseEnd SubPrivate Sub Cd1_Click()P1.ClsP1.Line (0, 0)-(1800, 1200)End SubPrivate Sub Cd2_Click()P1.ClsP1.Circle (900, 600), 500End SubPrivate Sub Command1_Click()Dim n As IntegerDim a As Integer, b As Integer, c As Integer n = Text1.Texta = n Mod 10b = n \ 10 Mod 10c = n \ 100If a ^ 3 + b ^ 3 + c ^ 3 = n ThenLabel1.Caption = "是水仙花数" ElseLabel1.Caption = "不是水仙花数" End IfEnd SubDim A(1 To 10)Private Sub Command1_Click() RandomizeDim i As IntegerFor i = 1 To 10A(i) = Int(10 + Rnd * (99 - 10 + 1))Text1.Text = Text1.Text & A(i) & " " Next iEnd SubPrivate Sub Command2_Click()Min = A(1)Max = A(1)For i = 2 To 10If A(i) < Min ThenMin = A(i)ElseIf A(i) > Max ThenMax = A(i)End IfNext iText2.Text = MaxText3.Text = MinEnd Sub5630102：答：设置image1 的属性BorderStyle为1和Stretch为true属性找到图片在image1 的pictureText2.Text = Text1.SelTextText1.Text = ""Text1.SetFocusEnd Sub'''不得删改本行注释Dim a As Singlea = Text1.TextIf a >= 80 And a <= 100 Then Text2.Text = "优良"If a >= 60 And a < 80 Then Text2.Text = "合格"If a > 0 And a < 60 Then Text2.Text = "不合格"End Sub：5630103Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd SubPrivate Sub Command1_Click()L1.AddItem Text1.TextL2.AddItem Val(Text1.Text) ^ 2T1.Text = ""T1.SetFocusEnd SubPrivate Sub Command1_Click()Dim s As String, i As Integer, n As Integers = Text1.TextFor i = 1 To Len(s)If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then n = n + 1End IfNext iText2.Text = nEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 100 To 200If isprime(i) = False ThenText1.Text = Text1.Text & i & " "End IfNext iEnd Sub：5630104按窗体右键->菜单编辑器, 标题和名称不能少,例如:标题: 文件,名称为File.注意名称的大小写和题目一致设置标签L1的BorderStyle属性为1,Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visible = TrueEnd Sub5630106：设置combo1的style属性为1,然后下拉组合框Private Sub Cd1_Click()Combo1.AddItem Combo1.TextEnd SubPrivate Sub Cd2_Click()Combo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Command1_Click()Dim n As Integern = Text1.TextIf (n Mod 4 = 0 And n Mod 100 <> 0) Or n Mod 400 = 0 Then Text2.Text = "是闰年"ElseText2.Text = "非闰年"End IfEnd SubPrivate Sub Command1_Click()'''不得删改本行注释Text2.Text = zh(Text1.Text)End Sub5630107：Private Sub Command1_Click()'''不得删改本行注释Dim S As StringOpen "K:\administrator\5630111\PDZM.TXT" For Input As #1 Do While Not EOF(1)Input #1, SText1.Text = Text1.Text & SLoopEnd SubPrivate Sub Command2_Click()'''不得删改本行注释Dim S As String, i As Integer, N As IntegerS = Text1.TextFor i = 1 To Len(S)If Mid(S, i, 1) = UCase(Text2.Text) Or Mid(S, i, 1) = LCase(Text2.Text) Then N = N + 1End IfNext iText3.Text = NEnd Sub：5630108Private Sub C1_Click()L1.AddItem T1.TextL2.AddItem Asc(T1.Text)T1.Text = ""T1.SetFocusEnd Sub：5630109Private Sub Form_Load()List1.AddItem "PictureBox"List1.AddItem "Label"List1.AddItem "TextBox"List1.AddItem "Frame"List1.AddItem "CommandButton"List1.AddItem "CheckBox"End SubPrivate Sub Command1_Click()Text1.Text = List1.TextText2.Text = List1.ListIndexEnd Sub5630110：Dim n As Integern = Text1.TextFor i = 1 To 50If Sqr(i) = Int(Sqr(i)) ThenText2.Text = Text2.Text & i & " "End IfNext iEnd SubOption ExplicitDim A(1 To 20) As Integer '''不得删改本行声明Private Sub Command1_Click()'''不得删改本行注释Open "K:\administrator\5630005\input02.txt" For Input As #1 For i = 1 To 20Input #1, A(i)Text1.Text = Text1.Text & A(i) & " "Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, sum As IntegerFor i = 1 To 20sum = sum + A(i)Next iText2.Text = sumEnd Sub答：设置image1 的属性BorderStyle为1和Stretch为true Private Sub Check1_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture("K:\Fjexam95\Jztx.bmp")ElseImage1.Picture = LoadPicture("")End IfEnd Sub。
2012年9月全国计算机等级考试二级VB笔试试卷及答案(WORD版本)
2012年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计一、选择题1、下列链表中，其逻辑结构属于非线性结构的是A、二叉链表B、循环链表C、双向链表D、带链的栈2、设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35。
现经过一系列入队与退队运算后，front=15,rear=15,则循环队列中的元素个数为A、15B、16C、20D、0或353、下列关于栈的叙述中，正确的是A、栈底元素一定是最后入栈的元素B、栈顶元素一定是最先入栈的元素C、栈操作遵循先进后出的原则D、以上三种说法都不对4、在关系数据库中，用来表示实体间联系的是A、属性B、二维表C、网状结构D、树状结构5、公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A、1:1联系B、m:1联系C、1:m联系D、m:n联系6、有两个关系 R和S如下：则由关系R得到关系S的操作是A、选择B、投影C、自然连接D、并7、数据字典（DD）所定义的对象都包含于A、数据流图（DFD图）B、程序流程图C、软件结构图D、方框图8、软件需求规格说明书的作用不包括A、软件验收的依据B、用户与开发人员对软件要做什么的共同理解C、软件设计的依据D、软件可行性研究的依据9、下面属于墨盒测试的方法是A、语句覆盖B、逻辑覆盖C、边界值分析D、路径覆盖10、下面不属于软件设计阶段任务的是A、软件总体设计B、算法设计C、制定软件确认测试计划D、数据库设计11、以下叙述中错误的是A、.vbp文件是工程文件，一个工程可以包含.bas文件B、.frm文件是窗体文件，一个窗体可以包含.bas文件C、.vbp文件是工程文件，一个工程可以由多个.frm文件组成D、.vbg文件是工程组文件，一个工程组可以由多个工程组成12、以下叙述中错误的是A、在Visual Basic的窗体中，一个命令按钮是一个对象B、事件是能够被对象识别的状态变化或动作C、事件都是由用户的键盘操作或鼠标操作触发的D、不同的对象可以具有相同的方法13、设x=3.3，y=4.5，表达式x-Int(x)+Fix(y)的值是A、3.5B、4.8C、4.3D、4.714、窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integer……Call calc(a,n)……End Subcalc过程的的首行应该是A、Sub calc（x() As Integer,n As Integer）B、Public Sub calc(x() As Integer)C、Private Sub calc(a(n) As Integer,n As Integer)D、Public Sub calc(a As Integer, n As Integer)15、设有如下程序Sub f(x As Integer，ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer , b As Integera=6 ; b=35call f(a,b)print a,bEnd Sub程序运行后，单击命令按钮Command1，输出结果为A、6 47B、12 47C、6 35D、12 3516、以下叙述中正确的是A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B、在工程中只有启动窗体可以建立菜单C、窗体名称必须与窗体文件的名称相同D、程序一定是从某个窗体开始执行的17、窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click()Static x As Variantn=0x=array(1,2,3,4,5,6,7,8,9,10)While n<=4x(n)=x/(n+5)Print x(n);N=n+1WendEnd Sub运行程序，单击命令按钮Command1，窗体上显示的是A、12345B、678910C、23456D、6234518、窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_click()x=InputBox(“输入x: ”，，0)y=InputBox(“输入y: ”，，0)Label1.caption=x+yEnd Sub运行程序后，单击命令按钮，在输入对话框中分别输入2，3，运行的结果是A、程序运行有错误，数据类型不匹配B、程序运行有错误，InputBox函数的格式不对C、在Label1中显示5D、在Label1中显示2519、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。
2012VB会考笔试模拟试卷
《VB程序设计》会考笔试模拟卷考试时间：60分钟一、选择题（每题 2 分，共 40 分）1．一般情况下，用Visual Basic创建应用程序分为4个主要步骤。
以下操作顺序正确的是（）。
①创建应用程序的界面②编写程序代码，建立时间过程③设置对象属性④调试运行程序，生成可执行文件A．①②③④B．①③②④C．②①④③D．②③①④2．下列数据中，整型数据是（）。
A．35@ B．35! C．35& D．35%3．设a=2,b=3,c=4,d=5，那么表达式a>b and c<d or 2*a>c的值是（）。
A．True B．False C．-1 D．14．启动VB后，默认的窗体名称为（）。
A．Form1 B．From C．Form D．From15．确定一个窗体或控件的大小的属性是（）。
A．Width或Height B．Width和Height C．Top或Left D．Top和Left 6．函数Int(Rnd*100)产生的随机数在（）的范围内。
A．（0，100）B．（1，100）C．[0，100) D．[0，90] 7．表达式Left(”Today is Monday”,2,3)的值是（）。
A．Tod B．Mon C．oda D．Monday8、VB中可用（）语句产生一消息框。
A．B asic B．MsgBox C．Visual D．Shift9．设a=8，则执行x=IIf(a>5,1,2)后，x的值为（）。
A．6 B．8 C．1 D．210．为了让某个指定的控件获得焦点，所使用的方法是（）。
A．SetFocus B．Public C．Visible D．Refresh11．下列操作中不能向工程中添加窗体的是（）。
A．执行“工程”菜单中选择“添加窗体”命令B．单击工具栏上的“添加窗体”按钮C．右击窗体，在弹出的菜单中选择“添加窗体”命令D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令12．下列语句中，格式正确的是（）。
南京工业大学vb期末题库
南京工业大学vb期末题库09复材高材vb综合练习题第二套满分：100分姓名：________1、单项选择题(本题共计49分)1、执行下面的程序，单击窗体后在窗体上显示的结果是________。
Private Sub Form_Click()Dim Strl As String, Str2 As String,I As IntegerStr1=”ab”For I=Len(Str1)To 1 Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)Next IPrint Str1End Sub ( )A、abceB、abcdC、abdbD、abfd2、下列语句中的语句可以用来正确地声明一个动态数组。
( )A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)3、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer,b As IntegerDo While b <100b=b+5If b>20 Then Exit DoLoopPrint a,bEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________。
( )A、50 20B、75 25C、50 25D、75 204、有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is<60a$="F"Case 60 To 69a$="D"Case 70 To 79a$="C"Case 80 To 89a$="B"Case elsea$="A"End SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_______。
(完整word版)2012春江苏省计算机二级VB笔试真题(含答案)
2012春江苏省计算机二级VB笔试真题2012年春江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试二级试卷试卷语种:VB语言说明：1．本试卷包括计算机基础知识部分和程序设计部分,考试时间共12 0分钟；2．本试卷满分为60分,分选择题和填空题,试卷不分A、B类型；3．计算机基础知识部分全部是选择题(20分),程序设计部分分为选择题(1 0 分)和填空题(30分)两种；4．选择题用答题卡答题。
每一项有A、B、C、D四个可供选择的答案,请选择其中一个你认为正确的答案,用HB铅笔涂写在答题卡的相应答题号内。
每选对一项得1分,不选或选错不得分；5．填空题用答题纸答题。
请将答案用蓝、黑色钢笔或圆珠笔填写在答题纸的相应答题号内,每个答案只占一行,不得换行。
每填对一个答案得1分,不填或填错不得分；6．请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正确。
7．考试结束时将试卷、答题卡和答题纸放在桌上,不得带走。
待监考人员收毕清点后,方可离场。
第一部分计算机基础知识1. 下列有关信息产业、信息化、信息社会等相关的叙述中,错误的是___(1)___ 。
A.信息产业是指生产制造信息设备的制造业,不包含信息服务行业B.信息化是一个推动人类社会从工业社会向信息社会转变的过程C.在信息社会中,信息将借助材料和能源的力量产生重要价值而成为社会进步的基本要素D.目前我国还处于工业化的中期阶段,需要大力推进信息化与工业化的融合式发展2. 下列有关数字技术与微电子技术的叙述中,错误的是___(2)___ 。
A.数字技术的处理对象是"比特",它只有两种状态(取值)B.在计算机中,经常使用称为"触发器"的双稳态电路来存储比特,一个触发器可以存储1个比特C.微电子技术以集成电路为核心,现代集成电路所使用的半导体材料主要是硅D.所有的IC卡均只能存储数据,不能处理和收发数据3. 下列有关计算机发展与分类的叙述中,错误的是___(3)___A.人们通常根据计算机采用的主要电子元器件的不同,将计算机的发展划分为四代B.由于20世纪90年代计算机网络的发展,计算机应用进入了"网络计算模式"C.目前所有的服务器产品均为小型计算机、大型计算机或巨型计算机,PC机不能作为网络服务器使用D.美国的HP、DELL和我国的联想、方正、同方等均是知名的PC机品牌4. 下列有关PC机CPU的叙述中,错误的是___(4)___。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
25. 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
Do While b <100
b=b+5
a=a+b
If b>20 Then Exit Do
D、在代码中访问命令按钮只需使用名称Command1
30. 用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段__B______。
C、Combo1.Cls
D、Picture1.Clear
10. 设置标签边框的属性是__C___。
A、Alignment
B、Backstyle
C、Borderstyle
D、Autosize
11. VisualBasic认为下面_____B______组变量是同一个变量。
B、Hello
C、vbokonly
D、你好
27. 在窗体画一个命令按钮，然后编写如下事件过程
Private Sub Command1_Click( )
x = 10
Print IIf(x>5,1,5)
End Sub
运行后的输出结果__D___。
A、6
B、2
C、5
D、1
28. 算法应具备的特征有：确定性、可行性、有穷性、_B____性、_____性。
20. 下列不正确的变量名是__A______。
A、Arry@
B、Text
C、Command
D、Form
21. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行
时会出错的是_____A___。
A、Bl=#True#
B、Inta=4.6
A、Y+X>=Z+X AND NOT L
B、NOT(Z+X>Y) AND L
C、NOT L OR(L=Y+X=Z)
D、X+Z>Y AND L
19. 下列_____C_______是日期型常量
A、“江苏南京”
B、123#
C、#02/25/1999#
D、“I am a student”
B、ByRef
C、Value
D、Refrence
40. 在窗体模块的通用声明处有如下语句，会产生错误的语句是___A_________。
①Const A As Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10
Loop
Print a,b
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是__B___。
A、75 20
B、75 25
C、50 20
D、50 25
26.用Msgbox（"Hello", vbokonly, "你好"）显示的消息对话框窗口的标题是_D____。
A、OK
1. 工程资源管理器用来显示和管理工程所包含的__D___等全部项目。
A、变量和数组
B、变量和常数
C、过程和事件
D、窗体和模块
2. 以下说法正确的是___A__。
A、A、B都正确
B、属性是对象的一部分
C、事件是对象的一部分
D、方法是对象的一部分
3. 能被对象所识别的动作与可执行的活动分别称为对象的_C____。
M = M + K
Fun = N + M
Print Fun; N; M
End Function
A、2 4
B、56
C、40 12 28 D、16 6 10
39. 参数传递有值传递和地址传递，___B______关键字表示地址传递。
A、ByVal
End Sub
运行上面的程序，单击命令按钮，其输出结果是______A_______。
A、1234
B、34
C、12
D、4321
32. 对窗体编写如下代码：
Option Base 1
Private Sub Command1_Click( )
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
Next i
Print m1;m2
End Sub
程序运行后，按回车键，输出结果为___B______。</font>
C、任何控件
D、选项按钮、复选框
6. 要使文本框能显示多行文字，则需设定它的_C____属性为True。
A、PasswordChar
B、Seleted
C、MultiLine
D、Caption
7. 设置标签属性时，为了使WordWrap属性起作用，应将AutoSize属性设置__B___。
k = k + p(i) * 2
Next I
Print k
A、30
B、45
C、32
D、48
36. 通用过程可以完成一项指定任务，必须由____A______调用才行。
A、应用程序
B、定时器
C、系统引发
D、Sub Main
37. VB中可以使用自定义的Sub过程和Function过程。__B_________过程称为函数，这种过程可以返回值。
C、6
D、25
23. 计算机算法可以分为两大类：一类是__D___算法，另一类是_____算法。
A、计算机辅助设计、财务
B、排序、查找
C、步骤管理、通信
D、数值计算、非数值计算
24. 下列程序段的执行结果为____C_。
x = Int((69 - 60) * Rnd + 60)
Select Case x
A、时间过程
B、Function
C、通用过程
D、属性过程
38. 单击command1按钮，输出的第二行是___C_______
Private Sub Command1_Click()
Dim A As Integer, B As Integer, K As Integer
A = 2: B = 4
A、1
B、True
C、False
D、0
8. 复选框的Value属性为1时，表示_C____。
A、复选框未被选中
B、复选框内有灰色的勾
C、复选框被选中
D、复选框操作有误
9. 以下使用方法的语句中，正确的是_B____。
A、Form1.Clear
B、List1.Clear
A、方法、事件
B、过程、方法
C、事件、方法
D、事件、属性
4. 当文本框的__A___属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。
A、Locked
B、SelStart
C、Shape
D、SelText
5. 可以将__C___放入一个框架中。
A、文本框、命令按钮
B、标签、选项按钮、复选框
A、冒号(：)
B、感叹号(！)
C、撇号(’)
D、问号(?)
17. 设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的计算结果为___A_________。
A、8.5
B、8.0
C、8
D、9
18. 设X=2.0,Y=8.0,Z=6.0,L=True,则下列VB表达式中值为True的是____B________。
A、步骤有限、可以实现
B、输入、输出
C、确切无误、可以实现
D、步骤有限、确切无误
29. 用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是____D____。
A、命令按钮的大小都相同
B、命令按钮的所有Caption属性都是Command1
C、命令按钮共享相同的事件过程
A、237 1
B、498 5
C、498 4
D、48 4
33. 下列语句可以用来正确地声明一个动态数组的是__B___。
A、Private A(n) As Integer
B、Dim A() As Integer
C、Dim A(1 to n)
D、Dim A(,) As Integer
34. 下列程序段的输出结果是______D______。
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)*j
j = j * 10