Question

编一个程序：从1,2,3,4,5,6,7,8,9,10,11.数当中，每隔十分钟，出现五个号码，五

编一个程序：从1,2,3,4,5,6,7,8,9,10,11.数当中，每隔十分钟，出现五个号码，五个号码不能重复。急非常感谢

Answer 1

using System;
using System.Collections.Generic;

class Program
{
static void Main()
{
Random r = new Random();
List<int> l = new List<int>();
for (int i = 0; i < 5; i++)
{
for (;;)
{
int x = r.Next(1, 12);
if (!l.Contains(x))
{
l.Add(x);
break;
}
}
}
int[] a = l.ToArray(); // 这个数组里包含5个1～11不同的随机数
foreach (int x in a)
{
Console.WriteLine(x);
}
}
}

追问

谢谢

Answer 2

是vb吗？

追问

都可以

追答

😂什么时候要

我现在不在宿舍

追问

比较急

你什么时候有时间，我加你微信

追答

。。。。。

这个你用vb很简单就做出来了，我得晚上7点多才行

你还是重新提问，把标签改成vb

追问

谢谢，那你晚上有时间吗，我问了去多人，他们都不会，你能帮助我一下吗，感激不尽

追答

0.0好的

追问

太感谢了

那我晚点在联系你

追答

我帮你提问吧，这样很快就能做好了

追问

太感谢，

追答

窗体加个timer1控件：
Private Sub Form_Load()
Timer1.Interval = "60000" '设置1分钟运行一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Long
n = n + 1
If n >= 10 Then
Call shu
n = 0
End If
End Sub
Private Sub shu() '显示1-11之间5个不同的数字
Dim i As Long, z As Long, m() As Long, s As Long
For i = 0 To 4
zz:
Randomize
z = Int(Rnd * 11) + 1
ReDim Preserve m(i)
For s = 0 To UBound(m)
If z = m(s) Then GoTo zz
Next
m(i) = z
a = a & m(i) & " "
Next
Print a
End Sub

这是vb源码

追问

谢谢

Answer 3

用什么语言有要求么

追问

随便

可以帮下忙吗，感激不尽

最简单最方便的

追答

我怎么发给你

你想让我一个个在手机上敲啊。。。。

追问

我也不太清楚，那应该怎么发，你说一个方式吧

追答

邮箱地址