请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个名称为Textl的文本框,通过属性窗口设置文本框属性,在文本框中显示“模拟试题”,再建立一个名称为Commandl,标题为“清空”的按

admin2009-08-26  44

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

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

选项

答案 (1)命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件;将文本框的Text属性设置为空,就可以清除文本框中显示的内容。 根据题意,将一个文本框控件和一个命令按钮添加到窗体中,将文本框的名称设为Textl、Text属性为“模拟试题”,命令按钮的名称设为Commandl、Caption属性为“清空”,设置完成后双击Commandl进入代码编写窗口,编写以下代码: Private Sub Commandl_Click() Textl.Text="" End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查MsgBox函数和InputBox函数的使用。 MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回一个Integer告诉用户单击哪一个按钮。其格式为:MsgBox(prompt[,buttons][,title][,helpfile,conText])。prompt是必需的字符串表达式,作为显示在对话框中的消息。如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。其它参数均是可选的。 Input函数返回String,它包含以Input或Binary方式打开的文件中的字符。其格式为:Input(number,[#]filenumber)。number是必要的。可以是任何有效的数值表达式,指定要返回的字符个数。Filenumber是必需的。可以是任何有效的文件号。 根据题意,将两个命令按钮添加到窗体中,将其名称分别设为Commandl和Command2、Caption属性分别为“输入”和“连接”。双击Commandl进入代码编写窗口,编写以下代码: Option Explicit Dim a As String Dim b As String Private Sub Commandl_Click() a=InputBox("输入第一个字符串:","第一个串") b=InputBox("输入第二个字符串:","第二个串") End Sub Private Sub Command2_Click() MsgBox a&b.vbOKOnly End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/2Qq0FFFM
0

最新回复(0)