VB代码 提问：利用val(inputbox())函数,用户随意输入一个数,编写函数判断正负数,单双数,整数还是小数.pdzs

Question

帮我写出这段话的VB代码，谢谢。

Answer 1

Dim str1 As String
i = InputBox("请输入一个数字", "请输入一个人数字")
If IsNumeric(i) Then
If Sgn(i) = -1 Then
str1 = "您输入的" & i & ":" & "负数"
Else
str1 = "您输入的" & i & ":" & "非负数"
End If

If Round(i) = i Then
If i Mod 2 = 0 Then
str1 = str1 + "，双数"
Else
str1 = str1 + "，单数"
End If
Else
str1 = str1 + ",小数"
End If

MsgBox str1
Else
MsgBox "你输入的不是一个数字", 32, "提示"
End If

Answer 2

dim a
a=val(inputbox("a=?"))
if a<0 then print a & "是负数" else print a & "是正数"
if a mod 2=0 then print a & "是偶数" else print a & "是奇数"
if int(a)=a then print a & "是整数" else print a & "是小数"本回答被网友采纳