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

基础题(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 App.Path & "\in4.dat" For Input As #1

For i = 1 To 20

For j = 1 To 3

Input #1, a(i, j)

Text1 = Text1 + Str(a(i, j)) + Space(4)

Next j

Text1 = Text1 + Chr(13) + Chr(10)

Next i

Close #1

End Sub

Private Sub Command2_Click()

Dim x(3) As Integer

For i = 1 To 20

'? = (a(i, 2) + a(i, 3)) / 2

Select Case Avg

'Case ?

x(1) = x(1) + 1

'Case ?

x(2) = x(2) +1

Case Is < 60

x(3) = x(3) + 1

'?

Next i

For n = 1 To 3

'Text2( ? ) = x(n)

Next n

End Sub

程序结束

参考答案

第1个？处填入：Avg

第2个？处填入：Is >= 85

第3个？处填入：Is >= 60

第4个？处填入：End Select

第5个？处填入：n - 1