在Form1上添加Label1标题为“列表框的使用”的标签.docVIP

基础题(1)【解题思路】列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值： 0－None每次只能选择一项，如果选择另一项则会取消对前一项的选择； 1－Simple可以同时选择多个项，后续的选择不会取消前面的选择，可以用鼠标或空格键选择； 2－Extended可以选择指定范围内的表项。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.136。 表3.136 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。Cmd1 Click 事件过程中运用LoadPicture函数装入图片，用LoadPicture()，清除用图像框中的图片。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.137。 表3.137 步骤2：编写程序代码。 参考答案 Private Sub Cmd1_Click() Image1.Picture = LoadPicture(App.Path \图片.jpg) End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture() End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题1)【解题思路】根据题意，并将数值赋值为数组a(k)，这道题的程序要实现寻找完全平方数，并求出完全平方数的个数和最大值。is square函数用来判断一个数是否为完全平方数，首先我们要了解什么是完全平方数，一个整数若是另一个整数的平方，那么它就是完全平方数。如：36＝62，所以36就是一个完全平方数。通过判断is square(a(k))函数的返回值确定完全平方数，并进行完全平方数个数的累加，以及通过比较找出最大值。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer Private Function is square(x As Integer) As Boolean　　 判断完全平方数 flag = False For m = 1 To Sqr(x) If ? = m ^ 2 Then 　　　　flag = True 　　　　Exit For 　　　End If Next m is square = ? End Function 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() Dim max As Integer Dim num As Integer max = 0 num = 0 For k = 1 To 100 　　　　If is square(a(k)) Then 　　　　num = num + 1 If ? Max Then 　　　　max = a(k) 　　　　End If 　　　End If Next k Text1.Text = ? Text2.Text = ? End Sub 程序结束 参考答案 第1个？处填入：x 第2个？处填入：flag 第3个？处填入：a(k) 第4个？处填入：max 第5个？处填入：num 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】使用列表框的AddItem方法，在窗体载入时向列表框添加一个编号信息a0001。在Command1 Click事件过程中，通过文本框Text1中输入一个编号，运用If判断语句进行判断，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框Liast1已有项目之后；否则，将弹出MsgBox 对话框不允许重复输入，请重新输入！，单击该对话框中的确定按钮，可以重新输入。 【操作步骤】 步骤1：打开本题工程文件，添加一个名称为Label1，标题为请输入编号 的标签；再添加一个名称为Text1，初始文本内容为空的文本框。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load