在form1,标题为“测试”的窗体上添加一个名称为frame1、标题为“字体”的框架.doc

基础题(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 Height Width Shape 设置值 Shape1 1000 1000 3 表3.122 控件 命令按钮1 命令按钮2 属性 Name Caption Name Caption 设置值 Command1 垂直线 Command2 水平线 步骤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 控件 文本框 命令按钮 属性 Name Text Name Caption 设置值 Text1 C1 转换 步骤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 Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path \in4.dat For Input As #1 For k =1 To 60 　　　　Input #1, a(k) 　　　　Text1 =Text1 +S