计算机上机答案15.docx

1、计算机上机答案15第一套：(1)【解题思路】窗体对象和命令按钮控件的标题均由其Caption属性来设置，Visible属性用于设置窗体或控件在运行时是否可见，设计时可通过修改命令按钮的Font属性来设置标题的字体、字号和字型。【操作步骤】步骤1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性。程序中用到的属性见表3.25。步骤2：调试并运行程序，关闭程序后按题目要求存盘。(2) 【解题思路】标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定边框。要使标签位于窗体的右上角，其Top属性值应为0, Left属性值应为窗体的内部有效宽

2、度减去标签宽度后的值。【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。程序中用到的控件及属性见表3.26。表3.26控件标签属性NameBorderStyle设置值Label11步骤2：编写程序代码。参考答案Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (1)【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数，其语法格式为：Rnd(number) 可选的number参数

3、是Single或任何有效的数值表达式。为使每次程序运行时，得到不同的随机数数列，在使用Rnd()函数产生随机数前应用Randomize语句对随机数生成器进行初始化，该生成器能根据系统计时器得到新的种子值。为了生成某个范围内的随机整数，可使用以下公式：Int(upperbound lowerbound 1) * Rnd lowerbound)。其中，upperbound 是随机数范围的上限，lowerbound 则是随机数范围的下限。本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类

4、推，最终Min的值就是数组各元素中的最小值。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Command1 Click()Dim arrN(30) As IntegerDim Min As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * ？)Next i? = arrN(1)For i = 2 To 30If ? ThenMin = arrN(i)End IfNext iPrint MinEnd Sub程序结束参考答案第1个？处填入：1000第2个？处填入：M

5、in第3个？处填入：arrN(i) arrN(i)步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【解题思路】可通过求余运算符Mod来计算某数M能否被7整除，如果M Mod 70，那么M能被7整除；如果M Mod 70，那么M不能被7整除。可利用For循环语句来逐个判断01000范围内的整数能否被7整除，然后用一个变量来统计不能被7整除的整数个数。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Sub SaveData()Open App.Path & & outtxt.txt For Output As #1Print #1, Text1.TextClo

6、se #1End SubFunction Fun()End FunctionPrivate Sub Command1 Click()d = Fun()Text1.Text = dSaveDataEnd Sub程序结束参考答案Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 0 Then s = s + 1 End If Next i Fun = sEnd Function步骤3：调试并运行程序，关闭程序后按题目要求存盘。【解题思路】本题源程序已给出读文件中的数据和向文件中写数据的三个过程，只需适

7、时调用它们，即在读入数据和保存过程中调用；要把数组Arr1、Arr2中对应下标的元素相减并把结果存入第3个数组中，需利用FOR循环逐一取出Arr1、Arr2对应元素；由于数组Arr1、Arr2及存储第3个数组和的变量要跨过程使用，因此需定义成窗体级变量；调用过程WriteData时需传递两个参数，分别是存入数据的文件名和存储第3个数组和的变量；语句Option Base 1用于限定数组下标的下限，默认为1。Call语句将控制权转移到一个 Sub 过程，Function 过程，或动态连接库 (DLL)过程。语法：Call name argumentlist Call可选参数；关键字。如果指定了这

8、个关键字，则argumentlist必须加上括号，例如：Call MyProc(0) ，name是必要参数，要调用的过程名称。 【操作步骤】步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮1的相应属性。步骤3：按照步骤1设置另一个命令按钮控件相关属性，程序中用到的控件及属性见表3.27所示。表3.27控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值C1读入数据C2计算步骤4：分析并编写程序代码。程序提供代码Option Base 1Dim Arr1(20) As IntegerDim Arr2(20) As IntegerSub ReadDat

9、a1()Open App.Path & & datain1.txt For Input As #1For i = 1 To 20Input #1, Arr1(i)Next iClose #1End SubSub ReadData2()Open App.Path & & datain2.txt For Input As #1For i = 1 To 20Input #1, Arr2(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & & Filename For Outpu

10、t As #1Print #1, NumClose #1End Sub程序结束参考答案Private Sub C1_Click() Call ReadData1 Call ReadData2End SubPrivate Sub C2_Click() Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20 Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i Print sum=; sum WriteData dataout.txt, sumEnd Su

11、b步骤5：调试并运行程序，关闭程序后按题目要求存盘。第二套：基本操作：(1)【解题思路】复选框的一个特殊属性是Value属性，它的取值和用法与单选按钮有所差别。若Value属性的值取为0，代表复选框处于未选中状态，此时复选框的选项部分是一个空白的小方块；若Value属性的值取为1，代表复选框处于选中状态，此时复选框的选项部分是一个带有标记的小方块；若Value属性的值取为2，代表复选框处于禁止选择状态。系统默认值为0，即未选中状态。复选框是否可用通过其Enabled属性设置。【操作步骤】步骤1：建立界面，按照题目要求建立一个名称为Ch1的复选框数组并设置其相应属性。步骤2：按照步骤1设置其他控

12、件相关属性，程序中用到的控件及属性见表3.28和表3.29。表3.28控件标签复选框1属性NameCaptionCaptionIndexValue设置值L1业余爱好体育01步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【解题思路】文本框的Visible属性用于设置其在运行时是否可见。通过菜单编辑器窗口建立菜单项。【操作步骤】步骤1：新建一个标准EXE工程，在窗体中添加个文本框，在属性设置窗口中将其Name属性值设置为Text1。打开菜单设计器，按表3.30中的设置建立菜单项。表3.30标题操作显示隐藏名称M1ShowHide内缩符号011步骤2：编写程序代码。参考答案Private

13、 Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单应用：(1)【解题思路】PasswordChar属性用于屏蔽文本框中内容的字符，如果要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。步骤2：按照步骤1设置其他控件相关属性，程序中用到的控件及其属性见表3.31和表3.32。步骤3：分析并编写程序

14、代码。程序提供代码程序结束参考答案Private Sub C1_Click() Text1.PasswordChar = End SubPrivate Sub C2_Click() Text1.PasswordChar = ?End SubPrivate Sub C3_Click() Text2.Text = Text1.TextEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。(2)【解题思路】通用对话框Action属性用于设置被打开对话的类型。当通用对话框显示为打开或另存为类型时，其FileName属性用于返回或设置所选文件的路径和文件名。Filter(过滤器)属性用于指定在

15、对话框的文件列表中显示文件的类型。例如，过滤器为 *.txt，表示显示所有的文本文件。语法为：对象名Filter 描述|文件扩展名。通用对话框的InitDir属性用于为打开或另存为对话框指定初始的目录，如果此属性没有指定，则使用当前目录。【操作步骤】步骤1：新建一个窗体，按照题目要求建立图片框及通用对话框控件并设置图片框及通用对话框相应属性。程序中用到的控件及其属性见表3.33和表3.34。表3.33控件图片框通用对话框属性NamePictureNameDialogTitle设置值P1Open.icoCD1打开文件步骤2：分析并编写程序代码。参考答案Private Sub P1_Click()

16、 CD1.ShowOpenEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合应用：【解题思路】StrReverse函数用于返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法：StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串()，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。Mid函数用于取字符子串。语法：Mid(stringvar, start, length) string在stringvar中从start位置开始向右取length个字符。Input(L

17、OF(1),1) Input 是一个函数，返回指定文件中的指定字符。LOF 函数返回文件长度，参数为文件号。Input 函数，第一参数为返回字符数，第二参数为文件号，两个1都指第1号文件。这条语句的用来读取1号文件的所有内容。【操作步骤】步骤1：打开本题工程文件，按照题目要求建立标签控件并设置标签的Caption属性为回文个数为。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim s As StringPrivate Sub Command1 Click()Open App.Path & in5.dat For Input As #1s = Input(LOF(1), #

18、1)Close #1End SubPrivate Sub Command2 Click()Dim n As Integer, t As String, word num As Integern = Len(s): t = For i = 1 To n c = Mid(s, i, 1) If c Then t = t + c Else If foundhuiwen(t) Thenword num = word num + 1 End If t = End IfNext iText1.Text = word numEnd Sub以下Function 过程用于判断字符串是否为回文Function f

19、oundhuiwen(p As String)考生编写End FunctionPrivate Sub Form Unload(Cancel As Integer)Open App.Path & out5.dat For Output As #1Print #1, Text1.TextClose #1End Sub程序结束参考答案Function foundhuiwen(p As String) If StrReverse(p) = p Then foundhuiwen = TrueEnd Function步骤3：调试并运行程序，关闭程序后按题目要求存盘。第三套基本操作(1) 【解题思路】复选框

20、(CheckBox)组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：0Unchecked为未选，1Checked为选中，2Grayed为变灰色。选择某复选框后，该复选框将显示，而取消选择后，消失。【操作步骤】步骤1：新建窗体，按照题目要求建立控件数组并设置窗体和第一个复选框的属性。程序中用到的控件及属性见表3.35。步骤2：调试并运行程序，关闭程序后按题目要求存盘。(2) 【解题思路】滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，

21、在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。在单击命令按钮触发的Click事件中加入让滚动条的Value属性值加10的语句，在每次单击命令按钮后，滚动条就向右移动10个刻度。【操作步骤】步骤1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性。程序中用到的控件及属性见表3.36步骤2：编写程序代码。参考答案Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单应用(1) 【解题思路】PopupMenu方法用来显示弹出菜单，语法格式为： objec

22、t.PopupMenu menuname，flags，x, y，boldcommand要创建弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(即Visible)属性值设置为False，然后在对象的MouseDown(或MouseUp)事件过程中，通过判断该事件的Button参数值是否为2，若是则执行对象的PopupMenu方法来显示菜单。FontSize属性、FontBold属性、FontItalic属性、FontStrikethru 属性和 FontUnderline 属性可分别用来设置字体的大小和样式。【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件及一个弹出式菜单并

23、设置菜单属性。步骤2：按照步骤1设置其他子菜单项的相关属性，程序中用到菜单属性见表3.37。表3.37标题控件(任意)加粗斜体下划线名称FormatM1M2M3内缩符号0111步骤3：分析并编写程序代码。参考答案Private Sub M1_Click() Text1.FontBold = TrueEnd SubPrivate Sub M2_Click() Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click() Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button

24、 As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu Format End IfEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。(2) 【解题思路】修改窗体标题是通过设置其Caption属性来实现的，ControlBox属性用于设置控制菜单框是否在窗体标题栏中显示，为在窗体标题栏中只显示标题信息，需将该属性值设置为False。文本框的PasswordChar属性可设置用于屏蔽在文本框中输入内容的字符，如*。【操作步骤】步骤1：打开本题工程文件，按照题目要求

25、设置属性。步骤2：分析并编写程序代码。程序提供代码Form1代码Private Sub C1 Click()Dim k As IntegerForm2. ?Form2.Print Form1.L1.Caption; Form1.Text1Form2.Print Form1.L2.Caption; Form1.Text2Form2.Print Form1.L3.Caption; Form1.Text3Form2.Print Form1.Frame1. ? ; ：；For k = 0 To 1If Form1.Op1( ? )Value ThenForm2.Print Form1.Op1(k)Ca

26、ptionEnd IfNext kEnd SubPrivate Sub Form Load()Text2. ? = *End SubForm2代码Private Sub C1 Click()EndEnd SubPrivate Sub C2 Click()Unload Form2End Sub程序结束参考答案第1个？处填入：Show第2个？处填入：Caption第3个？处填入：k第4个？处填入：PasswordChar步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合应用【解题思路】本题通过判断文本框Text1输入的密码是否为123456执行不同的操作。每输入一次错误密码，将提示重新输入，直

27、到文本框Text2中的数值为0时，则提示错误，并禁用文本框Text1。MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回一个值告诉用户单击哪一个按钮。 语法 ：MsgBox(prompt, buttons , title , helpfile, context) Prompt 必选的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 (Chr(13)、换行符 (Chr(10) 或是回车与换行符的组合 (Chr(13) & Chr(10) 将各行分隔开来。 B

28、uttons 可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，默认按钮是什么以及消息框的强制回应等。如果省略，则 buttons 的默认值为 0。 Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。 Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。 【操作步骤】步骤1：

29、打开本题工程文件，将文本框Text1的PasswordChar属性设置为*。步骤2：分析并编写程序代码。程序提供代码Private Sub C1 Click()If ? = 123456 ThenText1.Text = 口令正确Text1.? = ElseText2.Text = Text2.Text - 1If Text2.Text ? ThenMsgBox 第 & (3 - Text2.Text) & 次口令错误，请重新输入ElseMsgBox 3次输入错误，请退出Text1.Enabled = ?End IfEnd IfEnd Sub程序结束参考答案第1个？处填入：Text1.Text第2个？处填入：PasswordChar第3个？处填入：0第4个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。第四套基本操作(1) 【解题思路】图