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


网站栏目:vb点虐 中随机文件 vbs随机函数
文章源于:http://scjbc.cn/article/ddedecj.html

其他资讯