为Form1上加一个标签(Label1,标签为空白,BorderStyle属性为1,Visible属性为False).docVIP

基本题(1)【解题思路】文本框的Text属性用于设置文本框中显示的文本。标签的Caption属性可设置其标题。Visible属性用于设置控件或菜单项在程序运行时是否可见。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表3.104和表3.105。 表3.104 控件 标签 属性 Name Caption BorderStyle Visible 设置值 Label1 1 FALSE 表3.105 控件 文本框 命令按钮 属性 Name Text Name Caption 设置值 Text1 Command1 显示 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1.Visible = True Label1.Caption = Text1.Text Text1.Visible = False End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基本题(2) 【解题思路】通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。 文本框的高度和宽度分别由其Height属性值和Width属性值设定。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.106。 步骤2：编写程序代码。 参考答案 Private Sub HScroll1_Change() Text1.Height = HScroll1.Value Text1.Width = 1.2 * Text1.Height End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。在删除项目单击事件中，For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。 【操作步骤】 步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.107。 表3.107 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Click() If Option1.Value = True Then 　　　　Text1.Text = InputBox(请输入要添加的项目) 　　　　List1.AddItem ? End If If Option2.Value = True Then 　　　　Text1.Text = InputBox(请输入要删除的项目) 　　　　For i = 0 To ? 　　　　　　If List1.List(i) = ? Then 　　　　　　　　List1.RemoveItem ? 　　　　　　End If 　　　　Next i End If End Sub 程序结束 参考答案 第1个？处填入：Text1 第2个？处填入：List1.ListCount - 1 第3个？处填入：Text1.Text 第4个？处填入：i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound 函数用于返回数组某一维的最大下标(上界)，LBound 函数用于返回数组某一维的最小下标(下界)。 在本题Sort过程中，源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。 【操作步骤】 步骤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