求一道vb题的答案,求代码
计算π 的近似值，π 的计算公式为：2× 22／1×3 × 42／3×5 × 62／5×7 ×··········× (2n)2／(2n-1)×(2n+1)
，要求：单击按钮同时显示当n=10、100、1000时的结果，利用Format函数保留5位小数。窗体中所有控件字体默认、大小为小四。效果如图4-2所示。
运用循环结构（for,do loop）
Dim i&, s!
s = 2
For i = 1 To 1000
s = s * (((2 * i) ^ 2) / ((2 * i - 1) * (2 * i + 1)))
If i = 10 Then Print Tab(5); "n=10"; Tab(15); "π近似值="; Format(s, "0.00000")
If i = 100 Then Print Tab(5); "n=100"; Tab(15); "π近似值="; Format(s, "0.00000")
If i = 1000 Then Print Tab(5); "n=1000"; Tab(15); "π近似值="; Format(s, "0.00000")
Next i
End Sub
求VB代码:计算1+3!+5!+7!+9!+11!
40284847就是最后结果，代码如下。Private Sub Command1_Click()s = 0 For i = 1 To 11 Step 2 x = 1 If i = 1 Then x = i s = s + x ElseIf i > 1 Then For j = 1 To i x = x * j Print x Next j s = s + x End If Next i MsgBox "1+3！+5！+7！+9！...
vb程序 求代码注释 求答案 谢谢
Public x As Integer ’定义一个全局变量x Private y As Integer '定义一个模块级变量y 窗体文件的程序代码是：Dim a As Integer '定义一个模块级变量a Private Sub Form_Load()Dim b As Integer ‘定义一个局部变量b a=2:b=3:x=10:y=20 End Sub Private Sub Command1_Click()a...
vb题答案!(内部)
1.编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。解：代码为 Private Sub form_load()Show Dim n, sum As Integer Print Spc(6); "101~500之间的所有能被3或者7整除的奇数,及各数的和"i = 0 sum = 0 For n = 101 To 500 S...
求解答VB的两道题
第一题答案为：3412。先取右边的两个字符，再取左边的两个字符，两者连起来。第二题：6。第次除以10取余数，就是将各位一位一位拿出来相加，3+2+1=6
问一道VB的基础题
C这就是个交换算法的数学应用。举个简单的例子：a=5,b=3 a=a+b,则a=8,b=3 b=a-b，则，a=8,b=5 a=a-b，则a=3,b=5,交换成功。
复杂的VB题 50分跪求答案
分析：(1.3a-2)X>2Y+2Z 因为：X，Y，Z都是正整数，最小值为都为1；所以a的值必须大于6\/1.3，才能满足不等式。同理 b的值必须大于6\/1.3，c的值必须大于6\/1.3 这样问题很简单，答案就是：x=1,y=1,z=1
VB运算题,答案已知,请讲解一下第一行第二行的运算过程
x=x-1=9-1=8 第二次：n=n+x=9+8=17 x=x-1=8-1=7 循环结束 y=n-y=17-1=16 sub2运行结束，此时i=7，n=16 所以第一行的打印结果为 7 16 第二行：n=16, i=8 sub2(i, n) = sub(8, 16)则sub2内，x=8, y=16 然后For循环执行两次，第一次：n=n+x=17+8=25 x=...
会VB的快进来帮我写下代码,十分感谢!
End Sub Private Sub Form_Load()Print "我们大家一起来轻松学习VB语言"Me.Caption = "第一个visual basic 程序"Label1.Caption = "编写VB程序是一件非常有趣的事情"Command1.Caption = "画面已经改变"Command2.Enabled = True End Sub 这是第二个答案：Private Sub Command1_Click()Form1....
VB题,高手来帮帮忙,感激不尽!求解释下代码和答案!谢谢!好人好报...
首先左对齐,然后依次比较,第一位与第一位比较...比较的是ascii码, B的是65, b的是98 3.定义了一个函数,这个函数的功能是:如果是偶数,值就不变,如果是奇数,值就变成1 然后依次输入1 2 3 4 5 输出的就是 1 2 1 4 1 ...
求几道VB题答案,
Private Sub combo1_Click()msgbox "你按下了组合框！" '组合框控件的click事件 End Sub Private Sub Dir1_Change()msgbox "你按下了列表框！" '目录列表控件的chang事件 End Sub Private Sub Drive1_Change()msgbox "你按下了驱动器列表！" '驱动器列表控件的change事件 End Sub Private Sub...
