VB程序設(shè)計(jì)的一道題，找出100以內(nèi)能被3整除的所有數(shù)之和，并把值保存在一維數(shù)組中以下文字資料是由(歷史新知網(wǎng)www.lishixinzhi.com)小編為大家搜集整理后發(fā)布的內(nèi)容，讓我們趕快一起來(lái)看一下吧！

VB程序設(shè)計(jì)的一道題，找出100以內(nèi)能被3整除的所有數(shù)之和，并把值保存在一維數(shù)組中

Dim a() As Integer '存放能被3整除數(shù)的動(dòng)態(tài)數(shù)組dim sum as Integer '存放和 Sub GetNumber() Dim i As Integer Dim num As Integer sum = 0 num = 0 For i = 1 To 100 ' 如果一個(gè)數(shù)能被3整除 If i Mod 3 = 0 Then '求和 sum = sum + i '將這個(gè)數(shù)保存到動(dòng)態(tài)數(shù)組中 ReDim Preserve a(0 To num) As Integer a(num) = i num = num + 1 End If Next '打印出和 Debug.Print "和為:" + Format(sum) '打印出數(shù)組中所有能被3整除的數(shù) For i = 0 To num - 1 Debug.Print a(i) NextEnd Sub

求10000以內(nèi)能被3整除的所有數(shù)之和的程序設(shè)計(jì)？

Private Sub Command1_Click() For i = 3 To 9999 Step 3 s = s + i Next i Print "sum=" & s End Sub

用js寫一個(gè)程序找出1000以內(nèi)能被3整除的數(shù)保存在數(shù)組a中、能被4整除的數(shù)保存

var a = [], b = [];for(var i = 0; i < 1000; i ++){ if(i % 3 == 0){ a.push(i); }else if(i % 4 == 0){ b.push(i); }}

VB 將1~500之間能被7或11整除 但不被3和4整除的所有整數(shù)存放在一維數(shù)組中 并輸出

Private Sub Command1_Click()

Dim i%, j%

Dim a() As Integer

For i = 1 To 500

If (i Mod 7 = 0 Or i Mod 11 = 0) And i Mod 4 <> 0 And i Mod 3 <> 0 Then

j = j + 1

ReDim a(j) As Integer

a(j) = i

Print a(j);

End If

Next

End Sub

C程序設(shè)計(jì)題 一維數(shù)組

#include "stdio.h"

#include "math.h"

int main()

{

int i,d[20],t[20],j,k,n,mark,temp;

printf("輸入20個(gè)整數(shù)：");

n=0;k=0;

for(i=0;i<20;i++)

{

scanf("%d",&d[i]);輸入整數(shù)(20個(gè))

判斷d[i]是否是素?cái)?shù)

mark=0;

for(j=2;j

{

if(d[i]%j==0)

{

mark=1;

break;

}

}

if(mark==0)是素?cái)?shù)時(shí)存入新的數(shù)組

{

t[k++]=d[i];

}

}

對(duì)素?cái)?shù)數(shù)組進(jìn)行排序

for(i=0;i

{

for(j=k-1;j>i;j--)

{

if(t[j]

{

temp=t[j];t[j]=t[j-1];t[j-1]=temp;

}

}

}

for(i=0;i

printf("%d ",t[i]);

}

VB程序設(shè)計(jì)：從鍵盤輸入10個(gè)互不相同的100以內(nèi)的整數(shù)，放在一維數(shù)組中。

'改別人的程序費(fèi)腦，改你的程序費(fèi)糧食!

Private Sub Form_Click()

Dim a(10) As Integer

Dim i As Integer

Dim r As Integer

Dim x As Integer

Dim max As Integer

Dim min As Integer

Randomize

Do While i <= 9

a(i) = Val(InputBox("請(qǐng)輸入第" & i + 1 & "個(gè)100以內(nèi)的整數(shù)"))

If a(i) > 100 Or a(i) < 0 Then

MsgBox "請(qǐng)輸入100以內(nèi)的整數(shù)"

Else

For r = 0 To i - 1

If a(i) = a(r) Then

MsgBox "輸入的數(shù)不能有重復(fù)"

Exit For

End If

Next

If r = i Then i = i + 1

End If

Loop

max = 0

min = 100

For r = 0 To 9

If a(r) > max Then max = a(r)

If a(r) < min Then min = a(r)

Next

Do

f = 1

x = Int(Rnd * 100)

For r = 0 To 9

If Not (min < x And max > x And x <> a(r)) Then

f = 0

Exit For

End If

Next

If f = 1 Then

MsgBox x

Exit Do

End If

Loop

End Sub

編一程序求100以內(nèi)能被3整除的所有數(shù)之和

一句就搞定的程序:

#include

void main()

{

cout<

求一維數(shù)組能被3和5整除的和

package .jk;public class ArrayUtil { public static void main(String[] args) { System.out.println("數(shù)組中能被3或者5整除的數(shù)的和等于" + arrTestSum()); } public static int arrTestSum() { int sum = 0 ; int[] array = {-1,-100,55,66,1092,3}; for(int i : array) { if(i%3==0||i%5==0) { sum+=i; } } return sum; }}或者

package .jk;public class ArrayUtil { public static void main(String[] args) { int[] array = {-1,-100,55,66,1092,3}; System.out.println("數(shù)組中能被3或者5整除的數(shù)的和等于" + arrTestSum(array)); } public static int arrTestSum(int[] array ) { int sum = 0 ; for(int i : array) { if(i%3==0||i%5==0) { sum+=i; } } return sum; }}

vfp程序設(shè)計(jì)，用雙重循環(huán)求100以內(nèi)能被6整除的數(shù)之和

SET TALK OFFSTORE 0 TO mFOR i=1 TO 100IF MOD(i,6)=0 m=m+iENDIFNEXT i? '100以內(nèi)能被6整隊(duì)的自然數(shù)之和為 '+ALLTRIM(STR(m))SET TALK ONRETURN

C語(yǔ)言編程：一維數(shù)組程序設(shè)計(jì)

#include

main()

{

char arr[],temp='';

int i = 0,w_count = 0,c_count = 0,n_count = 0,w_count_now = 0,c_count_now = 0,n_count_now = 0;

printf("輸入一串字符：");

scanf("%s",arr);

while(arr[i] != '\0')

{

if(((int)arr[i] >= 65 && (int)arr[i] <= 90) or ((int)arr[i] >= 97 && (int)arr[i] <= 122))

{

w_count++;

}

else if((int)arr[i] >= 48 && (int)arr[i] <= 57)

{

n_count++;

}

else c_count++;

i++;

}

w_count_now = 0;

c_count_now = w_count;

n_count_now = w_count + c_count;

i = 0;

while(arr[i] != '\0')

{

if(((int)arr[i] >= 65 && (int)arr[i] <= 90) or ((int)arr[i] >= 97 && (int)arr[i] <= 122))

{

temp = arr[w_count_now];

arr[w_count_now] = arr[i];

arr[i] = temp;

w_count_now++;

}

else if((int)arr[i] >= 48 && (int)arr[i] <= 57)

{

temp = arr[n_count_now];

arr[n_count_now] = arr[i];

arr[i] = temp;

n_count_now++;

}

else

{

temp = arr[c_count_now];

arr[c_count_now] = arr[i];

arr[i] = temp;

c_count_now++;

}

i++;

}

printf("調(diào)整后的字符串為：%s",arr);

}

分頁(yè)：

1

23

總結(jié)

以上是生活随笔為你收集整理的c语言求100以内整除13的最大,VB程序设计的一道题，找出100以内能被3整除的所有数之和，并把值保存在一维数组中...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。