有关VB循环问题 - VB / 基础类
1、随机生成1-100的十个数，并且将他们打印出来。代码如下：
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
For i = 0 To 9
a(i) = Int(100 * Rnd(i)) + 1
Print a(i)
Next i
End Sub
这个时候输出的结果是正确的，但是For-Next使用DO-WHILE来代替的时候，输出的十个数全部都为0了，这是为什么呢？代码如下：
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
Do While i < 10
a(i) = 100 * Rnd + 1
i = i + 1
Print a(i)
Loop
End Sub
2、此外，我想要计算20! ，那么定义变量数据类型的时候应该定义成什么样的数据类型？我定义成了Long，但是启动的时候还是提示溢出错误。
VB code:
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer
Do While i < 10
a(i) = 100 * Rnd + 1
Print a(i)
i = i + 1
Loop
End Sub
你的i=i+1放在前面结果每次输出的都是下一个数字，而下一个数字是还没有生成的，当然全是0啊！！！
第二个问题，20！=2432902008176640000绝对超过long的范围了。VB里面long最大只有2147483647。换成Double类型吧。
以下摘自MSDN：
Long 数据类型
Long（长整型）变量存储为 32 位（4 个字节）有符号的数值形式，其范围从 -2,147,483,648 到 2,147,483,647。Long 的类型声明字符为和号 (&)。
Double 数据类�
相关问答：
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
求个vb中的sql语句的写法，次sql语句的用法是分页程序
我写的如下：其中A是用来接收每页显示的记录的条数，B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
