在Form1上添加一个二级下拉菜单,程序运行时的窗体如图所示.docVIP

基础题1 标题控件 文件 打开 关闭 名称 File Open Close 内缩符号 0 1 1 有效 √ √ 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】文本框通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置文本框中显示的文本，当文本框中的文本内容改变时触发其Change事件。Font属性用于设置控件标题中文本的字体、字号和字形等。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.114。 表3.114 步骤2：编写程序代码。 参考答案 Private Sub Text1_Change() Text2.Text = Text1.Text End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】由于单选按钮选择的唯一性，本题可用一个If...Then...End if语句对可能出现的两种情况(Opt1或Opt2被选中)分别进行处理，进而为Text1的FontName属性设置不同值；可用两个If...Then...End if语句依次对两个复选框选中情况进行判断，若选中则进行相应的设置。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Unload(Cancel As Integer) unload sub End Sub 程序结束 参考答案 Private Sub Command1_Click() If Op1.Value = True Then Text1.FontName = 宋体 Else Text1.FontName = 隶书 End If If Ch1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If If Ch2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】在默认情况下，打开对话框的标题是打开，另存为对话框的标题是另存为。根据题意，将CommonDialog的Name属性设置为CD1，文件类型在CommonDialog的Filter属性中设置，其格式为： Filter＝文件说明|文件类型 本题应在Filter属性中设置为：文本文件|*.txt|所有文件|*.*。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Long CD1.FileName = CD1.? = 所有文件|*.*|文本文件|*.txt|Word文档|*.doc CD1.FilterIndex = 2 CD1.? If CD1.FileName Then Open ? For Input As #1 n = LOF(1) Text1 = Input$(n, #1) ? End If End Sub 程序结束 参考答案 第1个？处填入：Filter 第2个？处填入：ShowOpen 第3个？处填入：CD1.FileName 第4个？处填入：Close #1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题 【解题思路】窗体的Print方法用于向窗体上输出内容，Cls方法用于清除窗体上已输出的内容。Left()函数用于取出已有字符串左边指定个数的字符串。 根据题意，在取数按钮的Click事件过程中，用Open语句打开文件in5.txt，用For循环的Input #方法读出10个数据存入数组a，并输出到窗体上，在整个输出前应先清除窗体上已有内容。在查找按钮的Click事件过程中，先判断在Txt1中是否输入了内容，若没有输入，在Txt2中显示相关信息；若有输入，用For循环在数组a中逐一查找与Txt1中内容相符的元素，相符的标准是Left(a(i)，n)＝Txt1.text(i为循环变量，n为Txt1文本的长度)，最后在文本框中显示结果。 【操