66问答网
所有问题
当前搜索:
vb生成随机数的代码
VB代码
解答(关于数组排序)
答:
Priate Sub Form_Click()Dim a() As Integer //定义数组,长度不定 n = Val(IputBox("n")) //确定数组输入个数 ReDim a(i To n) As Integer Randomize //语句初始化
随机数生成
器 For i = 1 To n a(i) = Int(Rnd * 101 + 100) //强制转换成整形 Print a(i); ...
VB
中的exit的属性是多少啊?
答:
MyNum = Int(Rnd * 1000) '
生成
一
随机数
码。Select Case MyNum ' 检查随机数码。Case 7: Exit For ' 如果是 7,退出 For...Next 循环。Case 29: Exit Do ' 如果是 29,退出 Do...Loop 循环。Case 54: Exit Sub ' 如果是 54,退出子过程。End Select Next I Loop...
VB
高手进来拿分,解释下
代码
含义
答:
这就是一个猜
数字的
小程序,但是还少了一个 contr 函数,也就是对输入的数字进行处理,然后提示用户正误的,以前玩的文曲星上有这样的小游戏,输入四个数字,按照数字的数值和位置输出几个A(数字对同时位置也对)几个B(数字对但是位置不对)...
怎么获得textbox最后一行内容?
vb
6.0
答:
最好是放在listbox中,方便,如果你非要用textbox,你可以尝试下面
的代码
,文本最后不能有空行,否则会有空白:参考 Private Sub Command1_Click()Dim a Dim i As Integer a = Split(Trim(Text1.Text), vbCrLf)Randomize i = Int(Rnd * (UBound(a) - LBound(a)) + 1) + LBound(a)Prin...
第八题怎么做,谢谢,
vb
里面的
答:
代码
如下:Private Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim RandNumber(0 To 9) As Long '十个随机数Dim MaxNumber As Long '最大数Dim i As LongFor i = 0 To 9 '循环随机数 RandNumber(i) = Int((200 - 100 + 1) * Rnd + 100) '
生成随机数
Print RandNumber(i...
vb
抽奖程序抽中被抽取的人不再显示
的代码
怎么写
答:
Dim i As Integer, x As Integer Const n = 3 'n的值可根据实际需要赋予不同的变量 Private Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Command2_Click()Timer1.Enabled = False End Sub Private Sub Form_Load()Randomize '初始化
随机数生成
器 a(1) = "富士康" '...
vb
.net中把十五个数成三行五列排列怎么写
代码
答:
For j = 0 To 4 '从0算起到4就是5次计数。 A(i, j) = Int(Rnd() * 400 - 200)'
随机生成
一个号码 TextBox1.Text &= A(i, j) & " " '把一行的5个数链接排出来。 Next TextBox1.Text &= vbCrLf '添加换行 Next End SubEnd Class ...
vb
.net 屏幕保护程序
答:
'初始化
随机数生成
器 X = ShowCursor(False)'隐藏鼠标 BackColor =
VB
Black Do Timer2.Enabled = True '启动Timer2 ,显示屏幕保护滚动文字 DoEvents '转让控制权,以便检测鼠标和按键行为 Loop Until quitflag = True '运行屏幕保护滚动文字直至有鼠标和按键行为 Timer2.Enabled = False '终止滚动...
VB
编程题
答:
'2.队列中每人所持的密码
随机
产生,大小必须在[1,x]区间。'3.在程序界面中按出列顺序显示每个人的编号和出列时他所持的密码。'运行效果如图所示?'实现上述功能的
VB
程序如下?请在划线处填入适当的语句和
代码
, 把程序补充完整?Private Sub Command1_Click()Dim a() As Integer, b() As Integer...
关于
VB
程序RND函数的问题
答:
例如:循环外:dim j(0 to 9) as int 循环内:j(i)=j(i)+1 最后的结果是:j数组内的每个元素包含了出现的次数。即:j(0)的值是0出现的次数;j(1)的值是1出现的次数……这样做的好处是:避免了每次
生成
都用if语句进行判断造成的效率低下,并且只需要增加两行
代码
,简洁明快。
棣栭〉
<涓婁竴椤
45
46
47
48
50
51
52
53
54
涓嬩竴椤
灏鹃〉
49
其他人还搜