vb点虐 中随机文件 vbs随机函数
请问怎么用VB.NET编写一个学生信息管理系统,要求用随机文件,datgridview控件,datatimepicker控件做
我记得网络里有类似的例子datagridview这个控件其实很简单的,去找一下例子一看就明白了。
为祥符等地区用户提供了全套网页设计制作服务,及祥符网站建设行业解决方案。主营业务为网站制作、做网站、祥符网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
VB.NET中 1.存储数字的不同数据类型所需字节数的大小? 2.随机文件写入的基本单位是什么?
1、
Boolean
取决于实现平台
Byte
1 个字节
Char
2 个字节
Date
8 个字节
Decimal
16 个字节
Double
8 个字节
Integer
4 个字节
Long
8 个字节
Object
4 个字节(32 位平台上)
8 个字节(64 位平台上)
SByte
1 个字节
Short
2 个字节
Single
4 个字节
String (变长)
取决于实现平台
UInteger
4 个字节
ULong
8 个字节
用户定义的(结构)
取决于实现平台
UShort
2 个字节
2、
字节
怎么用VB.NET2005编程实现在桌面随机位置显示随机不同的图片,望高手帮忙
Dim Ran1 As New Random()
Public jpgfile As New List(Of Bitmap)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 50
Ran1 = New Random(Date.Now.ToOADate)
For Each i As IO.FileInfo In New IO.DirectoryInfo("I:\我的文档\Images\1280X800").GetFiles("*.jpg")
Dim pic As New Bitmap(i.FullName)
‘ jpgfile.Add(New Bitmap(pic, pic.Size.Width / 8, pic.Size.Height / 8))’将图片同比缩小到8分之一。
Next
Me.BackColor = SystemColors.Control
Me.TransparencyKey = SystemColors.Control
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
‘窗体全屏,并设置无边框窗体。
Timer1.Enabled = True
End Sub
在Timer1_Tick的过程中
Me.CreateGraphics.DrawImage(pic, New Point(x, y))
在窗体的以x、y为左上角位置绘制图片。xy用random随机数随机产生,上下值分别在0-me的大小宽高之间。
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim n As Integer = Ran1.Next(0, jpgfile.Count - 1)
Dim pic As Bitmap = jpgfile(n)
Dim x As Integer = Ran1.Next(50, Me.Size.Width - pic.Size.Width - 50)
Dim y As Integer = Ran1.Next(50, Me.Size.Height - pic.Size.Height - 50)
Me.CreateGraphics.DrawImage(pic, New Point(x, y))
End Sub
《VB.NET》中的“Randomize(x)”和“Rnd(x)”
Rnd[(number)]
number
的值决定了
Rnd
生成随机数的方式
如果
number
的值
Rnd
生成
小于
每次都使用
number
作为随机数种子得到的相同结果。
大于
序列中的下一个随机数。
等于
最近生成的数。
省略
序列中的下一个随机数。
====================
先讨论没有加randomize时
X小于0
如
rnd(-1)
以-1为种的随机数永远相同
X大于0
如
rnd(1)
系统会先生成随机数列表
有N个随机数
你每执行一次rnd(1)就获取列表中下一个随机数
比如有这么个列表
程序开始时
得到0.7055475
执行第二次rnd(1)得到0.533424
第三次0.5795186
你关闭程序重新打开
第一次得到还是0.7055475
.7055475
.533424
.5795186
.2895625
.301948
而你说的X0
X0没差别
是错的
Rnd(1)
Debug.Print
Rnd(-2)
和
Debug.Print
Rnd(-2)
Rnd(1)
结果是不一样的
X等于0
最近生成的数
一般为科学型数值
这个值也是不变的
rnd(x)
省略x不写
就和X0
效果一样
=========================
Randomize
用
number
将
Rnd
函数的随机数生成器初始化,该随机数生成器给
number
一个新的种子值。如果省略
number,则用系统计时器返回的值作为新的种子值。
如果没有使用
Randomize,则(无参数的)Rnd
函数使用第一次调用
Rnd
函数的种子值。
注意
若想得到重复的随机数序列,在使用具有数值参数的
Randomize
之前直接调用具有负参数值的
Rnd。使用具有同样
number
值的
Randomize
是不会得到重复的随机数序列的。
一般在使用rnd获取随机数
都是
randomize
int(rnd*(上限-下限+1)+下限)
这2个函数的X都是省略不写
网页标题:vb点虐 中随机文件 vbs随机函数
链接地址:http://myzitong.com/article/ddedecj.html