【隐身守候】
2020-06-02 14:27
采纳率: 100%
浏览 213

程序改错,请各位大佬帮忙,急用!真的非常谢谢你!!!

1、程序功能:求所有符合算式ij*ji=1300的最小数ij。其中i、j是1~9之间的一位整数。 程序中有一行错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To 9
'下一行程序有错!
If ij * ji = 1300 Then
Print 10 * i + j
Exit Sub
End If
Next j
Next I
End Sub
2、程序功能:我国今年的国民生产总值为275600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim p As Long, p1 As Long
Dim n As Integer
n = 0
p1 = 275600
p = p1
Do
'下一行程序有错!
p = p * (1 + 9)
n = n + 1
'下一行程序有错!
Loop Until p <= 2 * p1
Print n
End Sub

  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

  • threenewbee 2020-06-02 14:34
    已采纳

    If (i*10+j) *( j*10+i) = 1300 Then

    p = p * (1 + 0.09)
    Loop While p <= 2 * p1

    https://ask.csdn.net/questions/1079001 都回答过了,不用再问了。

    已采纳该答案
    评论
    解决 无用
    打赏 举报

相关推荐 更多相似问题