注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Text1的文本框,通过属性窗口设置文本框属性,

admin2009-02-25  52

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

选项

答案(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件;将文本框的Text属性设置为空,就可以清除文本框中显示的内容。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表7-1。 [*] 第二步:编写程序代码。 参考代码: Private Sub Cmd1_Click() Text1.Text="" End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件:程序用到的MsgBox函数和InputBox函数。 MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回一个Integer告诉用户单击哪一个按钮。 语法MsgBox(prompt[,buttons][,title][,helpfile,context]) Prompt必需的。字符串表达式,作为显示在对话框中的消息。如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13) & Chr(10))将各行分隔开来。 Buttons可选的。数值表达式是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title,则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。 Input函数返回String,它包含以Input或Binary方式打开的文件中的字符。 语法:Input(number,[#]filenumber) number必要的。任何有效的数值表达式,指定要返回的字符个数。 filenumber必要的。任何有效的文件号。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表7-2。 第二步:编写程序代码。 参考代码: Option Explicit Dim a As String Dim b As String Private Sub Cmdl Click() a=InputBox("输入第一个字符串:", ,"第一个串") b=InputBox("输入第二个字符串:", ,"第二个串") End Sub Private Sub Cmd2_Click() MsgBox a & b,vbOKOnly End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。

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

最新回复(0)