2009_12年VB笔试试卷A_答案g
2009vb期末试卷A
一、选择题（1分×50=50分）1.当选项按钮被选中时，其Value属性值为（1）。
A.0B.1C.2D.True2.下列有（2）个不是VB合法常量。
①vbCrLf②1#③π④"XY"⑤1E-5A.0B.1C.2D.43.下面不能获得焦点的控件是____（3_）_____。
A.CheckBoxB.ListBoxC.PictureBoxD.Timer4.表达式Val("1234.67E-3ab789")的值为（4）。
A.1234.67B.1.23467C.1234.67789D.表达式出错5．下列项目中，属性、方法、事件的个数分别有（5）个。
①Caption②Unload③Cls④SetFocus⑤LostFocus⑥KeyPressA.222B.123C.321D.2316.以下有关对象属性的说法中，错误的是（6）。
A．对象的Name（名称）属性在程序代码中，作为对象的标识名B．只能在运行时设置或改变的属性不会出现在属性窗口中C．Visible属性值设为True的对象肯定是活动对象D．某些属性具有若干子属性，例如Font属性7．以下有关图片框PictureBox用法的叙述，错误的是（7）。
A．图片框可用作其他控件的容器B．图片框可以显示不同种类与格式的图形或图像文件C．可使用命令：Picture1=""，来清除图片框Picture1中显示的文字和图形D．可使用图片框的Print方法在图片框中显示文本或数据处理结果8．以下有关变量说明的叙述中，错误的是（8）。
A．工程中没有说明类型的变量都是不能使用的、不合法的B．Dim语句既可用于说明变量的类型，也可以说明数组的类型C．Static语句用于在过程中说明静态变量D．Private语句用于说明窗体/模块级变量9.如果编写的过程要被多个窗体及其对象调用，应将这些过程放在（9）。
A.窗体模块B.工程C.标准模块D.类模块10.下列不是窗体事件的是____（10）______。
2009-2010第一学期VB试卷含答案(安高云)
北京交通大学2009---2010学年第一学期期末考试试卷《VB程序设计》课程专业:_________ 班级:_________ 姓名:________ 学号:________------------------------------------------------------------（本试卷共四道大题，要求全部答案写在答题纸上）一、选择题：（每题2分，共50分）说明：每道题有四个选择答案，请选择一个你认为是最好的答案。
1、以下能在标签Label1中显示“考试愉快"的语句是__C_____(A) ="考试愉快"(B) Label1.Title="考试愉快"(C) Label1.Caption="考试愉快"(D) Label1.Text="考试愉快”2、表达式Len( “123456程序设计四字ABCDEF” )的值是 C（A）20 （B）24 （C）18 （D）163、语句If x=1 Then y=1，下列说法正确的是 C（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式4、下面程序段可以显示 C 个“*”For i = 1 To 5For j = 2 To iPrint "*";Next jNext i(A) 8 (B) 9 (C) 10 (D) 115、Dim A(3, 4)定义的数组的元素个数为 C(A) 22 (B) 21 (C) 20 (D) 196、在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应该使用___B_____关键字在过程中定义局部变量。
(A) Dim (B) Static (C) Public (D) Private7、在用菜单编辑器设计菜单时，必须输入的项为 C(A) 快捷键(B) 标题(C) 名称(D) 索引8、有程序代码如下：Text1.Text = “Text1.text”则其中Text1、Text 、“Text1.text”分别表示___C____(A) 对象、值、属性(B) 对象、方法、属性(C) 对象、属性、值(D) 属性、对象、值9、数学表达式3 x<10在VB中的逻辑表达式为_ B_____(A) 3<=x<10 (B) 3<=x AND x<10(C) x>=3 OR x<10 (D) 3<=x AND <1010、下面的程序段表示求两个数中的大数，__D_____不正确(A) Max = IIf(x>y, x, y) (B) If x>y Then Max = x Else Max = y(C) Max = x (D) If y>=x Then Max = yIf y >= x Then Max = y Max = x11、下列关于Do…Loop循环结构执行循环体次数的描述正确的是__D____(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次(B) Do While…Loop循环和Do…Loop Until循环可能都不执行(C) Do While…Loop循环至少执行一次，Do…Loop Until循环可能不执行(D) Do While…Loop循环可能不执行，Do…Loop Until循环至少执行一次12、下列语句中（假设变量n有值），能正确声明可调数组的是___A______(A) Dim a() As Integer (B) Dim a() as IntegerReDim a(n) ReDim a(n) as String(C) Dim a() As Integer (D) Dim a(10) as IntegerReDim a(3,4) ReDim a(n+10)ReDim Preserve a(4,4)13、下面过程运行后的显示结果是 APublic Sub F1(ByRefn%, ByVal m%)n = n Mod 10m = m \ 10End SubPrivate Sub Command2_Click()Dim x%, y%x = 12: y = 34Call F1(x, y)Print x, yEnd Sub（A）2 34 （B）12 34 （C）2 3 （D）12 314、复选框的Value属性为1时，表示 B(A) 复选框未被选中(B) 复选框被选中(C) 复选框内有灰色的勾(D) 复选框操作有错误15、要使按钮控件在程序运行时不可显示，应对其__C____属性进行设置(A) Enabled (B) BackColor (C) Visible (D) Caption16、假设变量strMsg 是字符串“V ISUAL BASIC: visual basic is m y favorite lesson”, 函数InS tr(1,strMsg, ”basic”, 1) 将返回 C(A) 21 (B) 7 (C) 8 (D) 2217、下面程序段，运行后显示的结果是___C_____x = Int(Rnd) + 30Select Case xCase 10: Print "10"Case 20: Print "20"Case 30: Print "30"Case Else: Print "其它"End Select(A) 10 (B) 20 (C) 30 (D) 其它18、执行以下程序段Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5Next i后，x的值为 CA)16B)17C)18 D)1919、已知数组a=Array(1,2,3,4,5,6,7,8)，则函数UBound(a)的返回值是__C_____(A) 5 (B) 6 (C) 7 (D) 820、如下程序的运行结果是 BPublic Sub Proc(a%())Static i%Do: a(i)=a(i)+a(i+1): i=i+1: Loop While i <2End SubPrivate Sub Command1_Click()Dim m%, i%, x%(10)For i=0 To 4: x(i)=i+1: Next iFor i=1 To 2: Call Proc(x): Next iFor i=0 To 4: Print x(i);: Next iEnd Sub(A) 3 4 7 5 6 (B) 3 5 7 4 5 (C) 2 3 4 4 5 (D) 4 5 6 7 821、以下叙述中错误的是___C_____(A) 在程序运行时，通用对话框控件是不可见的(B) 在同一程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用(C) 调用通用对话框控件的ShowOpen方法，可直接打开在该通用对话框中指定的文件(D) 调用通用对话框控件的ShowColor方法，可打开颜色对话框22、设a=”我爱北京天安门”，则以下使变量b的值为”天安门”的语句是 BA)b=Left(a，5)B)b=Mid(a，5)C)b=Right(a，5)D)b=Mid(a，6，5)23、单击列表框List1中的某个项目时，在标签Label1中显示被选中的项目的名称，下列能正确实现上述操作的程序是 DA) Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd SubB) Private Sub List1_Click()=List1.ListIndexEnd SubC) Private Sub List1_Click()=List1.TextEnd SubD) Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub24、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.3秒发生一次计时器事件，则以下正确的属性设置语句是 D(A) Timer1.InterVal=0.3 (B) Timer1.Interval=3(C) Timer1.Interval=30 (D) Timer1.Interval=30025、以下程序的输出结果是 DPrivate Sub Command1_Click()Dim a, sc%(3, 3)a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 1 To 3For j = 1 To 3sc(i, j) = a(i * j - 1)Next jNext iFor i = 1 To 3For j = i To 3Print Tab(j * 5); sc(i, j);Next jPrintNext iEnd SubA) 1 2 3 B) 1 C) 1 4 7 D) 1 2 34 5 6 4 5 2 5 8 4 67 8 9 7 8 9 3 6 9 9二、填空题：（每空2分，共10分）1、表示x是6的倍数或是7的倍数的逻辑表达式为x Mod 5 = 0 OR x Mod 9 = 02、已知一个数组，求该数组中的最大值、最小值和平均值。
09年春江苏计算机二级VB上机试题及答案
二级vb上机江苏2010春第三套试卷答案1.改错题Option ExplicitPrivate Sub Command1_Click()Dim N As Integer, k As IntegerFor N = 20 To 180k = N ^ 2If sx(k) ThenList1.AddItem N & "^2=" & kEnd IfNextIf List1.ListCount <> 0 Then List1.AddItem "无升序平方数" '错误点1修改为 List1.ListCount = 0End SubPrivate Function sx(ByVal N As Integer) As BooleanDim num() As Integer, k As Integer, p As IntegerDim i As IntegerDop = N Mod 10k = k + 1ReDim Preserve num(k)num(k) = pN = N \ 10Loop Until N<0 '错误点2，应修改为N = 0For i = 2 To UBound(num)If num(i) >num(i - 1) Then Exit Function '错误点3 修改为num(i) > num(i - 1)Next isx = TrueEnd Function2009秋二级Visual Basic上机试卷(本试卷完成时间为70分钟)考试说明：1．改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考；2．考试结束后,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,j 予评分；3．程序代码书写应呈锯齿形。
一、改错题(14分)【题目】本程序的功能是,将24位真彩色图像的一个像素的颜色值,转换成用十进制表示的绿、蓝三基色的亮度值。
09年春浙江省高校VB二级计算机等级考试真题试卷(含答案)
2009年春浙江省高等学校【程序说明】输入n 后，计算并显示下列表达式的值。
n 14131211+++++ 运行时初始界面如下图左所示，输入10并按回车键后的界面如下图中所示(输入数若小于1则清空文本框，需重新输入)，按“计算”按钮后的界面如下图右所示。
【程序】Dim n As IntegerPrivate Sub Form_Load()Command1. Enabled=False 1End SubPrivate Sub Text1_KeyPress 2 (K As Integer)If K <> 13 Then Exit Sub n=Text1.Text 3If n > 0 ThenCommand1.Enabled = TrueText1.Enabled = FalseElseText1.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim y As Single, i As IntegerFor i = 1 To ny=y+1/i （4）Next iLabel3.Caption = yCommand1.Enabled = FalseText1.Enabled = TrueText1.Text = " "Text1.SetFocusEnd Sub【程序说明】运行时输入10个数后，输出其中较小的5个数。
【程序】Private Sub Command1_Click()Dim a(10) As Single, t As Single, i As Byte, j As Byte, k As ByteFor i = 1 To 10a(i) = InputBox("a(" & i & ")=" （5）)Next iFor i = 1 To 9k=i （6）For j = i + 1 To 10If a(j)<a(k) （7）Then k = jNext jt = a(i): a(i) = a(k): a(k) = tNext iFor i = 1 To 5 （8）Print a(i)Next iEnd Sub【（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
2009年下半年笔试题
2009年9月全国计算机等级考试二级笔试试卷Visual FoxPro数据库程序设计一、选择题(每小题2分，共70分)1．对于循环队列，下列叙述中正确的是______。
DA、队头指针是固定不变的B、队头指针一定大于队尾指针C、队头指针一定小于队尾指针D、队头指针可以大于队尾指针，也可以小于队尾指针2．软件设计中划分模块的一个准则是______。
BA、低内聚低耦合B、高内聚低耦合C、低内聚高耦合D、高内聚高耦合3．算法的空间复杂度是指______。
A、算法在执行过程中所需要的计算机存储空间B、算法所处理的数据量C、算法程序中的语句或指令条数D、算法在执行过程中所需要的临时工作单元数4. 有三个关系R，S和T如下：A、选择B、投影C、交D、并5. 数据库管理系统是______。
A、操作系统的一部分B、在操作系统支持下的系统软件C、一种编译系统D、一种操作系统6. 软件详细设计产生的图如下：A、N-S图B、PAD图C、程序流程图D、E-R图7. 下列选项中不属于结构化程序设计原则的是______。
A、可封装B、自顶向下C、模块化D、逐步求精8. 下列数据结构中，属于非线性结构的是______。
A、循环队列B、带链队列C、二叉树D、带链栈9. 下列数据结构中，能够按照"先进后出"原则存取数据的是______。
A、循环队列B、栈C、队列D、二叉树10. 在E-R图中，用来表示实体联系的图形是______。
A、椭圆形B、矩形C、菱形D、三角形11. 下列程序段执行时在屏幕上显示的结果是______。
x1=20x2=30SET UDFPARMS TO VALUEDO test WITH x1,x2?x1,x2PROCEDURE testPARAMETERS a,bA、30 30B、30 20C、20 20D、20 3012. 设置文本框显示内容的属性是______。
A、ValueB、CaptionC、NameD、InputMask13. 使用索引的主要目的是______。
2009-2010(二)《VB》试卷
程序2、在窗体中打印如图的图形，图中的圆半径及椭圆纵轴 半径均为20，圆心都在各自正方形的中心。
Private Sub Form_Load() Form1.Width = 5000 Form1.Height = 5000 Form1.Scale (-100, 100)-(100, -100) End Sub Private Sub Form_Click() Dim i As Integer Line (-100, 0)-(100, 0) Line ( ) Line (0, -50)-(100, -50) Form1.FillStyle = 0 Form1.FillColor = vbRed Circle (50, 50), 20, vbRed （） Circle （ ） ‘绘制第二象限的椭圆 Circle （ ） ‘绘制第三象限的半圆 For i = （ ） PSet (i / 10, -50 + 50 * Sin(i * 3.14 / 180)) Next i End Sub
End Sub
五、程序填空题
程序1、以下程序可以将列表框中同时选中的多个表项删除， 请将程序补充完整。
Private Sub cmdDel_Click() i=0 Do While i < ( ) If List1.Selected(i) = True Then () Else () End If Loop
2、编制事件过程Command1_Click，输入x后，计算下列函数 的值，并在窗体上显示。
|x+3| x<3 f(x) =
3 + Log10x x >= 3
3、在窗体中设计在两个命令按钮，一个文本框和一个图片框。 点击Command1产生30个介于100到300的随机整数，并按每行 10个显示在Text1中。点击Command2，将30个数据从大到小 排序后输出到Picture1上，要求每行显示10个。
VB2009年模拟题答案
VB试卷09答案
盐城师范学院___年___学期《Visual Basic程序设计教程》期___考试试卷答案试卷代号：___VB09__第一部分：笔试试卷二、填空题（每空1分，计25分。
）(1) 验证口令 (2) 请输入口令(3) * (4) 3 (5) -18 (6) 6 26 (7) -2 98 (8) 1 (9) 5 (10) 9 (11) 23 (12) 47(13) Val(TxtInput)或Val(TxtInput.Text)(14) Prime(I) (15) Exit For 或Exit Function (16) I>Sqr(N)( 17) Len(S) (18) Mid (S,I,1) (19) “A” To “F”或Else (20) K=K+P*Asc1 (21) Convert=K (22) Not Eof(1) (23) I 或 Ubound(A) (24) T –1 (25) I+1 第二部分：上机试卷一、改错题（17分）Option ExplicitPrivate Sub Form_Click()Dim Fac() As Integer, N(3) As IntegerDim I As Integer, J As IntegerN(1)=48 ：N（2）=308：N（3）=1155For I=1 To 3Call Factor (Fac, N(I) )Print N(I) ；”的质因子是：”；For J=1 To UBound (Fac )Print Fac ( J)；Next JPrintReDim Fac(1)Next IEnd SubPrivate Sub Factor (F() As Integer , ByVal N As Integer ) …Byval N() As IntegerDim I As Integer , J As Integer , Idx As IntegerDim K As IntegerK=2Do Until N=1If N Mod K=0 ThenIdx=Idx+1ReDim Preserve F(Idx) …ReDim F(Idx)F(Idx)=KN=N/KElseK=K+1 …N=N+1 End IfLoopEnd Sub二、编程题（23分）Option ExplicitDim a(1 To 15) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizeFor i = 1 To 15a(i) = Int((99 - 80 + 1) * Rnd) + 80List1.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integer, min As IntegerDim maxi As Integer, mini As IntegerDim sum As Integermax = a(1): min = a(1): maxi = 1: mini = 1For i = 2 To 15If max < a(i) Thenmax = a(i): maxi = iEnd IfIf min < a(i) Thenmin = a(i): mini = iEnd IfNext iFor i = 1 To 15If i <> maxi And i <> mini Then sum = sum + a(i) Next iText1.Text = Str(sum / 13)End SubPrivate Sub Command3_Click()Text1.Text = ""List1.ClearEnd Sub。
2009年春VB期中考试试题(答案版)[1]
试卷代号：钦州学院2009年春季学期物电系期中考试试卷课程：Visual Basic 程序设计注意事项：1. 考前请将密封线内的内容填写清楚。
2. 所有答案请直接答在答题卡上。
3．考试形式：闭卷。
一、单项选择题（2分/每题，共60分） 1.以下可以构成语句的一项是（ B ）: A) 对象名.属性 B) 对象名.方法名 C) 对象名.事件名 D) 对象名.函数名 2.MOVE 方法的一般形式是[对象名.]Move A[,B[,C[,D]]],其中B 指的是（B ）： A) Left B) Top C) Width D) Height 3.对象可以识别和响应的某些行为称为（ ）： A) 属性 B) 方法 C) 继承 D) 事件 4.下列续行写法正确的是（ ）： A) C=- A+B B) C= - A+B C) C =- A+B D) C=-‘此处换行 A+B 5.任何控件都具有（ ）属性： A) Text B) Caption C) Name D) Forecolor 6.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是（ ）： A) Move B) Change C) Scroll D) Setfocus 7.能够获得一个文本框中被选取文本的内容的属性是（ ）： A) Text B) Length C) Seltext D) Selstart学号姓名系别班别试室( 密封线内不答题)……………………密………………………………封………………………………线……………8.要使一个命令按钮成为图形命令按钮，则应设置其（）属性值。
A) PictureB) Style C) DownPictureD) DisablePicture9.关于货币型数据，下列说法正确的是（）：A) 货币型数据有时可以表示成整形数据B) 货币型数据与浮点型数据完全一样C) 货币型数据是由数字和小数点组成的字符串D) 货币型数据是小数点位置固定的实型数10.下列变量名中，不合法的变量名是（）：A) Print_Num1B) Abe C) ConstD) X1_y2_z311.表达式Int*(5*Rnd+1)*Int(5*Rnd-1)值的范围是（）：A) [0,15]B) [-1,15] C) [-4,15]D) [-5,15]12.设a$=”12”，下列语句错误的是（）：A) Label.visible=text1.visible or text2.visibleB) Text1.text=+Chr(13)+a$C) B=text2.textD) Label1.fontsize=a$13.设a，b为整型变量，且均不为0，下列关系表达式中恒成立的是（）：A) a*b/a*b=1B) a*b\b*a=1 C) a\b*b+a Mod b=aD) a\b*b=a14.下列既可用于输入数据又可用于输出数据的控件是（）控件。
2009级期末考试题VF(A)
矿产资源开发利用方案编写内容要求及审查大纲
矿产资源开发利用方案编写内容要求及《矿产资源开发利用方案》审查大纲一、概述
㈠矿区位置、隶属关系和企业性质。
如为改扩建矿山, 应说明矿山现状、
特点及存在的主要问题。
㈡编制依据
(1简述项目前期工作进展情况及与有关方面对项目的意向性协议情况。
(2 列出开发利用方案编制所依据的主要基础性资料的名称。
如经储量管理部门认定的矿区地质勘探报告、选矿试验报告、加工利用试验报告、工程地质初评资料、矿区水文资料和供水资料等。
对改、扩建矿山应有生产实际资料, 如矿山总平面现状图、矿床开拓系统图、采场现状图和主要采选设备清单等。
二、矿产品需求现状和预测
㈠该矿产在国内需求情况和市场供应情况
1、矿产品现状及加工利用趋向。
2、国内近、远期的需求量及主要销向预测。
㈡产品价格分析
1、国内矿产品价格现状。
2、矿产品价格稳定性及变化趋势。
三、矿产资源概况
㈠矿区总体概况
1、矿区总体规划情况。
2、矿区矿产资源概况。
3、该设计与矿区总体开发的关系。
㈡该设计项目的资源概况
1、矿床地质及构造特征。
2、矿床开采技术条件及水文地质条件。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
—1—
《Visual BASIC程序设计（语种代号：211）》（A）卷
参考答案及评分标准
一、单项选择题（每题1分，共40分）
1 - 5 DACBD 6-10 CADCB 11-15 CBCAC 16-20
DADBD
21-25 ADABD 26-30 DBBBC 31-35 CACBA 36-40
BADCD
二、填空题（每空2分，共20分）
1 Abs(x+y)+(Exp(10)+Log(10))/Sqr(x+y+1) 6 s-max-min (或 s-min-max)
2 6 7 Hef(a,b)
3 0 8
m Mod n
4 n*n （或n^2） 9 a(i,j)=2
5 max=n 10 a(i,j)=0
说明：不区分大小写，其他答案只要正确参照给分。
三、阅读理解题（每小题4分，共20分）
序号 参考答案 评分标准
1
x= 42 n= 3
写成两行或只写数字得3分，写对一半得2分
2 3 9
写成两行得3分，写对一半得2分
3
15 5
写成两行得3分，写对一半得2分
4
24
5 14 21 30 36 56 78
注：
其他情况酌情给分
—2—
四、编程题（共20分）
序号 参考程序 评分标准
1
参考程序1：
Dim a As Single, b As Single, c As Single
Dim p As Single, s As Single
a = InputBox("请输入第一条边")
b = InputBox("请输入第二条边")
c = InputBox("请输入第三条边")
If a + b > c And a + c > b And b + c > a Then
p = 1 / 2 * (a + b + c)
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "三角形面积S="; s
Else
MsgBox ("输入的三条边不能构成三角形！")
End If
程序正确得6分，其中：
InputBox使用正确得1分；
正确使用IF语句得2分；
表达式正确得2分
有输出结果语句得1分
2
参考程序1：
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 9 ‘男人
For y = 1 To 12 ‘女人
z = 36 - x – y ‘小孩
If 4 * x + 3 * y + 0.5 * z = 36 Then
Print x, y, z
End If
Next y
Print
Next x
参考程序2：（公式计算）
Dim x As Integer, y As Integer
For x = 1 To 9
If (36 - 7 * x) Mod 5 = 0 And _
(36 - 7 * x) \ 5 < 12 And (36 - 7 * x) \ 5 > 0
Then
Print x, (36 - 7 * x) \ 5, 36 - x - (36 - 7 * x) \ 5
End If
Next x
参考程序3（递归算法）
Dim x as integer,y as integer ‘窗体级变量
Dim rst As Boolean
rst = brick(9, 12)
If rst Then
Print x, y, 36 - x - y
End If
Private Function brick(ByVal a As Integer,
_ByVal b As Integer) As Boolean
If (4 * a + 3 * b + (36 - a - b) / 2 <> 36) Then
brick = False
End If
If (4 * a + 3 * b + (36 - a - b) / 2 = 36) Then
brick = True
x = a: y = b: z = c
Exit Function
End If
If Not brick And a >= 1 Then brick = brick(a - 1, b)
If Not brick And b >= 1 Then brick = brick(a, b - 1)
End Function
程序正确得7分，其中：
正确使用循环语句得3分
能根据题意写出正确的判断
语句得2分
有输出结果语句，结果正确
得2分
正确使用循环语句得2分
条件判断正确得3分
结果正确并输出得2分
通用过程格式正确得2分
递归算法结束语句正确得2
分
递归算法调用语句正确得2
分
正确显示结果得1分
—3—
3
参考程序1：
Dim i As Integer
Dim n As Integer '输入的字符长度
Dim s As Integer '计算结果
Dim a As String '输入的字符
a = Text1.Text
For i = 1 To Len(a)
n = Val(Mid(a, i, 1)) '逐个取出每位数字
s = s + n '求和
Next i
MsgBox a & "各位数字之和为：" & Str(s)
参考程序2：
Dim a As Long, r As Long
Dim s As Integer
a = Val(Text1.Text)
s = 0
Do
r = a Mod 10
s = s + r
a = a \ 10
Loop While a <> 0
MsgBox a & "各位数字之和为：" & Str(s)
程序正确得7分，其中：文
本框取值正确得1分（不使
用Val函数不扣分）；
使用循环结构得3分；
使用字符串函数或求余的方
法提取各位数字得2分；
正确使用MsgBox得1分。
注：其他解法可参照给分