6. 分析： 所谓实足年龄，指的是实际到达的年龄，即当前的年、月、日都分别大于或等于出生的年、月、日。例如一个人的出生日期是1964年8月23日，当前日期为2002年8月23日，则这个人的实足年龄就是38岁；如果当前日期为2002年7月或2002年8月22日，则这个人的实足年龄就是37岁。
这就是说，为了计算一个人的实足年龄，需要进行以下操作： (1) 计算出y1-y0，并把结果赋给age。 (2) 如果m1＜m0，则实足年龄为age-1。
(3) 否则，如果m1=m0但d1＜d0，则实足年龄为age-1。 (4) 否则，如果m1=m0且d1＞=d0，则实足年龄为age。
可以看出，为了计算实足年龄，可以先计算age=y1-y0，如果m1＜m0，则不再考虑d1是否大于d0，实足年龄为age-1；如果m1=m0，则还要看d1是否大于等于d0，如果小于，则实足年龄等于age-1，否则实足年龄等于age。
根据上面的分析，答案A显然是不正确的，因为在测试m1＜m0后，就没有必要再测试d1是否大于d0。答案B和D类似，只单独测试月或日，不能得到正确结果，只有答案C正确地描述了上面所分析的情况。
答案：C
7. 分析：本题主要检查条件判断语句If掌握的情况，运行程序时，首先输入a和b，然后计算a的平方与b之和赋给x，执行If语句时，判断b>a，若成立，将b*b+a的值赋给x。本题条件成立，因此，x是a和b的平方之和19，本题是计算输入的较大数的平方与小数之和。
答案：C
8. 分析：本题主要检查条件判断语句If掌握的情况。运行程序时，首先将2赋给K，执行If语句时，判断K的值，若K>=1，则执行内嵌的赋值语句，注意条件If是并列的，执行第一个If语句后，还要执行第二个，本题K>=l条件成立，首先将3赋给A，再检查K>=2条件也满足，又把2赋给A，检查K>=3条件不满足，所以最后的结果A等于2。
答案：B
9. 分析：用MsgBox消息框弹出消息。MsgBox的基本语法是：MsgBox（″显示内容″,″按钮值″，″标题″）
答案：A
10. 分析：测试对标准函数IF...THEN及函数Int(number)、Sgn(number)、Abs(number)、Fix(number)的理解。Int(number)和Fix(number)返回参数的整数部分，不同之处在于，如果number为负数，则Int返回小于或等于number的第一个负整数，而Fix则会返回大于或等于number的第一个负整数。Abs(number)返回参数的绝对值，其类型和参数相同。Sgn(number)返回一个字符串，指出参数的正负号。程序第一行定义了变量a为单精度实型，第二行将其赋值为-1.234567，以后的四行分别用INT(A.、SGN(A.、ABS(A.及FIX(A.的函数值-2、-1、1.234567及-l给b、c、d及e四个变量赋值，在四个IF…THEN语句中，条件a 答案：C 21 六、循环结构程序设计 选择题 1. 以下程序代码的功能是________。 Private Sub Command1_Click() s$=′′′′ For k=l To Len(a$) s$=UCase$(Mid$(a$,k,1))+s$ fns$=s$ Text1.Text=s$ End Sub A. 返回原字符串 B. 返回把字母全部转换为大写后的原字符串 C. 返回把字母全部转换为大写后的逆序字符串 D. 返回逆序字符串 2. 下列程序 Private Sub Form_Click() For j=1 To 20 a=a+j＼7 Next j Print a End Sub 在运行时输出a的值是 。 A. 21 B. 41 C. 63 3. Private Sub Form_Click() For I=7 To 90 Step 5 Print I; Next I End Sub 上述程序共执行循环体的次数是 。 A. 14 B. 15 C. 16 4.下列程序 Private Sub Form_Click() For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 22 D. 210 D. 17 运行后输出的结果是 。 A. l B. 15 C. 90 D. 120 5. 阅读下面的程序段 For i=l To 3 For j=1 T0 i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的三重循环后，a的值为________。 A. 3 B. 9 C. 14 D. 21 6. 在窗体上画两个文本框和一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() X=0 DO while x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.text=Str(n) Text2.text=Str(x) End Sub 则运行程序，单击命令按钮，在两个文本框中显示的值分别为______。A. 1和0 B. 2和72 C. 3和50 D. 4和168 7. 阅读下列程序段： Private Sub Form_Click() Sum=0 For j=1 To 10 If j=10 Then Else Sum=Sum+j End If Next j Print Sum End Sub 运行时输出的结果是 。 A. 45 B.55 C.显示错误信息 D.36 8. 下列程序 Private Sub Form_Click() 23 b=1:a=2 Do While b<10 b=2 * a+b Loop Print b End Sub 运行后输出的结果是 。 A. 13 For i = 1 To 3 For j = 1 To i For k = j To 3 Print \ Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是________ A. 3、6和14 C. 3、4和12 10. 有如下程序 Private Sub Form_Click() c=4:d＝Val(InputBox(″请输入一个数″)) Do While d>0 If d>c Then c=c+1 d=Val(InputBox(″请输入一个数″)) Loop Print c+d End Sub 运行时输入9，8，7，6，5，4，3，2，1，0，输出的结果是 。 A. 5 While Not条件 循环体 Wend 则执行循环体的“条件”是________。 A. True B. 1 12. 下列程序 Private Sub Form_Click() 24 B. 17 C. 21 D. 33 9. 假定有下面的程序段： B. 3、8和16 D. 3、9和18 B. 6 C. 7 D. 8 11. 假定有以下当循环： C. False D. -1 s=0:i=1 Do While i<100 If i Mod 10<>0 Then s = s + i End If i = i + 1 Loop Print s End Sub 运行后输出的结果是 。 A. 4050 B. 5050 13. 阅读下面的程序： Private Sub Form_Click() Dim m, n As Integer m=InputBox(\请输入m的值\ m=Val(m) m1=m n=InputBox(\请输入n的值\ n=Val(n) n1=n Do Whilen＜＞0 remin = m Mod n m=n n = remin Loop Print m1, n1, m End Sub 程序运行后，单击窗体，在输入对话框中分别输入16和24，则程序在窗体上的输出结果为________。 A. 16 24 4 B. 16 24 8 C. 24 16 6 D. 24 16 8 14. 在窗体中添加命令按钮，编写如下程序： Private Sub Command1_Click（） a=0 For m=1 To 10 a=a+1 b=0 For j=1To 10 a=a+1 b=b+2 Next j Next m 25 C. 5000 D. 4500