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没差别

是错的

Print

Rnd(1)

Debug.Print

Rnd(-2)

和

Debug.Print

Rnd(-2)

Print

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都是省略不写