作业帮 > 综合 > 作业

VB代码若X大于0,则Y等于1.若X小于0.则Y等于-1.否则Y等于0

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 07:24:48
VB代码若X大于0,则Y等于1.若X小于0.则Y等于-1.否则Y等于0
Private Sub Form_Click() x = Val(InputBox("请输入一个数:")) If x > 0 Then y = 1 If x < 0 Then y = -1 If x = 0 Then y = 0 Print y End Su