有关VB语言程序设计

'//请将以下的文件保存为一个Form1frm文件，这样你就可以在VB6中运行了,正是你想要的程序。

VERSION 500

Begin VBForm Form1

Caption = "登陆"

ClientHeight = 2190

ClientLeft = 60

ClientTop = 345

ClientWidth = 4635

LinkTopic = "Form1"

ScaleHeight = 2190

ScaleWidth = 4635

StartUpPosition = 3 '窗口缺省

Begin VBTextBox Text2

Height = 375

IMEMode = 3 'DISABLE

Left = 1560

PasswordChar = ""

TabIndex = 1

Top = 600

Width = 1935

End

Begin VBTextBox Text1

Height = 375

Left = 1560

TabIndex = 0

Text = "SYL"

Top = 120

Width = 1935

End

Begin VBCommandButton Command2

Caption = "登陆"

Default = -1 'True

Height = 495

Left = 1560

TabIndex = 2

Top = 1320

Width = 1215

End

Begin VBCommandButton Command1

Caption = "退出"

Height = 495

Left = 3000

TabIndex = 3

Top = 1320

Width = 1215

End

Begin VBLabel Label2

AutoSize = -1 'True

Caption = "口令"

Height = 180

Left = 480

TabIndex = 5

Top = 840

Width = 360

End

Begin VBLabel Label1

AutoSize = -1 'True

Caption = "用户名"

Height = 180

Left = 480

TabIndex = 4

Top = 240

Width = 540

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

If Text1Text = "SYL" And Text2Text = "123456" Then

MsgBox "欢迎登录", vbInformation

Else

MsgBox "不正确的用户名或密码", 16

End If

End Sub

使用表达式求解的程序，即可你输入一个表达式字符串例如“3x+5”(乘号在编程里不能省略)，然后通过程序分析这个字符串（程序非常复杂，要用到分析字符串、还要用到堆栈），做其中各种运算最后给出结果。x可作为参数。

我有现成的类模块（自己编的），非常好使，支持你说的代入x的，不过因为是我的心血你的分太少了，如果多给一些分你若需要可以给我发邮件我发给你 我邮箱yichuha@sinacom

加入此类后，工程中添加此类即可用下面的代码方便求值：

Dim a as New clsCacuExp 'clsCacuExp是我编的类模块名字

aAddParam "[x]", 0, 0 '为表达式添加一个参数，可添加许多许多参数

aPrecDouble = False '若=true 为 用 Double 精度否则用 Single 精度

aExpression =text1text 'text1text 中应写："3[x]+5" 设置表达式

aSetParam 1, val(text2text), 0 'text2text中直接写x的值

If Not aCacuExpression Then '用此语句计算表达式，若成功返回True

'计算不成功，可用下面语句返回出错原因并定位到表达式字符串的位置上

Text3 = aErrDescription

Text1SelStart = aErrPos - 1

Text1SelLength = 1

Text1SetFocus

Else

'计算成功，用 aResultValueSng 或 aResultValueDbl 获得计算结果

Text3 = aResultValueSng

'Text3 = aResultValueDbl '若用 Double 精度，必须使用 aResultValueDbl 返回结果

End If

另：你那个程序不能用，因为它没有做任何 *** 作，只简单地把text1text的内容转换为数值返回

Private Function F(ByVal a#)

x = a '此句在函数中无用，因为函数中后面没有用到x

F = Val(Text1Text) '这只是字符串转换为数值，若字符串中有不是数值的字符将转换为0，若开头有数字中间有其他字符，则转换到字符位置之前。如“3x+5”转换后为“3”，“x+5”转换后为0，都转换到第一个不适数值的位置为止，其他内容不看

End Function

Private Sub Form_Activate()

'1年期225%，2年期243%，3年期为270%，5年期为288%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 00225, x2 As Double = 00243, x3 As Double = 0027, x5 As Double = 00288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a c b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

Private Sub Cal_Click()

dim Mydate,Nowdate as Date

Mydate = DateValue(sheets(1)cells(1,1)Value)

Dim n, m As Long

Nowdate = Date

n = -DateDiff("d", Nowdate, Mydate)

m = -DateDiff("d", Nowdate, Mydate)  24

MsgBox ("已出生" & n & "天，总计" & m & "小时")

private

sub

command1_click()

label1caption

=

"年龄"

text1text

=

"你的年龄"

end

sub

private

sub

form_load()

meshow

command1caption

=

"修改"

form1caption

=

"你的学号+姓名"

label1caption

=

"姓名"

text1text

=

"你的姓名

"

end

sub

Private Sub Command1_Click()

Text3Text = Val(Text1Text) 07 + Val(Text2Text) 03

End Sub

Private Sub Text1_Change()

If Val(Text1Text) > 100 Or Val(Text1Text) < 0 Then

MsgBox "不能大于100，不能小于0,请重新输入"

Text1Text = ""

End If

End Sub

Private Sub Text2_Change()

If Val(Text2Text) > 100 Or Val(Text1Text) < 0 Then

MsgBox "不能大于100，不能小于0,请重新输入"

Text2Text = ""

End If

End Sub

以上就是关于有关VB语言程序设计全部的内容，包括:有关VB语言程序设计、VB程序的设计、vb程序设计实例等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！