输入两个数(a,b),输出最大数(max);根据题意完成流程图,并将对应的程序填充完整
(1)
完成流程图
① ② ③ ④
(2)
将对应的程序填充完整
说明:text1.text、text2.text、text3.text分别表示a,b,max的值
Private Sub Command1_Click()
Dim a AS Integer, b AS Integer
Dim max AS Integer
a=
b=
If then
Else
End Sub
答案: 【1】a>b 或 a<b 或 b>a 或 b<a【2】max=a 或 max=b【3】max=a 或 max=b【4】输出max的值
【1】val(text1.text)【2】val(text2.text)【3】a>b 或 a<b 或 b>a 或 b<a【4】max=a 或 max=b【5】max=a 或 max=b【6】End If