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

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.153和表3.154。步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.155和表3.156。 表3.155控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值Command1粗体Command2斜体 表3.156控件文本框属性NameTextAlignmentFontSize设置值Text1程序设计2三号字步骤2：编写程序代码。参考答案Private Sub Command1_Click() Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click() Text1.FontItalic = TrueEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】根据题意，在计时器的Timer事件中控制文本框中数字的显示。并在Select Case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的Interval属性值。在开始和停止命令按钮的单击事件过程中分别启动和停止计时器。为使计时器在初始状态下不计时，还需在设计时将其Enabled属性值设置为False。【操作步骤】步骤1：打开本题工程文件，计时器的Enabled属性设置为False。步骤2：分析并编写程序代码。程序提供代码Private Sub Op1_Click(Index As Integer)Select Case ?Case 0Timer1.Interval = 1000Case 1Timer1.Interval = 3000End SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = ？.Text + 1End Sub程序结束参考答案第1个？处填入：Index第2个？处填入：Text1Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click()Timer1.Enabled = FalseEnd 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 IntegerPrivate Sub Command1_Click()Dim k As Integern = 60Open App.Path & in4.dat For Input As #1For k = 1 To nInput #1, a(k)Text1 = Text1 + Str(a(k) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox(请输入一个数)End SubPrivate Sub Command3_Click()For i = 1 To n读数据事件过程中已给出n的初值 If num = ? Then Exit ForNext iIf ? ThenMsgBox 该数不存在于数组中，不能执行删除操作！Elsen = n - 1 For j = i To ? a(j) = ?NextEnd IfText1 = 以下程序段将执行删除操作后的数组a重新显示在Text1中For k = 1 To ?Text1 = Text1 + Str(a(k) + Space(2)Next kEnd Sub程序结束参考答案第1个？处填入：a(i)第2个？处填入：n i第3个？处填入：n第4个？处填入：a(j + 1)第5个？处填入：n步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】根据题意，单击读数据按钮，将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2 Click事件过程中，运用SelLength 属性判断文本框中是否有字符被选中，如果SelLength属性为0，那么弹出MsgBox对话框请先选择文本！。 Mid函数用于提取选中文本中的每一个字符，并将其在26个字母中的顺序赋值给n, a(n)数组通过累加得出每个字母出现的次数，通过For循环语句和If选择判断语句判断，如果a(i) max n，则该出现次数最多的字母以大写形式显示在Text2文本框内。UCase函数用于将小写字母转化为大写字母使统计不区分大小写字母。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim x As String, max n As IntegerPrivate Sub Command1_Click()Open App.Path & in5.dat For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click() Dim a(26) As Integer sl = ? st = Text1.SelText Text2 = If sl = 0 Then MsgBox 请先选择文本 Else For i = 1 To slc = Mid(st, i, 1)If c Thenn = Asc(UCase(c) - Asc(A) + 1a(n) = ?End If Next i max n = a(1): n = 1 For j = ? To 26If ? Thenmax n = a(j)End If Next j For i = 1 To 26If ? ThenText2.Text = Text2.Text + + Chr(Asc(A