VB作业第三章习题答案.doc

本文由goodlak贡献 亲亲资料网第3章程序流程控制31 填空题 1设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为 （ s=3.14159*r*r ） 。 2 给 命 令 按 钮 Command2 的 Caption 属 性 赋 予 字 符 串 “ 退 出 ” 使 用 的 赋 值 语 句 为 （ Command2.Caption=退出 ） 。 3为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提 示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换 为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（请输入一个求阶乘的 数：，求数的阶乘） ） 。 如果使用MsgBox对话框显示提示信息“退出本系统？”， 并显示“是 （Yes） ”和“否 （No） ” 两个按钮， 显示图标“？”号， 指定第一个按钮为默认值以及标题为“提示信息”， 则调用MsgBox 函数的形式为（ MsgBox（退出本系统? ，4+32+0，提示信息） ） 。 如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！” 号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox文件未找到，0+48+0，文件 查找 ） 。 要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分 别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。 使用Print方法时，若用逗号分隔， 则按( 标准 )格式输出各表达式的值，若用分 号分隔，则按( 紧凑 )格式输出各表达式的值。 注释语句是一个（ 非执行 ）语句，VB不对它们进行编译，对程序的执行结果没 有任何影响。 判别变量i是否为偶数， 若为偶数就把它显示出来。 使用单行结构条件语句为 （ If i Mod 2=0 Then print x ） 。 10判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使 用的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2=s2+x ） 。2x + 1 x > 0 y = 0 x = 0 2x 1 x < 0 11给定分段函数 ，求y的值，使用的单行结构条件语句为If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ） 。 12判别a是否等于b，若a=b，则输出字符串 “a is equal to b”的块结构条件语句为 （ ） 。 答案：If a=b Then Print “a is equal to b” End（13判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为 （ ） 。 答案：If Asc(ch)>=97 And Asc(ch)<=122 Then Print “Yes” ElsePrint “No” End If14若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测 试表达式的值等于（ 这些常数中的某一个 ）时，执行该case子句相应的程序块。 15若case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是： 当测试表达式的值等于（ 这个范围内的值 ）时，执行该case子句相应的程序块。 16 若case子句中的表达式表列具有形式： <关系运算符> <表达式>， Is 则它的含义是： 当测试表达式的值满足（ Is后的关系 ）时，执行该case子句相应的程序块。 17 在循环语句中， 反复执行的程序段称为 （ 循环体 ） 进入循环体的条件称为 ； （ 循 环条件 ） ；中止循环体执行的条件称为（ 结束循环条件 ） 。 32 选择题 下列赋值语句中，( d )是正确的。)x！abc a) t=b : b=a : a=t c) t=a : a=b : b=t b)a10e c)x d)s1002下列选项中，( d )不能交换变量a和b的值。b) a=a+b : b=a-b : a=a-b d) a=b : b=a3若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的 设置值是( b )。a) 0 a)0 a)1 a) c) b) 1 b)256 b)2 c)3 b) d) c) 2 c)512 d)4 If x Then t = t * x If x<0 Then y = 2*x-1 : Print x End If d)34若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( bd)768)。5若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ） 。 6以下不正确的单行结构条件语句是（ d ） 。If x>y Then Print “x>y” If x Mod 3=2 Then ? x7给定程序段Dim a As Integer, b As Integer, c As Integer a=1：b=2：c=3 If a=c-b Then Print "#" Else Print "*" b) 有语法错 d) 输出* Then max=a Then max=b max=a Else max=b End If以上程序（ c ） 。a) 没有输出 c) 输出# a) b) If If a>b a>b8把a, b之中的最大值存放于max，下面语句书写正确的是（ d ） 。Else End If c) If a>b max=a Else max=b d) If a>bThenThenmax=a Else max=b End If9. 下列Case语句中正确的是（ c ） 。a) Select Case x Case 1 Or 3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Select b) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x <=1 Y=2*x+1 End Select c) Select Case x Case Is <=0 y=x-1 Case Is >0 y=Sqr(x)+1 End Select d) Select Case x Case x>=1 And x<= 5 y=x-1 Case Is >10 y=x*x+1 End Select10执行下列程序段后屏幕上（c ） 。i% = 10 : Sum = 0 While i > 1 Sum = Sum + i i = i - 1 Wend Print Suma) 无显示 b) 显示10 c) 显示54 d) 显示5511执行下列程序段输出结果是（ c ） 。 x%=2 Do while x<8 Print “*”； x=x+2 Loopa) * b) * c) * d) *12设有程序段Dim k% k=5 Do until k=0 k=k-1 Loop 则下面对循环语句描述正确的是（ c ） 。 a) 循环体1次也不执行 b) 循环体执行1次 c) 循环体执行5次 d) 循环体执行无限次 13下面描述中错误的是（ a, c ） 。 a) 执行Do until <条件>loop语句中，当循环<条件>为false时，结束循环体的执 行。 b) 执行While <条件>Wend语句时，循环体可能一次也不执行。 c) Do loop While <条件>语句的循环体可能一次也不执行。 d) 执行Do loop Until <条件>语句中， 当循环条件为true时， 结束循环体的执行。 14下面程序段中循环语句的循环次数是（ b ） 。 For x=10 To 1 Step -3 Print x Next xa) 0 b) 4 b) 4 c) 5 c) 5 d) 1015执行语句Fora) 3i=1 to 3: i=i+1 :Next i后变量i的值是（ cd) 6） 。16下面程序段执行后输出结果是（ b ） 。 For i=1 To 2 s=1 For j=0 To i-1 s=s+s*j Next j Print s, Next ia) 1 1 b) 1 2 c) 2 1 d) 2 233 阅读下列程序，写出执行结果1. Private Sub Form_Click Print 2*3/2 , “Visual ” & “BASIC”， Not 5>3， 0.75 Print 2*3/2 ; “Visual ” & “BASIC”; x=12.34 Print “x=”； Print x End Sub Not 5>3; 0.75答案：-3 -3 x=12.34Visual BASIC Visual BASICFalse .75False.752Private Sub Form_Click Print Tab(10); -100;Tab(20); 200;Tab(30); -300 Print Spc(10); -100;Spc(10); 200;Spc(10); -300End Sub答案：-100-100 3 x=12.35200 200-300 -300Private Sub Form_Click Print Format ( x,”#.#” ) Print Format ( x,”#.#” ) Print Format ( x,”000.00” ) Print Format ( x,”00.0”) Print Format ( x,”0.00%” ) Print Format ( x,”$#.#” ) Print Format ( x,”+#.#” ) Print Format ( x,”00.00E+00” ) End Sub答案：12351235 01235 124 123500% $12.35 +12.35 12.35e+00 4 Private Sub Command1_Click() Dim a%, b%, c%, s%, w%, t% a = -1: b = 3: c = 3 s = 0: w = 0: t = 0 If c > 0 Then s = a + b If a <= 0 Then If c <= 0 Then w = a - b End If Else If c > 0 Then w = a - b Else t = c End If c = a + b Print a, b, c Print s, w, t End Sub答案：5-1 23 02 0Private Sub Command1_Click() Dim x%, y% x = InputBox("请输入x的值：") Select Case xCase 1, 3, 5 y = x - 1 Case 6 To 10 y = x + 1 Case 2, 4 y = 2 * x Case Is > 10 y = x * x + 1 End Select Print "x=" x, "y=" y End Sub （x 的输入值为2.5、8、4和15）答案：x=2 x=8 x=4 x=15y=4 y=9 y=8 y=2266Private Sub Command1_Click() Dim i%, t! t = 1: i = 1 While i < 10 t = t * i i = i + 2 Wend Print "t=" t End Sub答案：t=9457 Private Sub Command1_Click() Dim i%, x%, y% x = 1: y = 1:i = 1 Do Until i > 8 If i Mod 2 = 1 Then x = x * i Else y = y * i End If i = i + 1 Loop Print "x=" x, "y=" y End Sub答案：x=105Dim p%, s% p = 1: s = 1 Doy=3848 Private Sub Command1_Click()p=p+2:s=s+p Loop While p<10 Print "s=" s End Sub答案：s=369 Private Sub Command1_Click() Dim m%, n% For m=1 to 3 n=0 While n<=m-1 Print m,n n=n+1 Wend Next m End Sub答案:1 2 23 3 30 0 10 1 234 编程题 1. 输入一个学生成绩，若成绩在85分以上，则输出“very good”；若成绩在60分到80分 之间，则输出“good”；若成绩低于60分，则输出“no good”。 解答： (1) 界面设计和属性设置 在窗体上建立两个标签、 两个文本框和两个命令按钮。 窗体和窗体上控件的主要属性设 置如表3-3-1所示。表3-3-1控件名称 Form1 Label1 Label2 Text1 Text2 Command1 Command2第1题的属性设置属性值 根据分数给定评语 分数 评语 空串 空串 开始 结束属性名 Caption Caption Caption Text Text Caption Caption(2) 程序代码Private Sub Command1_Click() Dim score!score = Val(Text1.Text) If score >= 85 Then Text2.Text = "Very good!" ElseIf score >= 60 Then Text2.Text = "Good!" Else Text2.Text = "No good!" End If End Sub Private Sub Command2_Click() End End Sub(3) 运行情况 运行程序后，屏幕出现用户界面。把鼠标移到Text1文本框并单击，输入分数。然后， 单击“开始”命令按钮，系统执行Command1_Click事件过程。执行结果如图3.3.1所示。单击 标题为“结束”的命令按钮，执行Command2_Click事件过程，结束程序的执行。图3.3.12第1题的执行结果2. 求一元二次方程ax +bx+c=0的根。 解答： (1) 界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-2所示。表3-3-2控件名称 Form1 Command1 Command2第2题的属性设置属性值 求一元二次方程的根 开始 结束属性名 Caption Caption Caption(2) 程序代码由中学数学知识知道，求一元二次方程的根的公式为： 编程时要考虑如下各种情况： 当a=0 时，方程不是二次方程；x1, 2 = b ± b 2 4ac 2a ， 当 b -4ac=0 时,有两个相同的实根：2x 1, 2 = b 2a ；b 2 4 ac 2a ； 当 b -4ac>0 时,有两个不同的实根：2x 1, 2 =b± 当 b -4ac<0 时,有两个共轭复根：Private Sub Command1_Click() Cls2x 1, 2 = b ± 2a4 ac b 2 i 2a 。Dim a!, b!, c!, disc!, x1!, x2!, realpart!, imagpart! a = InputBox("请输入方程的系数a：") b = InputBox("请输入方程的系数b：") c = InputBox("请输入方程的系数c：") Print: Print Print Tab(10); "输入方程的系数为：" "a=" a; "b=" b; "c=" c Print If Abs(a) <= 0. Then Print Tab(15); "方程不是一个二次方程！" Else disc = b 2 - 4 * a * c If Abs(disc) <= 0. Then Print Tab(10); "方程有两个相同的实根：" "x1=x2=" -b / (2 * a) ElseIf disc > 0. Then x1 = (-b + Sqr(disc) / (2 * a) x2 = (-b - Sqr(disc) / (2 * a) Print Tab(5); "方程有两个实根：" Print Tab(18); "x1=" x1 Print Tab(18); "x2=" x2 ElseIf disc < 0. Then realpart = -b / (2 * a): imagpart = Sqr(-disc) / (2 * a) Print Tab(5); "方程有两个虚根：" Print Tab(18); "x1=" realpart; "+" imagpart; "i" Print Tab(18); "x2=" realpart; "-" imagpart; "i" End If End If End Sub Private Sub Command2_Click() End End Sub注意， 程序中的条件“fabs(a)<=0.”和“fabs(disc)<=0.”分别用来判断a和 disc的值是否为0。因为实数在计算机计算和存储时会有微小的误差，若用“a=0”和“disc=0” 来判断a和disc是否为0，则会由于误差导致条件不成立，无法得到正确的运行结果。 (3)运行情况运行程序后， 单击“开始”命令按钮， 执行Command1_Click事件过程。 执行时， 在InputBox 框中输入 a、b和c三个系数。图3.3.2图3.3.5显示了不同系数输入的执行结果。图3.3.2执行结果(a)图3.3.3执行结果(b)图3.3.4执行结果(c)图3.3.5执行结果(d) 3x 5 2 cos x + 1 1+ x2 2 3. 给定函数y = x 4 x + 51 <= x < 2 2 <= x < 4 4 <= x <= 5 其它,从键盘上输入x的值，求y的值。(要求使用Case语句) 解答： (1) 界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-3所示。表3-3-3控件名称 Form1 Command1 Command2第3题的属性设置属性值 求给定分段函数的值 开始 结束属性名 Caption Caption Caption(2) 程序代码Private Sub Command1_Click() Cls Dim x!, y! x = InputBox("请输入x的值：") If x >= 1 And x <= 5 Then Select Case x Case Is < 2y = 3 * x - 5 Case Is < 4 y = 2 * Cos(x) + 1 Case Is <= 5 y = Sqr(1 + x * x) End Select Else y = x * x - 4 * x + 5 End If Print Tab(10); "x=" x, "y=" y End Sub Private Sub Command2_Click() End End Sub(3) 运行情况 运行程序后， 单击“开始”命令按钮， 执行事件过程Command1_Click。 执行时， 按InputBox 对话框提示，输入x的值。计算结果在窗体上显示。 4. 输入圆的半径R和运算标志， 第 1 页 第 2 页 按照运算标志进行指定运算。 给定的运算标志及其表示 的运算如下： C（Circle） 表示计算周长 A（Area） 表示计算面积 B（Both） 表示周长和面积都计算 (要求使用Case语句) 解答： (1)界面设计和属性设置 在窗体上放置两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-4所示。表3-3-4控件名称 Form1第4题的属性设置属性值 计算圆周长或圆面积或两 者都计算属性名 CaptionCommand1 Command2Caption Caption开始 结束(2)程序代码Private Sub Command1_Click() Cls Dim r!, f As String * 1 Const pi! = 3. r = InputBox("请输入圆的半径 r ：") If r >= 0 Then f = UCase(InputBox("输入运算标志：" + Chr(13) & _ "C_(计算周长)" + Chr(13) & _ "A_(计算面积)" + Chr(13) & _"B_(两者都计算)") Select Case f Case "C"'提示信息分多行显示Print Tab(10); "半径r=" r; "圆周长=" r * 2 * pi Case "A" Print Tab(10); "半径r=" r; "圆面积=" r 2 * pi Case "B" Print Tab(10); "半径r=" r; "圆周长=" r * 2 * pi Print Tab(10); "半径r=" r; "圆面积=" r 2 * pi Case Else Print Tab(18); "输入的运算标志错！" End Select Else Print Tab(18); "半径不能是负数！" End If End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后， 单击标题为“开始”的命令按钮， 执行Command1_Click事件过程。 按InputBox 对话框的提示输入半径r和运算标志。计算结果在窗体上显示。 2 2 2 5. 求满足1 +2 +n >1000的最小n值。(要求使用WhileWEnd语句) 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-5所示。表3-3-5控件名称 Form1第5题的属性设置属性值 求满足12+22+n2>1000 的最小n值属性名 CaptionCommand1 Command2Caption Caption开始 结束(2)程序代码Private Sub Command1_Click() Dim n%, s& n = 0: s = 0 While s <= 1000 n = n + 1 s = s + n 2 Wend Print: Print: Print Print Tab(8); "满足12+22+n2>1000的最小n值为：" nEnd Sub Private Sub Command2_Click() End End Sub6输入若干个正实数，个数预先不能确定，求这些正实数之和。(要求分别使用Do WhileLoop语句和Do Until Loop语句) 解答： (1)界面设计和属性设置 在窗体上建立三个命令按钮。窗体和命令按钮的主要属性设置如表3-3-6所示。表3-3-6控件名称 Form1 Command1 Command2 Command3第6题的属性设置属性值 求正实数之和 Do WhileLoop Do UntilLoop 结束属性名 Caption Caption Caption Caption(2)程序代码Private Sub Command1_Click() Cls Dim a!, s! a = InputBox("输入一个实数：") Do While a >= 0 s = s + a a = InputBox("输入一个实数：") Loop Print: Print Print Tab(15); "输入的正实数之和为：" s End Sub Private Sub Command2_Click() Cls Dim a!, s! a = InputBox("输入一个实数：") Do Until a < 0 s = s + a a = InputBox("输入一个实数：") Loop Print: Print: Print Print Tab(15); "输入的正实数之和为：" s End Sub Private Sub Command3_Click() End End Sub(3) 运行情况运行程序后，屏幕出现用户界面如图3.3.6所示。单击标题为“Do WhileLoop”或标题 为“Do WhileLoop”的命令按钮，系统执行相应的Click事件过程。用户可以输入一系列数 据，以输入-1作结束。窗体显示运算结果。单击“结束”按钮，结束程序执行。图3.3.62第6题的执行结果-87 使用公式6=1 1 + 2 + 12 2来求的近似值，直到最后一项的值小于10 为止。(要求使用DoLoop While语句) 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-7所示。表3-3-7控件名称 Form1 Command1 Command2第7题的属性设置属性值 求圆周率的近似值 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Dim i&, s#, term# i = 1 s = 0 Do term = 1 / (i * i) s = s + term i = i + 1 Loop While term >= 0. Print: Print: Print Print Tab(8); "圆周率的近似值为：" Sqr(6 * s) End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。计算结果 在窗体上显示。8. 由数值计算方法可知，用牛顿迭代法解方程f(x)=0的迭代公式为：x n +1 = x n f ( x n ) / f ( x n )5 2( n = 0, 1, 2, )试用牛顿迭代法求解方程x 3x 2x1=0 在x0=0附近的根。(要求使用DoLoop Until语 句) 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-8所示。表3-3-8控件名称 Form1 Command1 Command2第8题的属性设置属性值 用牛顿法求方程的根 开始 结束属性名 Caption Caption Caption(2)程序代码 根据迭代公式，牛顿迭代法的计算过程为： 令n=0 ，由迭代公式得x1 = x0 f ( x0 ) / f ( x0 )，然后判别x1x0是否小于(给定精度)。若是，则迭代结束，x1作为方程的近似根；否则，进行下一步。 令n=1 ， 由迭代公式得 x 2 = x1 f ( x1 ) / f ( x1 )，然后判别 x2x1是否小。若是，则迭代结束，x2 作为方程的近似根；否则，由x2求x3的值，判断x3x2。 按这样迭代下去，一直到xi1xi< (i=0，1，2，)为止。 根据上述计算过程可以编写程序为：Private Sub Command1_Click() Dim x0!, x1! x1 = 0 Do x0 = x1 x1 = x0 - (x0 5 - 3 * x0 2 + 2 * x0 + 1) / (5 * x0 4 - 6 * x0 + 2) Loop Until Abs(x1 - x0) < 0.00001 Print Tab(10); "方程的根为：" x1 End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。在窗体上 显示计算结果。 9求S = 解答：1 1 2 + 1 3 1 4 + + 1 99 1 100的值。(1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-9所示。表3-3-9控件名称 Form1 Command1 Command2 属性名 Caption Caption Caption第9题的属性设置属性值 求s=1-1/2+1/3-1/4+1/99-1/100的值 开始 结束(2)程序代码Private Sub Command1_Click() Dim i%, s!, sign% sign = 1: s = 0 For i = 1 To 100 s = s + sign * 1 / i sign = -sign Next i Print: Print: Print Print Tab(18); "s的值为：" s End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后，单击标题为“开始”的命令按钮，执行Command1_Click事件过程。窗体显示 计算结果。 10求100到999中的水仙花数。所谓水仙花数是指一个三位数，它的各位数字的立方之 3 3 3 和等于该数。例如，因为153 = 1 + 5 + 3 ，所以153是水仙花数。 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-10所示。表3-3-10控件名称 Form1 Command1 Command2第10题的属性设置属性值 求水仙花数 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Dim i%, a%, b%, c% Print Print Tab(5); "100-999之间的水仙花数为：" For i = 100 To 999a = i 100 b = (i - a * 100) 10 c = i - a * 100 - b * 10 If i = a 3 + b 3 + c 3 Then Print Tab(10); i End If Next i End Sub Private Sub Command2_Click() End End Sub(3)运行情况 执行结果如图3.3.7所示。图3.3.7第10题的执行结果11. 求1000之内的所有完数。所谓完数是指一个数恰好等于它的所有因子之和。例如， 因为6=1+2+3，所以6为完数。 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-11所示。表3-3-11控件名称 Form1 Command1 Command2第11题的属性设置属性值 求完数 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Dim i%, j%, s% Print Print Tab(5); "1-1000之内的完数为：" For i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s + j Next jIf i = s Then Print Tab(5); i Next i End Sub Private Sub Command2_Click() End End Sub(3) 运行情况 程序执行结果如图3.3.8所示。图3.3.8第11题的执行结果12. 在窗体上输出形如以下图形， 其中第一行的起始字母和终止字母由用户从键盘上输 入。 A B C D E B C D E A C D E A B D E A B C E A B C D 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-12所示。表3-3-12控件名称 Form1 Command1 Command2第12题的属性设置属性值 输出由字母构成的图形 开始 结束属性名 Caption Caption Caption(2)程序代码Private Sub Command1_Click() Cls Dim starg As String * 1, endg As String * 1, stargc%, endgc%, i%, j%, k% starg = UCase(InputBox("请输入起始字母：") endg = UCase(InputBox("请输入终止字母：") stargc = Asc(starg)endgc = Asc(endg)Print If stargc <= endgc Then For i = 0 To endgc - stargcPrint Tab(24); For j = stargc + i To endgc Print Chr(j); Next j For k = stargc To stargc + i - 1 Print Chr(k); Next k Print Next i Else Print Tab(15); "起始字母必须先于终止字母！" End If End Sub Private Sub Command2_Click() End End Sub(3)运行情况 运行程序后，需在InputBox对话框输入起始字母和终止字母。执行结果在窗体上显示。 13 已知XYZ + YZZ = 532，其中X，Y和Z为09的数字，编程求出X、Y和Z，并在窗体 上把算式显示出来。 解答： (1)界面设计和属性设置 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-3-13所示。表3-3-13