在Form1添加一个标签(标题为“输入信息”)一个文本框

基础题(1)【解题思路】根据题意，须在命令按钮的Click事件过程中，将标签和文本框的Visible属性值设置为False，并用Print方法将文本框的内容输出到窗体上。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.99。

表3.99

步骤2：编写程序代码。

参考答案

Private Sub Command1_Click()

Form1.Print Text1.Text

Label1.Visible = False

Text1.Visible = False

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】FontSize属性可用来设置文本框中字体的大小。Value属性用于设置滚动条滑块的当前位置值，当滚动框的位置改变时，触发Change事件。

【操作步骤】

步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.100。

表3.100

步骤2：编写程序代码。

参考答案

Private Sub HScroll1_Change()

Text1.FontSize = HScroll1.Value

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1)【解题思路】

通过InpatBox函数接收用户输入信息，在"添加项目"单击事件过程中，运用AddItem方法添加列表框内容，在"删除项目"单击事件中运用RemaneItem方法移除列表框内容。

【操作步骤】

步骤1：打开本题工程文件，添加一个名称为List1列表框和一个名称为Text1文本框，然后建立一个菜单，其属性见表3.101。

表3.101

步骤2

程序提供代码

Private Sub Add_Click()

Text1.Text = InputBox("请输入要添加的项目")

'List1.AddItem ?

End Sub

Private Sub Delete_Click()

Text1.Text = InputBox("请输入要删除的项目")

'For i = 0 To ?

'If List1.List(i) = ? Then

'List1.RemoveItem ?

End If

Next i

End Sub

程序结束

参考答案

第1个？处填入：Text1.Text

第2个？处填入：List1.ListCount - 1

第3个？处填入：Text1.Text

第4个？处填入：i

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(2) 【解题思路】本题在For循环语句中，应使用CInt函数将数组arr1中每个元素的数据类型转换为整型，并赋给数组arr2具有相同下标的元素。变量temp记录的是4个文本框中输入数据的平均值，显示在窗体标题栏中。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Option Base 1

Private Sub Sort(a() As Integer)

Dim Start As Integer, Finish As Integer

Dim i As Integer, j As Integer, t As Integer

'Start =？(a)

'Finish = ？(a)

'For i = ? To 2 Step -1

'For j = 1 To ?

'If a(j) ? a(j + 1) Then

t = a(j +1)

a(j + 1) = a(j)

a(j) = t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim arr1

Dim arr2(4) As Integer

arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

For i = 1 To 4

arr2(i) = CInt(arr1(i))

Next i

Sort arr2()

Text1.Text = arr2(1)

Text2.Text = arr2(2)

Text3.Text = arr2(3)

Text4.Text = arr2(4)

End Sub

程序结束

参考答案

第1个？处填入：LBound

第2个？处填入：UBound

第3个？处填入：4

第4个？处填入：3

第5个？处填入：>

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题

【解题思路】本题需编写"读入数据"、" 计算并输出"和"存盘"命令的单击事件过程。在"读数"命令的单击事件过程中，通过调用ReadData过程将数据从in5.txt文件读入数组Arr(窗体变量)中；在"计算"命令的单击事件过程中，在For循环语句(循环变量i的初值为1，终值为100)中依次将数组Arr中大于等于50的元素的值显示在文本框中，并将其值累加到变量sum；在"保存"命令的单击事件过程中，通过调用WriteData过程将Sum的值写入数据文件out5.txt。

【操作步骤】

步骤1：打开本题工程文件，利用菜单设计器，按表3.83中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表3.102和表3.103。

表3.102

步骤2

程序提供代码

Option Base 1

Dim Arr(100) As Integer

Sub ReadData()

Open App.Path & "\" & "datain1.txt" For Input As #1

For i = 1 To 100

Input #1, Arr(i)

Next i

Close #1

End Sub

Sub WriteData(Filename As String, Num As Integer)

Open App.Path & "\" & Filename For Output As #1

Print #1, Num

Close #1

End Sub

程序结束

参考答案

Private Sub Calc_Click()

Text1.Text = ""

For i = 1 To 100

If Arr(i) >= 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5)

sum = sum + Arr(i)

Next i

Print sum

End Sub

Private Sub Read_Click()

ReadData

End Sub

Private Sub Save_Click()

WriteData "dataout.txt", sum

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。