《在Form1上,标题为“测试”的窗体上添加一个为Frame1、标题为“字体”的框架》由会员分享，可在线阅读，更多相关《在Form1上,标题为“测试”的窗体上添加一个为Frame1、标题为“字体”的框架（5页珍藏版）》请在金锄头文库上搜索。
1、基础题基础题(1)【解题思路】首先通过窗体的Caption属性设置窗体的标题，其次通过框架的Name和 Caption属性设置框架的名称和标题，最后通过单选按钮的Name和Caption属性设置命令按钮的 名称和标题。【操作步骤】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见 表3.120。表3.120步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题基础题(2)【解题思路】FillStyle属性用于返回/设置一个形状控件的填充样式。Shape属性用来设置 形状控件的形状，0：矩形(默认设置),1：正方形， 2：椭圆，3：圆， 4：圆角矩形，5：圆角 正
2、方形。【操作步骤】步骤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 = 3 End Sub Private Sub Command2_Click()Shape1.Fill
3、Style = 2 End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题简单题(1)【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可 以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算 同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差 值表达式应为：n% ASC(“a“) ASC(“A“)。对于小写字母的ASCII码应减去这个差值以获 得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。 【操作步骤】 步骤1：打开本题工程文件，
4、并设置控件的属性。程序中用到的控件及属性见表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“ Then b$ =String(1, Asc(b$)
5、? )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事件过程中，
6、将输入的数与数组中的数值进行比较，把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 60Input #1, a(k)Text1 =Text1 +Str(a(k) +Spac
7、e(2) Next k Close #1 End Sub Private Sub Command2_Click() num =InputBox(“请输入一个数“) End Sub Private Sub Command3_Click() For i =1 To 60 If num a(i) Then ? Next i For j =60 To i ? a(j +1) = Next j ？=num Text1 =“ 以下程序段将插入后的数组A重新显示在Text1中 For k =1 To ?Text1 =Text1 +Str(a(k) +Space(2) Next k End Sub 程序结束
8、参考答案 第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)表示
9、取字符串s左边的i个字符。 Right(s, J i) 表示取字符串s右边的Ji个字符。 R Split(s, “)表示将字符串s按“分割成字符数组。【操作步骤】步骤1：打开本题工程文件，添加两个名称分别是Label1和Label2，标题分别为“单词的平 均长度为“和“最长单词的长度为“的标签，以及标题分别为Text1和Text2，初始内容都为空的文 本框。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & “in5.dat“ For Input As
10、 #1 s = Input(LOF(1), #1) Close #1 End Sub Private Sub Command2_Click() 需考生编写 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & “out5.dat“ For Output As #1 Print #1, Text1.Text, Text2.Text Close #1 End Sub程序结束参考答案 Private Sub Command2_Click()For i = 1 To Len(s)J = Asc(Mid(s, i, 1)Se
11、lect Case JCase 48 To 57, 65 To 90, 97 To 122Case ElseMid(s, i, 1) = “-“End SelectNext iJ = Len(s) - 1For i = 1 To JIf Mid(s, i, 1) = “-“ And Mid(s, i + 1, 1) = “-“ Thens = Left(s, i) + Right(s, J - i)J = J - 1i = i - 1End IfNext is = Left(s, Len(s) - 1)R = Split(s, “-“)B = R(0)For i = 1 To UBound(R)If Len(B) Len(R(i) Then B = R(i)Next iText2.Text = Len(B)Text1.Text = Int(Len(s) - UBound(R) / (UBound(R) + 1) + 0.5) End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
