----------------------------------------------------------------------------------------
方法一:
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
最近AS9929线路比较火,联通A网,对标电信CN2,HostYun也推出了走联通AS9929线路的VPS主机,基于KVM架构,开设在洛杉矶机房,采用SSD硬盘,分为入门和高带宽型,最高提供500Mbps带宽,可使用9折优惠码,最低每月仅18元起。这是一家成立于2008年的VPS主机品牌,原主机分享组织(hostshare.cn),商家以提供低端廉价VPS产品而广为人知,是小成本投入学习练手首选。...
LOCVPS发来了针对XEN架构VPS的促销方案,其中美国洛杉矶机房7折,其余日本/新加坡/中国香港等机房全部8折,优惠后日本/新加坡机房XEN VPS月付仅29.6元起。这是成立较久的一家国人VPS服务商,目前提供美国洛杉矶(MC/C3)、和中国香港(邦联、沙田电信、大埔)、日本(东京、大阪)、新加坡、德国和荷兰等机房VPS主机,基于XEN或者KVM虚拟架构,均选择国内访问线路不错的机房,适合建...
提速啦的来历提速啦是 网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑提速啦的市场定位提速啦主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。提速啦的售后保证提速啦退款 通过于合作商的友好协商,云服务器提供3天内全额退款,超过3天不退款 物理机部分支持当天全额退款提速啦提现 充...