请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题为“显示”和“清除”的命令按钮,一个名称为Textl、初始内容为空的文本框,程序运

admin2009-03-26  26

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
  (1)在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题为“显示”和“清除”的命令按钮,一个名称为Textl、初始内容为空的文本框,程序运行时的窗体界面如图52—1所示。要求程序运行后,单击“显示”按钮,则在文本框中显示“模拟考试”,单击“清除”按钮,则清空文本框中的文字。
    注意:在程序中不能使用任何变量。保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.vbp。
    (2)在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题分别为“输入”和“比较大小”的命令按钮,如图52—2所示。要求程序运行后,单击“输入”按钮,可通过输入对话框输入两个数,存人字符串变量a和b中(a和b定义为窗体变量),如果单击“比较大小”按钮,则把两个数进行比较并在信息框中显示出来结果,在程序中不得使用任何其他变量。

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

选项

答案 (1)根据题意,新建“标准EXE”工程,在窗体上添加一个Text控件和两个Command控件,Text的名称为Textl,Text属性为空,Command的名称分别为Commandl和Command2、Caption属性分别为“显示”和“清除”。双击Commandl命令按钮,编写如下代码: Private Sub Commandl Click() Textl.Text="模拟试题" ’显示“模拟试题” End Sub Private Sub Command2 Click() Textl.Text="" ’清空Textl End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE"工程,将两个Command控件添加到窗体上,Command的名称分别为Commandl和Conmand2,Caption属性分别为“输入”和“比较大小”。双击Commandl命令按钮,编写如下代码: Dim a As Integer Dim b As Integer Private Sub Commandl Click() a=Val(InputBox("请输人第一个数")) b=Val(InputBox("请输入第二个数")) End Sub Private Sub Command2 Click() Cls If a>b Then Print a;">";b Else If a 转载请注明原文地址:https://jikaoti.com/ti/GLq0FFFM
0

最新回复(0)