用VB程序编写和数能表示1到23的5个正整数

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/12 19:08:33

Private Sub Command1_Click()
Dim c() As Variant
Dim e As Boolean
'预设五个最小的正整数为1、2、3、4、5
For i = 3 To 11 '由题意可得第一第二个正整数必然等于1和2,第三个数最小为3,最大为23-1-2-4-5=11
For j = i + 1 To 12 '假如第三个数为3,最小的第四个数为4,最大值为23-1-2-3-5=12
For n = j + 1 To 13 '假如第四个数为4,最小的第五个数为5,最大值为23-1-2-3-4=13
If 1 + 2 + i + j + n = 23 Then
c = Array(1, 2, i, j, n, 1 + 2, 1 + i, 1 + j, 1 + n, 1 + i + j, 1 + i + n, 1 + j + n, 1 + i + j + n, 2 + i, 2 + j, 2 + n, 2 + i + j, 2 + i + n, 2 + j + n, 2 + i + j + n, 3 + i, 3 + j, 3 + n, 3 + i + j, 3 + i + n, 3 + j + n, 3 + i + j + n, i + j, i + n, i + j + n, j + n)
For l = 1 To 23
For k = 0 To UBound(c)
e = False
If c(k) = l Then e = True: Exit For
Next
If e = False Then Exit For
Next
If e = True Then Print "符合条件的有：1+2+" & i & "+" & j & "+" & n
End If
Next
Next
Next
End Sub希望没错

用VB程序编写和数能表示1到23的5个正整数谁能给我写一个vb小程序,编写一个函数,求1-N（正整数）的所有正整数之和, 用VB编写程序,输入一个正整数n,求所有大于1且小于n,同时与n互质的数,存入一个数组并每行5个的格式输出用VB编写一个程序,将下面的数列延长到第50项,1,2,5,10,21,42 . 用VB编写一个判断两个正整数的最大公因数的程序怎么写啊? 编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数 VB程序编写一个程序 1-100 之间同时能被2和5整除的数求用vb编写下面的程序利用VB设计一个程序：输入一个大于10的正整数n,计算sum=1+3+5+…(2n+1),编写程序输出计算结果sum 用VB编写一个程序,求出个位数为6,且能被3整除的三位数共有多少个用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和. 编写一个计算个人所得税的程序（用VB编写）

用VB程序编写 和数能表示1到23的5个正整数

用VB程序编写和数能表示1到23的5个正整数