问答题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框(Image)。并通过属性窗口把考生目录下的图标文件Point11(香蕉图标)装入图像框Image1中,如图1所示。


注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

【参考答案】

[操作步骤]
第1步:建立一个新的标准EXE工程,保持窗体所有属性不变。
第2步:添加一个图片框控件......

(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
热门 试题

问答题
在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Label1的标签,和其他一些控件(如图3所示)。在运行时,若用鼠标左键单击圆的边线,则指针指向鼠标单击的位置(如图4所示);若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图3所示);若鼠标左键和右键单击其他位置,则在标签上显示“鼠标位置不对”。 文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,在程序中的横线处填写正确的内容。程序中函数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 Linel.X1=x0 Line1.Y1=y0 If Button=LEFT_BUTTON Then Line1.X2=X Line1.Y2= (1) Else Line1.X2=Line1. (2) Line1.Y2=y0- (3) End If Label1.Caption= Else (4) = 鼠标位置不对 End If End Sub