88问答网
所有问题
vb中,怎样在标签上产生10个随机数
求解答:并且同时显示出来
举报该问题
推荐答案 2018-05-02
dim i as integer
for i=1 to 10
label1.caption=label1.caption & str(int(rnd*100))
next
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://88.wendadaohang.com/zd/VgVtttStVBcagtKgSV.html
相似回答
用
vb怎样
生成
10个
不重复的(1到10)
随机数
?
答:
vb
生成
10个
不重复的
随机数
代码:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
VB中,随机产生10个
0~100之间的
随机数
,按从小到大的顺序排列
怎么
做...
答:
新建一个form1添加command1添加label1label1高度设的稍高一点,以显示数据。form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量 Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer '
产生随机数
Randomize For i = 0 To 9 a(i) = CInt(Rnd(...
vb
生成
10个随机数,
且在1~50之间
答:
创建一个数组,A(50),把数字1~50,存在相应的数组中,让后根据
随机数
的值,交换对应下标的数组存放的值,最后把数组的前
10个
数保存,或是输出即可,这样就不会出现重复值,也可简化算法。 抢首赞 1 已赞过 已踩过< 评论 分享 微信扫一扫 新浪微博 QQ空间 举报 收起 其他类似问题2018-04-10
VB怎么
写随机生...
VB产生10个
[1,100]的
随机数
答:
假设
标签
Label1 文本框Text1 Text2 Text3 Text4 统计按钮Command1 窗体代码 Option Explicit Private Sub Command1_Click()Dim Vs() As Long, Ls() As String, fo As Long, Vc As Long Dim Max As Long, Min As Long, e As Double,t as long ReDim Vs(Len(Label1))Ls = Split(Label...
vb产生10个
不同
随机数
答:
用数组来保存
产生
的随机数,每产生一个随机数就跟已经产生的随机数进行比较,如果跟已经产生的随机数中的一个相同的话就重新产生一
个随机数,
直到跟已经产生的所有随机数都不相同为止。Private Sub Command1_Click()Dim a(1 To
10
) As Integer Dim i As Integer Dim j As Integer Me.Cls Randomiz...
VB
编程:利用随机函数
产生10个
30到50范围内的
随机数,
显示他们的最大值...
答:
Private Sub Command1_Click()Dim a(
10
) As Integer Dim i, j, t, max, min As Integer Label1.Caption = ""Label2.Caption = ""sum = 0 For i = 0 To 9 a(i) = 20 * Rnd() + 30 Label1.Caption = Label1.Caption + vbCrLf + CStr(a(i))Next max = a(0): min = a...
vb中
生成
10个随机数
并显示在屏幕上
答:
将以下代码输入事件中即可 :Randomize '防止每次生出随机数一样 for i=1 to 10 '生成
10个
Print Int(Rnd * 99) + 1 'rnd()生成[1,100]之间的
随机数,
int()是取整 next
用
VB
编写可连续生成
十个
0至100之间的
随机
整数
答:
建一个按钮,两个label控件:private sub command1_Click()dim i as integer dim rInt as integer dim s1 as string dim s2 as string s1=""s2=""for i= 1 to
10
Randomize rInt=int(rnd() * 100)s1=s1 & cstr(rInt)if rInt mod 2 =0 then s2=s2 & cstr(rInt)end if next i ...
大家正在搜
vb随机生成1到100随机数
vb随机生成10个不同的随机数
vb产生10到100的随机数
vb中如何产生随机数
vb生成10个随机数
vb每次产生的随机数都一样
vb随机产生不重复的n个数
vb重新产生随机数
vb产生随机数的代码
相关问题
vb 如何使产生的十个随机数全部显示出来
VB产生10个[1,100]的随机数
用vb怎样生成10个不重复的(1到10)随机数
vb中生成10个随机数并显示在屏幕上
VB编程产生100个[10,99]的随机数
vb中,如何产生10-100内不重复的10个随机数?
vb 编程 如何利用随机函数产生15个10到90的奇数组成的...
vb 在label中随机产生10以内的加减乘除怎么做