在Form1画一个Text1,内容为“VB程序设计”,再画两个命令按钮.docVIP

基础题（1）【考点分析】本题考点有：命令按钮Name、Caption属性，文本框的Name、Text、FontSize属性。 【解题思路】根据题意添加控件并设置相应属性。文本框中文本字体的扩大或缩小由其FontSize属性决定。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.261。 表3.261 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.FontSize = Text1.FontSize * 1.2 End Sub Private Sub Command2_Click() Text1.FontSize = Text1.FontSize / 1.2 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2）【考点分析】本题考点有：列表框的Name、List、Text属性，文本框的Name、Text属性，水平滚动条的Name、Max、Min、Value属性。 【解题思路】根据题意添加控件并通过属性窗口设置相应属性。并在List1_Click事件中将List1.Text分别赋给文本框和滚动条的Value属性 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.262和3.263。 步骤2：编写程序代码。 参考答案 Private Sub List1_Click() Text1 = List1.Text HScroll1.Value = List1.Text End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（1）【考点分析】本题考点有：列表框的List、ListCount属性，MsgBox语句，列表框的AddItem方法和RemoveItem方法，If判断语句。 【解题思路】向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() If Option1.Value = True And Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else If Option2.Value = True And List1.ListIndex = 0 Then List1.RemoveItem List1.ListIndex Else MsgBox 未输入或未选定项目 End If End If End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简答题（2）【考点分析】本题考点有：文本框的Text属性，数据类型，Do……Loop循环语句。 【解题思路】用Do……Loop循环实现对π值的计算，其中用Sign变量来控制正负号，用Result实现公式的迭代。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim Result As Double Dim Sign As Integer Dim i As Integer Result = 0 Sign = 1 i = 1 Do Result = Result + (1 / i) * Sign i = i + 2 Sign = -Sign Loop While 1 / i = 0.0001 Text1.Text = Result * 4 End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题【考点分析】本题考点有：文本框的Text属性，文件操作，Len( )函数，Left( )函数，Mid( )函数，UCase( )函数，+连接符，If判断语句和For循环语句。 【解题思路】本题中，首先通过文件的读取操作将文件in5.txt中的全部文本放入文本框中；利用Mid( )函数取出字符串中的字符，UCase( )函数和Left( )函数将文本框中的每个单词的首字母变为大写字母；最后将文本框的内容保存到out5.txt文件中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 P