...，1.3，1.4，1.8，1.1，1.9等都算是2的VB语言是什么 有...

优质解答

你的问题我不是很清楚,给个思路,不知道是不是你想要的.Private Sub Command1_Click()

a = InputBox("请输入一个数a：")

If a > Fix(a) Then ‘FIX函数是截尾取整函数.

a = Fix(a) + 1

End If

Print a

End Sub就这个思路,你可以根据需要修改下代码.

其他类似问题

问题1：vb中如何写出语句表示,注意是小数,非整数!vb中如何写出语句表示“A是一个带小数的正数,且B是一个带小数的负数所对应的逻辑表达式”,注意是小数,不是整数![数学科目]

判断正负好说,是否小数可以用fix(a)-a0来判断.因此,上述判断可用下面的语句实现：

'先正确定义变量a和b.

if fix(a)-a0 then msgbox "b是一个带小数的负数"

以上只是给楼主提供一个思路,仅供参考.

问题2：数字转汉字!把每句的语句都解释下,急用!、将阿拉伯数字转换成汉字数字具体要求：（1） 设计程序实现：在文本框内输入数字,则其上方的标签内自动显示其对应的汉字数字.（2） 由于采用

探花先生给的答案,只需要修改第5条就可以了,不然读取亿以上的数值会出错.另外,程序的解释其实题目中已经给得差不多了,其他语句都是花瓶性质的,没必要解释（因为Mid函数用得比较多,所以明白Mid(str,m,n)函数是从字符串str的第m位开始截取长度为n的子串就OK了）.

1、For intCounter = 1 To intLen

2、strTempCh = Mid(strEng2Ch,Mid(StrEng,intCounter,1) + 1,1)

3、If Mid(StrEng,intCounter + 1,1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then strTempCh = ""

4、Else

5、strTempCh = strTempCh & Trim(Mid(strSeqCh2,(intLen - intCounter) \ 4 + 1,1))

6、Next