3(2.1水仙花)

1 解题思路 文本框控件的MultiLine属性用于设置文本框是否显示多行文本 值 为True表示是 值为False则表示否 ScrollBars属性设置文本框是否有水平或垂直滚动条 它有0 1 2 3四种值 0表示没有滚动条 默认值 1表示只有水平滚动条 2表示只有垂直 滚动条 3表示有水平和垂直滚动条 文本框的PasswordChar属性常用于设置用某字符 如 屏蔽用户在文本框中键入的内容 常用于口令输入 操作步骤 步骤1 新建一个窗体 然后在窗体中添加两个文本框 步骤2 在属性窗口中设置各控件的属性 控件的属性见表3 8和表3 9 步骤3 调试并运行程序 然后保存工程 设置工程文件名为sjt1 vbp 设置窗体文件 名为sjt1 frm 举一反三 可以通过第31套第一大题的第一小题来进行同类知识点练习 2 解题思路 图像框 Image 控件的Picture属性用于在设计阶段时装载在图像框中显 示的图片 它的Stretch 自动伸缩 属性用来设定载入其中的图片是否需要自动调整 以适应 图像框的大小 图像框的宽和高分别由其Width属性和Height属性设置 本题要在单击按钮时实现 放大 或 缩小 的功能 应在程序中动态设置图像框大小 即 宽和高 即在其原来基础上增加或减小图像框的宽和高 操作步骤 步骤1 新建一个窗体 然后在窗体中添加一个图像框和两个命令按钮 步骤2 为窗体中的各控件设置属性 控件的属性见表3 10和3 11 表3 10 控件图像框 属性NameWidthHeightPictureStretch 设置值Image117001900pic1 bmpTrue 表3 11 控件命令按钮1命令按钮2 属性NameCaptionNameCaption 设置值C1放大C2缩小 步骤3 编写程序代码 参考答案 Private Sub C1 Click Image1 Height Image1 Height 100 Image1 Width Image1 Width 100 End Sub Private Sub C2 Click Image1 Height Image1 Height 100 Image1 Width Image1 Width 100 End Sub 步骤4 调试并运行程序 然后保存工程 设置工程文件名为sjt2 vbp 设置窗体文件 名为sjt2 frm 举一反三 可以通过第36套第一大题第一小题来进行同类知识点练习 1 解题思路 Fix 函数删除 number 参数的小数部分并返回以整数部分 格式为 Fix number number 参数可以是任意有效的数值表达式 如果 number 参数包含 Null 则返回 Null Val 函数返回包含于字符串内的数字 语法 Val string 必要的 string 参数可以是任何有效的字符串表达式 循环遍历数组a 通过调用Function 过程判断是否为水仙花数 并通过If语句对于数值 进行比较 如果 max a i 那么max a i 最小值同理 在设置变量初值时 max 1 min 1000 目的是方便比较数的大小 因为数组中的数值最小的是0 最大的 是999 那么 让max先 1 小于数组中的最小值 在程序执行过程中 只要有水仙花 数 就一定会大于max 这样才会赋值给max min 1000也是同样的道理 操作步骤 步骤1 打开本题工程文件 步骤2 分析并编写程序代码 程序提供代码 Dim a 100 As Integer Private Sub Command1 Click Dim k As Integer Open App Path in3 dat For Input As 1 For k 1 To 100 Input 1 a k Next k Close 1 End Sub Private Sub Command2 Click 需考生编写 End Sub 以下Function 过程用于判断某数是否为水仙花数 Function isnarc p As Integer x Fix p 100 y Fix p x 100 10 z p x 100 y 10 If p x 3 y 3 z 3 Then isnarc True Else isnarc False End If End Function Private Sub Form Unload Cancel As Integer Open App Path out3 dat For Output As 1 Print 1 Val Text1 Text Print 1 Val Text2 Text Close 1 End Sub 程序结束 参考答案 Dim i As Integer Dim max As Integer min As Integer max 1 min 1000 For i 1 To 100 If isnarc a i Then If max a i Then min a i End If Next i Text1 max Text2 min 步骤3 按照题目要求调试并运行程序 步骤4 关闭程序后 按题目要求存盘 举一反三 可以通过第11套第三大题来进行同类知识点练习 2 解题思路 本题主要考查组合框的属性及For循环语句的使用 Mod取模运算 就是求余数 比如 10 mod 3 1 因为10除以3等于3余1 结果就 是余数 如果a mod b 0 则说明a能被b整除 反之a mod b0 则a不能被b整除 组合框 ComboBox 将文本框与列表框的特性组合在一起 既可在组合框的文本框部分 输入信息 也可在列表框部分选择项目 组合框的列表项可在设计阶段通过其List属性添 加 每输入完一项后按键换行再输入下一项 其Text属性用于设置或返回其 文本框部分当前的文本 根据题意 用For逐一循环5000内的整数 通过If语句的条件表达式 i Mod n 0 判 断各个数是否能被n整除 把能被整除的数累加到变量sum i为循环变量 n的值为 Val Cb1 Text 操作步骤 步骤1 打开本题工程文件 在窗体中添加一个文本框 一个组合框和一个命令按钮 步骤2 设置窗体中控件的属性 控件的属性见表3 12 表3 12 步骤3 分析并编写程序代码 程序提供代码 窗体代码 Private Sub Form Unload Cancel As Integer unload sub End Sub 模块代码 Sub unload sub Open out4 dat For Output As 1 Print 1 Val Form1 Cb1 Text Val Form1 Text1 Text Close 1 End Sub 程序结束 参考答案 Private Sub C1 Click Dim sum As Long Dim n As Integer Dim i As Integer n Val Cb1 Text For i n To 5000 If i Mod n 0 Then sum sum i End If Next i Text1 Text sum End Sub 步骤4 调试并运行程序 关闭程序后按题目要求存盘 举一反三 可以通过第4套第二答题第二小题来进行同类知识点练习 解题思路 本题中隐藏的文本框Text3的功能相当于剪贴板 在文本框 Text1或Text2 获 得焦点触发的GotFocus事件过程中 用窗体变量which记录下该文本框序号 1或2 通过 编 辑 菜单的Click事件过程中首先根据which的值不同 来判断相应文本框 Text1或Text2 的内 容是否为空 若内容为空则设置 剪切 和 复制 菜单项不可用 否则设置 剪切 和 复制 菜 单项可用 其次判断Text3文本框的内容是否为空 若内容为空则设置 粘贴 菜单项不可用 否则设置 粘贴 菜单项可用 在 复制 命令的单击事件过程中 根据which的值不同 将相应文本框 Text1或Text2 中的内容复制到Text3文本框中 在 剪切 命令的单击事件过程中除应执行与 复制 命令相 同的语句外 还应执行清除当前文本框中内容的语句 在 粘贴 命令的单击事件过程中 也要根据which值的不同 将Text3文本框中的内容接入相应文本框中的原内容之后 操作步骤 步骤1 打开本题工程文件 将Text3的Visible属性设置为False 然后按照题目要求建 立菜单并设置其属性 菜单属性如表3 13所示 表3 13 控件编辑剪切复制粘贴 名称EditCutCopyPaste 内缩符号0111 步骤2 分析并编写程序代码 程序提供代码 Dim which As Integer Private Sub copy Click If which 1 Then Text3 Text Text1 Text ElseIf which 2 Then Text3 Text Text2 Text End If End Sub Private Sub cut Click If which 1 Then Text3 Text Text1 Text Text1 Text ElseIf which 2 Then Text3 Text Text2 Text Text2 Text End If End Sub Private Sub edit Click If which Then If Text1 Text Then cut Enabled False Copy Enabled False Else cut Enabled True Copy Enabled True End If ElseIf which Then If Text2 Text Then cut Enabled False Copy Enabled False Else cut Enabled True Copy Enabled True End If End If If Text3 Text Then Paste Enabled False Else Paste Enabled True End If End Sub Private Sub paste Click If which 1 Then Text1 Text ElseIf which 2 Then Text2 Text End If End Sub Private Sub Text1 GotFocus 本过程的作用是 当焦点在Text1中时 which 1 w