网站地图
【www.arisingsemi.com--软件系统】
标题级别 基础题(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()
ld = True
End Sub
Private Sub Command2_Click()
alic = 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
al = 1000
Case 1
al = 3000
End Select
End Sub
Private Sub Timer1_Timer()
" = 。
.Text + 1
End Sub
程序结束
参考答案
第1个。处填入：Index
第2个。处填入：Text1
Private Sub C1_Click()
d = True
End Sub
Private Sub C2_Click()
d = False
End Sub
步骤
3：调试并运行程序，关闭程序后按题目要求存盘。
简单题(2)
【解题思路】在Command1 Click事件过程中将把考生文件夹下文件中已按升序方式排列的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 & "\" 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：调试并运行程序，关闭程序后按题目要求存盘。
综合题
【解题思路】根据题意，单击"读数据"按钮，将考生文件夹下文件的内容显示在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 & "\" For Input As #1
s = Input(LOF(1), #1)
Close #1
= s
End Sub
Private Sub Command2_Click()
Dim a(26) As Integer
" sl = ?
st = t
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
= + " " + Chr(Asc("A") + i - 1)
End If
Next i
End If
End Sub
程序结束
参考答案
第1个。
处填入：gth
第2个。处填入：a(n) + 1
第3个。处填入：1
第4个。处填入：max_n < a(j)
第5个。
处填入：a(i) = max_n
步骤
3：调试并运行程序，关闭程序后按题目要求存盘。。