第9章 内部函数.doc

习题9（内部函数） 一、选择题 1．下面表达式的值是False的有： (A) n 969n97 (B) InStr(visualbasic,b)Len(basic) (C) Str(2000) 1997 (D) UCase(aBC)aBC 2．圆心在原点上的两个同心圆，半径分别为2和4。描述点（x,y）在小圆外但在大圆内（包括在两个圆周上）的表达式为： (A) Abs(x) =4.0 And Abs(y) =2.0 (B) 2.0 = Sqr(x*x+y*y) =4.0 (C) x*x+y*y =16.0 And x*x+y*y =4.0 (D) (x Or y)=2.0 And (x Or y) =4.0 3．设s1和s2都是字符串型变量，s1=Visual Basic : s2=b，则下列表达式中结果为True的是： (A) Mid(s1,8,1) s2 (B) Len(s1)2*Instr(s1, l) (C) Chr(66) Right(s1,4) = Basic (D) Instr(Left(s1,6), a)+60 Asc(UCase(s2)) 4．Format(1732.46, +##,##0.0%)的返回值为： (A) 173,246.0 (B) 1,732.5% (C) +173,246.0% (D) +173,246% 5．下列函数中，返回值是字符串的有： (A) Chr (B) InStr (C) Val (D) Asc 6．下列函数中，返回值不是字符串的是： (A) Trim (B) Left (C) Rnd (D) Hex 7．下列7个表达式中，表达式的值不是数值5或5.0的是： ① Sqr(25)； ② 25 ^ 0.5； ③ 55 Mod 10； ④ 5.5 \ 1.2； ⑤ 5 * 3 / 15 * 5； ⑥ Abs(5 - 10)； ⑦ (3 * 3 + 4 * 4) ^ (1 / 2)。 （A）④ （B）②、⑥ （C）①、⑤、⑦ （D）③ 8．下列5个表达式中，值是True的有： ① False Or True； ② 1 = 1； ③ 2 = 2 = 2； ④ 3 2 1； ⑤ InStr(Visual Basic, Basic)。 （A）全部 （B）①、②、③、④ （C）①、② （D）③、④ 二、填空题 1．执行下面事件过程，窗体上显示的第一行结果是 （1） ，第三行结果是 （2） 。 1 Private Sub Form_Click() 2 Dim Mystr As String 3 Dim Mystr1 As String 4 Dim Mystr2 As String 5 Mystr1=B 6 For i=1 To 3 7 Mystr2=LCase(Mystr1) 8 Mystr1=Mystr1 Mystr2 9 Mystr=Mystr Mystr1 10 Print Mystr 11 Mystr1=Chr(Asc(Mystr1)+i) 12 Next 13 End Sub 2．下面程序段在窗体上输出的内容为： （3） 。 1 Dim a As Integer 2 a 3 Do While a 0 4 a 5 a 6 Loop 7 Print a 3．下面的程序段在窗体上输出A～Z的26个大写字母，在画线处填入适当内容。 1 Dim a As String 2 Dim b As Integer 3 a = 4 b = 1 5 Do While b 26 6 a = a 7 b = b + 1 8 Loop 9 Print a 4．下面程序段的功能是：把一个有偶数个字符的文本框中的内容从头尾至中间依次各取一个字符，组成一个新的字符串str2，并输出。如果str1=123456，则str2=162534。完成此程序段。 1 Dim str1 As String, str2 As String 2 Dim m As Integer 3 str1 = txtInput.Text 4 str2 = 5 m 6 Do While （6） 7 str2 = str2 + （7） 8 str2 = str2 + （8） 9 m 10 Loop 11 Print str2 5．运行下面的