急求VB答案！！！多少分都行！！！！

来源：百度知道 编辑：UC知道 时间：2024/09/18 05:22:54
一、简单应用
1．新建工程，在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示"WWB"，如图1-1所示；再建立一个名称为Cmd1，标题为"清除"的命令按钮。编写适当的事件过程，要求程序运行后，如果单击"清除"命令按钮，则清除文本框中所显示的信息。
注意：在考生文件夹下新建一个名为“JDYY-1”的文件夹，将窗体文件和工程文件保存在该文件夹下。
图 1-1
2．新建工程，在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个字符串，存入字符串变量a和b中（a和b定义为窗体变量），如果单击"连接"按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来，在程序中不得使用任何其他变量。
注意：在考生文件夹下新建一个名为“JDYY-2”的文件夹，将窗体文件和工程文件保存在该文件夹下。
回答上述及以下链接问题答案，发到ysyvsxj@sohu.com.
多少分都行!大家会的帮帮忙！！！！重谢！！！！
http://hi.baidu.com/freestyle午后阳光/blog 看这里！！！

1:

Private Sub Cmd1_click()
Text1=""
End Sub
2:
dim a,b as string
Private sub Cmd1_click()
a=inputbox("输入a")
b=inputbox("输入b")
End sub
Private sub Cmd2_clcik()
if a="" or b= "" then call Cmd1_click()
Msgbox a & vbcrlf & b
End sub

1:
Private Sub Cmd1_click() '清除
Text1=""
End Sub
2:
dim a,b as string
Private sub Cmd1_click() '输入
a=inputbox("输入a")
b=inputbox("输入b")
End sub
Private sub Cmd2_clcik() '连接
if a="" or b= "" then call Cmd1_click()
Msgbox a & b
End sub

给你发到邮箱了。