大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}
创新互联网站建设由有经验的网站设计师、开发人员和项目经理组成的专业建站团队,负责网站视觉设计、用户体验优化、交互设计和前端开发等方面的工作,以确保网站外观精美、成都网站设计、做网站、成都外贸网站建设公司易于使用并且具有良好的响应性。
Dim p1 As Integer
Random r = new Random();
int p1 = k(r.Next(5)) '随机出现0~5之间的数。
Private Sub Command1_Click()
Randomize
no = 0
Do While no = 100
a = Int((9999 - 1000 + 1) * Rnd + 1000)
no = no + 1
a1 = Int(a / 1000)
a = a - a1 * 1000
a2 = Int(a / 100)
a = a - a2 * 100
a3 = Int(a / 10)
a4 = a - a3 * 10
If a1 a2 And a1 a3 And a1 a4 And a2 a3 And a2 a4 And a3 a4 Then
MsgBox "随机产生一个四位数是" a1 a2 a3 a4
no = 101
End If
Loop
End Sub
Label1.Text =a(i,j) " "
相当于
Label1.Text = Label1.Text a(i,j) " "
1。不能,语法问题。
2。“ ”中包含的是空格,这句话相当于将数组a中的所有数据罗列出来,空格是分隔符,没有它数据就连在一起了,你没法区分了!