VB 随机生成10个 1-100之间的数。求10数的和

作者: | 日期: 2010 年 09 月 27 日 | 围观: 9876次+ | 没有评论

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim sum As Integer, strpj As Integer
For i = 1 To 10
suiji = Int(100 * Rnd + 1)
Print suiji
a(i) = suiji
sum = sum + a(i)
Next i
Print ,
Text1.Text = sum
End Sub

[……]

继续阅读

VB写的简单登陆框

作者: | 日期: 2010 年 09 月 27 日 | 围观: 5445次+ | 没有评论

 

Private Sub Command1_Click()
Dim name, mima As Single
name = Text1.Text
mima = Val(Text2.Text)

If name = "abc" And mima = 123456 Then

MsgBox "登陆成功", vbOKOnly, "恭喜你。。"
Else

MsgBox "登录失败", vbOKOnly, "提示"
Text1.SetFocus

End If

E[……]

继续阅读

第 1 页，共 1 页1