年轻人葬礼主持词:hasfajskvgfdljfksdJA3

36．以下程序从键盘输入后，运行的结果为2:24，写出输入的原始数据是_ __144______。
Private Sub Command_Click()
Dim T As Integer
T = InputBox("输入时间（秒）：")
Print T\60&":"&T Mod 60
End Sub
37．输入三角形的三条边，判断是否满足三角形边长关系，A、B、C为整型变量。
A = InputBox("输入一条边")
B = InputBox("输入一条边")
C = InputBox("输入一条边")
If (A+B)>C AND ___( B + C ) > A____ AND (A+C)>B Then
Print "可以构成三角形"
Else
Print "不可以构成三角形"
End if
38．下列程序是进行英寸与厘米之间的单位转换。要求输入英寸值I，输出厘米值。已知每厘米为1/2.54英寸，并用变量CM表示厘米数值。
Dim CM As Single, I As Single
I = InputBox("输入英寸值：")
CM = __2.54 * I___________
Print "厘米数值为："；CM
39．计算分段函数：当x＜0时y取0；当0≤x＜1时取1；当x≥1时y取2。
Dim x As Integer
X = InputBox("输入X：")
Select Case x
Case Is < 0 ; y = 0
Case Is < 1 ; y = 1
Case Else ; ____Y = 2_______
End select
Print "Y=";y
40．如果下列程序中输入的字符为y，输出将是_____Z________。
Dim ch As String
ch = InputBox("请输入一个字符"，"输入窗口")
If (ch>="A" and ch<="Z") then
ch = Lcase(Chr(Asc(ch)+1))
Else if (ch>="a" and ch<="z") then
ch = Ucase(Chr(Asc(ch)+1))
End if
Print ch