14(香蕉图标)

(1) 【解题思路】通过图片框的Name、Width、Height属性设置图片框的名称、高度、宽度，图像框的BorderStyle属性设置为1，表示图像框有边框，图像框的Name属性设置图像框的名称，通过Picture属性加载考生文件夹下的图标文件。

【操作步骤】 步骤1：建立界面，在窗体中添加一个图片框和一个图像框并设置控件的属性。程序中用到的控件及属性见表3.51。 表3.51

步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第15套第一大题第二小题来进行同类知识点练习。 (2) 【解题思路】通过命令按钮Name、Caption属性设置命令按钮的名称和标题，通过通用对话框Name、FileName、DialogTitle属性设置通用对话框名称，默认文件名和对话框标题，在Command1 Click事件过程中，运用通用对话框ShowSave语句弹出保存对话框。

【操作步骤】 步骤1：新建一个窗体，在窗体中添加一个命令按钮和一个通用对话框，然后设置控件的设置其属性。

程序中用到的控件及属性见表3.52。 表3.52 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() CommonDialog1.ShowSave End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第32套第二大题第二小题来进行同类知识点的练习。

(1)【解题思路】Const 用来设置符号常量，Function oncircle()函数则用来判断鼠标单击的位置是否在圆的边界上，通过调用Function oncircle()函数实现对鼠标单击位置的判断，如果在其他位置，则在标签上显示 "鼠标位置不对"，线条的X1，Y1 ，X2和Y2属性用来确定指针位置和大小，Button的值判断是右键单击还是左键单击，用来确定指针指向。

【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Const y0& = 1110, x0& = 1100, radius& = 750 Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000 If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = True Else oncircle = False End If End Function Private Sub Form_MouseDown(Button As Integer, Shift as Integer, X As Single, Y As Single) Const LEFT BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0 Line1.Y1 = y0 If Button = LEFT BUTTON Then Line1.X2 = X ' Line1.Y2 = ? Else ' Line1.X2 = Line1.? ' Line1.Y2 = y0 - ? End If Label1.Caption = "" Else ' ？ = "鼠标位置不对" End If End Sub 程序结束 参考答案 第1个？处填入：Y 第2个？处填入：X1 第3个？处填入：radius& 第4个？处填入：Label1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第9套第三大题来进行同类知识点的练习。 (2) 【解题思路】在Command1 Click事件过程中通过Val函数和InputBox函数，取得输入对话框中的数值，如果输入的数值不在范围内，那么弹出对话框MsgBox ("数据错误，请重新输入")，并使命令按钮Command2，Command3不可用，Function f()函数则用来实现阶乘的计算，Command2 Click事件过程中，运用循环语句的累加实现表达式求和运算，Command3 Click事件过程通过文件操作实现数据的存盘处理。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim n As Integer Private Sub Command1_Click() n = Val(InputBox("请输入整数(8－12)"， "输入")) ' If n > ? Or n < 8 Then MsgBox ("数据错误，请重新输入") Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End If End Sub Private Sub Command2_Click() Dim s As Long, k As Integer '考生应编写的程序 End Sub Function f(n As Integer) As Long ' s = ? For k = 2 To n s = s * k Next ' f = ? End Function Private Sub Command3_Click() Open App.Path & "\out4.dat" For Output As #1 Print #1, n, Text1 Close #1 End Sub 程序结束 参考答案 第1个？处填入：12 第2个？处填入：1 第3个？处填入：s '考生应编写的程序 s = 0 For k = 1 To n s = s + f(k) Next Text1 = s 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第11套第二大题第二小题来进行同类知识点练习。 【解题思路】因为本题的窗体比较多，含有一个模块，所以首先我们要清晰思路，了解每一个窗体的功能。窗体1是启动界面，可以选择登录或者注册，窗体2是注册窗口实现用户的注册，窗体3是登录窗口实现用户的登录，模块中函数的功能是在数组中寻找用户名，并返回其所在的位置。理清了各个窗体和模块的关系，就可以开始分析编写代码了。

【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Form1 Private Sub Command1_Click() Form2.Text1 = "" Form2.Text2 = "" Form2.Text3 = "" Label1.Caption = "" Form2.Show End Sub Private Sub Command2_Click() Form3.Text2 = "" Label1.Caption = "" Form3.Show End Sub Form2 Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Sub writeusers() ' n = n + ? users(n, 1) = Text1 users(n, 2) = Text2 End Sub Private Sub Command2_Click() If Text1 = "" Then

MsgBox ("必须输入用户名！") Text1.SetFocus ' ElseIf finduser(Trim$(Text1)) > ? Then

MsgBox ("此用户名已经存在！") ElseIf Text2 <> Text3 Then

MsgBox ("口令验证错误！") Else

writeusers ' ? = "注册成功！"

Form2.Hide End If End Sub Form3 Private Sub Command1_Click() k = finduser(Trim$(Text1)) ' If k = ? Then

MsgBox ("没有注册！") ' ElseIf Trim$(Text2) <> users( ? ) Then MsgBox ("口令错误！") Else

Form1.Label1.Caption = "登录成功！" Form3.Hide End If End Sub

程序结束 参考答案 Form2中第1个？处：1 Form2中第2个？处：0 Form2中第3个？处：Form1.Label1 Form3中第1个？处：0 Form3中第2个？处：k, 2

步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第8套第二大题第二小题来进行同类知识点练习。