问答题

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1、标题为“图片”的窗体上画一个名称为Image1的图像框，其高为2500、宽为2000。请通过属性窗口设置适当属性，装入考生目录下的图片文件pic1.jpg，并使图片适应图像框的大小(如图1所示)。

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

【参考答案】

[操作步骤]
第1步：新建一个标准EXE工程。
第2步：设置窗体属性。将窗体的Caption值改为“......

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

<上一题目录下一题>

热门试题

问答题

在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 [题目提供的源程序] Dim stepy As Integer ’纵向移动增量 Dim stepx As Integer ’横向移动增量 Const LEFT_BUTTON=1 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer radius=Shape1.Width 2 ’圆的半径 If Button=LEFT_BUTTON Then x0=Shape1.Left+radius ’圆心的x坐标 y0=Shape1.Top+radius ’圆心的y坐标 If x=x0 Then stepy=Sgn(y-y0)*50 stepx= (1) Else a=(y-y0) (x-x0) ’斜率 stepx=Sgn(x-y0)*50 (2) =a * stepx If Abs(stepy)＞Abs(stepx) Then stepy=Sgn(y-y0)*50 stepx=stepy a End If End If (3) =True Else (4) =False End If End Sub Private Sub Timer1_Timer() Shape1.Move Shape1.Left+stepx, Shape1.Top+ (5) End Sub

问答题

在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 [题目提供的源程序] Private Sub Command1_Click() Dim n As Integer Cls (1) =InputBox( 请输入一个整数 ) Print 因子数= ; fun(n) End Sub Function fun(m As Integer) Dim s As Integer s=0 For k=1 To Abs(m) 2 If m Mod k= (2) Then s=s+1 Print k End If Next k (3) End Function

相关试题