為Form1,标题为“标签”的窗体上,添加一个名称为Label1,内容为“计算机等级考试”.docVIP

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.153和表3.154。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.155和表3.156。 表3.155 控件 命令按钮1 命令按钮2 属性 Name Caption Name Caption 设置值 Command1 粗体 Command2 斜体 表3.156 控件 文本框 属性 Name Text Alignment FontSize 设置值 Text1 程序设计 2 三号字 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Text1.FontBold = True End Sub Private Sub Command2_Click() Text1.FontItalic = True End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval属性值。在开始和停止命令按钮的单击事件过程中分别启动和停止计时器。为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。 【操作步骤】 步骤1：打开本题工程文件，计时器的Enabled属性设置为False。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Op1_Click(Index As Integer) 　Select Case ? 　　　　Case 0 　　　　　　Timer1.Interval = 1000 　　　　Case 1 　　　　　　Timer1.Interval = 3000 End Select End Sub Private Sub Timer1_Timer() 　Text1.Text = ？.Text + 1 End Sub 程序结束 参考答案 第1个？处填入：Index 第2个？处填入：Text1 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(2) 【解题思路】在Command1 Click事件过程中将把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A，每个数值之间通过Space函数空两格个，通过Str函数和＋连接符显示在Text1中。在Command2 Click事件过程中，通过InputBox函数弹出输入框接收用户输入的任意一个数。在Command3 Click事件过程中，通过If语句首先判断输入的数n是否存在于A数组中，若不存在，则弹出MsgBox对话框该数不存在于数组中，不能执行删除操作！，若存在，则将该数从数组A中删除，将删除数值后面的数组值前移，并把新数组的内容重新显示在Text1中。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer, num As Integer, n As Integer Private Sub Command1_Click() Dim k As Integer n = 60 Open App.Path \in4.dat For Input As #1 For k = 1 To n 　　　　Input #1, a(k) 　　　　Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() num = In