高一信息科技编程题Dim x As DoubleDim s As Doubles = 0For x = 100 To 9

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 17:26:56

高一信息科技编程题
Dim x As Double
Dim s As Double
s = 0
For x = 100 To 999
If x Mod 10 + Int(x / 100) + Int(x / 10) Mod 10 = 17 Then
s = s + x
Next x
End If
Print s
End Sub
求3位数的3个数字相加之和等于17的所有数之和这个程序出了什么问题求教

Next x
End If
上面这两句顺序写反了,应该是先结束if,x再递增
即换成
End If
Next x

高一信息科技编程题Dim x As DoubleDim s As Doubles = 0For x = 100 To 9 VB dim x as integer dim i as integer x = 100 for i = 1 to 10 VB编程 Dim sum As Double,x As Double sum = 0 x = 0 For i = 1 T dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R 几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val( 我写这个程序时 dim a(10）as interger dim ias interger for i= 10 to 1 Dim arr(0 To 30,0 To 11) As Double for i = 1to31 arr(m-1,0)= Private Sub Command1_Click() Dim i,j As Integer For i = 3 To