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

基础题(1) 【解题思路】ControlBox属性：确定程序运行时是否在窗体上显示控件菜单栏，MaxButton属性：确定标题栏是否显示最大化按钮，MinButton属性：确定标题栏是否显示最小化按钮。

【操作步骤】
步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.153和表3.154。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】根据题意，在单击命令按钮事件过程中，通过设置FontBold和FontItalic属性，使文本框的内容显示为粗体格式或斜体格式。

【操作步骤】
步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.155和表3.156。

表3.155
表3.156
步骤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 = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To n'"读数据"事件过程中已给出n的初值
'If num =? Then Exit For
Next i
'If ? Then
MsgBox "该数不存在于数组中，不能执行删除操作！"
Else
n = n - 1
'For j = i To ?
'a(j) = ?
Next
End If
Text1 = ""
'以下程序段将执行删除操作后的数组a重新显示在Text1中
'For k = 1 To ?
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End 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 1
Dim x As String, max n As Integer
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
' sl = ?
st = Text1.SelText
Text2 = ""
If sl = 0 Then
MsgBox "请先选择文本"
Else
For i = 1 To sl
c = Mid(st, i, 1)
If c <> " " Then
n = Asc(UCase(c)) - Asc("A") + 1
'a(n) = ?
End If
Next i
max n = a(1): n = 1
'For j = ? To 26
'If ? Then
max n = a(j)
End If
Next j
For i = 1 To 26
'If ? Then
Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End If
Next i
End If
End Sub
程序结束
参考答案
第1个？处填入：Text1.SelLength
第2个？处填入：a(n) + 1
第3个？处填入：1
第4个？处填入：max_n < a(j)
第5个？处填入：a(i) = max_n
步骤3：调试并运行程序，关闭程序后按题目要求存盘。