【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB例子源码 - 技术总结，希望对大家有所帮助！

VB例子源码 1.程序需要实现的功能为 1、单击“产生随机数”按钮时随机产生20个2080之间的随机数并显示在List1左边的列表框中。

     2、当单击“从大到小排序”按钮时将从大到小排序的数据显示在List2右边的列表框中。

     3、当单击“写入文件”按钮时将从大到小排序后的数据写入“M:zg.txt”文件中。

     源代码 Option Base 1 Dim a20 As Integer Private Sub Command1_Click For i 1 To 20 ai IntRnd 61 20 List1.AddItem ai Next i End Sub Private Sub Command2_Click For i 1 To 19 For j i 1 To 20 If ai aj Then temp ai ai aj aj temp End If Next j Next i For i 1 To 20 List2.AddItem ai Next i End Sub Private Sub Command3_Click Open App.Path zg.txt For Output As 1 For i 1 To 20 Print 1 ai Next i Close 1 End Sub 2.程序实现的功能 1、程序运行时首先随机产生30个100-3000之间的任意年份并显示在List1中。

     2、当单击”判断”按钮时选出是闰年的年份显示在List2中。

     3、当单击”排序”按钮时将选出的闰年的年份值按从小到大的顺序排序并重新显示在List2中。

     说明判断某一年是否是闰年有两个条件1、能被4整除但不能被100整除2、既能被4整除又能被100整除。

     Option Base 1 Dim a30 As Integer Dim b As Integer Dim n As Integer Private Sub Command1_Click For i 1 To 30 ai IntRnd 2901 100 List1.AddItem ai If ai Mod 4 0 And ai Mod 100 0 Then List2.AddItem ai End If If ai Mod 4 0 And ai Mod 100 0 Then List2.AddItem ai End If Next i n List2.ListCount ReDim bn For i 1 To n bi ValList2.Listi - 1 Next i End Sub Private Sub Command2_Click For i 1 To n - 1 For j i 1 To n If bi bj Then temp bi bi bj bj temp End If Next j Next i List2.Clear For i 1 To n List2.AddItem bi Next i End Sub