vb程序设计100题（VB编程题目： 随机产生10个0-100之间的整数放入数组,显示数组各元素的值，求出最大值，最小值和平均值）

本文目录

• VB编程题目： 随机产生10个0-100之间的整数放入数组,显示数组各元素的值，求出最大值，最小值和平均值
• vb程式设计，计算0至100不能被7整除的所有整数的和！
• vb程序设计题 求代码 随机产生20个0～100的正整数（包括0和100），存放在
• VB的代码程序设计，懂的进 题目求10个30—100间的随机正整数中的最大值，最小值，平均值

VB编程题目： 随机产生10个0-100之间的整数放入数组,显示数组各元素的值，求出最大值，最小值和平均值

Private Sub Command1_Click()
Dim a(9)
Randomize
Dim sum As Integer, min As Integer, max As Integer
sum = 0: min = 100: max = 0
For i = 0 To 9
a(i) = Int(101 * Rnd))
sum = sum + a(i)
If a(i) 《 min Then min = a(i)
If a(i) 》 max Then max = a(i)
Print a(i);
Next i
Print vbCrLf & "最大值:"; max
Print "最小值:"; min
Print "平均值:"; sum / 10
End Sub

vb程式设计，计算0至100不能被7整除的所有整数的和！

vb程式设计，计算0至100不能被7整除的所有整数的和！ 窗体上有一个名称为List的列表框,一个名称为Text1的文字框,一个名称为Lable1、Caption属性为"Sum"的标签,一个名称为Command1、标题为“计算”的命令按钮。程式执行后，将把1~100之间能够被7整除的数新增到列表框中。
如果单击“计算”按钮，则对List中的数进行累加求和，并在文字框中显示计算结果，程式码如下：：：
Dim i As Integer, Sum As Integer
Private Sub Form_Load()
For i= 1 to 100
if i Mod 7 =0 then
List1.AddItem i
End if
Next
End Sub
Private Sub Command1_Click()
Sum =0
For i = 0 to List1.ListCount -1
Sum =Sum + List1.List(i)
Next
Text1.text =Sum
End Sub
除错一下试试
程式设计题：计算1~100能被5整除的所有整数的和
int i;
int n=0;
for(i=1;i《101;i++){
if(i%5==0)
n+=i;}
printf(’%d",n)
java计算1000以内所有不能被7整除的整数的和。
public class class1 {
public static void main(String args) {
int s=0;
for(int i=1;i《=1000;i++){
if((i%7)!=0){
s=s+i;
}
}
System.out.println(s);
}
}
VF程式设计题：求100以内所有能被3整除的整数的和
clear
s=0
for i=1 to 100
if i%3=0
s=s+i
endif
endfor
?"100以内所有能被3整除的整数的和是：",s
程式设计序计算并输出200-400之间不能被7整除的整数的和。
#include《iostream.h》
void main()
{int i,sum=0;
for(i=200;i《=400;i++)
if(i%7!=0)
{sum+=i;}
cout《《i;
}
编VB 求之间所有既不能被3整除，又不能被8整除的整数的和。
Private Sub Command1_Click()
Dim i, sum As Long
For i = 351 To 432
If i Mod 3 《》 0 And i Mod 8 《》 0 Then sum = sum + i
Next
Print sum
End Sub
编写C 程式：计算0~1000以内能被3整除不能被5整除的所有整数之和
#include 《stdio.h》
main()
{
int i;
long sum=0;

for(i=0;i《=1000;i++)
if ((i % 3 ==0) && (i % 5 !=0))
sum+=i;
printf("所有整数之和为%ld\n",sum);
}
程式设计求100以内所有能被7整除的整数和
只要从7开始回圈到98就可以了

因为7是100内能整除7的最小正整数而98是100内最大的

所以只需要计算这部分就可以了

下面是一般简单的程式码
#include 《stdio.h》int main(int argc,char **argv){ int i; int sum=0; for(i=7;i 《= 98;++i) { if(i %7 == 0) sum+=i; } printf("%d\n",sum); return 0;}
其实也可以直接以7的倍数来做

只要乘得的结果小于100就回圈下去

如下面的程式码
#include 《stdio.h》int main(int argc,char **argv){ int i; int sum=0; for(i=1;i*7 《 100;++i) sum+=i*7; printf("%d\n",sum); return 0;}

用vb程式设计"输出1~100间所有既不能被8整除,也不能被3整除的整数"
孩子 退学吧 这都不会 学啥程式设计啊 换个文科专业吧
Private Sub Form_Click()
Dim i As Integer
For i = 1 To 100
If i Mod 3 != 0 And i Mod 8 != 0 Then
Print i
End If
Next
End Sub
求1到100内所有不能被5或9整除的整数的和
被5整除的数有100/5 = 20个，
被9整除的数有100/9 = 11个，
同时被5、9整除的数有100/45=2个。
因此
所有不能被5或9整除的整数的和
= (1+2+3…… + 100) - (5+10+15+……+100) - (9+18+27+……+99) + (45+90)
= 5050 - 1050 - 594 + 135
= 3541

vb程序设计题 求代码 随机产生20个0～100的正整数（包括0和100），存放在

’这题目，对于初学者是很有难度的，
’运行效果如上图，代码如下：
’有问题可以问我
Private Sub Command1_Click()
Dim arr(1 To 20) As Integer
Dim i, a, b As Integer
Dim Ave As Double
Dim sum As Integer
Dim Mx, Mn As Integer
Print "随机数数组为："
Randomize
For i = 1 To 20 
 arr(i) = Int(Rnd * 101) 
 sum = arr(i) + sum
 Print arr(i);
 If i = 10 Then
  Print
 End If
Next i
Ave = sum / 20
Mx = Max(arr)
Mn = Min(arr)
For i = 1 To 20
If arr(i) = Mx Then
a = i
End If
If arr(i) = Mn Then
b = i
End If
Next i
Print: Print
Print "平均值为：" & Ave
Print "最大值为：" & Mx & " 对应数组下标为：" & a
Print "最小值为：" & Mn & " 对应数组下标为：" & b
End Sub
Private Function Max(List() As Integer) As Integer
    Dim i As Integer
    Max = List(LBound(List))
    For i = LBound(List) + 1 To UBound(List)
        If Max 《 List(i) Then
            Max = List(i)
        End If
    Next
End Function
Private Function Min(List() As Integer) As Integer
    Dim i As Integer
    Min = List(LBound(List))
    For i = LBound(List) + 1 To UBound(List)
        If Min 》 List(i) Then
            Min = List(i)
        End If
    Next
End Function

VB的代码程序设计，懂的进 题目求10个30—100间的随机正整数中的最大值，最小值，平均值

Private Sub Form_Load()
Dim a(9) As Integer
Dim i As Integer
Dim sum As Integer
Dim min As Integer
Dim max As Integer
Dim avg As Double

sum = 0
Randomize
a(0) = Int(Rnd * 71 + 30)
min = a(0)
max = a(0)
For i = 1 To 9
a(i) = Int(Rnd * 71 + 30)
Print a(i)
If min 》 a(i) Then
min = a(i)
End If
If max 《 a(i) Then
max = a(i)
End If
sum = sum + a(i)
Next i
avg = sum / 10

Print "最大数是" & max
Print "最小数是" & min
Print "平均数是" & avg
End Sub