重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
增加一个模块
创新互联公司专业为企业提供萨嘎网站建设、萨嘎做网站、萨嘎网站设计、萨嘎网站制作等企业网站建设、网页设计与制作、萨嘎企业网站模板建站服务,十多年萨嘎做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
module mgrmdi
public mdifather as form=nothing
public mdison as integer=1
public sub OpenNewSon(byref SonForm as form)
___sonform.mdiparent=mdifather
___sonform.text=string.format("子窗体{0}",mdison.tostring)
___sonform.show
___mdison+=1
end module
在mdi父窗体启动时
sub form_load()
mdifather=me
end sub
加载子窗体使用
sub button1_click()
dim newform as new formson
OpenNewSon(newform)
end sub
方法名称:next();功能描述:返回一个0~2147483647之间的整数
方法名称:next(i);功能描述:返回一个0~i之间的整数
方法名称:next(i,j);功能描述:返回一个i~j之间的整数
方法名称:Nextdouble();功能描述:返回一个0~1之间的随机小数
================
使用方法:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rand = New System.Random()
MsgBox(rand.next().ToString())
End Sub
==========================
产生N个不同数的话,我给你个我写的VB的代码,你稍微改下:
产生0-10的数:
Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n + 1))
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
++ 是 c#的用法
vb.net vs c# 详细的Operators运算符区别
vb.net
=====================
Comparison
= = =
Arithmetic
+ - * /
Mod
\ (integer division)
^ (raise to a power)
Assignment
= += -= *= /= \= ^= = = =
Bitwise
And Or Xor Not
Logical
AndAlso OrElse And Or Xor Not
Note: AndAlso and OrElse perform short-circuit logical evaluations
String Concatenation
c#
=====================
Comparison
== = = !=
Arithmetic
+ - * /
% (mod)
/ (integer division if both operands are ints)
Math.Pow(x, y)
Assignment
= += -= *= /= %= = |= ^= = = ++ --
Bitwise
| ^ ~
Logical
|| | ^ !
Note: and || perform short-circuit logical evaluations
String Concatenation
+