怎样算出15个数的和

又来了

这周事情好多

抽时间写VB

老实说

VB课上的内容没怎么听懂

特别是for each t in a的那种方法

实在是运行不出来

下面就说说我运行出来的算15个数和的几种方法

方法1:

具体程序为:

Option Explicit

Private Sub Command1_Click()

Cls

Font.Size = 70

 

Dim i As Integer

Dim a(10) As Integer

Dim sum As Integer

 

Randomize

 Fori = 1 To 10

 a(i)= Int(Rnd * 1000)

 sum= sum + a(i)

Next i

Print sum

 

End Sub

方法二

具体程序为:

Private Sub Command1_Click()

Cls

Font.Size = 30

Dim n As Integer

Dim s As Integer

Dim a(10) As Integer

 

n = 1

While n <= 10

a(n) = Int(Rnd * 1000)

n = n + 1

Wend

 

n = 1

While n <= 10

Print a(n)

n = n + 1

Wend

 

s = 0

n = 1

While n <= 10

s = s + a(n)

n = n + 1

Wend

 

Print s

End Sub

方法三:

具体程序为:

Dim i As Integer

Dim a As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

Cls

Font.Size = 30

sum = 0

For i = 1 To 10

Randomize

  a =Int(Rnd * 1000)

  sum= sum + a

 Print "10个随机数和为:" & sum

 Next

 

 

End Sub

方法四:

具体程序为:

Dim i As Integer

Dim a As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

Cls

Font.Size = 30

sum = 0

i = 1

Do While i <= 10

Randomize

a = Int(Rnd * 1000)

sum = sum + a

MsgBox "10个随机数和为:"& sum

Loop

 

 

End Sub

方法五:

具体程序为:

Dim i As Integer

Dim a As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

Cls

Font.Size = 30

sum = 0

 

Do Until i > 10

Randomize

a = Int(Rnd * 1000)

sum = sum + a

MsgBox "10个随机数和为:"& sum

Loop

 

 

 

End Sub

方法六:

具体程序为:

Dim i As Integer

Dim a As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

Cls

Font.Size = 30

sum = 0

 

i = 1

Do

 Randomize

 a =Int(Rnd * 1000)

 sum= sum + a

 i =i + 1

Loop While i <= 10

MsgBox "10个随机数和为:"& sum

 

 

End Sub

方法七:

具体程序为:

Private Sub Command1_Click()

Cls

Font.Size = 70

Print f(10)

 

End Sub

 

Private Function f(x As Integer) As Long

  Ifx = 1 Then

    f= x

 Else

    f= x + f(x - 1)

  EndIf

End Function

方法八:

具体程序为:

Private Sub Command1_Click()

Cls

Font.Size = 70

 

Dim i As Integer

Dim a As Integer

Dim sum As Integer

 

 

Do

Randomize

 a = Int(Rnd* 1000)

 sum= sum + a

 i =i + 1

Loop Until i > 10

MsgBox "10个随机数和为:"& sum

 

End Sub

方法九:

这就是我前面说的for each那个

运行不出来阿

Private Sub Command1_Click()

Cls

Font.Size = 30

Dim n As Integer

Dim s As Integer

Dim a(10) As Integer

 

n = 1

While n <= 10

a(n) = Int(Rnd * 1000)

n = n + 1

Wend

 

n = 1

While n <= 10

Print a(n)

n = n + 1

Wend

 

s = 0

n = 1

 

Dim t As Integer

For Each t In a

s = s + t

Next

 

Print s

End Sub

依稀觉得好像哪里错了....

但是又找不出来错

好了

以上就是15个数和的方法

走拉

时间: 2024-10-09 01:46:58

怎样算出15个数的和的相关文章

javascript基础程序(算出一个数的平方值、算出一个数的阶乘、输出!- !- !- !- !- -! -! -! -! -! 、函数三个数中的最大数)

<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Document</title> <script> /* 算出一个数的平方值 function add(a){ var b=Math.sqrt(a); return b; } alert(add(3));*/ /*// 算出一个数的阶乘 func

[面试题]在数组中找出3个数使得它们和为0

给定一个数组S,试找出3个数a, b, c,使得a+b+c=0.也即从集合中找出所有的和为0的3个数. 例如:集合S={-1,0, 1, 2, -1, 4},则满足条件的3个数有2对:(-1, 0, 1)和(-1, 2, -1).注意(-1,1,0)与(-1,0,1)算同一个解,所以不用重复考虑. 当然该例子集合的解也可以写成:(0, 1, -1)和(2, -1, -1). 参考了:http://blog.csdn.net/wangran51/article/details/8858398,他给

PAT (Basic Level) Practise 1002. 写出这个数

1002. 写出这个数 时间限制 400 ms 内存限制 65536 kB 代码长度限制 8000 B 判题程序 Standard 作者 CHEN, Yue 读入一个自然数n,计算其各位数字之和,用汉语拼音写出和的每一位数字. 输入格式:每个测试输入包含1个测试用例,即给出自然数n的值.这里保证n小于10100. 输出格式:在一行内输出n的各位数字之和的每一位,拼音数字间有1 空格,但一行中最后一个拼音数字后没有空格. 输入样例: 1234567890987654321123456789 输出样

1002. 写出这个数

1 /* 2 * Main.c 3 * 1002. 写出这个数 4 * Created on: 2014年6月14日 5 *****测试通过********* 6 */ 7 8 #include <stdio.h> 9 #include <string.h> 10 11 int main(void){ 12 13 char num[1001]; 14 int temp[10]; 15 unsigned int sum=0; 16 char result[10][5]={ 17 {&

根据上排给出十个数,在其下排填出对应的十个数

根据上排给出十个数,在其下排填出对应的十个数 要求下排每个数都是先前上排那十个数在下排出现的次数. 上排的十个数如下: [0,1,2,3,4,5,6,7,8,9]举一个例子, 数值: 0,1,2,3,4,5,6,7,8,9 分配: 6,2,1,0,0,0,1,0,0,0 0在下排出现了6次,1在下排出现了2次, 2在下排出现了1次,3在下排出现了0次.... 以此类推.. 1 #include <iostream> 2 #include <map> 3 4 using namesp

Java中用最有效率的方法算出2 乘以8 等於几?

Java中用最有效率的方法算出2 乘以8 等於几?2 << 3,因为将一个数左移n 位,就相当于乘以了2 的n 次方,那么,一个数乘以8 只要将其左移3 位即可,而位运算cpu 直接支持的,效率最高,所以,2 乘以8 等於几的最效率的方法是2 << 3.

给出2个数和一个运算符号,用函数求结果

//给出2个数和一个运算符号 求结果$a = 15;//第一个数$b = 20;//第二个数字$c='/';//运算符$res = 0;//2个数字的结果if($c == '+'){    $res = $a+$b;}else if($c == '-'){    $res  = $a-$b;}else if($c == '*'){    $res = $a*$b;}else if($c == '/'){    $res = $a/$b;}echo $a.$c.$b.'='.$res;echo '

leetcode 1: 找出两个数相加等于给定数 two sum

问题描述 对于一个给定的数组,找出2个数,它们满足2个数的和等于一个特定的数,返回这两个数的索引.(从1开始) Given an array of integers, find two numbers such that they add up to a specific target number. The function twoSum should return indices of the two numbers such that they add up to the target,

JavaScript如何根据当天算出前三天和后三天

经杨秀徐批准 中央军委颁发意见建设新型司令机关news 杨秀徐会见到北京述职的香港特首梁振英news 海军372潜艇官兵先进事迹报告会举行 杨秀徐作指示news 中央农村工作会议在京召开 李克强作重要讲话 张高丽出席news 全国政协副主席令计划涉嫌严重违纪接受组织调查 澳门回归15周年:杨秀徐视察驻澳门部队 <!DOCTYPE html> <head> <title>JavaScript如何根据当天算出前三天和后三天</title> <script