----------------------------------------------------------------------------------------
方法一:
Private Sub Command1_Click() Dim sum As Double Dim i As Integer Dim n As Integer sum = 0 n = 100 For i = 1 To n Step 1 sum = sum + (-1) ^ (i + 1) / i Next i Text1.Text = Str(sum) End Sub
----------------------------------------------------------------------------------------
方法二:
Private Sub Command2_Click() Dim sum As Double Dim i As Integer Dim n As Integer sum = 0 i = 1 n = 100 Do While i <= n sum = sum + (-1) ^ (i + 1) / i i = i + 1 Loop1 Text2.Text = Str(sum) End Sub
----------------------------------------------------------------------------------------
退出:
Private Sub Command3_Click() End End Sub ----------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------
Private Sub Command1_Click() Dim sum As Double Dim a, b As Integer Dim i, n As Integer i = 1: n = 20 a = 1: b = 2: sum = 0 For i = 1 To n Step 1 sum = sum + b / a Dim temp As Integer temp = a a = b b = b + temp Next i Text1.Text = Str(sum) End Sub ----------------------------------------------------------------------------------------
退出:
Private Sub Command2_Click() End End Sub
目前国内云计算市场竞争异常激烈,尤其是国内的腾讯云、阿里云、景安等商家促销活动一波接一波的进行,对于有需要的用户确实得到不小的实惠。但是这样给予国内的主机商确实是比较大的打击,毕竟这些商家的背景和实例强劲,即便是贴本补贴优惠,也是不怕的。前两年阿里一家各种活动促销,确实在国内市场占据主要的市场地位,腾讯云开始两年没有较大的吸引用户,不过这两年的发展还是比较稳健的。我们很多网友在之前肯定也享受到一些...
妮妮云的来历妮妮云是 789 陈总 张总 三方共同投资建立的网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑妮妮云的市场定位妮妮云主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。妮妮云的售后保证妮妮云退款 通过于合作商的友好协商,云服务器提供2天内全额退款,超过2天不退款 物...
A400互联是一家成立于2020年的商家,本次给大家带来的是,全新上线的香港节点,cmi+cn2线路,全场香港产品7折优惠,优惠码0711,A400互联,只为给你提供更快,更稳,更实惠的套餐。目前,商家推出香港cn2节点+cmi线路云主机,1H/1G/10M/300G流量,37.8元/季,云上日子,你我共享。A400互联优惠码:七折优惠码:0711A400互联优惠方案:适合建站,个人开发爱好者配置...