第一次上机任务.docVIP

1、 设计如上图所示的程序界面。要求在文本框输入姓名（如：张小三），单击“显示”按钮，则显示“张小三，欢迎进入VB世界！” 。单击“退出”按钮结束该程序。 控件事件过程代码如下（把程序拷贝到相应的控件事件过程里并读懂）： Private Sub Command1_Click() Label2.Caption = Text1.Text + “，欢迎进入VB世界！” End Sub Private Sub Command2_Click() End End Sub 2、 启动VB6.0，创建一个工程文件，界面设计和运行效果如上图所示。当单击“请输入你的姓名是”按钮时，则把已在上面文本框里输入的姓名显示在下面的Label2控件里。 控件事件过程代码如下（把程序拷贝到相应的控件事件过程里并读懂）： Private Sub Command1_Click() Label3 = Text1 End Sub 3、 编写一个人民币与美元兑换的程序，界面设计如上图所示。 要求：通过输入兑换比率与人民币或美元金额，单击相应命令按钮显示兑换结果。（人民币和美元符号可通过软键盘输入） 控件事件过程代码如下（把程序拷贝到相应的控件事件过程里并读懂）： Private Sub Command1_Click() Text1 = Text2 = Text3 = End Sub Private Sub Command2_Click() Text3 = Val(Text1) / Val(Text2) End Sub Private Sub Command3_Click() Text1 = Val(Text3) * Val(Text2) End Sub Private Sub Command4_Click() End End Sub 4、 编写一程序，界面设计如上图所示，在文本框中统计在该窗口上单击鼠标的次数。 控件事件过程代码如下（把程序拷贝到相应的控件事件过程里并读懂，请注意这里的控件对象不再是Command而是Form，事情也不再仅是Click，而是Load。请仔细体会有什么不同）： Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub 5、 设计一个滚动文字的程序，界面设计如图所示，“欢迎使用VB”这行文字在具有背景图案的窗体自上而下移动。 移动两种方法：手动和自动，当单击自动按钮时，这行文字自上而下移动，内容超出窗体,进行重复滚动；单击一次手动按钮，自上而下移动单位距离。 设计思路： 在窗体上使用标签Label对象来存放文字; 利用Timer控件来自动触发移动; 利用单击按钮来手动触发移动. 控件事件过程代码如下（把程序拷贝到相应的控件事件过程里并读懂）： Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() ‘手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Command2_Click() 自动 Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left, Label1.Top + 50 If Label1.Top Form1.Height Then Label1.Top = 0 End Sub