[问]如何对查询结果进行随机排序?
发布网友
发布时间：2022-06-17 23:32
共2个回答
热心网友
时间：2023-11-23 02:59
<SCRIPT LANGUAGE=VBScript>
<!--
Sub ShowMessage
dim i,intSum,flag,result
intSum=0
result=""
i=3
Do While i<=100
flag=1
j=2
Do While j<=i-1
If i mod j = 0 Then
flag=0
Exit Do
End If
j=j+1
Loop
If flag=1 then
result=result&i&";"
End If
i=i+1
Loop
MsgBox "3到100之间的素数为：" & result
End Sub
call ShowMessage '调用ShowMessage 过程
-->
</SCRIPT></HEAD>
<BODY>
......
</BODY></HTML>
例
<HTML>
<HEAD><TITLE>While循环结构程序举例</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub ShowMessage
dim i,intSum
i=1
intSum=0
While i<=100
intSum=intSum +i
热心网友
时间：2023-11-23 02:59
