摆渡自己阅读答案 -摆渡自己阅读答案-数学学习资料
编辑： admin 2017-20-02
-
4
你的问题我不是很清楚,给个思路,不知道是不是你想要的.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