private sub command1_click()dim y5, y1, j5 as integer, i, j, k as integeri = j = 0for y5 = 0 to 100 step 5 k = 0 i = i + 1 for y1 = 0 to 100 j = j + 1 for j5 = 0 to 100 step 0.5 k = k + 1'调试时说此句有错 哪儿错了? if y5 + y1 + j5 = 100 and i + j + k = 100 then text1.text = text1.text & "5元" & i & "张," & "一元" & j & "张" & "五角" & k & "张" & vbcrlf end if next j5 next y1next y5end sub 20210311