文档介绍：第01套基本操作题(新模14)
(1)在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件Point11(香蕉图标)装入图像框Image1中,如图所示。
注意:存盘时必须存放在考生文件夹下,,。
(2)mand1、标题为“保存文件”的命令按钮,monDialog1的通用对话框。要求:
1)通过属性窗口设置适当的属性,使得运行时对话框的标题为“保存文件”,且默认文件名为out2;
2)运行时单击“保存文件”命令按钮,则以“保存对话框”方式打开该通用对话框,如图所示。
注意:要求程序中不能使用变量,每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下,,。
第01套简单应用题(新模14)
(1)。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件(如图1所示)。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图2所示);若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若鼠标左键或右键单击其他位置,则在标签上显示“鼠标位置不对”。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差),是则返回True,否则返回False。符号常量x0、y0是圆心距窗体左上角的距离;符号常量radius是圆的半径。注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
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
= x0
= y0
If Button = LEFT_BUTTON Then
= X
' = ? ***** Y *****
Else
' = Line1.? ***** X1 *****
' = y0 - ? ***** radius *****
End If
= ""
Else
' ? = "鼠标位置不对" ***** *****
End If
End Sub
(2),窗体如图所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8<=n<=12);单击“计算”按钮,则计算1!+2!+3!+…….+n!,并将计算结果显示在文本框中;单击“存盘”按钮,。
文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,并编写“计算”按钮的Click事件过程。注意:不得修改已经存在的内容和控件属性,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。最后把修改后的文件按原文件名存盘。
Dim n As Integer
Private mand1_Click()
n = Val(InputBox("请输入整数(8-12)", "输入"))
' If n > ? Or n < 8 Then ***** 12 *****
MsgBox ("数据错误,请重新输入")