为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