第一题
Dim a As Single
a = Val(InputBox("请输入一个数"))
Print "a="; a
If a >= 0 Then
Print "|a|="; a
Else
Print "|a|="; -a
End If

第二题
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
If (x Mod 2) = 0 Then
Print "该数是偶数"
Else
Print "该数是奇数"
End If

第四题
Dim x As Single
x = Val(InputBox("请输入一个数"))
If x < 1 Then
y = x
Print "y="; y
End If
If 1 <= x And x < 10 Then
y = 2 * x - 1
Print "y="; y
End If
If x >= 10 Then
y = 3 * x - 11
Print "y="; y
End If

---------------------END----------------------------

这次是真的--------------------------END--------------------------------

同志们,第三题是为什么老是错了!!!!!
@迫于他人 

第三题
Dim x, y, z As Single
x = Val(InputBox("请输入第一个数"))
Print x
y = Val(InputBox("请输入第二个数"))
Print y
z = Val(InputBox("请输入第三个数"))
Print z
If x >= y Then
Max = x
Else
Max = y
End If
If z >= x And z >= y Then
Max = z
End If
Print "max="; Max


这次绝对是的-----------------------------END-----------------------------

感谢笨笨友情提供~

友情一顶

努力顶。。。。。

这是神马鬼东西……

你们下节课可以用啊...

Dim se As String
Print Tab(35); "乘法表“"
For i = 1 To 9
For j = i To 9
se = i & " * " & j & "=" & i * j
Print Tab((j - i) * 9); se;
Next j
Print
Next i