在Form1上添加两个标签[标签分别为“书名”“作者”].docVIP

基础题(1) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。 标签和命令按钮的标题由各自的Caption属性来设置，文本框显示的内容由Text属性设置，窗体的标题由其Caption属性来设置。在Visual Basic中可以用＋或运算符将两个字符串连接起来。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.93和表3.94。 表3.93 控件标签1标签2属性NameCaptionNameCaption设置值Label1书名Label2作者表3.94 控件文本框1文本框2命令按钮属性NameNameNameCaption设置值Text1Text2Command1显示步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Form1.Caption = Text1 + , + Text2 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。 窗体的大小由其Width和Height属性设置，分别决定窗体的宽和高；用滚动条的值来设置窗体的宽和高，只要将窗体的Width属性和Height属性与滚动条的Value相关联即可。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.95和表3.96。 步骤2：编写程序代码。 参考答案 Private Sub HScroll1_Change() Form1.Width = HScroll1.Value End Sub Private Sub VScroll1_Change() Form1.Height = VScroll1.Value End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】keyPreview属性用于设置或获取一个值，该值只是判断按键事件传递到具有焦点的控件前，窗体是否将接收此事件，判断按键是否按下可以在窗体的KeyDown事件中进行，用Chr函数将按键代码转换成字符并与给定字符进行比较。使用AddItem方法可以向列表框中添加列表项目，使用RemoveItem方法可以从列表框中删除列表项目。 【操作步骤】 步骤1：打开本题工程文件。设置窗体的KeyPreview属性为True添加一个列表框名称为List1的和一个名称为Text1的文本框。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form KeyDown(KeyCode As Integer, Shift As Integer) If Chr(KeyCode) = A Then 　　　　Text1.Text = InputBox(请输入要添加的项目) 　　　　List1.AddItem ? End If If Chr(KeyCode) = D 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.Text 第2个？处填入：List1.ListCount-1 第3个？处填入：Text1.Text 第4个？处填入：i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】文本框里的内容(包括数字)默认情况下都是当作字符串来处理的，如果要参与数据运算则需先用Val函数将其转化为数值类型。这里需要指出的是，利用Array函数对数组各元素赋值，声明的数组只能是Variant类型，数组的上下界可用UBound和LBound函数获得， LBound函数返回数组的下界，而UBound函数返回数组某一维的上界值，这两个函数一起使用即可确定一个数组的大小。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Function Average(a() As Integer) As Single Dim Start As Integer, Finish As Integer Dim i As Integer Dim Sum As Integer Start = ？(a) Finish = ？(a) Sum = ? For i = Start To Finish 　　　　Sum = Sum + ? Next i