有关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 数据类�
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
