设窗体上有2个文本框Text1和Text2，并有下面的事件过程：Dim nPrivate Sub Text1_KeyPress(KeyAscii As Integer) If "A"<＝Chr(KeyAscii)And Chr(KeyAscii)<＝"Z" Then n＝n＋1 End If If KeyAscii＝13 Then Text2.Text＝n End IfEnd Sub程序运行时，在文本框Text1中输入“Visual Basic 6.0”并按回车键后，在文本框Text2中显示的是( )。
- A.2
- B.9
- C.13
- D.16
热度🔥240
参考答案：A
解析：
【解析】KeyPress事件的参数KeyAscii为所按键的ASCII码，Chr函数把这个ASCII码转换为对应的字符，回车键的ASCII码值是13。程序中KeyPress过程的功能是统计Text1文本框中输入的字符串中A～Z之间字母的个数，按回车键后把个数值显示在Text2文本框中。在Text1文本框中输入"Visual Basic 6.0"，其中A～Z的字母有2个，按回车键后，Text2文本框中将会显示2。
【解析】KeyPress事件的参数KeyAscii为所按键的ASCII码，Chr函数把这个ASCII码转换为对应的字符，回车键的ASCII码值是13。程序中KeyPress过程的功能是统计Text1文本框中输入的字符串中A～Z之间字母的个数，按回车键后把个数值显示在Text2文本框中。在Text1文本框中输入"Visual Basic 6.0"，其中A～Z的字母有2个，按回车键后，Text2文本框中将会显示2。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
假设表单MyForm隐藏着，让该表单在屏幕上显示的命令是( )。
以下有关软件需求规格说明书编写原则的说法中，错误的是
下列各种数据对象中，与进程具有一一对应关系的是
某循环队列的存储空间为Q(1:m)，初始状态为front=rear=m。现经过一系列的入队操作和退队操作后，front=m，rear=m-1，则该循环队列中的元素个数为（ ）。
为让利消费者，提供更优惠的服务，某大型收费停车场规划调整收费标准，拟从原来“不足15分钟按15分钟收费”调整为“不足15分钟部分不收费”的收费政策。市场部抽取了5月26日至6月1日的停车收费记录进行数据分析，以期掌握该项政策调整后营业额的变化情况。请根据考生文件夹下“素材.xlsx”中的各种表格，帮助市场分析员小罗完成此项工作。具体要求如下：1.将“素材.xlsx”文件另存为“停车场收费政策调整情况分析.xlsx”，所有的操作基于此新保存好的文件。2.在“停车收费记录”表中，涉及金额的单元格格式均设置为保留2位的数值类型。依据“收费标准”表，利用公式将收费标准对应的金额填入“停车收费记录”表中的“收费标准”列；利用出场日期、时间与进场日期、时间的关系，计算“停放时间”列，单元格格式为时间类型的“XX时XX分”。3.依据停放时间和收费标准，计算当前收费金额并填入“收费金额”列；计算拟采用的收费政策的预计收费金额并填入“拟收费金额”列；计算拟调整后的收费与当前收费之间的差值并填入“差值”列。4.将“停车收费记录”表中的内容套用表格格式“表样式中等深浅12”，并添加汇总行，最后三列“收费金额”、“拟收费金额”和“差值”汇总值均为求和。5.在“收费金额”列中，将单次停车收费达到100元的单元格突出显示为黄底红字的货币类型。6.新建名为“数据透视分析”的表，在该表中创建3个数据透视表，起始位置分别为A3、A11、A19单元格。第一个透视表的行标签为“车型”，列标签为“进场日期”，求和项为“收费金额”，可以提供当前的每天收费情况；第二个透视表的行标签为“车型”，列标签为“进场日期”，求和项为“拟收费金额”，可以提供调整收费政策后的每天收费情况；第三个透视表行标签为“车型”，列标签为“进场日期”，求和项为“差值”，可以提供收费政策调整后每天的收费变化情况。
