在1上,标题为“测试”的窗体上添加一个为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控件形状控件属性NameHeight Width Shape设置值Shape1100010003 表3.122控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值Command1垂直线Command2水平线步骤2：编写程序代码。参考答案Private Sub Command1_Click() Shape1.FillStyle = 3End SubPrivate Sub Command2_Click() Shape1.FillStyle = 2End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1) 【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n% ASC(a) ASC(A)。对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。【操作步骤】步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。表3.123控件文本框命令按钮属性NameTextName Caption设置值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$ =A And b$ =Z Thenb$ =String(1, Asc(b$) ? )End IfEnd Ifa$ =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 IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & in4.dat For Input As #1For k =1 To 60Input #1, a(k)Text1 =Text1 +Str(a(k) +Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num =InputBox(请输入一个数)End SubPrivate Sub Command3_Click()For i =1 To 60If num a(i) Then ?Next iFor j =60 To i ?a(j +1) =Next j？=numText1 =以下程序段将插入后的数组A重新显示在Text1中For k =1 To ?Text1 =Text1 +Str(a(k) +Space(2)Next kEnd Sub程序结束参考答案第1个？处填入：Exit For第2个？处填入：Step -1第3个？处填入：a(j)第4个？处填入：a(i)第5个？处填入：61步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】单击读数据按钮，将考生文件夹下in5.dat文件的内容读到变量s中；单击统计按钮，通过Select Case语句判断是否为空格或是字母(文件中仅含有字母和空格，空格用来分隔不同单词)，通过Len函数得出中最长单词的长度，并通过比较把最长单词赋值给变量B，将该单词的长度显示在Text1文本框内，并将该单词的平均长度显示在Text2文本框内。Left(s, i)表示取字符串s左边的i个字符。Right(s, J i) 表示取字符串s右边的Ji个字符。R Split(s, )表示将字符串s按分割成字符数组。【操作步骤】步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为单词的平均长度为和最长单词的长度为的标签，以及标题分别为Text1和Text2，初始内容都为空的文本框。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim s As StringPrivate Sub Command1_Click()Open App.Path & in5.dat For Input As #1s = Input(LOF(1), #1)Close #1End SubPrivate Sub Command2_Click()需考生编写End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & out5.dat For Output As #1Print #1, Text1.Text, Text2.TextClose #1End Sub程序结束参考答案Private Sub Command2_Click() For i = 1 To Len(s) J = Asc(Mid(s, i, 1) Select Case J Case 48 To 57, 65 To 90, 97 To 122 Case Else Mid(s, i, 1) = - End Select Next i J = Len(s) - 1 For i = 1 To J If Mid(s, i, 1) = - And Mid(s, i + 1, 1) = - Then s = Left(s, i) + Right(s, J - i) J = J - 1 i = i - 1 End If Next i s = Left(s, Len(s) - 1) R = Split(s, -) B = R(0) For i = 1