这段程序什么意思啊.我知道上半部分是在1-30之间产生7个不重复的随机数,下面那部分是将这七个数排序,但从dim j%之后我不知道什么意思,求教.Private Sub Command3_Click()Dim myarray(1 To 7) As Integermyarr
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/06 12:39:05
这段程序什么意思啊.
我知道上半部分是在1-30之间产生7个不重复的随机数,下面那部分是将这七个数排序,但从dim j%之后我不知道什么意思,求教.
Private Sub Command3_Click()
Dim myarray(1 To 7) As Integer
myarray(1) = Int(Rnd() * 30) + 1
Dim i%, n%
For i = 2 To 7
myarray(i) = Int(Rnd() * 30) + 1
For n = 1 To i - 1
Do While myarray(i) = myarray(n)
myarray(i) = Int(Rnd() * 30) + 1
n = 1
Loop
Next n
Next i
For i = 1 To 7
Print myarray(i);
Next i
Print
Dim j%
For i = 1 To 30
For j = 1 To 7
If i = myarray(j) Then
Print i;
End If
Next j
Next i
Print
End Sub
Dim j%
For i = 1 To 30
For j = 1 To 7
If i = myarray(j) Then
Print i;
End If
Next j
Next i
Print
这段代码看起来就是把那7个随机数由小到大的打出来
这段程序什么意思啊.我知道上半部分是在1-30之间产生7个不重复的随机数,下面那部分是将这七个数排序,但从dim j%之后我不知道什么意思,求教.Private Sub Command3_Click()Dim myarray(1 To 7) As Integermyarr
速度,这是上半部分
请问大家这段程序里的G10 Y0 什么意思 是Fanuc 数控车床的
上半部分是山字,下半部分是高,念什么?
一个罄上半部分下面一个香什么意思
esay safe driver not found是什么意思?电脑安装程序,出现这段英文,不知道什么意思,麻烦解决一下
问个字哈~上半部分是繁体的龙,下半部分是天,这是什么字啊~
蠡字 上半部分读什么?
I see what you mean 这段句子内容是我知道你的意思.这里what除了什么意思I see what you mean这段句子内容是我知道你的意思.
共字上半部分念什么?也就是去掉底下两个点.我在游戏中看到有这个字.
卤字去掉上半部分换成一点念什么啊?
电压的正弦波形图,上半部分与下半部分各表示什么意思?
对于User .Identity .IsAuthenticated请问这一串什么意思,读c#程序时不知道怎么分析?我自己在msdn中查到user是属性,但为什么后面又跟identity等?
第三段中“凝固了的历史”的实际意思是什么?这是在八年级上册第四课和他有光的一篇阅读,我不知道叫什么,知道者速回!
我公司有台机器里面有部分程序是黄色的.这样用黄色来区别有什么意思?怎么样才可以这样做出这种...我公司有台机器里面有部分程序是黄色的.这样用黄色来区别有什么意思?怎么样才可以这
滚动程序是啥意思?在自定义开始菜单里有个“滚动程序”的选项,请问是啥意思啊?知道的告诉下,
寻字的上半部分的意思
matlab中的abs有什么作用我知道abs有取绝对值的意思,但在这个程序里面明显是取对应asc码得意思,什么情况?if c>='A'&c='a'&c='0'&c