2013计算机二级vb操作题答案-题库版(二).doc

第34套题解析 题目一：基本操作题  (1) 【解题思路】首先通过窗体的Caption属性设置窗体的标题，其次通过框架的Name和 Caption属性设置框架的名称和标题，最后通过单选按钮的Name和Caption属性设置命令按钮的 名称和标题。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 3.120。 表3.120 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】FillStyle属性用于返回/设置一个形状控件的填充样式。Shape属性用来设 置形状控件的形状，0：矩形(默认设置),1：正方形， 2：椭圆，3：圆， 4：圆角矩形，5：圆 角正方形。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 3.121和表3.122。 表3.121 控件 属性 设置值 形状控件 Name Shape1 表3.122 Height 1000 Width 1000 Shape 3 控件 属性 设置值 命令按钮1 Name Command1 Caption 垂直线 命令按钮2 Name Command2 Caption 水平线 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub Private Sub Command2_Click() Shape1.FillStyle = 2 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 题目二：简单应用题 (1) 【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符 可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算 同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差 值表达式应为：n% ＝ ASC(a) － ASC(A)。对于小写字母的ASCII码应减去这个差值以获 得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。 【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。 表3.123 控件文本框命令按 钮 NameTextNameCaption属性 Text1C1设置值转换 步骤2：分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim a$, b$, k%, n% a$ = n% = Asc(a) - Asc( ? ) For k% = 1 To Len(Text1.Text) b$ = Mid(Text1.Text, k%, 1) If b$ = a And b$ = z Then b$ = String(1, Asc(b$) - n%) Else If b$ =A And b$ =Z Then b$ =String(1, Asc(b$) ? ) End If End If a$ =a$ +b$ Next k% Text1.Text =? End Sub程序结束 参考答案 第1个？处填入：A 第2个？处填入：+n% 第3个？处填入：a 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】根据题意通过文件操作和For循环语句，把考生文件夹下in4.dat文件中已 按升序方式排列的60个数读入数组A，并运用＋连接符将其显示在Text1中；在Command2 Click 事件过程中，InputBox函数弹出一个输入对话框，接收用户输入的任意一个整数，赋值给变量n； 在Command3 Click事件过程中，将输入的数与数组中的数值进行比较，把n插入到A数组中 合适的位置，并通过For循环语句将插入后的数组A重新显示在Text1中，使其仍保持A数组的升 序排列。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Intege