1、二级 VISUAL+BASIC-76 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.以下合法的 VB 变量名是（分数：2.50）A.aB.yPrintC.a-bD.Type2.设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有代码：Public a As Integer：Private b As Integer 关于上述代码，以下叙述中错误的是（分数：2.50）A.变量 x 的作用
2、域是整个工程B.变量 y 的作用域是 Form_Load 过程C.变量 a 的作用域是整个工程D.变量 b 的作用域是整个标准模块3.以下不合法的 VB 变量名是（分数：2.50）A.filenameB.readC._yD.e54.以下关于变量作用域的叙述中，错误的是（分数：2.50）A.在标准模块声明部分用 Public 声明的变量的作用域为整个工程文件B.在标准模块声明部分用 Private 声明的变量的作用域为该标准模块C.在窗体的声明部分不能用 Private 声明变量D.在过程中不能使用 Public 声明变量5.下列符号常量的声明中不合法的是（分数：2.50）A.Const a A
3、s Single=3.5B.Const a As Double=5+8C.Const a As Integer=“25“D.Const a=“OK“6.在窗体模块的声明部分声明变量时，不能使用的关键字是（分数：2.50）A.DimB.PublicC.PrivateD.Static7.下面变量定义中错误的是（分数：2.50）A.Public mod As IntegerB.Static bufC.Dim ch As String*10D.Dim a!(-5 To -1)8.如果要定义一个窗体级变量，定义变量语句的位置应该是（分数：2.50）A.在使用该变量的过程中B.在该窗体模块所有过程的前面C
4、.在该窗体模块所有过程的后面D.在某个标准模块中9.下列说法中，错误的是（分数：2.50）A.变量名长度不能超过 255 个字符B.变量名的第一个字符可以是字母或数字C.变量名只能由字母、数字和下划线组成D.变量名不能使用保留字10.在标准模块中，将 a 定义为全局整型变量的语句是（分数：2.50）A.Static a As IntegerB.Dim a As IntegerC.Private a As IntegerD.Public a As Integer11.下列说法中，错误的是（分数：2.50）A.变量名长度不能超过 127 个字符B.变量名的第一个字符必须是字母C.变量名不能使用保留
5、字D.变量名只能由字母、数字和下划线组成12.下面能够将某个变量声明为局部变量的是（分数：2.50）A.在窗体模块的声明部分，用关键字 Static 声明这个变量B.在窗体模块的声明部分，用关键字 Dim 声明这个变量C.在需要使用这个变量的过程中，用关键字 Private 声明这个变量D.在需要使用这个变量的过程中，用关键字 Public 声明这个变量13.有如下过程代码： Sub var_dim() Static numa As Integer Dim numb As Integer numa=numa+2:numb=numb+1:print numa; numb End Sub 连续 3
6、 次调用 var_dim 过程，第 3 次调用时的输出是（分数：2.50）A.2 1B.2 3C.6 1D.6 314.标准模块中有如下程序代码： Public x As Integer, y As Integer Sub var_pub() x=10:y=20 End Sub 在窗体上有 1 个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100:y=y+100:Print x; y End Sub 运行程序后单击命令按钮，窗体上显示的是（分数：2.50）A.100 100B.100
7、 120C.110 100D.110 12015.窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序： Private Sub Command1_click() Dim n If Text1.Text“123456“ Then n=n+1:Print“口令输入错误“ b; x; y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是（分数：2.50）A.5 5 15 5B.7 5 15 25C.7 8 15 5D.7 5 15 517.编写如下程序： Private Sub Command1_Click() Dim m As Integer, n
8、As Integer n=2 Form=1 To 3 Print proc(n); Next m End Sub Function proc(i As Integer) Dim a As Integer, Static b As Integer a=a+1:b=b+1 proc=a*b+i End Function 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.3 3 3B.3 4 5C.3 5 6D.1 2 318.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1、Label2、Label3 的标签。编写如下程序：Private x As
9、Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=5:z=z+n:y=y+n:x=x+y Label1=x:Label2=y:Label3=z End Sub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是（分数：2.50）A.5 5 5B.15 10 5C.15 15 15D.30 15 519.在窗体上画一个命令按钮，然后编写如下程序： Sub inc(a As Integer) Static x As Integer x=x+aPrint x; End Sub Priva
10、te Sub Command1_Click() inc 2:inc 3:inc4 End Sub 程序运行后，第一次单击命令按钮时的输出结果为（分数：2.50）A.2 3 4B.2 5 9C.11 14 18D.4 9 1620.设窗体上有一个 Command1 命令按钮，还有以下程序代码： Private Sub Command1_Click() Static x As Integer x=x+1 Call proc(x) Print x, End Sub Private Sub proc(a As Integer) Static x As Integer x=x+a：a=x End Sub
11、 程序运行后，3 次单击命令按钮，则产生的输出是（分数：2.50）A.1 2 3B.1 3 5C.1 3 7D.2 4 621.编写如下程序： Private Sub Command1_Click() Dim n As Integer:Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后，第三次单击命令按钮 Command1 时，输出结果为（分数：2.50）A.3B.6C.9D.1822.以下不能输出“Program”的语句是（分数：2.50）A.Print Mid(“VBProgram“,3,7)B.Print R
12、ight(“VBProgram“,7)C.Print Mid(“VBProgram“,3)D.Print Left(“VBProgram“,7)23.执行以下程序段 a$=“Visual Basic Programming“:b$=“C+“ c$=UCase(Left$(a$,7) numb End Sub 连续 3 次调用 var_dim 过程，第 3 次调用时的输出是（分数：2.50）A.2 1B.2 3C.6 1 D.6 3解析：解析 Static 语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用 Static 语句声明的变量的值。 本题中，当第 1 次调
13、用过程时，静态变量 numa 的初值为 0、普通变量 numb 的初值为 0，执行循环语句后，静态变量 numa 的值应为 2、普通变量 numb 的值为 1；当第 2 次调用过程时，静态变量 numa 的初值为 2、普通变量 numb 的初值为 0，执行循环语句后，静态变量 numa 的值应为 4、普通变量 numb 的值为 1；当第3 次调用过程时，静态变量 numa 的初值为 4、普通变量：numb 的初值为 0，执行循环语句后，静态变量numa 的值应为 6、普通变量 numb 的值为 1。14.标准模块中有如下程序代码： Public x As Integer, y As Integ
14、er Sub var_pub() x=10:y=20 End Sub 在窗体上有 1 个命令按钮，并有如下事件过程： Private Sub Command1_Click() Dim x As Integer Call var_pub x=x+100:y=y+100:Print x; y End Sub 运行程序后单击命令按钮，窗体上显示的是（分数：2.50）A.100 100B.100 120 C.110 100D.110 120解析：解析 在标准模块用 Public 关键字声明的全局变量，其作用域最大，可以在工程的每个模块、每个过程中使用。但当不同作用范围的变量重名时，有效范围小的变量会屏
15、蔽有效范围大的变量。当一个全局变量与一个过程级变量重名时，当在本过程中直接使用这个变量名时，被认为是指局部变量。如果要在这个过程中使用同名的全局变量，要使用模块名来修饰变量名。 在本题的事件过程中，由于变量 x 被声明为过程级变量，其初始值为 0，调用过程 var_pub 不会改变其值，而变量 y 为标准模块中声明的全局变量，调用过程 var_pub 后其值为 20。故最后输出结果为：100 和120。15.窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序： Private Sub Command1_click() Dim n If Text1.Text“123
16、456“ Then n=n+1:Print“口令输入错误“ b; x; y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是（分数：2.50）A.5 5 15 5B.7 5 15 25C.7 8 15 5D.7 5 15 5 解析：解析 本题中在模块文件中声明的 x 是全局变量，y 是模块变量；在窗体中声明的 a 是模块级变量；在窗体的 Load 事件中声明了局部变量 b，而且隐式声明了局部变量 y；在按钮的 Click 事件中使用到的 a 是模块级变量，其值为 2；b 是隐式声明的局部变量，其初值为 0；x 是全局变量，其值为 10；y 也是隐式声明的局部变量，其初值为 5
17、。17.编写如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer n=2 Form=1 To 3 Print proc(n); Next m End Sub Function proc(i As Integer) Dim a As Integer, Static b As Integer a=a+1:b=b+1 proc=a*b+i End Function 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.3 3 3B.3 4 5 C.3 5 6D.1 2 3解析：解析 使用 Dim 关键
18、字定义的是动态局部变量，过程执行结束后即被释放；使用 Static 关键字定义的是静态局部变量，过程执行结束后仍然保留。本题中函数 proc 中的局部变量 a 是动态变量，b 是静态变量。即每次函数调用后 b 的值会保留。先后三次调用 proc(n)方法，依次输出 3、4、5。18.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1、Label2、Label3 的标签。编写如下程序：Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=5:z=z+n:
19、y=y+n:x=x+y Label1=x:Label2=y:Label3=z End Sub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是（分数：2.50）A.5 5 5B.15 10 5C.15 15 15D.30 15 5 解析：解析 Static 语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用 Static 语句声明的变量的值。在窗体的声明段用 Private 声明的变量为模块级变量，其作用域为整个窗体。 本题中，当第 1 次单击时，静态变量 y 的初值为 0，执行调用语句后，静态变量 y 的值应为 5，模块级变量 x 的值为 5：当第
20、 2 次单击时，静态变量 y 的初值为 5，执行调用语句后，静态变量 y 的值应为 10，模块级变量 x 的值为 15；当第 3 次调用过程时，静态变量 y 的初值为 10，执行调用语句后，静态变量 y 的值应为 15，模块级变量 x 的值为 30。19.在窗体上画一个命令按钮，然后编写如下程序： Sub inc(a As Integer) Static x As Integer x=x+aPrint x; End Sub Private Sub Command1_Click() inc 2:inc 3:inc4 End Sub 程序运行后，第一次单击命令按钮时的输出结果为（分数：2.50）A
21、.2 3 4B.2 5 9 C.11 14 18D.4 9 16解析：解析 Static 语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用 Static 语句声明的变量的值。本题的 inc 过程中的 x 是一个静态变量，在三次调用过程中变量的值会保留，分别为 2、2+3、5+4。20.设窗体上有一个 Command1 命令按钮，还有以下程序代码： Private Sub Command1_Click() Static x As Integer x=x+1 Call proc(x) Print x, End Sub Private Sub proc(a As In
22、teger) Static x As Integer x=x+a：a=x End Sub 程序运行后，3 次单击命令按钮，则产生的输出是（分数：2.50）A.1 2 3B.1 3 5C.1 3 7 D.2 4 6解析：解析 本题中在 Command1_Click 过程中和 Sub 过程 proc 中分别定义了一个静态变量 x，这两个x 都是局部变量，隶属于不同的局部，互不干涉；当单击命令按钮时，单击事件中的 x 加 1，然后调用proc 过程；由于 proc 的形参 a 采用地址传递，因此对 a 的改变会影响实参 x。三次单击按钮分别使得两个过程中的 x 分别变化，都会保留上一次过程结束时的值
23、。21.编写如下程序： Private Sub Command1_Click() Dim n As Integer:Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后，第三次单击命令按钮 Command1 时，输出结果为（分数：2.50）A.3B.6C.9D.18 解析：解析 Static 语句在过程级别中使用，用于声明变量并分配存储空间，在整个代码运行期间都能保留使用 Static 语句声明的变量的值。在本题中连续 3 次单击命令按钮，第一次单击时输出的s=1+2+3=6。第二次单击时输出的 s=6+1+2+3=
24、12，第三次单击时输出的 s=12+1+2+3=18。22.以下不能输出“Program”的语句是（分数：2.50）A.Print Mid(“VBProgram“,3,7)B.Print Right(“VBProgram“,7)C.Print Mid(“VBProgram“,3)D.Print Left(“VBProgram“,7) 解析：解析 本题考查的考点是有关取子串函数的。在 VB 中有三种取子串函数：Left 函数用于在字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何位置取任何长度的子串，其
25、中长度省略的话将会一直取到串尾。本题中选项 D 的结果是 VBprogr，不符合题意。23.执行以下程序段 a$=“Visual Basic Programming“:b$=“C+“ c$=UCase(Left$(a$,7)& b$ & Right$(a$, 12) 变量 c$的值为（分数：2.50）A.Visual BASIC ProgrammingB.VISUAL C+ Programming C.Visual C+ ProgrammingD.VISUAL BASIC Programming解析：解析 本题考查的考点是有关取子串函数的。在 VB 中有 3 种取子串函数：Left 函数用于在
26、字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。UCase 函数用于把字符串转换成大写表示。24.可以产生 3050(含 30 和 50)之间的随机整数的表达式是（分数：2.50）A.Int(Rnd*21+30) B.Int(Rnd*20+30)C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用
27、以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为 50，lowerbound 为 30。25.能够产生 1 到 50 之间(含 1 和 50)随机整数的表达式是（分数：2.50）A.Int(Rnd*51)B.Int(Rnd(50)+1)C.Int(Rnd*50)D.Int(Rnd*50+1) 解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可
28、使用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。本题中 upperbound 为 50，lowerbound 为 1。26.表达式 Sgn(0.25)的值是（分数：2.50）A.-1B.0C.1 D.0.5解析：解析 Sgn 函数会返回参数的符号，如果参数为正数返回 1，为负数返回-1。27.要计算 x 的平方根并放入变量 y，正确的语句是（分数：2.50）A.y=Exp(x)B.y=Sgn(x)C.y=Int(x)D.y=Sqr(x) 解析：
29、解析 Exp 函数是求指数函数；Sgn 函数是求符号函数；Int 函数是取整函数，平方根函数(Sqr)可以返回 N 的算术平方根，N 必须大于或等于 0。28.Print Right(“VB Programming“,2)语句的输出结果是（分数：2.50）A.VBB.ProgrammingC.ng D.2解析：解析 Right()函数用于取出已有字符串最右边指定个数的字符串，本题中取出的是最后两位字符。29.以下表达式与 Int(3.5)的值相同的是（分数：2.50）A.CInt(3.5)B.Val(3.5)C.Fix(3.5) D.Abs(3.5)解析：解析 Int 函数的作用是去返回不大于
30、参数的最大整数，例如 Int(4.6)=4，Int(-4.6)=-5；Fix函数的作用是去掉参数的小数部分只保留整数部分，在参数为正数的时候，Int 函数和 Fix 函数的返回值是相同的。30.以下能对正实数 d 的第 3 位小数四舍五入的表达式是（分数：2.50）A.0.01*Int(d+0.005)B.0.01*Int(100*(d+0.005) C.0.01*Int(100*(d+0.05)D.0.01*Int(d+0.05)解析：解析 Int 函数会返回不大于参数的最大整数，要对第 3 位小数进行四舍五入，需要先将 d 自加0.005，这样如果第三位小数大于 5 就将进位；接下来乘以
31、100，这样第 3 位小数就变成了第一位小数，对其做 Int 函数留下整数部分，最终再乘以 0.01 得到结果。31.语句：PrintAsc(Chr$(Mid$(“98765432“,4,2)的输出是（分数：2.50）A.65 B.AC.8765D.W解析：解析 Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾，本题中是从第 4 位取长度为 2 的子串即“65”。Chr 函数可以将 ASCII 码转成对应的字符，ASC 函数将字符转换成对应的 ASCII 码。32.语句：Print Int(Rnd*5+20)的输出不可能是（分数：2.50）A.20B.22C.2
32、4D.25 解析：解析 随机数函数 Rnd 用于产生一个小于 1 但大于或等于 0 的随机数值，Int 函数会返回不大于参数的最大整数值。由于 Rnd 函数的值不能到达 1，所以整个表达式也不可能到达 25。33.产生 100 以内(不含 100)2 位随机整数的 Visual Basic 表达式是（分数：2.50）A.Int(Rnd(1)*91)+10B.Int(Rnd(1)*90)+10 C.Int(Rnd(1)*91)+11D.Int(Rnd(1)*90)+11解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使
33、用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound 是随机整数范围的上限，lowerbound 是随机整数范围的下限。34.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Text1.Text=“:Text2.Text=“:Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,6) End Sub 程序运行后，如果在文本框 Text1
34、中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是（分数：2.50）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析 Mid(string，start，length)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，如果 start 参数超过了 string 参数中字符的数目，将返回空字符串，如果省略或length 参数超过文本的字符数(包括 start 处的字符)，将返回字符串中从 start 到字符串结束的所有字符。 本题程序运行后，当在文本框 Text1 中输入字符数达到或超过 6 时，在文本框 Text2 中
35、将随即显示输入字符中从第 6 个字符开始的所有字符，全部字符输入后，文本框 Text2 中的内容为“Beijing“。35.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr=“ strL=Len(xStr)i=1 Do While i=strL/2 tStr=tStr & Mid(xStr,i,1)&Mid(xStr,strL-i+1,1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1 的命令按钮
36、。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=“abcdef“:Print UCase(Fun(S1) End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.50）A.ABCDEFB.abcdefC.AFBECD D.DEFABC解析：解析 本题通用过程的功能是：从字符串变量 xStr 值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。 本题程序运行后，当调用通用过程函数 Fun 后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。36.假定
37、有以下函数过程： Function Fun(S As String) As String Dim S1 As String For i=1 To Len(S) s1=LCase(Mid(S,i,1)+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1=InputBox(“请输入一个字符串“):Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中
38、输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为（分数：2.50）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba 解析：解析 本题考查的考点是有关取子串函数的。本题也比较简单，循环次数就是字符串的长度，每次都在第 i 位取一个字母转换成小写，最后倒序连接起来，注意每次都把新取得的字符连接到 s1 的前面，所以为倒序连接。37.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 C1=Trim(Str(c) For i=1 To 4 Print _ N
39、ext End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：1 12 123 1234 则在横线处应填入的内容为（分数：2.50）A.Right(c1,i)B.Left(c1,i) C.Mid(c1,i,1)D.Mid(c1,i,i)解析：解析 本题考查的考点是有关取子串函数的。在 VB 中有 3 种取子串函数：Left 函数用于在字符串左端开始取 n 个字符；Right 函数用于在字符串右端开始取 n 个字符(注意子串中字符的顺序与母串中相同)；Mid 函数可以实现在任何位置取任何长度的子串，其中长度省略的话将会一直取到串尾。本题中显示出来的结果可以看出，第一行是字符串的第一个字
40、符，第二行是字符串的前两个字符所以每行输出的应该是字符串的前 i 位。38.设有如下通用过程： Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr=“:strL=Len(xStr) i=strL/2 Do While i=strL tStr=tStr&Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr & tStr End Function 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程： P
41、rivate Sub Command1_Click() Dim S1 As String S1=“ABCDEF“:Text1.Text=LCase(Fun(S1) End Sub 程序运行后，单击命令按钮，文本框中显示的是（分数：2.50）A.ABCDEFB.abcdefC.defdef D.defabc解析：解析 本题通用过程的功能是：从字符串变量 xStr 值的左右两端同时开始，由外向里每次取出两个字符(左右各一个)，组成一个新的字符串。 本题程序运行后，当调用通用过程函数 Fun 后，返回值应为“afbecd”，转换为大写后在文本框中的显示结果为“AFBECD”。39.窗体上有一个名称为
42、 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer:b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(“) If y.a/2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是（分数：2.50）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的
43、是偶数，y.b 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回 解析：解析 本题考查的考点是有关自定义类型和 Fix 函数的。用户可以通过 Type 语句自定义类型，并可用自定义的类型声明变量。注意 Fix 函数是向下取整，Round 函数是四舍五入。40.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As String c=UCase(Chr(KeyCode):Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（分数：2.50）A.AB.aC.C D.c解析：解析 本题考查的考点是有关字符转换函数的。UCase 函数的功能为强制转成大写字母；Chr 函数的功能是把整数按照 ASCII 码转换成字母；Asc 函数的功能是把字母转换成对应的 ASCII 码。本题中变量c 的值是大写字母“A”，最终结果是大写字母“C”。
