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

基础题(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 = 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：调试并运行程序，关闭程序后按题目要求存盘。

展开阅读全文