vb问题帮解决

来源：百度知道 编辑：UC知道 时间：2024/05/17 23:20:20
程序运行后，在窗体中显示系统当前的日期。

窗体上有2个文本框用于输入用户名与密码，当用户名为“zjj”密码为“1234”时窗体中显示“欢迎使用本系统！”，否则显示“用户名或密码错误！”。

编写程序，输出下列图形：
*
***
*****
*******
*********
三角
是三角形。。。奇怪。就是居中型有三角型

有三个问题的呢。。。。

窗体上有2个文本框用于输入用户名与密码，当用户名为“zjj”密码为“1234”时窗体中显示“欢迎使用本系统！”，否则显示“用户名或密码错误！”。

'问题一
Private Sub Command1_Click()
If Text1.Text = "zjj" And Text2.Text = "1234" Then
Print "欢迎使用本系统! "
End If
End Sub

'问题二
Private Sub Command2_Click()
Dim i As Integer
Me.Cls
For i = 1 To 5
Print String(5 - i, " ") & String(2 * i - 1, "*")
Next
End Sub