易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 随机函数

双重随机 怎么写  就是随机出了一个数 然后拿这个数座开头再随机一遍
比如 1到10之间 随机 第一次以1开头10结尾 随机出一个7 第二次就是以7开头6结尾再随机一遍
那位可以帮个忙 先谢谢了
6结尾 这个什么规则？-1？
引用
6结尾 这个什么规则？-1？

纯粹随机~别想太复杂
random(10)& random(10)
不知道可以不
VB code:
Private Sub Command1_Click()
Dim dblT1 As Double
Dim dblT2 As Double
Dim dblT As Double

Randomize
dblT1 = Int(Rnd(1) * (10 - 1) + 1)
dblT2 = Int(Rnd(1) * (10 - 1) + 1)
dblT = Int(Rnd(1) * (dblT1 - dblT2) + dblT2)
Debug.Print dblT1 & " " & dblT2 & " " & dblT

End Sub

VB code:
Option Explicit

Private Sub Command1_Click()
Dim intP As Integer
intP = CInt(Rnd * 10)
intP = intP - Rnd
Debug.Print intP
End Sub


不知楼主所云啊！
    Dim dblT1 As Double
    Dim dblT2 As Double
    Dim dblT As Double
   
    Randomize
    dblT1 = Int(Rnd(1) * (10 - 1) + 1)
    dblT2 = Int(Rnd(1) * (10 - 1) +


相关问答：

vb写的程序编译后,运行若出错,如何知道到在哪一行?

vb写的程序编译后,运行若出错,如何知道到在哪一行?

按Ctrl+F5预编译，出错时会跳转到错误行

不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.

我编译后在我的电脑上运行没问题,但� ......

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......

多个顶点缓存vb的操作

共有4个示例顶点缓存InstanceVB1，InstanceVB2,InstanceVB3，InstanceVB4，它们的值都是通过一个循环进行赋值，请问可以如下操作吗，怎么操作效率最高？

InstanceVB1->Lock（...);
InstanceVB2->Loc ......

vb循环

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号