VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求它的个数 以及总和

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 01:17:04
VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求它的个数 以及总和

VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求它的个数 以及总和
VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位
求它的个数 以及总和

VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求它的个数 以及总和
Private Sub Command1_Click()
Dim a1 As Integer,a2 As Integer,a3 As Integer,a4 As Integer,n As Integer,s As Long,myOutput As String
For a1 = 9 To 0 Step -1
For a2 = a1 - 1 To 0 Step -1
For a3 = a2 - 1 To 0 Step -1
For a4 = a3 - 1 To 0 Step -1
n = n + 1
myOutput = myOutput & a1 & a2 & a3 & a4 & vbTab & IIf(n Mod 10 = 0,vbCrLf,"")
s = s + a1 * 1000 + a2 * 100 + a3 * 10 + a4
Next
Next
Next
Next
Print "sum=" & s & vbCrLf & "n=" & n & vbCrLf; myOutput
End Sub

VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求出共有几个以及sum VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位求它的个数 以及总和 求VB编程2-100求和FOR DO WHILE都要FOR DO WHILE都分别要的哦 大一新生的C语言问题,第12题,循环结构程序设计用for或while或do while (1)求10!（要用do=while或for循环实现） 用vfp语言 (1)求10!（要用do=while或for循环实现） 用vfp语言 VB语言 编写一个程序 do while 或 for next要包装600个变形金刚 要求1.规格 小盒 （每盒12个）大盒（每盒15个）要求2.每种规格盒数不能为0 VB中for next语句与DO WHILE..LOOP语句有什么不同?在VB中,for .next语句与DO WHILE..LOOP语句有什么不同? C语言中do...while和for有什么区别? VB程序里的循环结构怎么写?for循环和do while循环 VB分析For...Next循环结构与Do While...Loop循环结构的异同点 输入一个整数,用VB的While wend 或 Do Loop Until判断质数. 请用For或Do或While语言设计小于1000的完全平方数的和的算法高一学习的内容 c语言计算1!.20!能否使用一重循环.分别for while do while实 C语言在什么情况下用 for do-while while 循环 C语言中的 while do while for if 循环结构各有什么不同 C语言while、do-while循环详解 vb中用for、do…loop和while…wend循环三种形式分别求3的n次方