在form1,标题为“测试”的窗体上添加一个名称为frame1、标题为“字体”的框架

基础题(1) 【解题思路】首先通过窗体的Caption属性设置窗体的标题，其次通过框架的Name和Caption属性设置框架的名称和标题，最后通过单选按钮的Name和Caption属性设置命令按钮的名称和标题。

【操作步骤】

步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.120。

表3.120

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

基础题(2) 【解题思路】FillStyle属性用于返回/设置一个形状控件的填充样式。Shape属性用来设置形状控件的形状，0：矩形(默认设置),1：正方形，2：椭圆，3：圆，4：圆角矩形，5：圆角正方形。

【操作步骤】

步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表3.121和表3.122。

表3.121

步骤2：编写程序代码。

参考答案

Private Sub Command1_Click()

Shape1.FillStyle = 3

End Sub

Private Sub Command2_Click()

Shape1.FillStyle = 2

End Sub

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

简单题(1)【解题思路】String(个数，字符)函数用于返回含指定个数字符的字符串，其中的字符可以是字符码或字符；ASC(字符串)函数用于返回字符串首字符的ASCII码值。本题关键是计算同一字母大小写ASCII码值的差值，由于小写字母的ASCII码值大于大写字母的ASCII码值，差值表达式应为：n% ＝ASC("a") －ASC("A")。对于小写字母的ASCII码应减去这个差值以获得其大写字母；对于大写字母的ASCII码则应加上这个差值以获得其小写字母。

【操作步骤】

步骤1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.123。

表3.123

步骤2

程序提供代码

Private Sub C1_Click()

Dim a$, b$, k%, n%

a$ = ""

'n% = Asc("a") - Asc( ? )

For k% = 1 To Len(Text1.Text)

b$ = Mid(Text1.Text, k%, 1)

If b$ >= "a" And b$ <= "z" Then

b$ = String(1, Asc(b$) - n%)

Else

If b$ >="A" And b$ <="Z" Then

'b$ =String(1, Asc(b$) ? )

End If

End If

a$ =a$ +b$

Next k%

' Text1.Text =?

End Sub程序结束

参考答案

第1个？处填入："A"

第2个？处填入：+n%

第3个？处填入：a

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

简单题(2) 【解题思路】根据题意通过文件操作和For循环语句，把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A，并运用"＋"连接符将其显示在Text1中；在Command2 Click 事件过程中，InputBox函数弹出一个输入对话框，接收用户输入的任意一个整数，赋值给变量n；

在Command3 Click事件过程中，将输入的数与数组中的数值进行比较，把n插入到A数组中

合适的位置，并通过For循环语句将插入后的数组A重新显示在Text1中，使其仍保持A数组的升序排列。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dim a(100) As Integer, num As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in4.dat" For Input As #1

For k =1 To 60

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 60

'If num < a(i) Then ?

Next i

'For j =60 To i ?

'a(j +1) =

Next j

'？=num

Text1 =""

'以下程序段将插入后的数组A重新显示在Text1中

'For k =1 To ?

Text1 =Text1 +Str(a(k)) +Space(2)

Next k

End Sub

程序结束

参考答案

第1个？处填入：Exit For

第2个？处填入：Step -1

第3个？处填入：a(j)

第4个？处填入：a(i)

第5个？处填入：61

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

综合题

【解题思路】单击"读数据"按钮，将考生文件夹下in5.dat文件的内容读到变量s中；