66问答网
所有问题
当前搜索:
vb随机生成十个数
用
vb
怎样
生成10个
不重复的(1到10)
随机数
答:
dim a(1 to
10
)for i=1 to 10 a(i)=rnd*10+1 next i
用
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~10不同的
10个随机数
答:
可以先让第一
个数随机产生
,然后判断后面随机产生的数与前一个不同,如果不同就输出...
vb
程序中 输出
10个
[10,99]范围内
随机
整数用“
生成
”按钮, 用“统计...
答:
添加两个控件名字分别为sc、tj的按钮。'定义一个窗体数组变量 dim a(
10
) as integer '
生成
是个
随机数
private sub sc_click()'下面这一句可以得到不同的随机数 randomize '不用这一句也可以,不影响效果 for i=1 to 10 a(i)=int(rnd*90+10)next i end sub '统计随机数奇偶数
个数
private...
vb生成10个
两位
随机数
,求出其中最大值、最小值、平均值
答:
Private Sub Command1_Click() Cls Randomize (Timer) Min = 100: Max =
10
For i = 1 To 10 n = Int(Rnd(i) * 90 + 10) Print n; If n < Min Then Min = n If n > Max Then Max = n s = s + n Next i Print Print "Max="; Max Print...
vb
编写一个程序,
随机生成十个
两位数保存到一维数组中,把该数组的各元素...
答:
Text = Join(N, " ")End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Command1.Caption = "
产生
"Command2.Caption = "反序"Command3.Caption = "退出"Label1.Caption = "产生数组"Label2.Caption = "反序存放"Text1.Text = ""Text2.Text = ""End Sub ...
vb随机产生10个
[100,999],范围内的随机整数存入数组
答:
Randomize Dim a(9) As Integer For i = 0 To 9 a(i) = Int(Rnd * (999 - 100 + 1) + 100)Next Randomize Dim a(9) As Integer For i = 0 To 9 a(i) = Int(Rnd * (999 - 100 + 1) + 100)Next 这为老兄的方法还可以,你试试,不行再联系我 ...
vb
编写程序利用
随机
函数rnd
生成十个
10-99之间的整数并分别求出偶数与...
答:
Sub t()Dim i奇数 As Integer i奇数 = 0 Dim i偶数 As Integer i偶数 = 0 Dim allNumber As String Dim iTemp As Integer For i = 1 To
10
iTemp = Rnd * 90 + 10 If i > 1 Then allNumber = allNumber & ","End If allNumber = allNumber & iTemp If iTemp Mod 2 = 0 ...
VB
如何
生成随机数
答:
3、双击该命令按钮,这里演示输入代码打印0~
10
之间的任意随即整数,
生成
其他范围的
随机
整数公式为“int((上限-下限+1)*Rnd+下限)”,如果是1到53就是“int((1-53+1)*Rnd+53”:4、写完之后运行程序,每单击一次命令按钮,就会在窗体上打印一个0~10之间的随即整数:
vb
编写一个程序,
随机生成十个
两位数保存到一维数组中,把该数组的各元素...
答:
= Int(Rnd * 90 +
10
) & " " b = b & a '
生成
保存 c = a & c '反序保存 NextText1 = bEnd SubPrivate Sub Command2_Click() '反序 Text2 = Left(c, 29) 'left清除多次记忆数End SubPrivate Sub Command3_Click() '退出 EndEnd Sub ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜