----------------------------------------------------------------------------------------
方法一:
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
Digital-VM商家的暑期活动促销,这个商家提供有多个数据中心独立服务器、VPS主机产品。最低配置月付80美元,支持带宽、流量和IP的自定义配置。Digital-VM,是2019年新成立的商家,主要从事日本东京、新加坡、美国洛杉矶、荷兰阿姆斯特丹、西班牙马德里、挪威奥斯陆、丹麦哥本哈根数据中心的KVM架构VPS产品销售,分为大硬盘型(1Gbps带宽端口、分配较大的硬盘)和大带宽型(10Gbps...
有在六月份的时候也有分享过新网域名注册商发布的域名促销活动(这里)。这不在九月份发布秋季域名促销活动,有提供年付16元的.COM域名,同时还有5个+的特殊后缀的域名是免费的。对于新网服务商是曾经非常老牌的域名注册商,早年也是有在他们家注册域名的。我们可以看到,如果有针对新用户的可以领到16元的.COM域名。包括还有首年免费的.XYZ、.SHOP、Space等等后缀的域名。除了.COM域名之外的其他...
80vps怎么样?80vps最近新上了香港服务器、美国cn2服务器,以及香港/日本/韩国/美国多ip站群服务器。80vps之前推荐的都是VPS主机内容,其实80VPS也有独立服务器业务,分布在中国香港、欧美、韩国、日本、美国等地区,可选CN2或直连优化线路。如80VPS香港独立服务器最低月付420元,美国CN2 GIA独服月付650元起,中国香港、日本、韩国、美国洛杉矶多IP站群服务器750元/月...