Question

关于VB的几道编程题 谢谢帮忙·

1-4：在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图1所示）。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上（如图2所示），使两个按钮重合。

1-5：在名称为Form1的窗体上画一个命令按钮，名称为Command1，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行是，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。

在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300，宽均为800。如图所示。
请在属性窗口中设置适当属性满足以下要求：
1） 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；
2） 在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。

1-7：在名称为Form1的窗体上画一个名称为Lab的标签，设置高度为450，宽度为1500，标签上显示内容为“标签”。要求程序运行后，若双击窗体则执行语句Lab.Caption=“双击”，若单击窗体则执行语句Lab.Caption=“”。

1-8：在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。

1-9：在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。

1-10：在名称为Form1的窗体上画一个名称为L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有
初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”。在开始运行时，向Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在Text1中显示所有字符，再单击“以隐藏口令”后，Text1中的字符不变，但显示的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
1） 在属性窗口中，把窗体的标题改为“口令窗口”；
2） 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

麻烦大家把过程写一下··

Answer 1

1-4：在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图1所示）。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上（如图2所示），使两个按钮重合。

private sub cmd1_click()
cmd2.move cmd1.left,cmd1.top,cmd1.width,cmd1.height
end sub

1-5：在名称为Form1的窗体上画一个命令按钮，名称为Command1，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行是，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。

private sub command1_click()
command1.left = command1.left - 100
end sub

在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300，宽均为800。如图所示。
请在属性窗口中设置适当属性满足以下要求：
1） 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；
2） 在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。

1)点击窗体，属性里面设置Caption为确认，设置MaxButton=False，MinButton=False
2)点击“是”按钮（c1），设置Default=true
点击“否”按钮（c2），设置cancel=true

1-7：在名称为Form1的窗体上画一个名称为Lab的标签，设置高度为450，宽度为1500，标签上显示内容为“标签”。要求程序运行后，若双击窗体则执行语句Lab.Caption=“双击”，若单击窗体则执行语句Lab.Caption=“”。

private sub form_click()
lab.caption = ""
end sub

private sub form_dblclick()
lab.caption = "双击"
end sub

1-8：在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。

private sub command1_click()
me.caption = text1.text & text2.text
end sub

1-9：在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。

private sub command1_click()
print text1.text

label1.visible = false
text1.visible = false
end sub

1-10：在名称为Form1的窗体上画一个名称为L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有
初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”。在开始运行时，向Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在Text1中显示所有字符，再单击“以隐藏口令”后，Text1中的字符不变，但显示的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
1） 在属性窗口中，把窗体的标题改为“口令窗口”；
2） 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

1)点击窗体，设置窗体的Caption为口令窗口，设置text1的passwordchar属性为*
2)
private sub c1_click()
text1.passwordchar=""
end sub

private sub c2_click()
text1.passwordchar="?"
end sub

private sub c3_click()
text2.text = text1.text
end sub

Answer 2

还真有不嫌分少的

Answer 3

题多分少。多一点自然很多人帮你做