1. 用VB程序实现：求s=2+4+6+……+2n的值，其中n为自然数，由键盘输入。
运行后正确结果为：当输入n为100时，输出10100
我这样哪里有错：
Private Sub Form_Load()
Dim s As Integer, n As Integer
n = InputBox("请输入n的值")
s = 0
For i = 1 To n
s = s + i * 2
Next i
End Sub
Private Sub Form_Load()
Dim s As Integer, n As Integer
n = InputBox("请输入n的值")
s = 0
For i = 1 To n
s = s + i * 2
Next i
MsgBox s
End Sub来自：求助得到的回答
输出可采用Print s 但是由于你用的是Form_Load过程，这个时候还没有窗体，所以
要加一句 Form1.AutoRedraw = True
另外可以使用MsgBox 输出
...2. 编写一个程序,在文本框中任意输入一个自然数N,单击“计算”按钮则...
1. 随机产生30~100 (包括30 、100 )的20个正整数，显示整个数组的值,并求最大值、最小值、平均值，显示结果。2. 编写一个程序，在文本框中任意输入一个自然数N，单击“计算”按钮则将斐波那契数列的第N项显示在标签中，如图压缩包中所示。sy62.rar 3. 编写一个英文打字训练的程序，要求如...
vb中怎样实现计算1—n的奇偶数之和:(n为自然数)
代码及注释如下：Private sub command1_click()for i=1 to n'i从1到n循环 if i mod 2=0 then'利用mod函数来判断i的值是偶数还是奇数 oushuhe=oushuhe+i'如果是偶数，就将其累加到oushuhe变量中 else jishuhe=jishuhe+i'如果是奇数，就将其累加到技术和变量中 end if next msgbox "偶数和...
vb程序输出自然数中前10个质数,最小的质数为2
Private Sub Command1_Click() x = 2: total = 0 Do While total < 10 flag = True For i = 2 To Sqr(x) If x Mod i = 0 Then flag = False: Exit For Next i If flag Then total = total + 1 Print x End If x = x + 1 LoopEnd ...
编写程序求S=1+2+3+…+n的和(n由键盘输入),程序如图,则横线上应填...
当型循环即满足条件就进行循环，所以I≤n，此时S←S+n，I←n+1此时条件不满足就退出循环，从而就表示求S=1+2+3+…+n的和，故答案为I≤n．
用vb解:输入一个自然数n,求 ,同时统计结果中有多少个0.
你好像没打出来。。。只要统计结果有多少个0。。我用个土方法把。。dim MStr as string MStr=cstr(Sum) 'Sum代表统计结果 dim ICount as integer,I as integer I=instr(MStr,"0")while I>0 ICount=ICount+1 I=instr(I,MStr,"0")wend msgbox "统计结果共有：" & ICount & "个0"...
用VB编写程序,找出所有小于或等于100的自然数对。
Click() For i = 1 To 99 For j = i + 1 To 100 t1 = Round(Sqr(i + j)) t2 = Round(Sqr(j - i)) If t1 * t1 = i + j And t2 * t2 = j - i Then Print "(" & i; ","; j; ")": n = n + 1 Next Next Print "N="; nEnd Sub把...
利用VB编程设计一个类似于Windows附件中的计算器程序,要求可进行简单的...
T1.Enabled = True T1.Visible = True T1.SetFocus End Sub Sub oi()T1.Enabled = False T1.Visible = False End Sub Private Sub Command1_Click()If O1 Then T5 = T1 + T3 ElseIf O2 Then T5 = T1 - T3 ElseIf O3 Then T5 = T1 * T3 ElseIf O4 Then If T3 = 0 Then MsgBo...
vb经典程序100例(vb经典程序例题及分析)
奇数和=（n\/2）*(1+n-1)\/2 偶数和=（n\/2）*(2+n)\/2 大一VB使用循环结构编写程序，求2+4+6+8+到100这个用循环语句计算比较方便，例如dowhile语句，doloop语句隐轮，fornext语句都可以 fornext语句举例：PrivateSubCommand1_Click()Dimi%,iSum Fori=0To4Step2 iSum=i+iSum Debug.Printi ...
求的值,其中a是一个数字,如2+22+222+2222+22222(此时a=2,n=5),a和...
\/\/求的值,其中a是一个数字\/\/如2+22+222+2222+22222(此时a=2,n=5),a和n均由键盘输入。#include <stdio.h>void main(){ int a,n,i=2,b,result=0; printf("请输入a的值:\\na="); scanf("%d",&a); printf("请输入n的值:\\nn="); scanf("%d",&n); b=a; if (n==1) { result=a...
用VB做"求某自然数的所有约数的和"怎么做啊
对不起，约数是什么我不太清楚，（解释一下，我是班上的数学精英，只是小学没学好，而不是一个白痴为你解题）但我建议你利用数列的通项公式 求Sn 设：Sn=a1+a2+a3+a4+...+an Sn=(a1+an)n\/2 能理解吗？
