用VB程序实现：a1=1 , a2=3 , a3=5, ak为第k个正奇数,求S=a1 a2 a3 … ak=100时k的值
最好用do While…Loop和do…Loop Until语句.请帮下忙谢谢!>
人气：333 ℃ 时间：2020-09-21 11:38:47
解答
Private Sub Form_Click()
Dim i%,sum As Double,k%
i = 1:sum = 1
Do While k
推荐
- 用VB程序实现:a1=1 ,a2=3 ,a3=5,ak为第k个正奇数,求S=a1+a2+a3+…+ak=100时
- 数列a1、a2、a3…an满足条件：a1=1，a2=a1+3，a3=a2+3，…，ak=ak-1+3，…，an=an-1+3，（其中k=2，3，…，n）．若an=700， （1）求n的值． （2）N=a1•a2•a3…an，N的尾部零的个数
- 设集合S={A0，A1，A2，A3，A4，A5}，在S上定义运算“⊕”为:Ai⊕Aj=Ak，其中k为i+j被4除的余数，i，j=0，1，2，3，4，5.则满足关系式（x⊕x）⊕A2=A0的x（x∈S）的个数为（ ） A.1 B.2 C.3
- 若510510的所有质因数按从小到大的顺序为A1,A2...Ak,求（A1-A2)(A2-A3).(Ak-1-AK)
- 已知集合A=｛a1,a2,a3,...ak｝（ k大于等于2）.太多了看补充说明!
- 甲数比乙数少百分之12 甲数是乙数的百分之几 甲数比乙数多百分之20 甲数是乙数的的百分之几
- 一箱苹果重20千克,第一周吃了五分之二箱,第二周吃了四分之一箱,还剩几分之几箱
- x减Y等于4 y的平方等于2x的平方加x减2 这个方程组 解出来 急
猜你喜欢
- 如图,线段AB=4.8cm,C是它的一个三等分点,D是它的中点,则CD=————cm,DC=————AB,BD=————AC
- 3.2x-4乘3=52
- 已知(X-1)平方+y-3的绝对值=0,求xy-2x+3y的值
- 求函数y=lg（12—4x—x的2次方）的值域和单调区间?
- 一枚硬币,正反两面,连续出现8次正面的概率是多少?连续8次不出现反面的概率是多少
- 打一份稿件,甲要4小时,乙要5小时,甲乙合打,几小时后打稿件的2／3
- 阳离子 核电荷数______核外电子(带_____电) 阴离子 核电荷数_____核外电子数(带_____电)
- It seems that the girl is interested in football同义句
