4.1解析法训练9（含答案）

4.1解析法训练9 学校:_____姓名：_____班级：_____考号：_____ 一、填空题 1．为求s=2+4+8+16+32的和，流程图不能实现，需作一处适当更改。请选出你认为错误的标号并做更改。标号 处更改为 。 2．要求将某一字符串中指定的字符改写成小写或大写（如果原先是大写就改成小写，反之改成大写），并将处理后的字符重新输出。 程序界面如下图所示，在Text1中输入原始字符串，在Text2中输入需要改变的字符，单机“改变”按钮后，在Text3中输出处理后的结果。程序代码如下： Private Sub Command1_Click() Dim s As String, result As String, k As String Dim zs As String, n As Integer result = "" s = Text1.Text k = Text2.Text For n =" 1" To Len(s) ① If zs =" k" Then If Asc(zs) >=" 65" And Asc(zs) <=" 90" Then zs =" Chr(Asc(zs)" + 32) ElseIf Asc(zs) >=" 97" And Asc(zs) <=" 122" Then zs =" Chr(Asc(zs)" - 32) End If End If ② Next n ③ End Sub 在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整: 程序中①划线处应填入_____。 程序中②划线处应填入_____。 程序中③划线处应填入_____。 3． 若输入3和2,则输出结果为_____。 4．有如下Visual Basic程序段： a="2" b=5 c=4 If a>b or cb），求最大公约数(a，b）的步骤如下：a除以b，得a=bq......r1(0≤r1）。若r1=0，则（a，b)=b；若r1≠0， b除以r1，得b="r1q......r2" (0≤r2）.若r2=0，则（a，b)=r1，若r2≠0，则继续r1除以r2，……如此下去，直到余数为0，这时的除数即为最大公约数（a，b）。 相应的Visual Basic 程序如下： Function temp(num1 as Integer, num2 as Integer) as Integer Dim r As Integer if num10 C、 r< 0 D、r>0 在（2）中应该填入( ) A、num1 B、num2 C、 r D、num1 mod num2 在（3）中应该填入( ) ... ...