在Form1上画一个Combo1的组合框,其宽度为1200,其类型如图所示(简单组合框).docVIP

基础题（1）【考点分析】本题考点有：组合框的Name、Width、Style、List属性和窗体的MaxButton、MinButton属性。 【解题思路】通过将MaxButton、MinButton属性值设置为False使窗体标题栏上不显示最大化和最小化按钮。 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.159。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题（2） 【考点分析】本题考点有：文本框的Name属性和SetFocus方法，命令按钮的Name和Caption属性。 【解题思路】文本框的名称由其Name属性设置；命令按钮的名称和标题由其Name和Caption属性设置。要将光标置于所需要的文本框可用获得焦点的SetFocus方法。 【操作步骤】 步骤1：建立界面，添加并设置控件的属性。程序中用到的控件及属性见表3.160。 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.SetFocus End Sub Private Sub Command2_Click() Text2.SetFocus End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（1） 【考点分析】本题考点有：单选按钮的Caption、Value属性，单选按钮数组，If判断语句和For循环语句。 【解题思路】单选按钮的标题由其Caption属性设定；在窗体上添加一个单选按钮控件，通过对单选按钮控件的复制产生单选按钮控件数组，其Index不同。单选按钮的Value属性值为False或True决定该单选按钮是否被选中。 【操作步骤】 步骤1：打开本题工程文件，在窗体上添加一个单选按钮控件组Option1，程序中用到的控件及属性见表3.161。 表3.161 控件 单选按钮组 单选按钮1 单选按钮2 单选按钮3 单选按钮4 属性 Name Caption Index Value Caption Index Caption Index Caption Index 设置值 Option1 选项1 0 True 选项2 1 选项3 2 选项4 3 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() For k = 0 To 3 If Option1(k).Value Then n = k End If Next k Option1(n).Value = False n = n + 1 If n = 4 Then n = 0 End If Option1(n).Value = True End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题（2） 【考点分析】本题考点有：组合框的List、ListIndex属性，命令按钮的Caption属性，Left( )函数，Right( )函数，Mid( )函数，Select Case语句。 【解题思路】用Select Case语句来表示选择列表框不同的值。 Left( )函数表示取字符串左边的n个字符；Right( )函数表示取字符串右边的n个字符； Mid( )函数的语法为：Mid( 字符串,p,n)，表示从位置p开始取字符串的n个字符。 【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序代码。 程序提供代码 Dim is_num As Boolean Private Sub Command1_Click() Dim tmpStr As String * 50 Select Case Combo1.ListIndex Case 0 tmpStr = Left(Trim(Text1.Text), 3) Case 1 tmpStr = Right(Trim(Text1.Text), 3) Case 2 tmpStr = Mid(Trim(Text1.Text), 3, 4) End Select Text2.Text = tmpStr End Sub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 综合题 【考点分析】本题考点有：文件操作，数据类型和数组，Val( )函数，For循环语句，文本框的Text属性以及命令按钮的Cl