为Form1、标题为“列表框练习”的窗体上添加1个名称为List的列表框.docVIP

基础题(1) 【解题思路】Sorted属性用于设置列表框中的项目是否按字母表顺序排序。可能的取值如下： True：列表框中的项目按字母表顺序排序。 False：列表框中的项目不按字母表顺序排序。 注意：Sorted属性必须在设计时设置，在运行时为只读属性。 【操作步骤】 步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.167。 表3.167 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2)【解题思路】按照题目要求设置标签和命令按钮的属性，在命令按钮的Click事件过程中，通过标签的FontSize属性值的动态设置实现标签内容字体的缩小和还原。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.168和表3.169。 表3.168 表3.169 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize - 2 End Sub Private Sub Command2_Click() Label1.FontSize = 12 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】根据题意，将考生文件夹下in3.dat文件中已按升序排列的30个整数读入一个维数组a中，同时运用Space函数和Str函数把这30个数值显示在Text1文本框内。在Cmd2 Click事件过程中，通过InputBox函数弹出输入对话框，接收用户输入的任意一个数，若接收的数为奇数，弹出 输入数为奇数，请重输！提示重新输入。如果接收的偶数超出一维数组a的数值范围，Text2显示已超出所给数值范围；否则，通过For循环语句和If判断语句在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数不存在于数组中；否则显示该数在数组中的位置。 【操作步骤】 步骤1：打开本题工程文件，添加一个标签为查找结果的标签和一个初始内容为空的文本框。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(30) As Integer Private Sub Cmd1_Click() Open App.Path \in3.dat For Input As #1 For m = 1 To 30 　　　Input #1, a(m) 　　　Text1 = Text1 + Str(a(m)) + Space(2) Next m Close #1 End Sub Private Sub Cmd2_Click() Dim num As Integer, n As Integer num = InputBox(请输入待查找的数) If num / 2 ? Fix(num / 2) Then 　　　MsgBox 输入数为奇数，请重输！， , 检查 　　　Exit Sub End If If num a(1) ? num a(30) Then 　　　Text2.Text = Str(num) + 已超出所给数值范围 　　　Exit Sub End If For n = 1 To 30 If a(n)= ? Then 　　　　 Text2.Text = Str(num) + 是数组中的第 + Str(n) + 个值 　　　　 Exit For 　　　End If Next n If n ? 30 Then 　　　Text2.Text = Str(num) + 不存在于数组中 End If End Sub 程序结束 参考答案 第1个？处填入： 第2个？处填入：Or 第3个？处填入：num 第4个？处填入： 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】二维数组中的元素a(i, 1)用于存放考号，a(i, 2)用于存放数学成绩，a(i, 2)用于存放语文成绩。变量Avg 通过循环函数用于获得每个考生的成绩的平均值，并运用Select Case 语句对平均成绩在哪个分数段进行判断，并把不同分数段累加的人数个数赋值给数组x，最后运用循环语句将人数统计结果显示在控件数组Text2中相应位置。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 3) As Integer Private Sub Command1_Click() Open