VB程序设计的项目报告

Integer Dim N As Integer, I As Integer, T As Integer Dim StrT As String, J As Integer, Flg As Boolean Randomize For I=1 To5N=0 Do While N<7 T= Int(31 * Rnd) +1 Flg = False For J=1 ToN If A(J) =T Then Flg = True: Exit For Next If Not Flg Then N=N+ 1: A(N) =T Loop StrT = "" For J=1 To7 StrT = StrT & A(J) &"" Next List1.AddItem StrT Next 三、详细的设计首先, 定义一些字母为变量, 使赋值号得到两边的数据类型要一致,就要进行强制的转换。该程序中多处使用到 for …… next 语句来定义变量的范围得到结果, 再者就是应用了 Select Case 分情况语句进行多种情况来设置进行分析, 得到最大值和最小值, 还有就是运用了 red 函数进行函数的运算, 使用条件语句 if …… the n 结构来得到最大值和最小值, 和上面通过 red 函数建立联系。四、效果及存在的问题当 F5 运行时就会出现一个提示的对话框“请输入要选择的期数”提示窗口输入了期数就会产生多组的随机数,这种使用起来清楚明了, 功能简单一般都可以使用, 不过当输入字母是系统也会运行产生多组的随机数, 还有就是程序的功能也过于少。五、心得及体会根据这学期的学习,利用课本上的知识,同时通过网上浏览代码, 综合起来就能够写一些简单的程序, 我觉得这些就可以了, 毕竟我们不是专业的学习, 系统的学习。能够在有限的时间里做出自己的程序其实自己也欣感高兴, 毕竟是自己动手,自己独立完成的。