用VB编写一程序，要求用户输入通过界面输入自己的出生年、月、日，程序计算自该日起往后10000天
Private Sub Command1_Click()
a = Val(Text1.Text) '输入年
b = Val(Text2.Text) '输入月
c = Val(Text3.Text) '输入日
d = Val(Text4.Text) '输入时
Years = Year(Now) - a
Months = Years * 12
Days = Months * 30
Hours = Days * 24
Label1.Caption = "years:" & Years & vbCrLf & "months:" & Months & vbCrLf & "days:" & Days & vbCrLf & "hours:" & Hours & vbCrLf '输出你的结果
End Sub
还能精确到秒……
Public Status, Status2 As Integer, tmp, tmp2, k As Single
Private Sub Command1_Click(Index As Integer)
If Text1 = "0" Then Text1 = ""
Dim i, j As Integer
Select Case Index
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
If k = 0 And Status2 = 1 Then tmp = Text1
If k = 0 Then
Text1 = ""
k = k + 1
End If
Text1.SetFocus
SendKeys Index, True
If Status = 0 Then tmp = Text1
If Status2 = 1 Then tmp2 = Text1
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Case 10
For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = "." Then j = j + 1
Next i
If j = 0 Then
Text1.SetFocus
SendKeys ".", True
End If
Case 11
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Ans
tmp = Text1
tmp2 = 0
SetStatus
Status = 1
Status2 = 1
Case 12
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Ans
tmp = Text1
tmp2 = 0
SetStatus
Status = 2
Status2 = 1
Case 13
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Ans
tmp = Text1
tmp2 = 1
SetStatus
Status = 3
Status2 = 1
Case 14
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Ans
tmp = Text1
tmp2 = 1
SetStatus
Status = 4
Status2 = 1
Case 15
If Status 0 And Status2 = 0 Then tmp = Text1
'PB by Jackiejor tmp; tmp2; Status; Status2; vbCrLf
Ans
Text1 = Val(Text1)
Status2 = 0
Case 16
Text1 = Val("")
tmp = 0
tmp2 = 0
Status = 0
Status2 = 0
End Select
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Command1(i).Caption = i
Next i
Text1 = Val(Text1)
End Sub
Private Sub SetStatus()
Status = 0
k = 0
End Sub
Private Sub Ans()
Select Case Status
Case 0
Exit Sub
Case 1
Text1 = Val(tmp) + tmp2
Case 2
Text1 = Val(tmp) - tmp2
Case 3
Text1 = Val(tmp) * tmp2
Case 4
If Val(Text1) = 0 Then Exit Sub
Text1 = Val(tmp) / tmp2
End Select
End Sub
Private Sub Command1_Click()
Dim s As String, d As Date
s = InputBox("请输入你的出生年月日" & vbCrLf _
& "格式为yyyy-m-d" & vbCrLf & "如：1990-6-5")
If IsDate(s) Then
d = CDate(s)
MsgBox "你的生日是" & d & vbCrLf _
& "这个日期起往后10000天是" & d + 10000 & vbCrLf _
& "今天离这个日期有" & DateDiff("d", Now, d + 10000) & _
"天，合" & DateDiff("h", Now, d + 10000) & "小时"
Else
MsgBox "日期输入错误！"
End If
End Sub
Private Sub Command1_Click()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Long
Dim e As Long
a = Text2.Text & "/" & Text3.Text & "/" & Text1.Text
b = DateAdd("d", 10000, a)
Label1.Caption = "生日10000天后是" & b
c = Date
d = DateDiff("d", c, b)
e = d * 24 - DateDiff("h", Now(), b & " 00:00:00")
Label2.Caption = "还有" & d & "天" & e & "小时"
End Sub
用VB编写一程序，要求用户输入通过界面输入自己的出生年、月、日，程序计算自该日起往后10000天视频
相关评论：
周建垄Private Sub Command1_Click()'登录确认If Text1.Text = "" Then MsgBox "没有输入用户帐号,请输入!", 16, "警告" Exit SubEnd IfIf Text2.Text = "" Then MsgBox "没有输入用户密码,请输入!", 16, "警告" Exit SubEnd IfIf Trim(Text1.Text) <> "123456" Then Ms...
周建垄a = InputBox("请输入a")b = InputBox("请输入b")c = InputBox("请输入c")If a < b Then t = a a = b b = t End If If a < c Then t = a a = c c = t End If If b < c Then t = b b = c c = t End If MsgBox a & " " & b & " " & c, ...
周建垄'编写一个程序用户键盘输入被除数和除数然后计算并输出商。'如果用户输入的除数为0，且被除数为负数，则计算结果为负无穷；'如果输入的除数为0且被除数为正数，则计算结果为正无穷.'用VB方法如下:Sub jissuan()Dim a As Single Dim b As Single a = InputBox("请输入被除数", "输入被除数")b...
周建垄一textbox 一command Private Sub Command1_Click()Dim temp As String temp = Text1.Text For i = 1 To Len(temp)If Mid(temp, i, 1) >= "A" And Mid(temp, i, 1) <= "Z" Then Mid(temp, i, 1) = LCase(Mid(temp, i, 1))ElseIf Mid(temp, i, 1) >= "a" And ...
周建垄Private Sub Command1_Click()me.show Dim x As Long, sum As Long, n As Long n = Val(InputBox("输入N值"))For i = 1 To n x = 1 For j = 1 To i x = x * j Next sum = sum + x Next print sum End Sub 一楼好搞笑 “你给的式子去掉感叹号就是了”...
周建垄我比较喜欢用正则表达式，VB6.0还是第一次用，好久没写VB代码了 '\/\/首先要引用Microsoft VBScript Regular Express 5.5Private Sub Command1_Click() If Trim(Text1.Text) <> "" Then Dim str As String '\/\/处理一下空格 str = Replace(Trim(Text1.Text), " ", "") Dim ...
周建垄End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "123456" Then MsgBox("密码正确！")Else TextBox1.Text = ""MsgBox("密码不正确")End If End Sub End Class 不知道是否满足你的要求。
周建垄我这个可以满足你，今天刚做的！新建一个工程，放两个文本框，连个按钮。文本框记得清空。Dim PassWord As String Dim strYorN As String Dim i As Integer Private Sub Command1_Click()Call SaveSetting(App.Title, Text1.Name, "text", Text1.Text)Call SaveSetting(App.Title, Command1.Name...
周建垄代码如下：Sub Form_Click()a = InputBox(w输入第一个数"> a — Val(a)b = InputBox(w输人第二个数") b = Val(b)c = InputBox("输人第三个数 c = VaKc)d = InputBox(w输人第四个数"） d = Val(d)sum = a + b+ c + d aver = sum \/ 4 ...
周建垄For j As Int16 = i + 1 To 5 If a(i) > a(j) Then tmp = a(i) : a(i) = a(j) : a(j) = tmp Next Next g.DrawString("排序的结果是：" & Join(a, " "), f, Brushes.Black, 10, 40)tmp = ""End Sub End Class '2、使用label显示，这个应该完全可以符合要求。P...
