用VB编写一个小程序

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text.Text = "Visual Basic程序设计"唯仔冲

Command1.Caption = "指歼结束"

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

a = Form1.Width - Command1.Left

b = Form1.Height - Command1.Top

End Sub

Private Sub Form_Resize()

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

Command1.Left = Form1.Width - a

Command1.Top = Form1.Height - b

End Sub

注意，各变戚神量名，控件名保持一致,你题目中的文本框名称为text

按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口闹罩孙，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为黄色背景。 最后保存程序，单击液链“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是.frm的应用程序窗体，然后是.vbp的闷早工程文件。

简单粗运猛

下面是全部代码：

'在form1上添加一个CommandButton，命名为Command1

'把文本框的PasswordChar属性设为*

Option Explicit

Private Sub Command1_Click()

If cspw.Text = "z1z1z1z1" Then

Shell "C:\program files\CS1.6\cstrike.exe", vbNormalFocus

Unload Me

Else

MsgBox "密码错误！", vbCritical, "提示"

cspw.Text = ""

cspw.SetFocus

End If

End Sub

Private Sub cspw_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

Command1_Click

End If

End Sub

在VB程序中显示时间：

label1.caption = time$

补充：

那你就再添加一个Label控件，在cspw下面，把悄宏msgbox那一句替岩桥换成Label1.Caption = "密码错误！"就可以了

---