求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做
题目
求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做
答案
Private Sub Form_Load()For i = 1 To 9For j = 0 To 9For k = 0 To 9If i + j + k = 10 ThenIf 100 * i + 10 * j + k < 1000 And 100 * i + 10 * j + k > 99 ThenMsgBox 100 * i + 10 * j + kEnd IfEnd IfNext kNex...
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 1+2-3-4+5+6-7-8+9+10-.+2016的简便算
- 七步诗后两句诗的意思
- A为f(x)=x立方-3x+10的一个根,B=(A的平方+A-2)/2h(x)是一个有理系数的二次多项式,h(B)=A,求h(0).
- 如图,PA,PB切圆心O于点A,B两点,AC为圆心O直径,PC交圆心O于D,若角APB=60度,AC=2,求CD长
- 一块长方形绿地的面积为810平方米,它的宽扩大到原来的2倍,长扩大到原来的3倍后,它的面积变为多少平方东?
- 公元209年是几年?
- she can sit in the rocking chair and_____ reading by the windows
- 幂等矩阵的应用有哪些
- 解不等式 (20 17:31:33)
- 日月星辰罗列的广大空间.天(地球大气层以外的空间)和空(地球大气层的空间)的合称.
热门考点