无
*注意事项：
d[1]
d[2]
d[3]
d[4]
d[5]
d[6]
d[7]
d[8]
70
84
85
73
81
71
66
80
a(1)
a(2)
a(3)
a(4)
a(5)
a(6)
a(7)
hou
ji
long
ma
niu
she
tu
-10
0
1
3
4
6
9
10
Dim a as string, b as string
a=inputbox(“a=”)
b=inputbox(“b=”)
if a>b then
a=a+b
else
b=b+a
endif
print a+b
2
8
12
①不大于n(n的值是由键盘输入)；
②能被9整除；
③十位数是2。
算法流程图如图所示：
Dim n as Integer, x as Integer, s as long
s=0
n=InputBox(“输入四位数上限值”)
For ⑴
If ⑵ and ⑶ Then
S=s+x
End If
Next
⑷
⑴ ⑵ ⑶ ⑷
注：请书写VB代码，画流程图不得分。
微信扫码预览、分享更方便
详情
