湖南二级计算机考试VB.doc

56、以下定义的函数（ C）是按“传值”方式传递参数的。A. Public Function Sum(x,y)B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,y as Integer)D. Public Function Sum(x%, y%)57、以下函数的定义中，（ C）是错误的。A. Public Function Sum(x ; y)B. Public Function Sum(ByVal x, ByVal y)C. Public Function Sum(x as Integer,y as Integer)D. Public Function Sum(x%, y%)58、以下递归函数中，正确的是（A ）。A. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn*nEnd FunctionB. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n)*nEnd FunctionC. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n-1)*nEnd FunctionD. Public Function Fn(n as Integer)If n=0 Then Fn=1 Else Fn=Fn(n+1)*nEnd Function59、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（C ）。Public Function Fun(x, y)Fun = 1For i = 1 To yFun = Fun * xNext iEnd FunctionPrivate Sub Command1_Click()Print Fun(3, 4)End SubA. 3 B. 4 C. 81 D. 25660、已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（A ）。Private Sub Command1_Click()Text1.Text =”湖南省” & “计算机” + “等级考试”Text1.ForeColor = vbRedText1.BackColor = vbGreenText1.FontBold = TrueEnd SubA. 湖南省计算机等级考试B. 计算机C. 等级考试D. 计算机等级考试61、VB提供的三种访问文件的模式中，不包括（D ）。A. 顺序文件 B. 数据库文件 C. 随机文件 D. 二进制文件62、以下VB语句中，（B ）的功能是复制指定文件。A. Kill B. FileCopy C. Name D. MkDir63、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（）。Private Sub Command1_Click()Open “a.txt” For Output As #1Print #1, “计算机”；”等级考试”Close #1End SubA. 等级考试 B. 计算机等级考试 C. 计算机 D. 计算机；等级考试64、已知一名为“Student.txt”的文件，其内容如下：张小三，98，87，99李四明，77，88，93陈大光，89，56，65则以下程序段执行的结果为（A）。Private Sub Command1_Click()Open “student.txt” For Input As #1While (Not EOF(1)Input #1, Nam, Chn, Eng, CmpSum = Chn + Eng + CmpPrint Sum;WendClose #1End SubA. 284 258 210B. 98 87 99C. 77 88 93D. 89 56 6565、以下关于while-wend循环的说法中正确的为（D ）。A、 与do while-loop循环完全一致B、 不能用do while-loop循环来代替C、 其循环中不能使用exit while 退出循环D、 while-wend不能实现所有循环要求66、For语句的格式如下，下列说法错误的是（B ）。for = to step exit fornext A、 步长只能为正数，不能为负数B、 步长为1时，可略去不写C、 初值、终值和步长都是数值表达式D、 next后的循环变量与for语句中的循环变量必须相同67、要控制窗体启动时，在屏幕上的位置，可通过（C ）属性来设置。A. Top 和 Left B. Left 和 Right C. StartUpPosition D. WindowState68、窗体中的鼠标指针形状，可以通过（ B）属性来设置。A. MouseIcon B. MousePointer C. Picture D. Icon69、若要将窗体隐藏起来，实现的方法为（ D）。A. Unload B. Cls C. WindowState D. Hide70、在窗体中利用Print方法输出文本信息时，信息的输出位置由（D ）属性设置。A. Left B. Top C. x,y D. CurrentX,CurrentY71、当窗体的大小被调整时，将会发生的事件有（B ）A. Move B. Resize C. Paint D. Click72、若要将一普通窗体设置为MDI窗体的子窗体，应将（C ）属性值设为True。A. Enabled B. Visible C. MdiChild D. Moveable73、关闭MDI窗体时，会触发的事件是（B ）。A. Load B.Click C. Resize D. QueryUnload74、菜单设计器中，要将当前菜单项下移一个位置，应按（B ）按钮。A. “左箭头” B. “右箭头” C. “上箭头” D. “下箭头”75、活弹出式菜单的命令是（ D）。A. Load B. Show C. SetFocus D. PopupMenu76、要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（C ）字符。A. / B. C. & D. 77、要想通过单击Form2上的Command1，从内存中清除Form2窗体，则可在Command1的单击事件中，使用（C ）命令。A. Load Form2 B. Form2.ShowC. Unload Form2 D. Form2.hide78、要想通过单击Form2上的Command1，从屏幕（而非内存中）上清除Form2窗体，则可在Command1的单击事件中，使用（ C）命令。A. Load Form2 B. Form2.ShowC. Unload Form2 D. Form2.hide79、要想通过Form2窗体中的过程调用Form1窗体中的Public 变量Stu，则可用（D）方式实现。A. Form1.Stu B. Form2.Stu C. Stu D. Form2.Form1.Stu80、若要在图片框中绘制一个椭圆，可使用（A ）方法来实现。A. Circle B. Line C. Point D.Pset81、若要获得某一点的颜色值，可通过（C ）方法来实现。A. Circle B. Line C. Point D.Pset82、以下关于VB中的图形坐标的度量单位的说法正确的是（ D）。A. 只有一种单位：TwipB. 只有一种单位：CmC. 只有一种单位：PointD. 可以有多种单位二、程序填空【试题1】 出售金鱼的问题：商人将养的一缸金鱼分五次出售，第一次卖出全部的一半加二分之一条；第二次卖出余下的三分之一加三分之一条；第三次卖出余下的四分之一条；第四次卖出余下的五分之一加五分之一条；最后卖出余下的11条。问原来渔缸中共有几条鱼？Private Sub cmdSaleGoldFish_Click()Dim i, j, n, x As Integern = 0i = 23Dox = ij = 1Do While j = 11If (x + 1) Mod (j + 1) = 0) Thenx = _Elsex = 0_End Ifj = j + 1LoopIf (j = 5 And x = 11) ThenPrint Tab(5); “开始金鱼数为：”; in = 1End Ifi = i + 2Loop While (n = 0)End Sub【答案】59【试题2】 在窗体上画一个命令按钮，其名称为Command1，程序如下，先填上相应的语句，然后程序运行，单击命令按钮，并输出结果。Function M(x As Long,y As Long)As LongM=IIf(xy,x,_)End FunctionPrivate Sub _Dim a As Long,b As LongFontSize = 14: FontBold = TruePrint: Print: Printa=131421b=211314Print tab(5);M(a,b)End Sub【答案】211314【试题3】 设某四位数的各位数字的平方和等于100，共有多少个这种四位数？Private Sub cmdFourSqr_Click()Dim a, b, c, d, i, count As Integercount = 0i = 1111FontSize = 14: FontBold = TruePrint: Print: PrintDo Until _a = i 1000b = (i Mod 1000) 100c = Int(i a * 1000 b * 100) 10)d = i Mod 10If 100 = a 2 + b 2 + c 2 + d 2 Then _i = i + 1LoopPrint Tab(5); “满足条件的四位数数目为：”; countEnd Sub【答案】49【试题4】 求方程51X-21Y=3，在|X|201，|Y|81内共有多少组整数解?Private Sub cmdIntegerRoot_Click()Dim count As IntegerFontSize = 14: FontBold = TruePrint: Print: PrintFor x = -201 To 201For y = -81 To 81If _ Then count = count + 1Next _Print Tab(5); “符合条件的数的数目为：”; countEnd Sub【答案】10【试题5】 用ex 1xx2/2!+x3/3!+x4/4!+xn/n!的公式求近似值，设x=9,n25；Private Sub Form_click()用ex 1xx2/2!+x3/3!+x4/4!+xn/n!Dim n As Integer, x As IntegerDim i As IntegerDim xpower As SingleDim y As Singlex = Val(InputBox(“请输入x：”)n = Val(InputBox(“请输入n：”)y = 1factor = 1For i = 1 To nfactor = factor * ixpower = x iy = y + xpower / factorNext iPrint “e”; x; “=”; yEnd Sub【答案】8103.059【试题6】 已知菲波纳契数列 X 中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的和。Private Sub Form_Click()Dim s As LongDim I As IntegerDim No(30) As LongNo(1) = 0No(2) = 1No(3) = 1s = 2For I = 4 To 30No(I) = No(I 1) + No(I 2)j = 2: k = Int(No(I) / 2)Do While j k Then s = s + No(I)Next IPrint “前三十个菲波纳契数中质数和是：”; sEnd Sub【答案】544830【试题7】 求27090，21672，11352，8127的最大公约数。Option Base 1Private Function GreatestCommonDivisor(ByVal m As Long, ByVal n As Long) As LongDim t As LongDim r As LongIf m n Then t = m: m = n: n = tDor = m Mod nm = nn = rLoop Until r = 0GreatestCommonDivisor = mEnd FunctionPrivate Sub Form_Click()Dim a, gcd&, i As Bytea = Array(27090, 21672, 11352, 8127)gcd = a(1)For i = 1 To UBound(a)gcd = GreatestCommonDivisor(gcd, a(i)NextPrint gcdEnd Sub三、程序改错VB二级改错题1下面程序是输出100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click()Number = 0For x = 101 To 199 Step 2i = 2k = Int(x / 2)Do While i = kIf x Mod i = 0 Then Exit Fori = i + 1LoopIf i 0sum = sum * 2day = day 1LoopPrint sumEnd Sub3一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。Option ExplicitPrivate Sub Form_Click()Dim x As Integer, y As Integer，number as IntegerDim xf As Integer, yf As IntegerNumber = 0Dox = Val(InputBox(“请输入一个2位正整数：”)Loop While (x 99)xf = (x Mod 10) * 10 + Int(y / 10)For y = 10 To 99yf = y Mod 10 + Int(y / 10)If x + y = xf + yf ThenPrint x; “+”; y; “=”; xf; “+”; yf; “=”; x + yNumber = Number + 1End IfNext yPrint NumberEnd Sub4下面程序解决的问题是：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim N As IntegerDim s As IntegerDim i As IntegerFor N = 300 To 100s = 0For i = 1 To NIf N Mod i = 0 Thens = s + 1End IfNext iIf s Mod N = 0 ThenPrint NExit ForEnd IfNext NEnd Sub5 下面程序的功能是求若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如：由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。求所有“四位双平方数”中最小的一个“四位双平方数”。程序中有行两有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim x As IntegerFor x = 1000 To 9999a = Int(x / 1000)b = Int(x / 100) a * 100c = Int(x / 10) a * 100 b * 10d = x a * 1000 b * 100 c * 10If Sqr(x) = Int(Sqr(x) And Sqr(a + b + c + d) = Sqr(a + b + c + d) ThenPrint xExit ForEnd IfNext xEnd Sub6下面程序的功能是：用下面的公式求 的近似值，直到最后一项的绝对值小于指定的数（参数num）为止。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Print Format(fun(0.0001), “#.#”)End SubPrivate Function fun(num As Single) As SingleDim s As Integer, n As IntegerDim pi As Single, t As Singlepi = 0: t = 1: s = 1: n = 1While (t = num)pi = pi + tn = n + 2s = -st = s% nWendpi = pi * 4fun = piEnd Function7下面程序的功能是：有这样一个三位数，其尾数不大于2。若将尾数移到首位后（其余二个数字次序不变，依次后推），新三位数将是原三位数的两倍多。求这三位数。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim i%, j%, k%, n%, m%For i = 1 To 9For j = 0 To 9For k = 1 To 9n = 100 * i + 10 * k + jm = 100 * k + 10 * j + iIf n = 2 * m Or n = 3 * m Then Print mNext kNext jNext iEnd Sub四、程序设计1. 编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是09之间的一位整数。2. 问100,200之间有奇数个不同因子的整数共有多少个？3. 求500,2500之间按递增顺序的素数中的第25大的素数。4. A,B,C三个正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+C150的倒勾股数有多少组。5. 已知正整数A,B(假定A2试求F(2)+F(4)+F(6)+F(50)值。提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。”13. 求500,1999之间的十位数字为7的素数的个数。14. 50个小学生按至50序号顺时针围成一圈，做出局游戏，老师站在圈外逆时针从最后一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。15. 编写程序，求共有几组I,j,k符合算式ijk+kji=1534,其中I,j,k是0,9之间的一个整数。16. 已知A=B，求所有小于或等于100（即：A=100,B=100）的自然数对中A之和。19. 当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-1/m要求：按四舍五入的方式精确到小数点后第四位。20. 当m的值为50时，计算下列公式的值： T=1-1/2+1/3-1/4+-1/m要求：按四舍五入的方式精确到小数点后第四位。21. 编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。22. 猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一半零一个。到第30天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。23. 编写程序，求出9到499之间的所有非偶数非素数的数之和。24. 在100，999范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字；该数是素数; 求有多少个这样的数？25. 已知一个数列的前三项为0，0，1，以后各项都是其相邻的前三项之和，求该数列前30项之和。26. 已知f(n)=f(n-1)+2f(n-2)-5f(n-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+f(30)。27. 取100，900之间相差为12的相邻素数对的个数。28. 求1/2+2/3+3/5+5/8+的前1000项的和(注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和)。要求：按四舍五入的方式精确到小数点后第二位。29. 编程序求155的平方根的和并输出结果。（保留小数点两位）30. 编程序求出1100所有整数的立方和并输出结果。31. 编程序求出100到600之间同时满足除3余2和除5余3条件的数的个数。32. 编程序求出1到8000之间的能被5整除的前若干个偶数之和，当和大于750时退出并输出结果。33. 当k值为20时，求S的值。(22/(1*3)+(42/(3*5)+(62/(5*7)+(2k)2/(2k-1)(2k+1)33.（按四舍五入的方式精确到小数点后第三位）34. S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，SN=1+3+5+7+（2N-1），N为正整数。编程求S1+S2+S3+S4+SN的值20000时的N的最大值。35. 把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?36. 编程求区间500，2500中按递增顺序第25个素数。37. 编程求取：121,140 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+42=52, 因此5是弦数）38. 编程求取：S=1/2+2/3+3/5+5/8+的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。要求：按四舍五入的方式精确到小数点后第二位。39. 编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。40. 编程序求1600能被11整除的个数。 湖南省高校计算机等级考试模拟试题Visual Basic部分一、单项选题1、 从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是( B) 。A、学习版 B、标准版 C、专业版 D、企业版2、为了同时改变一个活动控件的高度和宽度，正确的操作是（A ）。A、 拖拉控件4个角上的某个小方块B、 只能拖拉位于控件右下角的小方块C、 只能拖拉位于控件左下角的小方块D、 不能同时改变控件的高度和宽度3、VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（C）窗口来管理工程。 A、工程资源管理器 B、属性C、窗体 D、窗体布局4、下列哪个是“面向对象的程序设计”的缩写。A、OLE B、OOP C、OCX D、ODBC5、不属于VB三种工作模式的是（ ）：A、设计模式 B、运行模式 C、调试模式 D、中断模式6、关于VB中程序运行的方式，以下说法正确的是（ ）。A、 只能使用解释运行模式B、 只能使用编译运行模式C、 既不能使用解释运行模式，也不能使用编译运行模式D、 既能使用解释运行模式，又能使用编译运行模式7、在VB6.0的集成开发环境中调试程序时，用户可直接在（ ）窗口中用Print方式或直接在程序中用Debug.print方法显示表达式的值。 A、代码 B、属性C、窗体 D、立即8、一个VB工程中工程文件的扩展名是（ ）。A、.vbp B、.frm C、.frx D、.bas9、下列关于VB6.0的安装，说法错误的是（ ）。A、 有三种安装方式：典型安装、自定义安装和最小安装B、 VB6.0可从Visual Studio6.0产品的第一张盘上安装C、 VB6.0的联机帮助文件会随VB6.0系统而自动安装D、 系统安装好后，可根据需要添加或删除某些组件10、下列语句有语法错误的是（ ）。A、a5 B、ba C、b=“a” D、5=a11、执行下面的语句后，所产生的信息框的标题是（ ）。a=MsgBox(“aaaa”,5 ,”bbbb”)A、bbbb B、aaaa C、空 D、512、假定Picture1,Form1，text1，label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容（）。Private Sub Picture1_Click()ClsEnd SubA、Picture1 B、text1 C、Form1 D、Label113、语句x=inputbox(“please input a number”,”input”,3)的作用为（）。A、 此句含有语法错误，无法判断B、 显示一个输入框，其默认值为3C、 用于信息输出D、 显示一个对话框，可以同时输入3个值14、下列语句中，（ ）语句可以使窗体移动到（200,40），并将高度设置为3000，宽度为6000。A、 Command1.Move 200,40,6000,3000B、 Move 200,40,6000,3000C、 Move 40,200,6000,3000D、 Move 200,40,3000,600015、StrReverse（”abcD”）的值为（）。A、dCBA B、dcba C、Dcba D、DABC16、关于逻辑型数据，下列说法错误的是（ ）。A、 逻辑型数据只有两种可能值：True或者FalseB、 当把逻辑值转换为数值时False转为0，True转为1C、 当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD、 逻辑型数据以2个字节存储17、产生大于等于10且小于20的随机整数的表达式为（）。 A、Int(Rnd(10)10) B、Int(Rnd*10+10) C、Int(Rnd*10+11) D、Int(Rnd*20-10)18、数学式子sin25。 写成VB表达式是（ ）。A、sin25 B、sin(25) C、sin(25。) D、sin(25*3.14/180)19、“”用作字符串连接符时，下列说法正确的是（ ）。A、 连接符两旁的操作符只能为数值型B、 连接符两旁的操作符只能为字符型C、 连接符两旁的操作符既可为数值型，也可为字符型D、 连接符两旁的操作符既不能为数值型，也不能为字符型20、“&”用作字符串连接符时，下列说法正确的是（ ）。A、连接符两旁的操作符只能为数值型B、连接符两旁的操作符只能为字符型C、连接符两旁的操作符既可为数值型，也可为字符型D、连接符两旁的操作符既不能为数值型，也不能为字符型21、在标准模块的声明部分中，下列语句的作用为（ ）。Option ExplicitA、 一个可执行语句，无特殊作用B、 规定此模块中的任何变量都需要先声明再使用C、 表明此模块为标准模块D、 无特殊作用，可删除22、对于定义Dim my1,my2,my3 as single，以下说法中正确的为（）。A、 my1，my2与my3都被定义为单精度型B、 my1被定义为变体类型，my2,my3被定义为单精度型C、 my1,my2被定义为变体类型，my3被定义为单精度型D、 my1，my2，my3都被定义为变体类型23、若要使标签成为透明，可通过设置（ ）属性来实现。A. BackCOlor B. BackStyle C. BorderStyle D. ForeColor24、运行时，若要获得文本框中所选定的文本，可通访问（ ）属性来实现。A. SelStart B. SelLength C. Text D. SelText25、户在组合框中所输入的数据，可通过访问组合框对象的（ ）属性来获得。A. Text B. List C. List index D. ListCount26、要将文本框中的字体设为“粗体”，可设置（）的属性为True。A. FontBold B. BackItalic C. FontName D. FontSize27、要将文本框前景颜色设为蓝色，可设置（ ）的属性为vbBlue。A. ForColor B. BackColor C. BackStyle D. BorderStyle28、本框的双击事件是（ ）。A. Value B. DblClick( ) C. Name D. Click( )29、若要将命令按钮设置为默认按钮，可设置（ ）属性为True来实现。A. Cancel B. Value C. Enabled D.Default30、标签的边框由（ ）属性的设置来决定。A. BackCOlor B. BackStyle C. BorderStyle D. AutoSize31、要使标签的大小自动与所显示的文本相适应，可通过设置（ ）属性的值为True来实现。A. AutoSize B. Alignment C. Apperance D. Visible32、本框中内容的对齐方式，由（ ）属性值决定。A. Text B. Name C. Caption D. Alignment33、若要设置文本框最大可接收的字符数，可通设置（ ）属性值来实现。A. Mulltline B. Length C. Min D. MaxLenght34、要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置（）。A. Text属性值为 & B. Caption属性值为 &C. password属性值为空 D. Passwordchar属性值为 &35、要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的（）属性来实现。A. Value B. Max C. Min D.LargeCHange36、要获得滚动条的当前值，可通过访问（ ）属性来实现。A. Text B. Value C. Max D.Min37、要设置定时器的定时间隔设为10秒，应将（ ）属性值设为10000。A. Interval B. Value C. Enabled D. Text38、图片框(PictureBox)中显示的图形，由对象的（ ）属性决定。A. Picture B. Image C. Icon D. LoadPic39、要将图片”D:PICCAR.JPG”载入到当前的图片框(PictureBox)中，应用（ ）命令。A. LoadFile B. LoadPicture C. LoadPic D. LoadJPG40、要获得当前列表项的数目，可通过访问（ ）属性来实现。A. Columns B. Text C. ListIndex D. ListCount41、检查框（复选框）的当前状态可通过（ ）属性来访问。A. Value B. Checked C. Selected D. Caption42、打开通用对话框的“另存为”对话框的方法是（ ）A. ShowOpen B. ShowSave C. ShowColor D. ShowFont 43、以下（ ）可从通用对话框的“打开”对话框中返回用户选择的文件名。A. FileName B. Path C. FontName D. Color44、语句：dim student(10,5,4) 定义的是一个（ ）维数组。 A. 1 B. 2 C. 3 D. 445、语句：dim S(-1 to 5) 定义的数组有（ ）个元素。A. 7 B. 6 C. 5 D. 446、已知Eng(1)=90，Math(1)=80，Comp(1)=95，Total(1)= Eng(1)+Math(1)+Comp(1)，则Total(1)=（ ）。 A. 265 B. 90 C. 80 D. 9547、下面的数组定义语句正确的是（ ）。 A. Dim a3,4 B. Dim a3;4 C. Dim a(3,4) D.