Question

VB编程的问题，高手请进

程序实现的功能：
1、程序运行时，首先随机产生30个100～3000之间的任意年份，并显示在L1stl中。
2、当单击“判断”按钮时，选出是闰年的年份，显示在List2中。
3、当单击“排序”按钮时，将选出的是闰年的年份值按从小到大的顺序排序，并重新显示在LIst2中。
说明：判断某一年是否是闰年有两个条件：
①能被4整除，但不能被100整除。
②既能被4整除，又能被400整除。
要给啊

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1 '判断是否是闰年
If Val(List1.List(i)) Mod 4 = 0 And Val(List1.List(i)) Mod 100 <> 0 Or Val(List1.List(i)) Mod 4 = 0 And Val(List1.List(i)) Mod 400 = 0 Then
List2.AddItem List1.List(i)
End If
Next
End Sub

Private Sub Command2_Click()
Dim i, j As Integer
Dim temp
For i = 0 To List2.ListCount - 1 '排序
For j = i To List2.ListCount - 1
If Val(List2.List(i)) > Val(List2.List(j)) Then
temp = List2.List(i): List2.List(i) = List2.List(j): List2.List(j) = temp
End If
Next
Next
End Sub

Private Sub Form_Load()
Dim i, j As Integer
Dim a(1 To 30) As Integer '定义数组用来存放年份
For i = 1 To 30
Randomize
a(i) = Int(Rnd * 2901) + 100 '生成随机年份
For j = 1 To i - 1 '判断生成的年份是否和前面的重复，如果重复就重新生成
If a(i) = a(j) Then
a(i) = Int(Rnd * 2901) + 100
j = 1
End If
Next
List1.AddItem a(i) '把不重复的年份添加到list1
Next
End Sub

Answer 2

我刚刚开始写VB 帮助你写了一个 一些细节的可能没有达到你的要求但是 基本功能都有了 能正常运行 我的QQ是20537174 你可以加我 我发给你

Answer 3

很简单！
但是我现在没有空！

Answer 4

你会不会给分的.最近骗子多啊.