Question

求VB大神看一下代码怎么写！~

第一题.根据下图运行结果完成代码，使得单击验证按钮时，如果text1中输入的密码为“123qwe”，那么在标签3中显示“密码正确！”，反之显示“密码错误！”

Private Sub Command1_Click( )

End Sub
第二题.根据下图界面，设置各控件属性，并完成代码编写。

1. 用代码将窗体上标题栏中显示文本设置为“字体放大与缩小”

2.单击放大按钮，标签1中的文字会变大一倍，则代码应该是

3.结束按钮下的代码应该是

第三题. 设计一个模拟开奖程序，开始中奖号码开始为空，当单击开奖按钮后，随机产生一个7位数中奖号码。根据运行效果，完成下面代码

Private Sub Command1_Click()Dim i, a As【1】 Text1.Text= ""For i = 1 To 7 Randomizea =【2】 Text1.Text =【3】 Next iEnd Sub





Answer 1

看了下，全是基础的知识，代码要按上面要求的写。
你只要看下书，全是最最基础的知识，如果连这个都不会，真不知道你接下去的应该怎么办。
不是不帮你，而是要告诉你，学到的才是自己的，如果有代码不明白，我们可以帮你，但根本不想学。。。

Answer 2

Private Sub Command1_Click()
If Text1.Text = "123qwe" Then
    Label3.Caption = "密码正确！"
Else
    Label3.Caption = "密码错误！"
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "输入密码>>"
Label2.Caption = "验证结果>>"
Label3.Caption = ""
Text1.Text = ""
Command1.Caption = "验证"
End Sub