VB 练习题
1.用多项式计算e的近似值
e=1+1/1!+1/2!+.......+1/n!
2.
验证歌德...：一个大偶数可以分解为两个素数之和。试编程将500----1000 的全部偶数表示为两个素数之和
谢谢
不要使用“过程”
自己试着先做
在C 环境下我会！Private Sub Command1_Click()
Dim n As Integer
Dim sum As Double
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim s As Double
p = 1
sum = 1
For i = 0 To n Step 1
j = i
While (j >= 1) ‘ 不知道
p = 1
p = p * j
j = j - 1
Wend
s = 1 / p
sum = sum + s
Next i
Label1.Caption = sum
End Sub
递归
我还迭代呢
JB帖。漂~~~~~~
VB code:
<script language='vbs'>
dim a()
m=4
redim a(m-2)
function recursion(n)
if n=1 then
a(0)=m
for i=1 to m-2
a(i)=(m-i)*a(i-1)
'msgbox "a=" & a(i) & ",i=" & i
next
recursion=a(0)
exit function
end if
b=recursion(n-1)
相关问答：
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
这句话我不太明白，vb源码该怎么做？谢谢
制作一个update.exe专门用来升级，执行这个update的时候，程序使用api函数URLDownloadToFile将http://update.8888.cn/MiniDor/version.ini下载下来，然后与当前版本比较版� ......
