问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
问答题
在名称为Form1、标题为“图片”的窗体上画一个名称为Image1的图像框，其高为2500、宽为2000。请通过属性窗口设置适当属性，装入考生目录下的图片文件pic1.jpg，并使图片适应图像框的大小(如图1所示)。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
【正确答案】[操作步骤]
第1步：新建一个标准EXE工程。
第2步：设置窗体属性。将窗体的Caption值改为“图片”。因新建窗体的默认名称即为本题要求的名称，故保持窗体的Name属性值Form1不变。
第3步：在窗体上画一个图像框，在属性窗口中将Height属性设为2500，将Width属性设置为2000，将Stretch属性设置为True。单击Picture属性，再单击其后的
第1步：新建一个标准EXE工程。
第2步：设置窗体属性。将窗体的Caption值改为“图片”。因新建窗体的默认名称即为本题要求的名称，故保持窗体的Name属性值Form1不变。
第3步：在窗体上画一个图像框，在属性窗口中将Height属性设为2500，将Width属性设置为2000，将Stretch属性设置为True。单击Picture属性，再单击其后的
【答案解析】[解析] 本题主要考查窗体和图像框的属性。重要的属性是图像框的Stretch属性，其作用是决定是否调整图形的大小以适应图像控件。本题中要求图片适应图像框的大小，因此应将该属性的值设为True。
问答题
在名称为Form1的窗体上画一个名称为Label1.Caption属性值为“口令”的标签；画一个名称为Texl1的文本框；再画3个命令按钮，名称分别为Command1、Command2、Command3，Caption属性值分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行时，在Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”(如图2所示)；单击“显示口令”按钮，则显示输入的字符(如图3所示)，单击“重新输入”按钮，则清除Text1中的内容，并把光标定位到Text1中。
[*]
[*]
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[*]
[*]
要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”、“隐藏口令”按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】[操作步骤]
第1步：新建一个标准EXE工程。
第2步：建立控件。按照题目要求在窗体上建立1个标签控件、1个文本框控件和3个命令按钮控件。按表1设置各控件属性。
第3步：编写程序。在代码编写窗口中编写如下3个事件过程代码：
Private Sub Command1_Click()
Text1.PasswordChar=""
End Sub
Private Sub Command2_Click()
Text1.PasswordChar="*"
End Sub
Private Sub Command3_Click()
Text1.Text=""
Text1.SetFocus
End Sub
第4步：调试、运行并保存工程。
第1步：新建一个标准EXE工程。
第2步：建立控件。按照题目要求在窗体上建立1个标签控件、1个文本框控件和3个命令按钮控件。按表1设置各控件属性。
表1
|
Private Sub Command1_Click()
Text1.PasswordChar=""
End Sub
Private Sub Command2_Click()
Text1.PasswordChar="*"
End Sub
Private Sub Command3_Click()
Text1.Text=""
Text1.SetFocus
End Sub
第4步：调试、运行并保存工程。
【答案解析】[解析] 文本框的PasswordChar属性用来设置是否在控件中显示用户输入的字符。如果该属性设置为某一字符，那么无论Text属性值是什么，在文本框中都只显示该字符。将文本框的Text属性设为空字符串可以达到清空文本框的目的，运用SetFocus方法可使文本框获得焦点。