private+gold+20

---

转换一些英语句型!!!
--We were __so__ moved that __we__ _ couldn't _fall asleep that night.He has mastered English well__so_ _he__ __can__ translate English novels The govenment finds __it__necessary __to__ __limit__the number of parivate cars.I wish ___to___ ___go___to your...

俎光17535599708问： vb编程求解s=a!+b!+c!,其中阶乘的计算分别使用子过程和函数过程来实现,a,b,c的值从文本框中输入 - ？
阜宁县小儿回答： Private Function JC(i As Integer) As Long If i > 1 Then JC = i * JC(i - 1) Else JC = 1 End If End Function Private Sub Command1_Click() Print JC(Val(Text1.Text)) + JC(Val(Text2.Text)) + JC(Val(Text3.Text)) End Sub i的范围自己控制一下

俎光17535599708问： VB编程···S=1+3+5+7+.......+N,直到S大于2000,求N最大值 - ？
阜宁县小儿回答： Private Sub Command1_Click() s = 0 n = 1 Do While ss = s + n n = n + 2 Loop Print n End Sub

俎光17535599708问： 在VB中利用S=1²+2²+3²+......+n²,求s<=1000时n的最大值,单击窗体form1时, - ？
阜宁县小儿回答： Option Explicit Private Function c平方(i As Long) As Long c平方 = i * i End Function Private Sub Form_Click() Dim j As Long, ret As Long ret = 0 For j = 1 To 1000 ret = ret + c平方(j) Next Me.Print ret End Sub Private Sub Form_Load() Me.Caption = ＂点击窗体,显示计算结果.＂ Me.AutoRedraw = True End Sub

俎光17535599708问： vb 计算:s=1 - 1/2+1/3 - 1/4+......1/100 - ？
阜宁县小儿回答： Private Sub Command1_Click()For i = 1 To 100 Step 2s = s + 1 / i - 1 / (i + 1)Next iPrint sEnd Sub

俎光17535599708问： java数组怎么初始化private int[20] a=??? - ？
阜宁县小儿回答： private int[] a = new int[20]; 首先int[] 是数据类型 不能写长度如你写的:int[20],是不对的!!!其次,数组初始化很多种,如我提供的这种 直接new出数组长度并初始化. 第二种 {} 大括号的,这种适合数据量小且知道初始数据的.第三种数据返回型,也就是方法返回初始化数组定义.你编译就错在定义数据类型时不能写长度,要定义定长的数组 new int[100] 这样子写!!!!

俎光17535599708问： 试编写程序,求1+2!+3!+……+20!的值 - ？
阜宁县小儿回答： private sub form_click() dim sum as single dim item as single dim i as integer,n as integer sum=1 item=1 i=1 do while i<=20 item =item*i sum = sum +item i=i+1 loop print ＂ 1+2!+3!+……+20!=＂;sum end sub

俎光17535599708问： VB计算1+2+3+……+20的编写过程 - ？
阜宁县小儿回答： Private Sub Command1_Click()Dim i, sum As Integersum = 0i = 0Do While (i < 20) i = i + 1 sum = sum + iLoopMsgBox sumEnd SubPrivate Sub Command2_Click()Dim i, sum As Integersum = 0For i = 1 To 20 sum = sum + iNext iMsgBox sumEnd Sub

俎光17535599708问： 试编写程序,求1+2!+3!+...+20!的值 - ？
阜宁县小儿回答： 不知楼主用哪种语言,下面是用C语言编写的程序#include <stdio.h> void main() { double r=1,s=0; int i,j; for(j=1;j<=20;j++) {for(i=1;i<=j;i++) { r*=i; } s=s+r; r=1; } printf(＂result=%lf＂,s); }

俎光17535599708问： 1. 下面程序运行后的结果是什么?该程序的功能是什么? Private Sub Commandl - Click() Dim x$,n% n=20 - ？
阜宁县小儿回答： 功能:将十进制20转换成二进制10100 结果应该是10100吧 这个我算不好的 呵呵 你应该是自考本科的吧 呵呵 祝你考试顺利 希望能帮到你 手打望采纳

---