问答题

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

【参考答案】

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

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

问答题
在考生文件夹下有一个工程文件sjt5.vbp,其中含3个窗体,标题分别为“启动”、“注册”、“登录”,运行时显示“启动”窗体,单击其上的按钮时将弹出对应窗体以进行注册和登录。 注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。 注册时用户名不能重复,且“口令”与“验证口令”须相同,注册成功则在“启动”窗体的标签中显示“注册成功”,否则显示相应错误信息。登录时,检验用户名和口令,若正确,则在“启动”窗体的标签上显示“登录成功”,否则显示相应的错误信息。 标准模块中函数finduser()的功能是:在users数组中搜索用户名(即参数ch),找到则返回该用户名在users中的位置,否则返回0。 已经给出了所有控件和程序,但程序不完整,在Form2、Form3窗体文件中的横线处填写正确的内容。 注意:不得修改已经存在的程序和控件的属性,最后程序按原文件名存盘。 [题目提供的源程序] 1.标准模块源程序 Option Base 1 Public users(10,2) As String Public n As Integer Public Function finduser(ch As String) As Integer For k=1 To 10 If users(k,1)=ch Then finduser=k Exit Function End If Next k finduser=0 End Function 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 3.Form2源程序 Private Sub Command1_Click() Text1= Text2= Text3= End Sub Sub writeusers() n=n+ (1) users(n,1)=Text1 users(n,2)=Text2 End Sub Private Sub Command2_Click() If Text1= Then MsgBox( 必须输入用户名! ) Text1.SetFocus ElseIf finduser(Trim $ (Text1))> (2) Then MsgBox( 此用户名已经存在! ) ElseIf Text2<>Text3 Then MsgBox( 口令验证错误! ) Else writeusers (3) = 注册成功! Form2.Hide End If End Sub 4.Form3源程序 Private Sub Command1_Click() k=finduser(Trim $ (Text1)) If k= (4) Then MsgBox( 没有注册! ) ElseIf Trim $(Text2) <> users( (5) ) Then MsgBox( 口令错误! ) Else Form1.Label1.Caption= 登录成功! Form3.Hide End If End Sub