2级VB.docVIP

第五套 基本操作 (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 控件 图像框 属性 Name Width Height Picture Stretch 设置值 Image1 1700 1900 pic1.bmp True 表3.11 控件 命令按钮1 命令按钮2 属性 Name Caption Name Caption 设置值 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