(1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的,在窗体上有两个名称分别为Textl和Text2的文本框,一个名称为Commandl,标题为“登录”的命令按钮。其中Textl文本框用来输入用户名,Text2文本框用来

admin2009-08-26  30

问题 (1)在考生文件夹中有工程文件sj3.vbp及其窗体文件sj3.frm,该程序是不完整的,在窗体上有两个名称分别为Textl和Text2的文本框,一个名称为Commandl,标题为“登录”的命令按钮。其中Textl文本框用来输入用户名,Text2文本框用来输入口令,要求在Text2文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置),初始运行时两个文本框均为空。要求程序运行后,输入用户名口令,单击命令按钮后,对口令进行校验。如果输入的内容都是“ABC”这3个大写字母,则用MsgBox信息框输出“正确”,否则输出“错误”,如图18—3所示。
    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。
    (2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。在窗体上有3个名称分别为Checkl、claeck2和check3的复选框,标题依次为“c++”、“Basic”和“JAVA”;有一个名称为Labell,标题为“编程语言”的标签,还有一个名称为Commandl,标题为“显示”的命令按钮。要求程序运行后,如果选择某个复选框,当单击命令按钮时在窗体上输出相应的信息。例如:如果选择“C++”和“JAVA”复选框,单击显示按钮后,将在窗体上显示“我会的编程语言是C++JAVA”,如图18—4所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

选项

答案(1)根据题意,将两个文本框控件和命令按钮添加到窗体中,两个文本框的名称为Textl和Text2,Text2的PasswordChar属性为“*”,命令按钮的名称为Commandl,Caption属性为“登录”。双击Commandl进入代码编辑窗口,编写如下代码: Private Sub Commandl_Click() If Textl.Text="ABC"And Text2.Text="ABC"Then’判断是否都为ABC MsgBox("正确") ’是则弹出“正确”对话框 Else MsgBox("错误") ’否则弹出“错误”对话框 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将3个复选按钮控件、一个标签和一个命令按钮添加到窗体中,标签的Caption属性为“编程语言”,命令按钮的名称为Commandl,Caption属性为“显示”,3个复选按钮控件的名称分别为Checkl、Check2和Check3,Caption属性分别为“C++”、“Basic”和“JAVA”。双击命令按钮进入代码编写窗口,编写如下代码: Private Sub Commandl_Click() Dim str As String str="我会的编程语言是" If Checkl.Value=1 Then’Checkl被选中 str=str+Checkl.Caption End If If Check2.Value=1 Then’Check2被选中 str=str+Check2.Caption End If If Check3.Value=1 Then’Check3被选中 str=str+Check3.Caption End If Print str End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/Nc1p777K
0

最新回复(0)