1、 (1)【解题思路】文本框控件的MultiLine 属性用于设置文本框是否显示多行文本，值为True表示是，值为False则表示否；ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、1、2、3四种值，0表示没有滚动条(默认值),1 表示只有水平滚动条， 2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar 属性常用于设置用某字符(如“*“)屏蔽用户在文本框中键入的内容，常用于口令输入。【操作步骤】步骤1：新建一个窗体，然后在窗体中添加两个文本框。步骤2：在属性窗口中设置各控件的属性，控件的属性见表3.8和表3.9。步骤3：调试并运行程序，然后保存工程
2、，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。【举一反三】可以通过第31套第一大题的第一小题来进行同类知识点练习。(2)【解题思路】图像框(Image)控件的Picture 属性用于在设计阶段时装载在图像框中显示的图片，它的Stretch(自动伸缩 )属性用来设定载入其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和高分别由其Width属性和Height属性设置。本题要在单击按钮时实现“放大 “或“缩小“的功能，应在程序中动态设置图像框大小 (即宽和高) ，即在其原来基础上增加或减小图像框的宽和高。【操作步骤】步骤1：新建一个窗体，然后在窗体中添加一个图像框和
3、两个命令按钮。步骤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 + 100Image1.Width = Image1.Width + 100End SubPriv
4、ate Sub C2_Click()Image1.Height = Image1.Height - 100Image1.Width = Image1.Width - 100End Sub步骤4：调试并运行程序，然后保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm。【举一反三】可以通过第36套第一大题第一小题来进行同类知识点练习。(1)【解题思路】Fix 函数删除 number 参数的小数部分并返回以整数部分。格式为：Fix(number) ，number 参数可以是任意有效的数值表达式。如果 number 参数包含 Null，则返回 Null。Val 函数返回包含于
5、字符串内的数字，语法：Val(string) ，必要的 string 参数可以是任何有效的字符串表达式。循环遍历数组a，通过调用Function 过程判断是否为水仙花数，并通过If 语句对于数值进行比较，如果 max = a(i) Then min = a(i)End IfNext iText1 = maxText2 = min步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。【举一反三】可以通过第11套第三大题来进行同类知识点练习。(2)【解题思路】本题主要考查组合框的属性及For循环语句的使用。Mod取模运算，就是求余数，比如： 10 mod 3 1 因为10除以3等
6、于3余1，结果就是余数。如果a mod b0，则说明a能被b整除，反之a mod b0 ，则a 不能被b整除。组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List 属性添加，每输入完一项后按键换行再输入下一项；其 Text属性用于设置或返回其文本框部分当前的文本。根据题意，用For逐一循环5000内的整数，通过If语句的条件表达式： i Mod n0，判断各个数是否能被n整除，把能被整除的数累加到变量sum 。i 为循环变量，n的值为Val(Cb1.Text)。【操作步骤】步骤1：打开本
7、题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。步骤2：设置窗体中控件的属性，控件的属性见表3.12。表3.12步骤3：分析并编写程序代码。程序提供代码窗体代码Private Sub Form_Unload(Cancel As Integer)unload subEnd Sub模块代码Sub unload sub()Open “out4.dat“ For Output As #1Print #1, Val(Form1.Cb1.Text), Val(Form1.Text1. Text)Close #1End Sub程序结束参考答案Private Sub C1_Click()Dim
8、sum As LongDim n As IntegerDim i As Integern = Val(Cb1.Text)For i = n To 5000If i Mod n = 0 Thensum = sum + iEnd IfNext iText1.Text = sumEnd Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘【举一反三】可以通过第4套第二答题第二小题来进行同类知识点练习。【解题思路】本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Text1或Text2)获得焦点触发的GotFocus事件过程中，用窗体变量which记录下该文本框序号(1或2) 。通过“编辑“
9、 菜单的Click事件过程中首先根据which的值不同，来判断相应文本框(Text1或Text2)的内容是否为空，若内容为空则设置“剪切“ 和“复制“菜单项不可用，否则设置 “剪切“和“复制“ 菜单项可用；其次判断Text3文本框的内容是否为空，若内容为空则设置“粘贴“ 菜单项不可用，否则设置“粘贴 “菜单项可用。在“ 复制“命令的单击事件过程中，根据 which的值不同，将相应文本框(Text1或Text2)中的内容复制到Text3文本框中。在“剪切“ 命令的单击事件过程中除应执行与“复制“命令相同的语句外，还应执行清除当前文本框中内容的语句。在“粘贴“ 命令的单击事件过程中，也要根据whi
10、ch值的不同，将Text3文本框中的内容接入相应文本框中的原内容之后。【操作步骤】步骤1：打开本题工程文件，将Text3的Visible 属性设置为 False，然后按照题目要求建立菜单并设置其属性。菜单属性如表3.13所示。表3.13控件 编辑 剪切 复制 粘贴名称 Edit Cut Copy Paste内缩符号 0 1 1 1步骤2：分析并编写程序代码。程序提供代码Dim which As IntegerPrivate Sub copy_Click()If which = 1 ThenText3.Text = Text1.TextElseIf which = 2 ThenText3.Tex
11、t = Text2.TextEnd IfEnd SubPrivate Sub cut_Click()If which = 1 ThenText3.Text = Text1.TextText1.Text = “ElseIf which = 2 ThenText3.Text = Text2.TextText2.Text = “End IfEnd SubPrivate Sub edit_Click() If which = ? ThenIf Text1.Text = “ Thencut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = True
12、Copy.Enabled = TrueEnd If ElseIf which = ? ThenIf Text2.Text =“ Thencut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = TrueCopy.Enabled = TrueEnd IfEnd IfIf Text3.Text = “ ThenPaste.Enabled = FalseElsePaste.Enabled = TrueEnd IfEnd SubPrivate Sub paste_Click()If which = 1 Then Text1.Text = ?Els
13、eIf which = 2 Then Text2.Text = ?End IfEnd SubPrivate Sub Text1_GotFocus() 本过程的作用是：当焦点在Text1中时，which = 1which = 1End SubPrivate Sub Text2_GotFocus() 本过程的作用是：当焦点在Text2中时，which = 2which = 2End Sub程序结束参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text Text3.Text第4个？处填入：Text2.Text Text3.Text步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第8套第二大题第一小题来进行同类知识点的练习。
