从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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中的所有数据罗列出来,空格是分隔符,没有它数据就连在一起了,你没法区分了!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图