编写程序从给定的数据范围内找出所有各位数字之和为10的数据。

来源：百度知道编辑：UC知道时间：2024/06/21 22:55:42

用VB编写。
请各位高人指教。
请将各位数取出并求和的过程可定义为函数

Sub sum10()
Dim Num1 As Integer
Dim Num2 As Integer
Dim i As Integer
Dim j As Integer
Dim tmpNum As Integer
Num1 = InputBox("请输入起始数：")
Num1 = Val(Num1)
Num2 = InputBox("请输入结束数：")
Num2 = Val(Num2)
If Num2 < Num1 Then
tmpNum = Num2
Num2 = Num1
Num1 = tmpNum
End If
For i = Num1 To Num2 - 1
For j = i + 1 To Num2
If i + j = 10 Then
MsgBox i & "+" & j & "=10", vbOKOnly, "结果提示"
End If
Next j
Next i
End Sub

试编写一程序，找出BUF数据区中带符号数的最大数和最小数用JAVA编写程序：从十个数中找出最大值 C语言编写程序,从键盘输入10个数据,按从大到小的顺序输出从关系中找出满足给定条件的元组的操作称为编写一个程序，打印出给定集合S上的所有函数。该程序的输入是集合中的元素 C语言;编程序找出整数范围内最大的一组勾股数；任意给定五边形的5个顶点坐标，利用多边形填充的扫描算法，编写程序生成一个实心五边形编写程序输出在指定范围内的3个随机数,范围在文本框中输入怎样编写数据统计程序？编写程序，从键盘输入3个学生的数据，将它们存入文件student；然后再从文件中读出数据，现实在屏幕上。