求解两道vb题

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:36:10
1.输入月和日，计算这一天是一年的第几天，提示：每个月的天数可以用一个整数组保存
2.让用户输入5个数字，然后按照从大到小的顺序输出。

Private Sub Command1_Click()
'计算日期
Dim s As Date, Firstday As Date
s = CDate(InputBox("输入日期 (格式 年-月-日)", , "2008-1-1"))
Firstday = CDate(CStr(Year(s)) & "-1-1")
MsgBox "该日是一年中的第 " & CStr(DateDiff("d", Firstday, s) + 1) & " 天。"
End Sub

Private Sub Command2_Click()
'第二题
Dim i As Integer, j As Integer, Data(1 To 5) As Double, t As Double
For i = 1 To 5
Data(i) = Val(InputBox("输入第 " & CStr(i) & " 个实数：", , "100"))
Next i
For i = 1 To 4
For j = i + 1 To 5
If Data(i) > Data(j) Then
t = Data(i)
Data(i) = Data(j)
Data(j) = t
End If
Next j
Next i
For i = 1 To 5
Me.Print Data(i) & " ";
Next i
Me.Pr